zzx12864c5_st7565_.txt

液晶驱动程序128*64,主要是串口通信的

;THIS PROGRAM FOR  I/O MODE  TO EXAMPLE 12864
;st7565 串口程序
;制作日期：2004-11-12
;change:2004-12-07
;RESET TO VCC(YXD-12864T03 8-bit TRI-STATE PARALLEL I/O PORT)
RESETPIN   BIT     P3.4
CS1	   BIT     P3.7
DC         BIT     P3.5
SCLK       BIT     P1.6
SID 	   BIT	   P1.7

FILLA        EQU   20H
FILLB        EQU   21H
FILLC        EQU   22H
FILLD        EQU   23H
FILLE        EQU   24H
FILLF        EQU   25H
FILLG        EQU   26H
FILLH        EQU   27H

TEMP         EQU   28H
LAB          EQU   29H
LINENUM	     EQU   2AH
PAGENUM	     EQU   2BH

        ORG   00H
        JMP   START


	ORG 0030H 



START:
     
        CLR  RESETPIN
        CALL  LDELAY
        SETB  RESETPIN
        CALL  LDELAY
	CALL   RESET
	LCALL  DISP_DRAW1
	LCALL  DISP_DRAW2
	LCALL  DISP_DRAW3
	LCALL  DISP_DRAW4
	LCALL  DISP_DRAW5
STOP:	AJMP   STOP

DISP_DRAW2:
      MOV    FILLA,#55H
      MOV    FILLB,#55H
      MOV    FILLC,#55H
      MOV    FILLD,#55H
      MOV    FILLE,#55H
      MOV    FILLF,#55H
      MOV    FILLG,#55H
      MOV    FILLH,#55H
      CALL   FILL
      RET

DISP_DRAW3:
      MOV    FILLA,#0FFH
      MOV    FILLB,#0H
      MOV    FILLC,#0FFH
      MOV    FILLD,#0H
      MOV    FILLE,#0FFH
      MOV    FILLF,#0H
      MOV    FILLG,#0FFH
      MOV    FILLH,#0H
      CALL   FILL
      RET


DISP_DRAW4:
      MOV    FILLA,#55H
      MOV    FILLB,#0AAH
      MOV    FILLC,#055H
      MOV    FILLD,#0AAH
      MOV    FILLE,#055H
      MOV    FILLF,#0AAH
      MOV    FILLG,#055H
      MOV    FILLH,#0AAH
      CALL   FILL
      RET



FILL:
      MOV    R3,#08H
      MOV    PAGENUM,#0B0H
S_0:
      MOV    A,PAGENUM
      CALL   OUTI
      MOV    A,#10H
      CALL   OUTI
      MOV    A,#00
      CALL   OUTI	    ;SET SEG =0
      MOV    A,#0AFH	;DIAPLAY ON
      CALL   OUTI
      MOV    R2,#17
F_1:
      MOV    A,FILLA
      CALL   OUTD
      MOV    A,FILLB
      CALL   OUTD
      MOV    A,FILLC
      CALL   OUTD
      MOV    A,FILLD
      CALL   OUTD
      MOV    A,FILLE
      CALL   OUTD
      MOV    A,FILLF 
      CALL   OUTD
      MOV    A,FILLG
      CALL   OUTD
      MOV    A,FILLH
      CALL   OUTD
      DJNZ   R2,F_1
      INC    PAGENUM
      DJNZ   R3,S_0
      CALL   DELAY
      RET

DISP_DRAW1: 
	MOV     A,#040H	;开始行地址
      CALL	OUTI
      MOV    R3,#06H
;     MOV    DPTR,#TABLE  ;表首地址
      MOV    PAGENUM,#0B0H  ;第一页地址
      MOV    A,PAGENUM
      CALL   OUTI
      MOV    A,#10H
      CALL   OUTI
      MOV    A,#00
      CALL   OUTI	;SET SEG=0
      MOV    R2,#126
      MOV   A,#0FFH
      CALL   OUTD
DD_1:
      MOV   A,#00000001B
      CALL   OUTD
      DJNZ   R2,DD_1
      MOV   A,#0FFH
      CALL   OUTD
 ;     MOV    A,#04H
;      CALL   OUTI	;SET SEG=0
DD_0: INC    PAGENUM
      MOV    A,PAGENUM
      CALL   OUTI
      MOV    A,#10H
      CALL   OUTI
      MOV    A,#00
      CALL   OUTI
      MOV    A,#0FFH
      LCALL  OUTD
      MOV    R2,#126
DD_2: MOV    A,#0
      LCALL  OUTD
      DJNZ   R2,DD_2
      MOV    A,#0FFH
      LCALL  OUTD
      DJNZ   R3,DD_0

      INC    PAGENUM
      MOV    A,PAGENUM
      CALL   OUTI
      MOV    A,#10H
      CALL   OUTI
      MOV    A,#00
      CALL   OUTI	;SET SEG=0
      MOV    R2,#126
      MOV   A,#0FFH
      CALL   OUTD
DD_3:
      MOV   A,#10000000B
      CALL   OUTD
      DJNZ   R2,DD_3
      MOV   A,#0FFH
      CALL   OUTD
      CALL   DELAY
      CALL   DELAY
      RET

      
DISP_DRAW5:
      MOV     A,#040H	;FIRST LINE
      CALL	OUTI
   	
      MOV    R3,#08H
      MOV    DPTR,#TABLE
      MOV    PAGENUM,#0B0H
D_0:
      MOV    A,PAGENUM
      CALL   OUTI
      MOV    A,#10H
      CALL   OUTI
      MOV    A,#00
      CALL   OUTI	;SET SEG=0
      MOV    R2,#128
D_1:
      CLR    A
      MOVC   A,@A+DPTR
      CALL   OUTD
      INC    DPTR
      DJNZ   R2,D_1
      MOV    A,#00H
      CALL   OUTI	;SET SEG=0
      INC    PAGENUM
      DJNZ   R3,D_0
      CALL   DELAY
      RET
      
RESET:
        MOV    A,#0E3H
        CALL   OUTI

        MOV     A,#0A2H         
        CALL    OUTI	;SET LCD BAIS= 1/9
        
        MOV     A,#0A0H ;ADC=0 S1->S132
        CALL    OUTI
        
	MOV     A,#0C8H	;SET SHK C1->C64
        CALL    OUTI
        
        MOV     A,#2CH
        CALL    OUTI	;VC ON
;	CALL    LDELAY

	MOV     A,#2EH
        CALL    OUTI	;VR ON
;	CALL    LDELAY

	MOV     A,#2FH
        CALL    OUTI	;VF ON
  ;?    CALL    LDELAY
;	MOV     A,#0FBH
 ;       CALL    OUTI	;booster set
 ;       CALL    LDELAY

	MOV     A,#0f8H
        CALL    OUTI	

	MOV     A,#00H
        CALL    OUTI	;booster 5 times voltage



        MOV     A,#81H	;设置电压调整
        CALL	OUTI

        MOV     A,#00AH
	CALL	OUTI


        MOV     A,#27H	;设置电阻分压
        CALL    OUTI


  	MOV     A,#0AFH	;DIAPLAY ON
	CALL	OUTI	


        MOV     A,#050H	;FIRST LINE =COM1
	CALL	OUTI
     

        RET



OUTI:
      CLR     CS1      ;数据/命令控制允许
      CLR     DC       ;输入命令数据
      MOV     B,#08H   ;传输数据位数
      ;CLR     PSW.CY  ;清进位.
WRITE_COMMAND_1:       ;命令数据
      RLC     A         ;D7移至C中
      clr     SCLK
;.
      MOV     SID,C     ;将D7数据移至串行数据线
      SETB    SCLK      ;产生第一个串行时钟
      CLR     SCLK
      DJNZ    B,WRITE_COMMAND_1  ;八位数据传送完?
      SETB    CS1                ;传送完禁止接收数据
      ret
        
OUTD:
      CLR     CS1      ;数据/命令控制允许
      SETB    DC       ;数据允许
      MOV     B,#8h    ;传送数据位数
      ;CLR     PSW.CY  ;清进位标志
WRITE_DATA_1:          ;写数据
      RLC    A
      CLR    SCLK
      MOV    SID,C
      setb    SCLK
      CLR     SCLK
      djnz    b,WRITE_DATA_1
      SETB    CS1
      ret        
        
        
        
        
        
LDELAY:
        MOV    B,#5
L_1:
        MOV     R6,#5
        DJNZ    R6,$
        DJNZ   B,L_1
        RET        
        
DELAY:
       MOV     R7,#07FH               ;delay about 130ms
DELAY1:MOV     R6,#0FFH
DELAY2:
       MOV     R5,#0CH
       DJNZ    R5,$
       DJNZ    R6,DELAY2
       DJNZ    R7,DELAY1
       RET  

table:
;--  调入了一幅图像：F:\LDL\PROGRAM\12864\.bmp  --
;--  宽度x高度=128x64  --

		end