; Program pro generování náhodného čísla 1 až 6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; počáteční nastavení
mov R0, #2


; havní programová smyčka
zac:
    JNB P1.0 , stisknuto  ; skočí pokud tlačítko je stiknuté
    jmp nestisknuto
    
stisknuto:
    call cykluj
    mov P2, #0FFH
    jmp zac

nestisknuto:
    call zobrazuj
    jmp zac
    


zobrazuj:
    mov DPTR, #segment
    mov A,R0
    movc A,@A+DPTR
    mov P2, A
    RET

cykluj:

    RET

segment: 
     db 11000000b  ; 0
     db 11111001b  ; 1
     db 10100100b  ; 2
     db 10110000b  ; 3 
     db 10011001b  ; 4
     db 10010010b  ; 5
     db 10000010b  ; 6
     db 11111000b  ; 7
     db 10000000b  ; 8
     db 10010000b  ; 9


END