LJMP START

;REJESTRY LCD
LCDstatus equ 0FF2EH
LCDcontrol equ 0FF2CH
LCDdataWR equ 0FF2DH
LCDdataRD equ 0FF2FH

;LCD CONTROL BYTES
#define HOME 0x80
#define INITDISP 0x38
#define HOM2 0xc0
#define LCDON 0x0e
#define CLEAR 0x01

putstrLCD:
    CLR A
    MOVC A,@A+DPTR
    JZ EXIT
    PUSH DPH
    PUSH DPL
    CALL putcharLCD
    POP DPL
    POP DPH
    INC DPTR
    SJMP putstrLCD
EXIT:RET

ORG 0100H

text: DB "Jakis tekst", 00
text2: DB "Jakis drugi tekst", 00

LCDcntrlWR MACRO x
    LOCAL loop
loop:
    MOV DPTR,#LCDstatus
    MOVX A,@DPTR
    JB ACC.7,loop
    MOV DPTR,#LCDcontrol
    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

loop2:
    MOV DPTR, #LCDdataWR
    POP ACC
    MOVX @DPTR,A
ENDM

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

first_line MACRO
    LCDcntrlWR #HOME
ENDM

second_line MACRO
    LCDcntrlWR #HOM2
ENDM

putcharLCD:
LCDcharWR
RET

START:
    init_LCD
    MOV R1, #05H
    loop_pierwsza:

    first_line
    MOV A,#61H
    LCDcharWR

    second_line
    MOV A,#62H
    LCDcharWR
    first_line

    DJNZ R1,loop_pierwsza
  */

    MOV DPTR,#text


NOP
NOP
NOP
JMP $
END START