MOVC  A,@A+DPTR
  MOV  WRDATA,A
  LCALL  SETCOLOR
  INC   DPTR
  CLR   A
  MOVC  A,@A+DPTR
  MOV  WRDATA,A
  LCALL  SETCOLOR
  INC  DPTR
  CLR  A
  MOVC  A,@A+DPTR
  MOV  WRDATA,A
  LCALL  SETCOLOR
  MOV  A,#240               ;
  ADD  A,ADDRL              ;
  MOV  ADDRL,A              ;也可以像16*16的中文子程序那樣用ADDBH,ADDBL+40換行
  CLR  A                    ;這里用ADDRM,ADDRL+120換行，作用是一樣的
  ADDC A,ADDRM              ;
  MOV  ADDRM,A              ;
  LCALL  SETADDR            ;
  INC  DPTR
  DJNZ  R5,WRCHIN241
  INC   CODEN
  MOV  A,#3
  ADD  A,ADDBL
  MOV  ADDBL,A
  CLR   A
  ADDC  A,ADDBH
  MOV  ADDBH,A
  RET

;;==========================================================================
WRNUN:                           ;寫一個8*8的數(shù)字或字母到LCD子程序
  MOV   DPTR,#NUNTAB
  MOV   A,CODEN
  MOV   B,#16
  MUL   AB
  ADD   A,DPL
  MOV   DPL,A
  MOV   A,B
  ADDC  A,DPH
  MOV   DPH,A
  MOV   R5,#16
  LCALL  FORADDR
  LCALL  SETADDR

WRNUN1:
  CLR   A
  MOVC  A,@A+DPTR
  MOV  WRDATA,A
  LCALL  SETCOLOR
  MOV  A,#240
  ADD  A,ADDRL
  MOV  ADDRL,A
  CLR  A
  ADDC A,ADDRM
  MOV  ADDRM,A
  LCALL  SETADDR
  INC  DPTR
  DJNZ  R5,WRNUN1
  INC   CODEN
  MOV  A,#1
  ADD  A,ADDBL
  MOV  ADDBL,A
  CLR   A
  ADDC  A,ADDBH
  MOV  ADDBH,A
  RET

;;======================================================================================
DISFORM:                         ;顯示演示表格子程序
  MOV  R5,#160
  MOV  ADDRL,#093H
  MOV  ADDRM,#25H
DISCUL1:
  LCALL  SETADDR
  MOV  P1,#01H
  CLR   WRR
  SETB  WRR
  MOV  A,#240
  ADD  A,ADDRL
  MOV  ADDRL,A
  CLR  A
  ADDC A,ADDRM
  MOV  ADDRM,A
  DJNZ  R5,DISCUL1

  MOV  R5,#95
  MOV  ADDRL,#093H
  MOV  ADDRM,#0BBH
  LCALL  SETADDR
