Page 146 -
P. 146
CLRSCR: R1,#00H
MOV
R0,#00H
NEXT_X_PAGE: LOCATION
MOV
CALL A,#0
WRITE_DR
CLR_Y_COL: R0
MOV R0,#64,CLR_Y_COL
CALL R1
INC R1,#08,NEXT_X_PAGE
CJNE
INC A
CJNE DPTR,#LEFT_IR
RET L/R_BIT,$1
DPTR,#RIGH_IR
CHECK_BUSY:
PUSH A,@DPTR
MOV ACC.7,$1
JB A
MOV
DPL
$1: DPH
MOVX CHECK_BUSY
JB @DPTR,A
POP DPH
RET DPL
WRITE_IR: DPL
PUSH DPH
PUSH CHECK_BUSY
CALL DPTR,#LEFT_DR
MOVX L/R_BIT,$1
POP DPTR,#RIGH_DR
POP
RET
WRITE_DR:
PUSH
PUSH
CALL
MOV
JB
MOV
$1:
