hgs12864z80.asm

HGS12864Z is OLED Display Screen for Instrument display application.

;清达光电  LYY HGS12864Z测试程序
;**************子程序说明****************
;CW1616PR 16*16汉字演示程序
;CC16PR 16点阵汉字写入子程序
;CW8PR 8*8字符演示程序
;CC8PR 8*8字符吸入子程序
;M80--80时序选择子程序; M68--68时序选择子程序;MSS--串行时序选择子程序;
;LCD_Int   初始化子程序
;LCD_Reset 复位子程序
;GRAY      灰度转换程序
;LCD_Clear 清屏子程序
;W_C       指令写入子程序 
;W_D       数据写入子程序
;CC4096PR  128*64 16级灰度图像显示子程序
;CC190PR   简单单色图形子测试子程序

CD1     EQU P3.0
WR1     EQU P3.1
RD1     EQU P3.2
CS1     EQU P3.3
RES     EQU P3.4
M8068   EQU P3.5
MS      EQU P3.6
DATABUS EQU P1

COM	EQU 50H
DAT	EQU 51H
GRAYB   EQU 52H            ; 前景灰度等级寄存器 D7,D6 D5,D4
                           ; 背景灰度等级寄存器 D3,D2, D1,D0
GRAYH3  EQU 53H
GRAYH2  EQU 54H
GRAYH1  EQU 55H
GRAYH0  EQU 56H

DAT1    EQU 57H
DAT2    EQU 58H
COUNT1  EQU 59H
O_XL    EQU 60H
O_YL    EQU 61H
COD     EQU 62H


ORG 0000H
AJMP MAIN
ORG 0030H
MAIN:   LCALL   M80         ;时序选择80时序
        CLR     CS1
        LCALL   LCD_Reset   ;复位
        LCALL   LCD_Int
MAIN1:
        MOV    DAT,#000H
        LCALL  LCD_Clear
        LCALL  CW1616PR
        LCALL  DELAY1
        MOV	COM,#0A7H	;设置显示模式 A4:正常,A5:全亮, A6: 全不亮,A7:反显
        LCALL	W_C
        LCALL DELAY1
        MOV    DAT,#022H;
        LCALL  LCD_Clear
        MOV    GRAYB,#0F2H
        LCALL  CW8PR
        LCALL  CC190PR
        LCALL  DELAY1
        MOV	COM,#0A4H	;设置显示模式 A4:正常,A5:全亮, A6: 全不亮,A7:反显
        LCALL	W_C
        LCALL DELAY1
         LCALL  CC4096PR
         LCALL  DELAY1
         MOV	COM,#0A7H	;设置显示模式 A4:正常,A5:全亮, A6: 全不亮,A7:反显
         LCALL	W_C
         LCALL  DELAY1


        MOV	COM,#0A5H	;设置显示模式 A4:正常,A5:全亮, A6: 全不亮,A7:反显
        LCALL	W_C
        LCALL  DELAY1

        MOV	COM,#0A4H	;设置显示模式 A4:正常,A5:全亮, A6: 全不亮,A7:反显
        LCALL	W_C
        MOV    DAT1,#0AAH                           ;测试灰度生成子程序
        MOV    GRAYB,#0F1H
        LCALL  GRAYC
        LCALL  DELAY1
        MOV    DAT1,#00FH                           ;测试灰度生成子程序
        MOV    GRAYB,#0FAH
        LCALL  GRAYC
        LCALL  DELAY1
        LJMP   MAIN1
;*******************16*16汉字演示程序*********************
CW1616PR:
        MOV    GRAYB,#0F0H
        MOV    O_XL,#16;16*16汉字测试程序 清
        MOV    O_YL,#4
        MOV    COD,#0
        LCALL  CC16PR
        MOV    O_XL,#24;16*16汉字测试程序  达
        MOV    O_YL,#4
        MOV    COD,#1
        LCALL  CC16PR
        MOV    O_XL,#32;16*16汉字测试程序  光
        MOV    O_YL,#4
        MOV    COD,#2
        LCALL  CC16PR
        MOV    O_XL,#40;16*16汉字测试程序   电
        MOV    O_YL,#4
        MOV    COD,#3
        LCALL  CC16PR

        MOV    O_XL,#4;16*16汉字测试程序   图
        MOV    O_YL,#24
        MOV    COD,#4
        LCALL  CC16PR
        MOV    O_XL,#12;16*16汉字测试程序   形
        MOV    O_YL,#24
        MOV    COD,#5
        LCALL  CC16PR
        MOV    O_XL,#20;16*16汉字测试程序   点
        MOV    O_YL,#24
        MOV    COD,#6
        LCALL  CC16PR
        MOV    O_XL,#28;16*16汉字测试程序   阵
        MOV    O_YL,#24
        MOV    COD,#7
        LCALL  CC16PR
        MOV    O_XL,#36;16*16汉字测试程序   显
        MOV    O_YL,#24
        MOV    COD,#8
        LCALL  CC16PR
        MOV    O_XL,#44;16*16汉字测试程序   示
        MOV    O_YL,#24
        MOV    COD,#9
        LCALL  CC16PR
        MOV    O_XL,#52;16*16汉字测试程序   屏
        MOV    O_YL,#24
        MOV    COD,#10
        LCALL  CC16PR

        MOV    O_XL,#16;16*16汉字测试程序   测
        MOV    O_YL,#44
        MOV    COD,#11
        LCALL  CC16PR
        MOV    O_XL,#24;16*16汉字测试程序   测
        MOV    O_YL,#44
        MOV    COD,#12
        LCALL  CC16PR
        MOV    O_XL,#32;16*16汉字测试程序   测
        MOV    O_YL,#44
        MOV    COD,#13
        LCALL  CC16PR
        MOV    O_XL,#40;16*16汉字测试程序   测
        MOV    O_YL,#44
        MOV    COD,#14
        LCALL  CC16PR
        RET