DISCUL2:
  MOV  P1,#0
  CLR   WRR
  SETB  WRR
  DJNZ  R5,DISCUL2
  MOV  ADDRL,#078H
  MOV  ADDRM,#09FH    
  MOV   R4,#30
  LCALL  DISRED             
  MOV  ADDRL,#0C7H
  MOV  ADDRM,#08CH        
  MOV   R4,#50
  LCALL  DISRED                    
  MOV  ADDRL,#0D6H
  MOV  ADDRM,#08CH           
  MOV  R4,#50
  LCALL  DISRED              
  MOV  ADDRL,#085H
  MOV  ADDRM,#083H
  MOV  R4,#60
  LCALL  DISRED          
  MOV  ADDRL,#044H
  MOV  ADDRM,#088H
  MOV  R4,#55
  LCALL  DISRED             
  MOV  ADDRL,#023H
  MOV  ADDRM,#08BH
  MOV  R4,#52
  LCALL  DISRED          
  MOV  ADDRL,#008H
  MOV  ADDRM,#088H        ;145
  MOV  R4,#25
  LCALL  DISCCO
  MOV  ADDRL,#057H
  MOV  ADDRM,#075H          ;125     
  MOV  R4,#25
  LCALL  DISCCO
  MOV   ADDRL,#016H
  MOV   ADDRM,#07AH        ;130
  MOV  R4,#25
  LCALL  DISCCO
  MOV   ADDRL,#0B5H         ;105
  MOV   ADDRM,#062H
  MOV   R4,#35
  LCALL  DISCCO
  MOV   ADDRL,#064H
  MOV   ADDRM,#059H         ;95
  MOV   R4,#50
  LCALL  DISCCO
  MOV   ADDRL,#0E3H
  MOV   ADDRM,#052H          ;88
  MOV   R4,#60
  LCALL  DISCCO
  MOV   ADDRL,#048H
  MOV   ADDRM,#075H
  MOV   R4,#20
  LCALL  DISBLU
  MOV   ADDRL,#097H
  MOV   ADDRM,#062H
  MOV   R4,#20
  LCALL  DISBLU
  MOV   ADDRL,#0F6H
  MOV   ADDRM,#05DH
  MOV   R4,#30
  LCALL  DISBLU
  MOV   ADDRL,#0E5H
  MOV   ADDRM,#041H
  MOV   R4,#35
  LCALL  DISBLU
  MOV   ADDRL,#0E4H
  MOV   ADDRM,#033H
  MOV   R4,#40
  LCALL  DISBLU
  MOV   ADDRL,#003H
  MOV   ADDRM,#024H
  MOV   R4,#50
  LCALL   DISBLU

  MOV  FCOLOR,#4
  MOV  ADDBL,#096H
  MOV  ADDBH,#01
  MOV  CODEN,#04
  LCALL  WRCHINA
  MOV  FCOLOR,#0
  MOV  BCOLOR,#3
  MOV  CODEN,#10H
  LCALL  WRNUN
  MOV  CODEN,#02
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV  A,#4
  ADD  A,ADDBL
  MOV  ADDBL,A
  MOV  FCOLOR,#6
  MOV  CODEN,#04
  LCALL  WRCHINA
  MOV  FCOLOR,#0
  MOV  CODEN,#11H
  LCALL  WRNUN
  MOV  CODEN,#02
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV  A,#4
  ADD  A,ADDBL
  MOV  ADDBL,A
  MOV  FCOLOR,#1
  MOV  CODEN,#04
  LCALL  WRCHINA
  MOV  FCOLOR,#0
  MOV  CODEN,#12H
  LCALL  WRNUN
  MOV  CODEN,#02
  LCALL  WRCHINA
  LCALL  WRCHINA
  
  MOV  CODEN,#0
  MOV  ADDBL,#027H
  MOV  ADDBH,#03FH
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV  CODEN,#0AH
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV  CODEN,#0BH
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV  CODEN,#0CH
  LCALL  WRNUN
  MOV   CODEN,#0
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV   CODEN,#0DH
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV  CODEN,#0EH
  LCALL  WRNUN
  MOV   CODEN,#0
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV   CODEN,#0FH
  LCALL  WRNUN

  MOV  ADDBL,#082H
  MOV  ADDBH,#0CH
  MOV  CODEN,#7
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL  WRNUN
  MOV  CODEN,#6
  LCALL  DISPOP
  MOV  CODEN,#5
  LCALL  DISPOP
  MOV  CODEN,#4
  LCALL  DISPOP
  MOV  CODEN,#3
  LCALL  DISPOP
  MOV  CODEN,#2
  LCALL  DISPOP
  MOV  CODEN,#1
  LCALL  DISPOP
  MOV  CODEN,#0
  LCALL  DISPOP
 
  RET

DISPOP:
  MOV  A,#3DH
  ADD  A,ADDBL
  MOV  ADDBL,A
  MOV  A,#6
  ADDC A,ADDBH
  MOV  ADDBH,A
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL   WRNUN
  RET
 
DISBLU:
  LCALL  SETADDR
  MOV  R5,#3
DISBLU1:
  MOV  P1,#024H
  CLR  WRR
  SETB WRR
  MOV  P1,#092H
  CLR  WRR
  SETB WRR
  MOV  P1,#049H
  CLR   WRR
  SETB  WRR
  DJNZ  R5,DISBLU1
  MOV   A,#240
  ADD   A,ADDRL
  MOV   ADDRL,A
  CLR   A
  ADDC  A,ADDRM
  MOV   ADDRM,A
  DJNZ  R4,DISBLU
  RET
DISCCO:
  LCALL  SETADDR
  MOV  R5,#3
DISCC1:
  MOV   P1,#0DBH
  CLR  WRR
  SETB  WRR
  MOV   P1,#06DH
  CLR   WRR
  SETB  WRR
  MOV   P1,#0B6H
  CLR   WRR
  SETB  WRR
  DJNZ  R5,DISCC1
  MOV   A,#240
  ADD   A,ADDRL
  MOV   ADDRL,A
  CLR   A
  ADDC  A,ADDRM
  MOV   ADDRM,A
  DJNZ  R4,DISCCO
  RET
  
DISRED:
  NOP           ;MOV  R4,#30
DISCUL4:
  LCALL  SETADDR
  MOV  R5,#3
DISCUL3:
  MOV  P1,#092H
  CLR   WRR
  SETB  WRR
  MOV  P1,#049H
  CLR   WRR
  SETB  WRR
  MOV  P1,#024H
  CLR   WRR
  SETB  WRR
  DJNZ  R5,DISCUL3
  MOV   A,#240
  ADD   A,ADDRL
  MOV   ADDRL,A
  CLR   A
  ADDC  A,ADDRM
  MOV   ADDRM,A
  DJNZ  R4,DISCUL4
  RET


;;===============================================================================
;顯示同一顏色
DISME:
  MOV  A,#0
  CJNE A,FCOLOR,DISME1
  MOV  P1,#0
  CLR   WRR
  SETB  WRR
  CLR   WRR
  SETB  WRR
  CLR   WRR
  SETB  WRR
  RET
DISME1:
  MOV  A,#1