org 0
lcdisp:
mov a,#30h ;lcd set as 1 line,8bit,5x8dots
acall command
mov a,#0eh ;screen and cursor on, no blink
acall command
mov a,#06h ;shift cursor right
acall command
mov a,#01h ;clear memory and cursor at home
acall command

trying to write ? mark upside down
mov a,#40h ; setting to write in cg ram
acall command
mov a,#04h ;sending first row bits
acall data
mov a,#00h ; sending second row
acall data

mov a,#04h
acall data
mov a,#08h
acall data

mov a,#10h
acall data
mov a,#11h
acall data

mov a,#0eh
acall data
mov a,#00h ; sending eighth row as 0 since it is cursor place
acall data

mov a,#80h ; entering DDRAM area
acall command
mov a,#0
acall cgram_read


here:
sjmp here

cgram_read:
acall ready
mov p1,a
setb p3.2 ;RS
clr p3.3 ;R/W
setb p3.4 ;E
clr p3.4
clr p3.2

command:
acall ready
mov p1,a
clr p3.2
clr p3.3
setb p3.4
clr p3.4
ret

data:
acall ready
mov p1,a
setb p3.2
clr p3.3
setb p3.4
clr p3.4
ret

ready: ; checking busy flag
clr p3.4
mov p1,#0ffh
clr p3.2
setb p3.3
wait:
clr p3.4
setb p3.4
jb p1.7,wait
clr p3.4
ret
end