LJMP START

; LCD registers ----------------------------------
 LCDstatus equ 0FF2EH
 LCDcontrol equ 0FF2CH
 LCDdataWR equ 0FF2DH
 LCDdataRD equ 0FF2FH
// LCD control bytes ----------------------------------
#define HOME 0x80 // put curcor to second line
#define INITDISP 0x38 // LCD init (8-bit mode)
#define HOM2 0xc0 // put curcor to second line
#define LCDON 0x0e // LCD nn, cursor off, blinking off
#define CLEAR 0x01 // LCD display clear

ORG 0100H

P5 EQU 0F8H
P7 EQU 0DBH

 LCDcntrlWR MACRO x
 LOCAL loop
 loop:
  MOV DPTR,#LCDstatus
 MOVX A,@DPTR
 JB ACC.7,loop ; check if LCD busy
 MOV DPTR,#LCDcontrol ; write to LCD control
 MOV A, x
 MOVX @DPTR,A
  ENDM

 LCDcharWR MACRO
 LOCAL loop1,loop2

 PUSH ACC
 loop1: MOV DPTR,#LCDstatus
 MOVX A,@DPTR
 JB ACC.7,loop1 ; check if LCD busy

 loop2: MOV DPTR,#LCDdataWR ; write data to LCD
 POP ACC
 MOVX @DPTR,A
 ENDM

 init_LCD MACRO
 LCDcntrlWR #INITDISP
 LCDcntrlWR #CLEAR
 LCDcntrlWR #LCDON
 ENDM

START:
: ustawienia w rejestrze DPTR wskaźnika na wartości ascii
MOV DPH, #80H
MOV DPL, #77H
MOV A, #31H
MOVX @DPTR, A ;przy danej wartości DPTR ma wskazywać na liczbe w A
MOV DPH, #80H
MOV DPL, #7BH
MOV A, #32H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #7DH
MOV A, #33H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #7EH
MOV A, #41H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0B7H
MOV A, #34H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0BBH
MOV A, #35H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0BDH
MOV A, #36H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0BEH
MOV A, #42H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0D7H
MOV A, #37H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0DBH
MOV A, #38H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0DDH
MOV A, #39H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0DEH
MOV A, #43H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0E7H
MOV A, #2AH
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0EBH
MOV A, #30H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0EDH
MOV A, #23H
MOVX @DPTR, A
MOV DPH, #80H
MOV DPL, #0EEH
MOV A, #44H
MOVX @DPTR, A
;

MOV R4, #0
MOV R5, #0

PETLA: ;obsluga pierwszego wiersza
    init_LCD
    MOV R0, #7FH ;wysterowania linii portu P5 zerem logicznym aby mieć możliwość potem pobrać bajty z P7
    MOV A, R0
    MOV P5, A ; Wysterowanie lini portu dla pierwszego wiersza
    MOV A, P7 ; odczytanie bitów klawiatury
    ANL A, R0 ; iloczyn logiczny odzielenie bitów klawiatury
    MOV R1, A ; zapisujemy wartość
    CLR C ; czyścimy C aby nam nie odejmowało się w SUBB
    SUBB A, R0 ;sprawdzenie czy jakaś kolumna w wierszu została naciśnięte wtedy w tym miejscu
    ; bit przyjmie wartość 0 i przy odejmowaniu jeśli nie będzie zera będzie oznaczało żę użytkownik coś wcisnął
    JZ NEXT1 ;JEZELI '0' PRZESKAKUJEMY DO KOLEJNEGO BLOKU
    MOV A, R1 ; JEZELI NIE WYSZLO '0' TO PRZYWRACAMY WARTOSC AKUMULATORA
    MOV DPH, #80H ; przenosimy wartości zczytwanych bitów do DPTR
    MOV DPL,A
    MOVX A,@DPTR ; przenosimy wartość na którą DPTR wskazywał do A
    LCDcharWR ; wyświetlamy na lcd
    MOV P1, A ;przenosimy A do portu P1 aby wyświetlić binarnie jaką liczbe podaliśmy
    PETLA2:
    JZ PETLA

NEXT1: obsłóga drugiego wierszu
MOV R0, #0BFH
MOV A, R0
MOV P5, A
MOV A, P7
ANL A, R0 ;W AKUMULATORZE JEST TO CO WPISALISMY DO R0
MOV R1, A
CLR C
SUBB A, R0
JZ NEXT2 ;JEZELI '0' PRZESKAKUJEMY DO KOLEJNEGO BLOKU
MOV A, R1 ; JEZELI NIE WYSZLO '0' TO PRZYWRACAMY WARTOSC AKUMULATORA
MOV DPH, #80H
MOV DPL,A
MOVX A,@DPTR
MOV P1, A
LCDcharWR

NEXT2: obsluga trzeciego wierszu
MOV R0, #0DFH
MOV A, R0
MOV P5, A
MOV A, P7
ANL A, R0 ;W AKUMULATORZE JEST TO CO WPISALISMY DO R0
MOV R1, A
CLR C
SUBB A, R0
JZ NEXT3 ;JEZELI '0' PRZESKAKUJEMY DO KOLEJNEGO BLOKU
MOV A, R1 ; JEZELI NIE WYSZLO '0' TO PRZYWRACAMY WARTOSC AKUMULATORA
MOV DPH, #80H
MOVX A,@DPTR
MOV P1, A
LCDcharWR

NEXT3: obsluga czwartego wierszu
MOV R0, #0EFH
MOV A, R0
MOV P5, A
MOV A, P7
ANL A, R0 ;W AKUMULATORZE JEST TO CO WPISALISMY DO R0
MOV R1, A
CLR C
SUBB A, R0
JZ PETLA ;JEZELI '0' wracamy do pierwszegi wiersza
MOV A, R1 ; JEZELI NIE WYSZLO '0' TO PRZYWRACAMY WARTOSC AKUMULATORA
MOV DPH, #80H
MOV DPL,A
MOVX A,@DPTR
MOV P1, A
LCDcharWR
    JMP START
NOP
NOP
NOP
JMP $
END START