RS
EQU P2.0
RW EQU P2.1
E EQU P2.2
ORG 0080H
MOV P0,#00000001B ;Clear
display
ACALL ENABLE
MOV P0,#00000001B ;Clear
display
ACALL ENABLE
MOV P0,#00111000B ;Display
ACALL ENABLE
MOV P0,#00001111B ;Display
control switch
ACALL ENABLE
MOV P0,#00000110B
;Input mode
ACALL ENABLE
MOV P0,#0C0H ;Data memory
address
ACALL ENABLE
mov p0,#01000001b
;ASCII Code SETB
RS
CLR RW
CLR E |
ACALL DELAY
SETB E
AJMP $ ENABLE:
CLR RS
;Send orders
CLR RW
CLR E
ACALL DELAY
SETB E
RET DELAY:
MOV P0,#0FFH
CLR RS
SETB RW
CLR E
NOP
SETB E
JB P0.7,DELAY ;detect
busy
RET
END |