;       - P5.0=L - z opóźnieniami
;-------------------------------------------------------------------------------
include         REG515.INC              ;Tabela predefinicyjna SFR.
;-------------------------------------------------------------------------------
                                               
code    at 1000h                                ;organizacja od adresu 1000h
 
                ljmp    start                   ;skok do poczatku programu
 
code    at 2000h
 
start: 
       
       
        mov R3, #00h
                mov R2, #00h
                        mov R4, #00h
        mov B, #00h
        mov P4, #00h
        jmp petla
       
petla:
       
        jnb P5.3, change
        jnb P5.2, reset
        ;jnb B, stop
        jmp petla
       
reset:
        mov tmod, #00h
        clr TR0
        clr ET0
        clr EAL
        jmp start
       
startTimer:
        mov tmod, #01h
        setb TR0
        setb ET0
        setb EAL
        mov TH0, #3Ch
        mov TL0, #0AFh
        jmp petla
       
opozn:
       
        djnz R0, opozn
        djnz R1, opozn
        RET    
       
stopTimer:
        mov a, R2
        rl a
        rl a
        rl a
        rl a
        add a, R4
        mov P4, a