Subversion Repositories svnkaklik

#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