;;;;;;;;;;;;          演示程序

;12864M        帶中文字庫

;
;P1為數據總線
;定義LCD控制線
  WRA       EQU   P3.1
  EE        EQU   P3.0
  RS        EQU   P3.2
  REST      EQU   P3.7  
  
  WRDATA  EQU  35H

 CSEG   AT  0000H
 NOP
MAIN:
  CLR   EE
  NOP
  CLR   REST                      ;復位
  LCALL   DELAY
  SETB  REST
  NOP
  MOV  WRDATA,#01                ;清屏
  LCALL  WRCODE
  MOV  WRDATA,#0CH               ;開顯示屏
  LCALL  WRCODE
  MOV  WRDATA,#80H               ;設置地址
  LCALL  WRCODE
  MOV   DPTR,#CCTAB
  MOV  R7,#58
GGHT:
  CLR   A
  MOVC  A,@A+DPTR                 ;讀漢字內碼
  MOV   WRDATA,A
  LCALL  WRDDA
  INC   DPTR
  DJNZ  R7,GGHT
  NOP
LOOP:
  NOP
  NOP
  NOP
  LJMP  LOOP

DELAY:
  MOV  R5,#0
  MOV  R6,#0
  MOV  R7,#2
DEL:
  DJNZ  R5,DEL
  DJNZ  R6,DEL
  DJNZ  R7,DEL
  RET

;--------------------------------------------
;       寫指令子程序
WRCODE:
  MOV   P1,#0FFH
  CLR   RS
  SETB  WRA
  SETB  EE
  MOV  A,P1                    ;讀BF, 查忙
  CLR   EE
  JB    ACC.7,WRCODE
  CLR   WRA
  MOV   P1,WRDATA             ;指令送P1口
  SETB  EE
  CLR   EE
  RET

WRDDA:
  MOV   P1,#0FFH
  CLR   RS
  SETB  WRA
  SETB  EE
  MOV   A,P1                 ;讀BF, 查忙
  CLR   EE
  JB    ACC.7,WRDDA
  SETB  RS
  CLR  WRA
  MOV  P1,WRDATA            ;數據送P1口
  SETB  EE
  CLR   EE
  RET

CCTAB:                    ;中文字庫內碼表格
DB  0BAH,0BAH,0D7H,0D6H,0CDH,0BCH,0D0H,0CEH,0B5H,0E3H,0D5H,0F3H,0D2H,0BAH,0BEH,0A7H
DB  0D7H,0D6H,0BCH,0B0H,0CDH,0BCH,0D0H,0CEH,0C4H,0DAH,0D6H,0C3H,038H,031H,039H,032H
DB  0CFH,0D4H,0CAH,0BEH,0C4H,0A3H,0BFH,0E9H,0BFH,0C9H,0CFH,0D4H,0CAH,0BEH,0BAH,0BAH
DB  0B8H,0F6H,0D6H,0D0H,0CEH,0C4H,0BAH,0BAH,0D7H,0D6H
END