TL bit P1.0

mov DPTR, #segment
mov R0, #1d

kostka:
    jnb TL, cykluj 
    CALL zobrazuj
    jmp kostka

cykluj:
    mov P2, #0FFH 
    clr P2.7     
    inc R0      
    cjne R0, #7d, nenuluj 
    mov R0, #1d
nenuluj:
    jmp kostka
   
zobrazuj:
    mov A, R0
    movc A,@A+DPTR
    mov P2, A
    RET
