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:
MOV DPH, #80H
MOV DPL, #77H
MOV A, #31H
MOVX @DPTR, 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:
    init_LCD
MOV R0, #7FH
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 NEXT1 ;JEZELI '0' PRZESKAKUJEMY DO KOLEJNEGO BLOKU
MOV A, R1 ; JEZELI NIE WYSZLO '0' TO PRZYWRACAMY WARTOSC AKUMULATORA
MOV DPH, #80H
MOV DPL,A
LCDcharWR
MOVX A,@DPTR
MOV P1, A
PETLA2:
JZ PETLA

NEXT1:
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
 LCDcharWR
MOVX A,@DPTR
MOV P1, A

NEXT2:
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
MOV DPL,A
LCDcharWR
MOVX A,@DPTR
MOV P1, A

NEXT3:
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 PETLA2 ;JEZELI '0' PRZESKAKUJEMY DO KOLEJNEGO BLOKU
MOV A, R1 ; JEZELI NIE WYSZLO '0' TO PRZYWRACAMY WARTOSC AKUMULATORA
MOV DPH, #80H
MOV DPL,A
LCDcharWR
MOVX A,@DPTR
MOV P1, A
    JMP START
NOP
NOP
NOP
JMP $
END START