P5 EQU 0F8H
P7 EQU 0DBH

ORG 0

START:
;-----------------------------
;przeslanie kodów klawisza do XRAMu
;-----------------------------
    MOV     DPH,  #080H

    MOV     DPL,  #01110111B
    MOV     A,    #01H
    MOVX    @DPTR, A
    MOV     DPL,  #01111011B
    MOV     A,    #02H
    MOVX    @DPTR, A
    MOV     DPL,  #01111101B
    MOV     A,    #03H
    MOVX    @DPTR, A
    MOV     DPL,  #01111110B
    MOV     A,    #0AH
    MOVX    @DPTR, A

    MOV     DPL, #10110111B
    MOV     A,   #04H
    MOVX    @DPTR, A
    MOV     DPL, #10111011B
    MOV     A,   #05H
    MOVX    @DPTR, A
    MOV     DPL, #10111101B
    MOV     A,   #06H
    MOVX    @DPTR, A
    MOV     DPL, #10111110B
    MOV     A,   #0BH
    MOVX    @DPTR, A

    MOV     DPL, #11010111B
    MOV     A,   #07H
    MOVX    @DPTR, A
    MOV     DPL, #11011011B
    MOV     A,   #08H
    MOVX    @DPTR, A
    MOV     DPL, #11011101B
    MOV     A,   #09H
    MOVX    @DPTR, A
    MOV     DPL, #11011110B
    MOV     A,   #0CH
    MOVX    @DPTR, A

    MOV     DPL, #11100111B
    MOV     A,   #0EH       ;GWIAZDKA
    MOVX    @DPTR, A
    MOV     DPL, #11101011B
    MOV     A,   #00H
    MOVX    @DPTR, A
    MOV     DPL, #11101101B
    MOV     A,   #0FH       ;KRATKA
    MOVX    @DPTR, A
    MOV     DPL, #11101110B
    MOV     A,   #0DH
    MOVX    @DPTR, A

;---------------------------------
;rozpoczecie sczytywania z klawiatury
;P5 - stan wierszy   P7 - stan kolumny    ACC  - kod klawisza z pamieci zewnetrznej
;---------------------------------

    MOV     P5, #01111111B              ; ustwienie 0 na pierwszy wiersz klawiatury
PETLA:
    MOV     R2, #04H                    ;licznik wierszy
PETLA2:
    MOV     A,  P7                      ;przeslanie stanu klawiatury do akumulatora
    CPL     A
    JZ      NAST_WIERSZ                 ;nie wcisnieto -> kolejny wiersz
    MOV     R1, P5
    XRL     A,  R1

    MOV     DPH, #080H
    MOV     DPL, A
    MOVX    A,   @DPTR
    CPL     A
    MOV     P1,  A
    CPL     P1.7

;-----------------------------------
;obsluga zmiany wiersza     ACC - stan wierszy z portu P5
;-----------------------------------

NAST_WIERSZ:
    MOV     A,  P5
    RR      A                          ;przesuniecie 0 w prawo
    MOV     P5, A                      ;ustawienie stanu wierszy klawiatury
    DJNZ    R2, PETLA2
    JMP     START

    JMP $
END START