| 0,0 → 1,99 |
|---|
| #include 16C84.INC |
| |
| PRYJM EQU 0 ;portb |
| |
| org 0 |
| |
| goto Start |
| ;-------------------- |
| org 4 |
| ;-------------------- |
| goto Start |
| |
| #include delay.asm |
| |
| |
| Start: |
| page1 |
| movlw 00101000B ; inicializace citace a prescaleru |
| movwf TMR0 |
| movlw 00000000B ; konfigurace preruseni |
| movwf INTCON |
| |
| page1 |
| movlw 11110111B ; nastaveni portu na vstup nebo vystup |
| movwf PORTA ; 1=vstup 0=vystup |
| movlw 11110001B |
| movwf PORTB |
| |
| ;bsf TMR0, 7 ; vypni pull-up na PORTB (OPTION registr) |
| |
| page0 |
| |
| clrw ; vynulovani portu |
| movwf PORTA |
| movwf PORTB |
| |
| bsf PORTA, 3 ; Pull-Up na tlacitka |
| |
| bcf PORTB, 1 ; zhasnuti LED |
| bcf PORTB, 2 |
| bcf PORTB, 3 |
| |
| MainLoop: |
| btfss PORTB, PRYJM ;cekani na impuls1 |
| goto MainLoop |
| |
| call Delay10us |
| call Delay10us |
| |
| btfss PORTB, PRYJM ;potvrzeni impulsu1 |
| goto MainLoop |
| |
| call Delay10us |
| call Delay10us |
| smycka: |
| btfsc PORTB, PRYJM |
| goto smycka |
| ;sinchronizace |
| call Delay10us |
| |
| smycka1: ;2impuls |
| btfss PORTB, PRYJM |
| goto smycka1 |
| call Delay10us |
| |
| smycka2: |
| btfss PORTB, PRYJM |
| goto MainLoop |
| |
| mezera2: |
| btfsc PORTB, PRYJM |
| goto mezera2 |
| |
| impuls3: |
| btfss PORTB, PRYJM |
| goto impuls3 |
| |
| mezera3: |
| btfsc PORTB, PRYJM |
| goto mezera3 |
| |
| call Delay10ms |
| clrf TMR0 |
| Delay |
| |
| ;------------------------- |
| |
| ;---------------------------- |
| ; Definice promenych |
| ;---------------------------- |
| |
| cblock |
| |
| CT1 |
| CT2 |
| |
| endc |
| |
| end |