INIT:   MOV DPTR, #TAB; nacteni adresy zacatku tabulky
    MOV P1,#10000000B ;nastaveni displeje na nulu, nemela by byt prvni jednicka?
    MOV R0, #0H ; aktualni pozice v tabulce
ZAC:    JNB P3.0, plus ;pokud zmacknes, skoc
    JNB P3.6, minus
    JMP ZAC ;a znova

plus:   MOV A, R0 ; presun R0 do ACC
    INC A ; zvyseni pozice o 1
    CJNE A, #6, SKOK
    MOV A, #0H
SKOK:   MOV R0, A ; zapis pozice zpatky do registru
    JMP zobraz

minus:  MOV A, R0
    CJNE A, #0, SKOK1
    JMP DAL
SKOK1:  DEC A
DAL:    MOV R0, A
    JMP zobraz

zobraz:
    MOVC A,@A+DPTR ; presun dat z tabulky na adrese A + zacatek tabulky
    MOV P1, A ; presun ACC na port
    CALL TICHO1 ; zpozdeni kvuli tlacitku
    JMP ZAC ; a zase znova

TAB:    DB 10000000B ; sem si muzes dopsat cisla az do 9
    DB 10111001B
    DB 01100100B
    DB 01110000B
    DB 01011001B
    DB 01010010B

TICHO1:     ; 2,004 sec
        MOV R3, #15
HOP6:       MOV R4, #255
HOP5:       CALL PAUZA1
        DJNZ R4, HOP5
        DJNZ R3, HOP6
        RET

PAUZA1:     ; 260us
        MOV R7, #127
HOP1:       DJNZ R7, HOP1
        NOP
            RET
END