ORG 0000H
LJMP MAIN
ORG 0030H
;initialization
MAIN: MOV A,#038H ;first time
LCALL COM
MOV A,#038H ;second time
LCALL COM
MOV A,#038H ;third time
LCALL COM
MOV A,#038H ;fourth time
LCALL COM
MOV A,#00EH
LCALL COM
MOV A,#001H
LCALL COM
MOV A,#006H
LCALL COM
MOV A,#084H
LCALL COM ;initialization End
MOV A,#'A' ;data to write on LCD
LCALL DATAW
MOV A,#'L'
LCALL DATAW
MOV A,#'I' ;data end
LCALL DATAW
AGAIN: SJMP AGAIN ;endless loop
COM: MOV P1,A ;command write sequence
CLR P3.7
CLR P3.5
SETB P3.4
CLR P3.4
LCALL TEST
LCALL DELAY
RET
DATAW: MOV P1,A ;data write sequence
SETB P3.7
CLR P3.5
SETB P3.4
CLR P3.4
LCALL DELAY
RET
DELAY: MOV R6,#50 ;simple delay routine
HERE2: MOV R7,#255 ;for 0.0124S or 124MS
HERE: DJNZ R7,HERE
DJNZ R6,HERE2
RET
TEST: JB P3.0,TEST
TEST2: JNB P3.0,TEST2
RET
END