hd66773andssd1303t.asm

HD66773 & SSD1303T驱动的LCD测试程序

INITIALS:
         MOV A,#0E2H      ;software reset
         LCALL WRITE_SS
         MOV A,#0EEH
         LCALL WRITE_SS
         MOV A,#0A8H      ;MUX
         LCALL WRITE_SS
         MOV A,#03FH      ;second byte
         LCALL WRITE_SS
         MOV A,#0D0H      ;ICON mode off
         LCALL WRITE_SS
         MOV A,#40H       ;display start line
         LCALL WRITE_SS
         MOV A,#0A1H      ;segment re-map off
         LCALL WRITE_SS
         MOV A,#0C8H      ;COM  re-map
         LCALL WRITE_SS
         MOV A,#0A6H      ;normal display
         LCALL WRITE_SS
         MOV A,#0A4H      ;entire display mode off
         LCALL WRITE_SS
         MOV A,#81H       ;contrast seting
         LCALL WRITE_SS
         MOV A,#05AH      ;for minimun 40 cd/m2 setting
         LCALL WRITE_SS
         MOV A,#0D5H      ;Frame rate setting
         LCALL WRITE_SS
         MOV A,#10H      ;second byte
         LCALL WRITE_SS
         MOV A,#0AFH     ;Display on
         LCALL WRITE_SS
         RET

DISPLAYS:
        MOV     R4,#8
        mov  PAGE1 ,#0B0H
LOOP:   MOV     A ,PAGE1
        LCALL WRITE_SS

        MOV A,#012H          ;high col address
        LCALL WRITE_SS
        MOV A,#04H           ;Low col address
        LCALL WRITE_SS
        MOV     R2,#96
LOOP1:  MOV	A,#00H
        MOVC    A,@A+DPTR
        LCALL   WRITE_sD
        INC     DPTR
        DJNZ    R2,LOOP1
        INC     PAGE1
        DJNZ    R4,LOOP
        RET

DISPLAYS_MULT:
        MOV     R4,#8
        MOV     PAGE1,#0B0H
LOOPM:  MOV     A ,PAGE1
        MOV     R2,#96
        LCALL   WRITE_SS
        MOV     A,#04H           ;Low col address
        LCALL   WRITE_SS
        MOV     A,#012H         ;high col address
        LCALL   WRITE_SS
LOOPM1: MOV	A,#00H
        MOV     A,PIXEL
        LCALL   WRITE_SD
        DJNZ    R2,LOOPM1
        INC     PAGE1
        DJNZ    R4,LOOPM
        RET

DISPLAYS_MULTA:
        MOV     R4,#8
        MOV     PAGE1,#0B0H
LOOPMA:  MOV     A ,PAGE1
        MOV     R2,#48
        LCALL   WRITE_SS
        MOV     A,#04H           ;Low col address
        LCALL   WRITE_SS
        MOV     A,#012H         ;high col address
        LCALL   WRITE_SS
LOOPM1A: MOV	A,#00H
        MOV     A,PIXEL
        LCALL   WRITE_SD
        MOV	A,#00H
        MOV     A,PIXELA
        LCALL   WRITE_SD
        DJNZ    R2,LOOPM1A
        INC     PAGE1
        DJNZ    R4,LOOPMA
        RET

DISPLAY65K:
         MOV A, #00H       ;Entry mode
         LCALL  WRITE_MS
         MOV A, #05H
         LCALL  WRITE_MS
         MOV A, #12H
         LCALL  WRITE_MD
         MOV A, #30H
         LCALL  WRITE_MD
         LCALL  DELAY20MS
         
         MOV A, #00H
         LCALL  WRITE_MS
         MOV A, #22H
         LCALL  WRITE_MS
         LCALL  DELAY2S
         MOV    R4,#160
LOOPA:
         MOV    R2,#128
LOOP1A:  MOV	A,#00H
         MOVC   A,@A+DPTR
         LCALL  WRITE_MD
         INC    DPTR
         MOV	A,#00
         MOVC   A,@A+DPTR
	 LCALL	WRITE_MD
         INC    DPTR
         DJNZ   R2,LOOP1A
         DJNZ   R4,LOOPA
         RET


DISPLAY:
        MOV A,#00H
        LCALL WRITE_MS
        MOV A,#22H
        LCALL WRITE_MS
        MOV     R4,#160
LOOP2:
        MOV     R2,#128
LOOP21: MOV	A,COLOR1
        LCALL   WRITE_MD
        MOV     A,00H
        NOP
    	MOV	A,COLOR2
    	LCALL	WRITE_MD
        DJNZ    R2,LOOP21
        DJNZ    R4,LOOP2
        RET

DISPLAY_A:
         MOV A,#00H       ;Entry mode
         LCALL WRITE_MS
         MOV A,#05H
         LCALL WRITE_MS
         MOV A,#12H
         LCALL WRITE_MD
         MOV A,#28H
         LCALL WRITE_MD
         LCALL   DELAY20MS

         MOV A,#00H
         LCALL WRITE_MS
         MOV A,#22H
         LCALL WRITE_MS
         MOV    R3,#20
 C1LOOP: MOV    R2,#176
C11LOOP: MOV	A,30H
	 LCALL	WRITE_MD
	 MOV	A,31H
  	 LCALL	WRITE_MD
         DJNZ   R2,C11LOOP
         DJNZ   R3,C1LOOP

         MOV    R5,#16
 C2LOOP: MOV    R4,#176
C22LOOP: MOV	A,32H
	 LCALL	WRITE_MD
	 MOV	A,33H
	 LCALL	WRITE_MD
         DJNZ   R4,C22LOOP
         DJNZ   R5,C2LOOP

         MOV    R7,#16
 C3LOOP: MOV    R6,#176
C33LOOP: MOV	A,34H
	 LCALL	WRITE_MD
	 MOV	A,35H
	 LCALL	WRITE_MD
         DJNZ   R6,C33LOOP
         DJNZ   R7,C3LOOP

         MOV    R3,#16
 C4LOOP: MOV    R2,#176
C44LOOP: MOV	A,36H
	 LCALL	WRITE_MD
	 MOV	A,37H
	 LCALL	WRITE_MD
         DJNZ   R2,C44LOOP
	 DJNZ	R3,C4LOOP

         MOV    R5,#16
 C5LOOP: MOV    R4,#176
C55LOOP: MOV	A,38H
	 LCALL	WRITE_MD
	 MOV	A,39H
  	 LCALL	WRITE_MD
         DJNZ   R4,C55LOOP
         DJNZ   R5,C5LOOP

         MOV    R7,#16
 C6LOOP: MOV    R6,#176
C66LOOP: MOV	A,40H
	 LCALL	WRITE_MD