Notes

LJMP START
ORG 0100H
//rejestry sterujace lcd
LCDstatus equ 0FF2EH //status wyświetlacza
LCDcontrol equ 0FF2CH //sterowanie wyswietlaczem
LCDdataWR equ 0FF2DH //wypisywanie
LCDdataRD equ 0FF2FH //czytanie

#define HOME 0x80 //powrot na poczatek linii
#define INITDISP 0x38 //inicjalizacja lcd
#define HOM2 0xc0 //kursor do drugiej linii
#define LCDON 0x0e //wlaczenie lcd z
#define CLEAR 0x01 //wyczyszczenie wyswietlacza


LCDcntrlWR MACRO x
LOCAL loop
loop:
MOV DPTR, #LCDstatus
MOVX A,@DPTR
JB ACC.7,loop ;check if LCD is 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
POP ACC
MOVX @DPTR,A
ENDM

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

//W AKUMULATORZE ILOSC ZNAKOW DO WYPISANIA MAX 15
//W R3 DPH
//W R4 DPL
//R0 BEDZIE ZNISZCZONE
//R1 LICZNIKI LINII
lcd_write_from_xram MACRO
LOCAL WYPISZ_ZNAK
//USTAWIENIE DPTR
MOV R1, #10H //LINIK LINII
MOV DPH, R3
MOV DPL, R4
WYPISZ_ZNAK:
MOV R0, A //ZAPAMIETANIE LICZNIKA
MOVX A, @DPTR //WCZYTANIE KODU ZNAKU
LCDcharWR //WYPISANIE ZNAKU
INC R4 //INKREMENTACJA ADRESU
DEC R1 //ZMNIEJSZENIE ILOSCI MOZLIWYCH DO WPISANIA ZNAKOW W LINII
//ODZYSKANIE DPTR
MOV DPH, R3
MOV DPL, R4
DEC R0 //ZMNIEJSZENIE LICZNIKA PETLI
MOV A, R1 //SPRAWDZENIE KONCA LINII
JZ NOWA_LINIA
POWROT:
MOV A, R0 //ZAPAMIETANIE LICZNIKA
JNZ WYPISZ_ZNAK //POWROT NA POCZATEK
JMP END_MACRO //KONIEC MAKRA

NOWA_LINIA: //PRZESKOCZENIE DO DRUGIEJ LINII PO WYPELNIENIU PIERWSZEJ
LCDcntrlWR #HOM2
JMP POWROT

END_MACRO:
ENDM


START:

init_LCD

MOV DPTR, #8000H
MOV A, #41H
MOV R1, A
MOV R0, #1AH

PETLA:
MOV A, R1
MOVX @DPTR, A
INC DPTR
DEC R0
INC A
MOV R1, A
MOV A, R0
JNZ PETLA

MOV R3, #80H
MOV R4, #00H
MOV A, #1AH

lcd_write_from_xram

NOP
NOP
NOP
JMP $
END START