ORG 00
JMP ST
ORG 10H
ST: CALL INIT
BS P6,1
BS P5,1
;------------------------------------
CALL LCDINIT
ST1: BS P5,1
MOV A,@0xff
MOV LCD1,A
MOV LCD2,A
MOV LCD3,A
MOV LCD4,A
CALL WRDATA
BC P5,1
JMP ST1
;-------------------------------------
INIT: MOV A,@00H
IOW IOC5
IOW IOC6
IOW IOC7
CLR P5
CLR P6
BS P7,0
MOV A,@0X10
MOV R4,A
INIT_1: CLR 0
INC R4
MOV A,R4
XOR A,@0X40
JBS PSW,2
JMP INIT_1
RET
;--------------------------------------
HT1621: MOV A,DATA1621
BC P5,_WR
CALL NOPP
AND A,@0X80
JBS PSW,Z
JMP HT1621_1
BC P5,_DATA
JMP HT1621_2
HT1621_1: BS P5,_DATA
HT1621_2: CALL NOPP
BS P5,_WR
BC PSW,C
RLC DATA1621
DJZ FLAG1
JMP HT1621
RET
;---------------------------
WRDATA:
; CALL COM_M
; CALL LCD_ON
NOP
MOV A,@6
MOV FLAG1,A
BS P7,_CS ;WRITE-101
BC P5,_DATA
BC P5,_WR ;/WR=0
CALL NOPP
BC P7,_CS ;/CS=0
BS P5,_DATA ;DATA=1
BS P5,_WR ;/WR=1
CALL NOPP
BC P5,_WR ;/WR=0
BC P5,_DATA ;DATA=0
BS P5,_WR ;/WR=1
CALL NOPP
BC P5,_WR ;/WR=0
BS P5,_DATA ;DATA=1
BS P5,_WR ;/WR=1
CALL NOPP
BC P5,_WR ;/WR=0
LCD_A1: BC P5,_DATA
CALL NOPP
BS P5,_WR ;/WR=1
CALL NOPP
BC P5,_WR ;/WR=0
DJZ FLAG1
JMP LCD_A1
MOV A,@LCD1
MOV R4,A
MOV A,@0X04
MOV FLAG1,A
LCD_A2:MOV A,0
MOV DATA1621,A
MOV A,@8
MOV FLAG2,A