;*FILE NAME :TEST8023.ASM ;*LCD TYPE :TSE8023/8024 ;*LCD DRIVER:KS0724 ;CS1 EQU P3.0 ;RESET EQU P3.1 ;RS EQU P3.2 ;W_R EQU P3.5 ;E EQU P3.4 CS1 EQU P3.0 RES EQU P3.1 A0 EQU P3.2 SID EQU P1.7 SCLK EQU P1.6 ORG 0000H START: CLR CS1 CLR RES ;RESET NOP NOP SETB RES NOP NOP MOV A,#0E2H LCALL WCOM NOP MOV A,#0A0H ;ADC SELECT: SEG0 TO SEG132 LCALL WCOM MOV A,#0C8H ;SHL SELECT: COM0 TO COM63 LCALL WCOM MOV A,#0A2H ;BIAS SELECT =1/9 LCALL WCOM MOV A,#02FH ;VC=ON,VR=ON,VF=ON LCALL WCOM LCALL DELAY MOV A,#024H ;REGULATOR RESISTOR SELECT /R2=R1=R0=1 27 LCALL WCOM MOV A,#081H ;REFERENCE VOLTAGE SELECT LCALL WCOM MOV A,#01EH ;REFERENCE VOLTAGE PARAMETER:32 3F LCALL WCOM MOV A,#040H ;INITIAL DISPLAY LINE LCALL WCOM MOV A,#0A6H ;DISPLAY ON LCALL WCOM MOV A,#0A4H LCALL WCOM MOV A,#0AFH ;NORMAL DISPLAY LCALL WCOM MOV R3,#00H LCALL TEST MOV R3,#06H LCALL TEST MOV R3,#0CH LCALL TEST MOV R3,#012H LCALL TEST MOV R3,#018H LCALL TEST MOV R3,#01EH LCALL TEST MOV R3,#024H LCALL TEST MOV DPTR,#TRULY1 MOV 50H,DPH MOV 51H,DPL LCALL DSPL LCALL WAITKEY LCALL DELAY LCALL SMAP ;LCALL WAITKEY LCALL DELAY LJMP START TEST: MOV R2,#0B0H DISP2: MOV A,R2 ;set page address LCALL WCOM MOV A,#010H ;set column address MSB LCALL WCOM MOV A,#00H ;set column address LSB LCALL WCOM MOV R1,#16H ;set (6*8)*17characters DISP1: MOV DPTR,#CHAR MOV R0,#06H DISP0: MOV A,R3 MOVC A,@A+DPTR LCALL WDATA INC DPTR DJNZ R0,DISP0 DJNZ R1,DISP1 INC R2 CJNE R2,#0B8H,DISP2 LCALL DELAY LCALL WAITKEY LCALL DELAY RET DSPL: MOV R2,#0B0H MOV R0,#00H DSPL1: MOV A,R2 ;set page address LCALL WCOM MOV A,#010H ;set column address MSB LCALL WCOM MOV A,#00H ;set column address LSB LCALL WCOM MOV DPH,50H MOV DPL,51H MOV R1,#080H DSPL0: MOV A,R0 MOVC A,@A+DPTR LCALL EXCHANGE LCALL WDATA INC DPTR INC DPTR INC DPTR INC DPTR INC DPTR INC DPTR INC DPTR INC DPTR DJNZ R1,DSPL0 INC R0 INC R2 CJNE R2,#0B8H,DSPL1 ;LCALL WAITKEY LCALL DELAY RET EXCHANGE:PUSH B CLR C RLC A MOV B.0,C RLC A MOV B.1,C RLC A MOV B.2,C RLC A MOV B.3,C RLC A MOV B.4,C RLC A MOV B.5,C RLC A MOV B.6,C RLC A MOV B.7,C MOV A,B POP B RET SMAP: MOV R5,#18H SMAP4: LCALL DELAY DJNZ R5,SMAP4 SMAP3: MOV R4,#00H MOV R1,#40H SMAP1: MOV A,#40H ORL A,R4 LCALL WCOM LCALL DELAY INC R4 MOV P2,#0FFH MOV 67H,#08H SMAP5: LCALL DELAY DJNZ 67H,SMAP5 MOV C,P2.0 JNC SMAP2 LCALL DELAY MOV C,P2.0 JNC SMAP2 DJNZ R1,SMAP1 LJMP SMAP3 SMAP2: LCALL DELAY MOV A,#40H LCALL WCOM RET ;SELECT SUBPROGRAM WAITKEY:SETB P2.0 LCALL WAIT ;IN ORDER TO ACCEPT SELECT STATUS STATUS: MOV C,P2.0 JC STATUS RET WAIT: MOV R4,#018H WAIT0: LCALL DELAY DJNZ R4,WAIT0 RET ;DELAY SUBPROGRAM DELAY: MOV 40H,#032H ;10.05ms DELAY1: MOV 41H,#030H DELAY2: DJNZ 41H,DELAY2 ;192us DJNZ 40H,DELAY1 RET WCOM: SETB CS1 CLR CS1 NOP NOP NOP CLR A0 JMP WRITE WDATA: SETB CS1 CLR CS1 NOP NOP NOP SETB A0 WRITE: MOV R7,#08H CLR C WRITE0: CLR SCLK NOP RLC A MOV SID,C NOP CLR SCLK NOP SETB SCLK ;LCALL DELAY DJNZ R7,WRITE0 ; setb cs1 ;LCALL DELAY0 RET ;CLR W_R ;CLR E ;MOV P1,A ;SETB E ;NOP ;NOP ;NOP ;NOP ;CLR E RET CHAR: DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH DB 000H,000H,000H,000H,000H,000H DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH DB 000H,000H,000H,000H,000H,000H DB 055H,055H,055H,055H,055H,055H DB 0AAH,0AAH,0AAH,0AAH,0AAH,0AAH DB 0FFH,000H,0FFH,000H,0FFH,000H DB 000H,0FFH,000H,0FFH,000H,0FFH ; DB 024H,054H,0FEH,054H,048H,000H ;$ DB 048H,054H,0FEH,054H,024H,000H ;$ ; DB 032H,049H,079H,041H,03EH,000H ;G DB 03CH,042H,07AH,04AH,034H,000H ;G TRULY1: ;-- 调入了一幅图像：E:\My Documents\My Pictures\64128.bmp -- ;-- 宽度x高度=64x128 -- DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,001H,0E0H,000H,000H,000H,001H,080H,000H,001H,0E0H,000H,000H,000H,001H DB 080H,000H,001H,0E0H,000H,000H,000H,001H,080H,000H,001H,0E0H,000H,000H,000H,001H DB 080H,000H,001H,0E0H,000H,000H,000H,001H,080H,000H,001H,0E0H,000H,000H,000H,001H DB 080H,000H,001H,0FFH,0FFH,0F0H,000H,001H,080H,000H,001H,0FFH,0FFH,0F0H,000H,001H DB 080H,000H,001H,0FFH,0FFH,0F0H,000H,001H,080H,000H,001H,0FFH,0FFH,0F0H,000H,001H DB 080H,000H,001H,0E0H,000H,000H,000H,001H,080H,000H,001H,0E0H,000H,000H,000H,001H DB 080H,000H,001H,0E0H,000H,000H,000H,001H,080H,000H,001H,0E0H,000H,000H,000H,001H DB 080H,000H,001H,0E0H,000H,000H,000H,001H,080H,000H,001H,0E0H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,001H,0FFH,0FFH,0F0H,000H,001H DB 080H,000H,001H,0FFH,0FFH,0F0H,000H,001H,080H,000H,001H,0FFH,0FFH,0F0H,000H,001H DB 080H,000H,001H,0FFH,0FFH,0F0H,000H,001H,080H,000H,001H,0E1H,0E0H,000H,000H,001H DB 080H,000H,001H,0E1H,0E0H,000H,000H,001H,080H,000H,001H,0E1H,0E0H,000H,000H,001H DB 080H,000H,001H,0E1H,0E0H,000H,000H,001H,080H,000H,001H,0E1H,0F0H,000H,000H,001H DB 080H,000H,001H,0E1H,0F8H,000H,000H,001H,080H,000H,001H,0E1H,0FCH,000H,000H,001H DB 080H,000H,001H,0E1H,0FFH,000H,000H,001H,080H,000H,001H,0F3H,0DFH,080H,000H,001H DB 080H,000H,001H,0FFH,0CFH,0E0H,000H,001H,080H,000H,000H,0FFH,0C7H,0F0H,000H,001H DB 080H,000H,000H,07FH,083H,0F0H,000H,001H,080H,000H,000H,03EH,000H,0F0H,000H,001H DB 080H,000H,000H,000H,000H,030H,000H,001H,080H,000H,000H,000H,000H,010H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,001H,0FFH,0FFH,000H,000H,001H,080H,000H,001H,0FFH,0FFH,080H,000H,001H DB 080H,000H,001H,0FFH,0FFH,0C0H,000H,001H,080H,000H,001H,0FFH,0FFH,0E0H,000H,001H DB 080H,000H,000H,000H,003H,0E0H,000H,001H,080H,000H,000H,000H,001H,0F0H,000H,001H DB 080H,000H,000H,000H,000H,0F0H,000H,001H,080H,000H,000H,000H,000H,0F0H,000H,001H DB 080H,000H,000H,000H,000H,0F0H,000H,001H,080H,000H,000H,000H,000H,0F0H,000H,001H DB 080H,000H,000H,000H,000H,0F0H,000H,001H,080H,000H,000H,000H,001H,0F0H,000H,001H DB 080H,000H,000H,000H,003H,0F0H,000H,001H,080H,000H,001H,0FFH,0FFH,0E0H,000H,001H DB 080H,000H,001H,0FFH,0FFH,0C0H,000H,001H,080H,000H,001H,0FFH,0FFH,0C0H,000H,001H DB 080H,000H,001H,0FFH,0FFH,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,001H,0FFH,0FFH,0F0H,000H,001H DB 080H,000H,001H,0FFH,0FFH,0F0H,000H,001H,080H,000H,001H,0FFH,0FFH,0F0H,000H,001H DB 080H,000H,001H,0FFH,0FFH,0F0H,000H,001H,080H,000H,000H,000H,000H,0F0H,000H,001H DB 080H,000H,000H,000H,000H,0F0H,000H,001H,080H,000H,000H,000H,000H,0F0H,000H,001H DB 080H,000H,000H,000H,000H,0F0H,000H,001H,080H,000H,000H,000H,000H,0F0H,000H,001H DB 080H,000H,000H,000H,000H,0F0H,000H,001H,080H,000H,000H,000H,000H,0F0H,000H,001H DB 080H,000H,000H,000H,000H,0F0H,000H,001H,080H,000H,000H,000H,000H,0F0H,000H,001H DB 080H,000H,000H,000H,000H,0F0H,000H,001H,080H,000H,000H,000H,000H,0F0H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,001H,080H,000H,000H,000H,001H,080H,000H,001H,0C0H,000H,000H,000H,001H DB 080H,000H,001H,0F0H,000H,000H,000H,001H,080H,000H,001H,0F8H,000H,000H,000H,001H DB 080H,000H,000H,0FEH,000H,000H,000H,001H,080H,000H,000H,03FH,080H,000H,000H,001H DB 080H,000H,000H,01FH,0C0H,000H,000H,001H,080H,000H,000H,007H,0FFH,0F0H,000H,001H DB 080H,000H,000H,001H,0FFH,0F0H,000H,001H,080H,000H,000H,001H,0FFH,0F0H,000H,001H DB 080H,000H,000H,007H,0FFH,0F0H,000H,001H,080H,000H,000H,01FH,0C0H,000H,000H,001H DB 080H,000H,000H,03FH,080H,000H,000H,001H,080H,000H,000H,0FEH,000H,000H,000H,001H DB 080H,000H,001H,0FCH,000H,000H,000H,001H,080H,000H,001H,0F0H,000H,000H,000H,001H DB 080H,000H,001H,0C0H,000H,000H,000H,001H,080H,000H,001H,080H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,080H,000H,000H,000H,000H,000H,000H,001H DB 080H,000H,000H,000H,000H,000H,000H,001H,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH END