Page 137 -
P. 137
CALL WRITE_IR
RET
SHOW_STRING: A
CLR A,@A+DPTR
MOVC A,#’$’,$1
CJNE
RET WRITE_DR
$1: DPTR
CALL SHOW_STRING
INC
JMP DPH
WRITE_IR: DPL
PUSH CHECK_BUSY
PUSH @DPTR,A
CALL DPL
MOVX DPH
POP
POP DPH
RET DPL
WRITE_DR: CHECK_BUSY
PUSH DPTR,#LCD_DR
PUSH @DPTR,A
CALL DPL
MOV DPH
MOVX
POP A
POP DPTR,#LCD_IR
RET
CHECK_BUSY: A,@DPTR
PUSH ACC.7,BUSY
MOV A
BUSY:
MOVX TCON,#00010000B
JB
POP
RET
DELAY:
MOV
$1:
