Page 136 -

MOV A,#00000010B
CALL WRITE_DR
$1:
MOV A,#11000000B
CALL WRITE_IR
MOV A,#00000010B
CALL WRITE_DR
CALL DELAY_1S
MOV A,#11000000B
CALL WRITE_IR
MOV A,#00000000B
CALL WRITE_DR
MOV A,#11000000B
CALL DELAY_1S
JMP $1
RESET_LCD:
MOV DPTR,#LCD_IR
MOV A,#00110000B
MOV TH0,#>(2**16-15000)
MOV TL0,#<(2**16-15000)
CALL DELAY
MOVX @DPTR,A
MOV TH0,#>(2**16-4100)
MOV TL0,#<(2**16-4100)
CALL DELAY
MOVX @DPTR,A
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