;*******************8*8字符演示程序********************* WELCOME TO TSINGTEK DISPLAY
CW8PR: ; MOV    GRAYB,#0F2H
        MOV    R1,#00H
        MOV    R2,#0
CW8PR0:
        MOV    DPTR,#CTAB0
        MOV    A,R1
        MOVC   A,@A+DPTR
        MOV    O_XL,R2
        MOV    O_YL,#0
        MOV    COD,A
        LCALL  CC8PR
        INC    R1
       MOV    A,R2
        ADD    A,#04
        MOV    R2,A
        CJNE   R1,#16,CW8PR0

        MOV    R1,#00H
        MOV    R2,#0
CW8PR1:
        MOV    DPTR,#CTAB1
        MOV    A,R1
        MOVC   A,@A+DPTR
        MOV    O_XL,R2
        MOV    O_YL,#48
        MOV    COD,A
        LCALL  CC8PR
        INC    R1
       MOV    A,R2
        ADD    A,#04
        MOV    R2,A
        CJNE   R1,#16,CW8PR1

        MOV    R1,#00H
        MOV    R2,#0
CW8PR2:
        MOV    DPTR,#CTAB2
        MOV    A,R1
        MOVC   A,@A+DPTR
        MOV    O_XL,R2
        MOV    O_YL,#56
        MOV    COD,A
        LCALL  CC8PR
        INC    R1
  MOV    A,R2
        ADD    A,#04
        MOV    R2,A
        CJNE   R1,#16,CW8PR2
        RET
;单色图形程序 40*38点阵

CC190PR:

        MOV   COM,#015H   ;设置列地址
        LCALL W_C
        MOV   COM,#22
        LCALL W_C
        MOV   COM,#41
        LCALL W_C

        MOV   A,#8
        ADD   A,#0CH
        MOV   DAT1,A
        ADD   A,#37
        MOV   DAT2,A
        MOV   COM,#075H   ;设置行地址
        LCALL W_C
        MOV   COM,DAT1
        LCALL W_C
        MOV   COM,DAT2
        LCALL W_C
      ;  MOV   A,DAT1
        MOV  DPTR,#CCTAB190
        MOV   R4,#38
CC190PR0:   MOV   R5,#5
CC190PR1:  ; MOV   GRAYB,#000H ;前景色背景色均为0
        MOV  A,#0
        MOVC  A,@A+DPTR
        INC  DPTR
        LCALL GRAY
        DJNZ  R5,CC190PR1
        DJNZ  R4,CC190PR0
        RET


CTAB0:;
DB 034H,033H,029H,02EH,027H,034H,025H,02BH,000H,024H,029H,033H,030H,02CH,021H,039H ;TSINGTEK DISPLAY
CTAB1:
DB 034H,025H,02CH,01AH,010H,011H,010H,00DH,016H,012H,010H,015H,011H,012H,010H,019H ;TEL:[phone]
CTAB2:
DB 026H,021H,038H,01AH,010H,011H,010H,00DH,016H,012H,013H,016H,016H,018H,017H,011H ;FAX:[phone]


;***********以下时序选择子程序*******************
M80: ;80时序选择
        SETB    M8068
        SETB    MS
        RET

M68: ;68时序选择
        CLR     M8068
        SETB    MS
        RET
MSS: ;串口时序选择
        CLR     M8068
        CLR     MS
        RET
;***********以上时序选择子程序*******************

;***********延时子程序***************************
;***********程序用变量R7******************
;***********程序用常量R4,R5***************
DELAY:

DDLOOP1:
                MOV       R5,#02H
DDLOOP:
                MOV       R4,#0FFH
                DJNZ      R4,$
                DJNZ      R5,DDLOOP
                DJNZ      R7,DDLOOP1
                RET

DELAY1:  MOV   R6,#006H
DEL1:
       MOV    R7,#0FFH
       LCALL  DELAY
      DJNZ      R6,DEL1
      RET


;***********延时子程序***************************

;***********复位子程序***************************
LCD_Reset:
                CLR     RES
                MOV     R7,#08FH
                LCALL   DELAY
                SETB    RES
                MOV     R7,#0fH
                LCALL   DELAY