;12864（帶字庫漢字顯示演示程序）
;***************************************************************************
;*  sxj1974@163.com		     (51c51 test web)     www.8951.com     *
;*  Create by :石學軍      www.51c51.com 更多例程請登陸網站        	   *
;***************************************************************************

RS EQU P2.0
          RW EQU P2.1
          E  EQU P2.2
          PSB EQU P2.3
          RST EQU P2.5
;-----------------------------------------------
          LCD_X  EQU 30H
          LCD_Y  EQU 31H
          COUNT  EQU 32H
          COUNT1 EQU 33H
          COUNT2 EQU 34H
          COUNT3 EQU 35H
;-----------------------------------------------
       LCD_DATA  EQU 36H
       LCD_DATA1 EQU 37H
       LCD_DATA2 EQU 38H
          STORE  EQU 39H

;-----------------------------------------------
  ORG 0000H
  LJMP MAIN
  ORG 0100H
;-----------------------------------------------
MAIN:
     MOV SP,#5FH
            CLR  RST             ;復位
            LCALL DELAY4
            SETB RST
     NOP
            SETB PSB             ;通訊方式為8位數據并口

;********************初始化**********************
LGS0:     MOV A,#34H  ;34H--擴充指令操作
     LCALL SEND_I
     MOV A,#30H  ;30H--基本指令操作
     LCALL SEND_I
     MOV A,#01H  ;清除顯示
     LCALL SEND_I
            MOV A,#06H  ;指定在資料寫入或讀取時，光標的移動方向
     LCALL SEND_I        ;DDRAM 的地址計數器(AC)加1
     MOV A,#0CH  ;開顯示,關光標,不閃爍
     LCALL SEND_I
;===============================================
TU_PLAY1:
            MOV  DPTR,#TU_TAB1      ;顯示圖形
     LCALL PHO_DISP
     LCALL DELAY3

;=================================================
;;顯示漢字和字符
;加入80ms的延時，使你能夠看清楚顯示的過程
;根據漢字顯示坐標分段寫入（順序寫入）
;=================================================
HAN_WR2:
            LCALL CLEAR_P
HAN_WR2A:
            MOV DPTR,#TAB1A ;顯示漢字和字符
     MOV COUNT,#10H      ;地址計數器設為16。
     MOV A,#80H          ;第一行起始地址
     LCALL SEND_I
            LCALL   QUSHU
HAN_WR2B:
            MOV DPTR,#TAB1B ;顯示漢字和字符
     MOV COUNT,#10H      ;地址計數器設為16。
     MOV A,#90H          ;第二行起始地址
     LCALL SEND_I
            LCALL QUSHU
HAN_WR2C:
            MOV DPTR,#TAB1C ;顯示漢字和字符
     MOV COUNT,#10H      ;地址計數器設為16。
     MOV A,#88H          ;第三行起始地址
     LCALL SEND_I
            LCALL QUSHU
HAN_WR2D:
            MOV DPTR,#TAB1D  ;顯示漢字和字符
     MOV COUNT,#10H       ;地址計數器設為16。
     MOV A,#98H           ;第四行起始地址
     LCALL SEND_I
            LCALL QUSHU
            LCALL DELAY3
            LCALL FLASH
            LCALL CLEAR_P
            JMP  TU_PLAY2
;----------------------------------------------
;TU_PLAY1:
            MOV  DPTR,#TU_TAB1      ;顯示圖形
     LCALL PHO_DISP
     LCALL DELAY3
           
;----------------------------------------------
TU_PLAY2:
     MOV DPTR,#TU_TAB2   ;顯示圖形
     LCALL PHO_DISP
     LCALL DELAY3
         
;----------------------------------------------
TU_PLAY3:
     MOV DPTR,#TU_TAB4   ;顯示圖形
     LCALL PHO_DISP
     LCALL DELAY3
         
;-----------------------------------------------
;顯示點陣
;-----------------------------------------------
LATPLAY1:
            MOV A,#01H         ;清屏
            LCALL SEND_I
     MOV LCD_DATA1,#0CCH  ;顯示點陣
     MOV LCD_DATA2,#0CCH
     LCALL LAT_DISP
     LCALL DELAY3
            LCALL CLEAR_P

KU_PLAY2:

            LJMP  TU_PLAY1
      
;===============================================
;全屏顯示圖形子程序
;===============================================
PHO_DISP:
         MOV  COUNT3,#02H
     MOV  LCD_X,#80H
