Page 166 -
P. 166
MOV A,#6
CALL Write_IR
MOV A,#1
CALL Write_IR
RET
Reset_LCD：
MOV R0,#3
reset：
MOV DPTR,#8010H
MOV A,#38H
MOVX @DPTR,A
MOV R1,#41
D1：
MOV R2,#50
DJNZ R2,$
DJNZ R1,D1
DJNZ R0,reset
RET
Write_IR：
PUSH DPTR
CALL Check_BUSY
MOV DPTR,#8010H
MOVX @DPTR,A
POP DPTR
RET
Write_DR：
PUSH DPTR
CALL Check_BUSY
MOV DPTR,#8011H
MOVX @DPTR,A
POP DPTR
RET
Check_BUSY：
PUSH A
Busy：
MOV DPTR,#8010H
MOVX A,@DPTR
JB ACC.7,Busy
POP A
