Page 130 -

MOV TH0,#>(2**16-100)
MOV TL0,#<(2**16-100)
CALL DELAY
MOVX @DPTR,A
RET
INIT_LCD: A,#00111110B
MOV WRITE_IR
CALL A,#00000001B
MOV WRITE_IR
CALL A,#00000110B
MOV WRITE_IR
CALL A,#00001100B
MOV WRITE_IR
CALL
RET A
SHOW_STRING: A,@A+DPTR
CLR A,#’$’,$1
MOVC
CJNE WRITE_DR
RET DPTR
$1: SHOW_STRING
CALL
INC DPH
JMP DPL
WRITE_IR: CHECK_BUSY
PUSH @DPTR,A
PUSH DPL
CALL DPH
MOVX
POP DPH
POP DPL
RET CHECK_BUSY
WRITE_DR: DPTR,#LCD_DR
PUSH @DPTR,A
PUSH DPL
CALL
MOV
MOVX
POP