PHO_DISP1:
         MOV  LCD_Y,#80H
     MOV  COUNT2,#20H
PHO_DISP2:
         MOV  COUNT1,#10H
     LCALL WR_ZB
PHO_DISP3:
            CLR A
     MOVC A,@A+DPTR
     LCALL SEND_D
     INC DPTR
     DJNZ COUNT1,PHO_DISP3
     INC LCD_Y
     DJNZ COUNT2,PHO_DISP2
     MOV LCD_X,#88H
     DJNZ COUNT3,PHO_DISP1

     MOV A,#36H
     LCALL SEND_I
     MOV A,#30H
     LCALL SEND_I
            RET
;----------------------------------------------
CLRRAM:
          MOV LCD_DATA1,#00H  ;GDRAM寫0子程序
     MOV LCD_DATA2,#00H
     LCALL LAT_DISP
     RET
;==============================================
;顯示點陣子程序
;==============================================
LAT_DISP:
         MOV COUNT3,#02H
     MOV LCD_X,#80H
LAT_DISP1:
         MOV LCD_Y,#80H
     CLR F0
     MOV COUNT2,#20H
LAT_DISP2:
         MOV COUNT1,#10H
     LCALL WR_ZB
LAT_DISP3:
         JB F0,LAT_DISP32
     MOV LCD_DATA,LCD_DATA1
     AJMP LAT_DISP31
LAT_DISP32:
         MOV LCD_DATA,LCD_DATA2
LAT_DISP31:
         MOV A,LCD_DATA
     LCALL SEND_D
     DJNZ COUNT1,LAT_DISP31
     INC LCD_Y
     CPL F0
     DJNZ COUNT2,LAT_DISP2
     MOV LCD_X,#88H
     DJNZ COUNT3,LAT_DISP1

     MOV A,#36H
     LCALL SEND_I
     MOV A,#30H
     LCALL SEND_I
     RET
;---------------------------------------------
WR_ZB:
         MOV A,#34H
     LCALL SEND_I
     MOV A,LCD_Y
     LCALL SEND_I
     MOV A,LCD_X
     LCALL SEND_I
     MOV A,#30H
     LCALL SEND_I
     RET

;===============================================
FLASH:
            MOV  A,#08H       ;關閉顯示
            LCALL SEND_I
            LCALL  DELAY5
            MOV  A,#0CH   ;開顯示,關光標,不閃爍
     LCALL SEND_I
            LCALL  DELAY5
            MOV  A,#08H       ;關閉顯示
            LCALL SEND_I
            LCALL  DELAY5
            MOV  A,#0CH   ;開顯示,關光標,不閃爍
     LCALL SEND_I
            LCALL  DELAY5
            MOV  A,#08H       ;關閉顯示
            LCALL SEND_I
            LCALL  DELAY5
                RET
;==================================================
;清屏
;==================================================
CLEAR_P:
            MOV A,#01H           ;清屏
     LCALL SEND_I
            MOV A,#34H
     LCALL SEND_I
     MOV A,#30H
     LCALL SEND_I
            RET
;==================================================
;查表取數據送顯示
;==================================================
QUSHU:
            CLR A
     MOVC A,@A+DPTR       ;查表取數據
     LCALL SEND_D          ;送顯示
     INC DPTR
            LCALL DELAY4           ;延時80ms,
            DJNZ COUNT,QUSHU
     RET

;===============================================
;寫數據子程序
;RS=1,RW=0,E=高脈沖,D0-D7=數據
;===============================================
SEND_D:
     LCALL CHK_BUSY    ;寫數據子程序
     SETB RS
     CLR RW
     MOV P0,A
     SETB E
     NOP
     NOP
     CLR E
     RET
;===============================================
;寫指令子程序
;RS=0,RW=0,E=高脈沖,D0-D7=指令碼
;===============================================
SEND_I:
     LCALL CHK_BUSY
     CLR RS
     CLR RW
     MOV P0,A
     SETB E
     NOP
     NOP
     CLR E
     RET
;================================================
;讀數據子程序
;RS=1,RW=1,E=H,D0-D7=數據
;================================================
READ_D:
    LCALL CHK_BUSY    ;讀數據子程序
    SETB RS
    SETB RW
    SETB E
    NOP
    MOV A,P0
    CLR E
    MOV STORE,A