zac: jmp zacatek
    mov P0,P1
    jmp zac


zacatek: 
    mov P0,#00FH
    call DEL800
    mov P0,#0F0H
    call DEL800
    jmp zacatek 


include delay.inc


END