5363.asm

5363 LCD模块测试程序

;***************************************
;*     ST7522 INITIALIZE SOFTWARE      *
;*         WRITEN BY SY WANG           *
;***************************************

;        A0      EQU    P3.0
;        RES     EQU    P3.5
;        SI      EQU    P1.7
;        SCK     EQU    P1.6
        A0      EQU    P3.3
        RES     EQU    P3.6
        SI      EQU    P3.0
        SCK     EQU    P3.1

        ORG     0000H
        AJMP    MAIN

        ORG     0030H
MAIN:
        ;MOV     SCON,#00H
        MOV     SP,#60H
        ACALL   DELAY
        CLR     RES            ;Module reset
        ACALL   DELAY
        SETB    RES

        MOV     A,#11100010B   ;Interal reset
        ACALL   WCOM
        MOV     A,#10101110B   ;Display off
        ACALL   WCOM

        MOV     A,#81H         ;Electronic volume
        ACALL   WCOM
        MOV     A,#00H
        ACALL   WCOM

        MOV     A,#00101101B   ;Power control
        ACALL   WCOM           ;Booster on,follower on

        MOV     A,#10101000B   ;Duty select 1/17
        ACALL   WCOM
        MOV     A,#10100010B   ;Bias select 1/5
        ACALL   WCOM
        MOV     A,#10100000B   ;ADC select:normal
        ACALL   WCOM
        MOV     A,#10100110B   ;Display normal
        ACALL   WCOM
        MOV     A,#10101100B   ;Static indicator off
        ACALL   WCOM
        ACALL   CLRALL
        MOV     A,#10101111B   ;Display on
        ACALL   WCOM
        MOV     A,#81H
        ACALL   WCOM
        MOV     A,#00H
        ACALL   WCOM

        ACALL   DISPALL
        ACALL   FEEDOUT
        ACALL   DELAY
        ACALL   FEEDIN
        ACALL   DISDATA
        MOV     A,#10100111B
        ACALL   WCOM
        ACALL   DELAY1
        ACALL   CLRALL
        ACALL   DELAY1
        MOV     A,#10100110B
        ACALL   WCOM
        ACALL   DISIMG
        AJMP    MAIN

DISDATA:
        MOV     A,#10110000B   ;Set page address 0
        ACALL   WCOM
        MOV     A,#07H
        ACALL   WCOM
        MOV     A,#10H
        ACALL   WCOM
        MOV     R3,#66
        MOV     DPTR,#DTSHT
     RE:CLR     A
        MOVC    A,@A+DPTR
        CLR     C
        RLC     A
        CPL     A
        ACALL   WDATA
        INC     DPTR
        DJNZ    R3,RE

        MOV     A,#10110001B
        ACALL   WCOM
        MOV     A,#0CH
        ACALL   WCOM
        MOV     A,#11H
        ACALL   WCOM
        MOV     DPTR,#LOGO
        MOV     R1,#24
  WRMW: CLR     A
        MOVC    A,@A+DTPR
        CPL     A
        ACALL   WDATA
        INC     DPTR
        DJNZ    R1,WRMW
        ACALL   DELAY1
        RET

DISIMG:
        MOV     R3,#02H
        CLR     PSW.5
NXTIMG: MOV     R2,#02H
        MOV     A,#10100110B
        ACALL   WCOM
        MOV     A,#10110000B
SCLN:   ACALL   WCOM
        MOV     A,#00H
        ACALL   WCOM
        MOV     A,#10H
        ACALL   WCOM
        MOV     R0,#0AAH
        MOV     R1,#80
WIMG:   MOV     A,R0
        JNB     PSW.5,FSTIMG
        CPL     A
        MOV     R0,A
FSTIMG: ACALL   WDATA
        DJNZ    R1,WIMG
        MOV     A,#10110001B
        DJNZ    R2,SCLN
        ACALL   DELAY1
        MOV     A,#10100111B
        ACALL   WCOM
        ACALL   DELAY1
        SETB    PSW.5
        DJNZ    R3,NXTIMG
        RET

DISPALL:
        MOV     R2,#02H
        MOV     A,#10110000B
   LN2: ACALL   WCOM
        MOV     A,#00H
        ACALL   WCOM
        MOV     A,#10H
        ACALL   WCOM
        MOV     R1,#80
DISALDT:MOV     A,#0FFH
        ACALL   WDATA
        DJNZ    R1,DISALDT
        MOV     A,#10110001B
        DJNZ    R2,LN2
        RET

CLRALL:
        MOV     R2,#02H
        MOV     A,#10110000B
SCDLINE:ACALL   WCOM
        MOV     A,#00H
        ACALL   WCOM
        MOV     A,#10H
        ACALL   WCOM
        MOV     R1,#80
CLRDT:  MOV     A,#00H
        ACALL   WDATA
        DJNZ    R1,CLRDT
        MOV     A,#10110001B
        DJNZ    R2,SCDLINE
        RET

FEEDOUT:
        MOV     R0,#00H
  FDOUT:MOV     A,#81H
        ACALL   WCOM
        MOV     A,R0
        ACALL   WCOM
        INC     R0
        ACALL   DELAY
        CJNE    R0,#64,FDOUT
        RET
FEEDIN:
        MOV     R0,#63
   FDIN:MOV     A,#10000001B   ;Electronic contrast set
        ACALL   WCOM
        MOV     A,R0
        ACALL   WCOM
        ACALL   DELAY
        DEC     R0
        CJNE    R0,#05,FDIN
        RET
WCOM:
        CLR     A0
        MOV     R5,#08H
        CLR     C
TRANSC: CLR     SCK
        RLC     A
        MOV     SI,C
        NOP
        NOP
        SETB    SCK
        NOP
        NOP
        NOP
        NOP
        DJNZ    R5,TRANSC
        NOP
        SETB    A0
        RET
WDATA:
        SETB    A0
        MOV     R5,#08H
        CLR     C
TRANSD: CLR     SCK
        RLC     A
        NOP
        MOV     SI,C
        NOP
        NOP
        SETB    SCK
        NOP
        NOP
        NOP
        NOP
        DJNZ    R5,TRANSD
        NOP
        CLR     A0
        RET
DELAY:
        SETB    RS0
        MOV     R7,#0FFH
DLY1:   MOV     R6,#0FFH
        DJNZ    R6,$
        DJNZ    R7,DLY1
        CLR     RS0
        RET
DELAY1:
        SETB    RS0
        MOV     R7,#10H
  DEL2: MOV     R6,#0FFH
  DEL1: MOV     R5,#0FFH
        DJNZ    R5,$
        DJNZ    R6,DEL1
        DJNZ    R7,DEL2
        CLR     RS0
        RET
DTSHT:
     DB  00H,27H,45H,45H,45H,39H,00H,21H,41H,45H,4BH,31H
     DB  00H,3CH,4AH,49H,49H,30H,00H,21H,41H,45H,4BH,31H
     DB  00H,00H,00H,00H,00H,00H
     DB  00H,7FH,02H,0CH,02H,7FH,00H,3EH,41H,41H,41H,3EH
     DB  00H,7FH,41H,41H,22H,1CH,00H,3FH,40H,40H,40H,3FH
     DB  00H,7FH,40H,40H,40H,40H,00H,7FH,49H,49H,49H,41H
LOGO:

     DB  00H,00H,42H,07EH,42H,00H,00H,07EH,42H,42H,24H,18H
     DB  00H,3EH,40H,38H,40H,3EH,00H,02H,02H,07EH,02H,02H,00H
     

END