|
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
|