|
loop8:
JB P3.3,$
LCALL T4
JNB P3.3,$
LJMP MAIN
;***********************END OF PROGRAM**********************
;***********************************************************
WR128:
MOV R7,#04H
MOV R6,#0B0H
WDAT2: MOV P1,R6
LCALL WRCOM
MOV R5,#80H
MOV P1,#10H ;;SET COLUMN ADDRESS IS 0000H
LCALL WRCOM
MOV P1,#00H
LCALL WRCOM
WDAT1: MOV P1,A
LCALL WRDAT
DJNZ R5,WDAT1
INC R6
DJNZ R7,WDAT2
RET
;*********************************************
WR64:
MOV R7,#04H
MOV R6,#0B0H
WDAT22: MOV P1,R6
LCALL WRCOM
MOV R5,#40H
MOV P1,#10H ;;SET COLUMN ADDRESS IS 0000H
LCALL WRCOM
MOV P1,#00H
LCALL WRCOM
WDAT21: MOV P1,R1
LCALL WRDAT
LCALL TT1
MOV P1,R2
LCALL WRDAT
DJNZ R5,WDAT21
INC R6
DJNZ R7,WDAT22
RET
;**************WRITE ONE SCREEN**************************
FULLSCREEN:
MOV R7,#04H
MOV R6,#0B0H ;set page address is 0000h
WDAT3: MOV P1,R6
LCALL WRCOM
MOV R5,#80H
MOV P1,#10H ;;SET COLUMN ADDRESS IS 0000H
LCALL WRCOM
MOV P1,#00H
LCALL WRCOM
WDAT4: CLR A
MOVC A,@A+DPTR
;CPL A
MOV P1,A
LCALL WRDAT
INC DPTR
DJNZ R5,WDAT4
INC R6
DJNZ R7,WDAT3
RET
;******************************************
WRCOM: LCALL TT1
CLR A0
CLR RW
SETB E
NOP
NOP
NOP
CLR E
RET
;*******************************************
WRDAT: LCALL TT1
SETB A0
CLR RW
SETB E
NOP
NOP
NOP
CLR E
RET
;*******************************************
TT1:
MOV R4,#80H
DJNZ R4,$
RET
;*******************************************
T2: MOV R4,#01H;DELAY 0.26S
T22: MOV R3,#030H
T21: MOV R2,#0FFH
DJNZ R2,$
DJNZ R3,T21
DJNZ R4,T22
RET
;******************************************
T3: MOV R4,#02H;DELAY 0.52S
T32: MOV R3,#0FFH
T31: MOV R2,#0FFH
DJNZ R2,$
DJNZ R3,T31
DJNZ R4,T32
RET
;******************************************
T4: MOV R4,#01H;DELAY 1.56S
T42: MOV 30H,#0FFH
T41: MOV R2,#0FFH
DJNZ R2,$
DJNZ 30H,T41
DJNZ R4,T42
RET
;**********************************************************
TAB1:
db 0ffh,001h,001h,001h,001h,001h,001h,001h,001h,001h
db 041h,0c9h,099h,011h,031h,0b1h,0d1h,0d1h,091h,051h
db 0d1h,0b1h,031h,001h,001h,001h,001h,001h,001h,001h
db 001h,001h,001h,001h,001h,001h,001h,001h,001h,001h
db 081h,081h,0f9h,0f9h,081h,0f9h,0f9h,001h,0f1h,0f1h
db 001h,0f9h,0f9h,001h,001h,001h,001h,001h,001h,001h
db 001h,001h,001h,001h,001h,001h,001h,001h,001h,001h
db 001h,001h,001h,0f9h,0f9h,0a9h,0a9h,0a9h,0a9h,0f9h
db 0f9h,001h,001h,001h,001h,001h,001h,001h,001h,001h
db 001h,001h,001h,001h,001h,001h,001h,001h,001h,001h
db 081h,0c1h,0e1h,0f9h,099h,081h,0f9h,0f9h,061h,021h
db 031h,091h,081h,001h,001h,001h,001h,001h,001h,001h
db 001h,001h,001h,001h,001h,001h,001h,0ffh
db 0ffh,000h,000h,000h,000h,000h,000h,000h,000h,000h
db 008h,07ch,07eh,022h,022h,032h,01ah,07fh,07fh,01ah
db 032h,022h,022h,000h,000h,000h,000h,000h,000h,000h
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
db 010h,030h,03fh,05fh,068h,03fh,01fh,000h,01fh,01fh
db 000h,07fh,07fh,000h,000h,000h,000h,000h,000h,000h
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
db 000h,07eh,07eh,02ah,02ah,07eh,07eh,07eh,07eh,02ah
db 02ah,07eh,07eh,000h,000h,000h,000h,000h,000h,000h
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
db 008h,008h,00bh,00bh,008h,07ch,07dh,00bh,00ah,00ah
db 00ah,00bh,00bh,000h,000h,000h,000h,000h,000h,000h
db 000h,000h,000h,000h,000h,000h,000h,0ffh
db 0ffh,000h,000h,000h,000h,000h,030h,078h,0c8h,088h
db 098h,018h,000h,008h,0f8h,0f8h,088h,088h,0f8h,0f8h
db 008h,008h,0f8h,0f8h,088h,0c8h,0d8h,018h,000h,008h
db 0f8h,0f8h,0f8h,0c8h,0f8h,0f8h,008h,000h,018h,018h
db 0c8h,0f8h,038h,008h,000h,008h,0f8h,0f8h,088h,088h
db 0f8h,0f8h,008h,008h,0f8h,0f8h,088h,0c8h,0d8h,018h
db 000h,008h,0f8h,0f8h,0f8h,0c8h,0f8h,0f8h,008h,000h
db 008h,008h,0f8h,0f8h,008h,008h,000h,000h,008h,008h
db 0f8h,0f8h,008h,008h,000h,008h,0f8h,0f8h,0f8h,0c8h
db 0f8h,0f8h,008h,0e0h,0f0h,018h,008h,018h,018h,000h
db 000h,008h,0f8h,0f8h,088h,088h,0f8h,0f8h,008h,008h
db 0f8h,0f8h,008h,008h,0f8h,0f8h,008h,000h,000h,0e0h
db 0f8h,0f8h,0e0h,000h,000h,000h,000h,0ffh
db 0ffh,080h,080h,080h,080h,080h,08ch,08ch,088h,088h
db 08fh,087h,080h,088h,08fh,08fh,088h,088h,08fh,08fh
db 088h,088h,08fh,08fh,088h,089h,08dh,08ch,080h,088h
db 08fh,08fh,089h,087h,08fh,08fh,080h,080h,088h,08eh
db 08fh,089h,08ch,08ch,080h,088h,08fh,08fh,088h,088h
db 08fh,08fh,088h,088h,08fh,08fh,088h,089h,08dh,08ch
db 080h,088h,08fh,08fh,089h,087h,08fh,08fh,080h,098h
db 098h,090h,09fh,08fh,080h,080h,080h,080h,088h,088h
db 08fh,08fh,088h,088h,080h,088h,08fh,08fh,089h,087h
db 08fh,08fh,080h,083h,087h,08ch,089h,08fh,087h,081h
db 080h,088h,08fh,08fh,088h,088h,08fh,08fh,088h,080h
db 087h,08fh,088h,088h,08fh,087h,080h,088h,08eh,08fh
db 089h,089h,08fh,08eh,088h,080h,080h,0ffh
END
|
66821730(技術支持)
