192641.asm

2005年全国大学生电子设计大赛实验程序 附各个模块以及生成文件

;
;192*64-1 LCD演示程序
;61202 LCD控制器
;标题：测试板
;时间：2004。05。08
;----------------------------------------------------
CUL      EQU   30H          ;列变量
ROW      EQU   31H          ;页变量
CODEE    EQU   2FH
TEMP1    EQU   32H
COM      EQU   36H          ;指令寄存器
DAT      EQU   37H          ;数据寄存器

;定议LCD控制脚
;P3  为控制线，P1 为数据线
CS3      EQU   P3.7
PREST    EQU   P3.5
CS2      EQU   P3.6         ;高有效
CS1      EQU   P3.4
PDI      EQU   P3.2         ;高为数据，低为指令
PWR      EQU   P3.1         ;高为读  ，H->L为写
PEE      EQU   P3.0
                        
;-----------------------------------------------
cseg  at  0
  JMP    START
  NOP
  ORG  20H
START:
   CLR    PREST
   LCALL   DELAY2              ;LCD  复位
   SETB   PREST
   LCALL   DELAY2
   LCALL   INT                 ;LCD  初始化
   LCALL   CLEAR               ;清屏
   LCALL   CLEARA
   LCALL   DELAY1
   LCALL   CLEARB
   LCALL   DELAY1
   LCALL   CLEAR

   NOP
   MOV  CODEE,#01
   MOV  CUL,#08
   MOV  ROW,#00
   LCALL  WRNUN
   MOV  CODEE,#9
   LCALL  WRNUN
   MOV   CODEE,#2
   LCALL  WRNUN
   MOV   CODEE,#6
   LCALL  WRNUN
   MOV   CODEE,#4
   LCALL  WRNUN
   MOV   CODEE,#00
   LCALL  WRCHIN
   LCALL  WRCHIN
   LCALL  WRCHIN
   LCALL  WRCHIN
   LCALL  WRCHIN
   LCALL  WRCHIN
   LCALL  WRCHIN
   LCALL  WRCHIN
   LCALL  WRCHIN

   MOV   CUL,#00
   MOV   ROW,#2
   LCALL  WRCHIN
   LCALL  WRCHIN
   LCALL  WRCHIN
   MOV    CUL,#08
   MOV    ROW,#6
   LCALL  WRCHIN
   LCALL  WRCHIN
   MOV   CODEE,#10
   LCALL  WRNUN
   MOV   CODEE,#0
   LCALL  WRNUN
   LCALL  WRNUN
   LCALL  WRNUN
   LCALL  WRNUN
   LCALL  WRNUN
   LCALL  WRNUN
   LCALL  WRNUN
   LCALL  WRNUN
   NOP
   LCALL  DELAY3
   LJMP   START
   
;延时子程序
DELAY1:
   MOV   R6,#0
   MOV   R7,#0
   MOV   R5,#10
DELA11:
   DJNZ  R6,DELA11
   DJNZ  R7,DELA11
   DJNZ  R5,DELA11
   RET
DELAY2:
   MOV   R5,#0
   MOV   R6,#0
   MOV   R7,#1
DELA21:
   DJNZ   R5,DELA21
   DJNZ   R6,DELA21
   DJNZ   R7,DELA21
   RET
DELAY3:
   MOV   R6,#0
   MOV   R7,#0
   MOV   R5,#80
DELA31:
   DJNZ  R6,DELA31
   DJNZ  R7,DELA31
   DJNZ  R5,DELA31
   RET

; 写一个8*16的数字子程序
WRNUN:          
  MOV   DPTR,#NUNTAB
  MOV   A,CODEE
  MOV   B,#16
  MUL   AB
  ADD   A,DPL
  MOV   DPL,A
  MOV   A,B
  ADDC  A,DPH
  MOV   DPH,A
  MOV   A,CUL
  JB   ACC.7,WRNUN3T
  JB   ACC.6,WRNUN20
  ORL  A,#40H
  MOV  COM,A
  LCALL  PRL0
  MOV   A,ROW
  ORL   A,#0B8H
  MOV   COM,A
  LCALL  PRL0
  MOV   R7,#08
WRNUN11:
  CLR  A
  MOVC  A,@A+DPTR
  MOV  DAT,A
  LCALL   PRL1
  INC   DPTR
  DJNZ   R7,WRNUN11
  INC  ROW
  MOV   A,CUL
  ORL  A,#40H
  MOV  COM,A
  LCALL  PRL0
  MOV   A,ROW
  ORL   A,#0B8H
  MOV   COM,A
  LCALL  PRL0
  MOV   R7,#08
WRNUN12:
  CLR  A
  MOVC  A,@A+DPTR
  MOV  DAT,A
  LCALL   PRL1
  INC   DPTR
  DJNZ   R7,WRNUN12
  DEC   ROW
  MOV  A,#08
  ADD  A,CUL
  MOV   CUL,A
  INC  CODEE
  RET
WRNUN3T:
  LJMP   WRNUN30
WRNUN20:
  ORL  A,#40H
  MOV  COM,A
  LCALL  PRM0
  MOV   A,ROW
  ORL   A,#0B8H
  MOV   COM,A
  LCALL  PRM0
  MOV   R7,#08
WRNUN21:
  CLR  A
  MOVC  A,@A+DPTR
  MOV  DAT,A
  LCALL   PRM1
  INC   DPTR
  DJNZ   R7,WRNUN21
  INC  ROW
  MOV   A,CUL
  ORL  A,#40H
  MOV  COM,A
  LCALL  PRM0
  MOV   A,ROW
  ORL   A,#0B8H
  MOV   COM,A
  LCALL  PRM0
  MOV   R7,#08
WRNUN22:
  CLR  A
  MOVC  A,@A+DPTR
  MOV  DAT,A
  LCALL   PRM1
  INC   DPTR
  DJNZ   R7,WRNUN22
  DEC   ROW
  MOV  A,#08
  ADD  A,CUL
  MOV   CUL,A
  INC  CODEE
  RET
 WRNUN30:
  ANL  A,#07FH
  ORL  A,#40H
  MOV  COM,A
  LCALL  PRR0
  MOV   A,ROW
  ORL   A,#0B8H
  MOV   COM,A
  LCALL  PRR0
  MOV   R7,#08
WRNUN31:
  CLR  A
  MOVC  A,@A+DPTR
  MOV  DAT,A
  LCALL   PRR1
  INC   DPTR
  DJNZ   R7,WRNUN31
  INC  ROW
  MOV   A,CUL
  ANL  A,#07FH
  ORL  A,#40H
  MOV  COM,A
  LCALL  PRR0
  MOV   A,ROW
  ORL   A,#0B8H
  MOV   COM,A
  LCALL  PRR0
  MOV   R7,#08
WRNUN32:
  CLR  A
  MOVC  A,@A+DPTR
  MOV  DAT,A
  LCALL   PRR1
  INC   DPTR
  DJNZ   R7,WRNUN32
  DEC   ROW
  MOV  A,#08
  ADD  A,CUL
  MOV   CUL,A
  INC  CODEE
  RET



; 写一个16*16的中文子程序
WRCHIN:         
  MOV   DPTR,#CHINTAB
  MOV   A,CODEE
  MOV   B,#32
  MUL   AB
  ADD   A,DPL
  MOV   DPL,A
  MOV   A,B
  ADDC  A,DPH
  MOV   DPH,A
  MOV   A,CUL
  JB   ACC.7,WRCHIN3T
  JB   ACC.6,WRCHIN20
  ORL  A,#40H
  MOV  COM,A
  LCALL  PRL0
  MOV   A,ROW
  ORL   A,#0B8H
  MOV   COM,A
  LCALL  PRL0
  MOV   R7,#16
WRCHIN11:
  CLR  A
  MOVC  A,@A+DPTR
  MOV  DAT,A
  LCALL   PRL1
  INC   DPTR
  DJNZ   R7,WRCHIN11
  INC  ROW
  MOV   A,CUL
  ORL  A,#40H
  MOV  COM,A
  LCALL  PRL0
  MOV   A,ROW
  ORL   A,#0B8H
  MOV   COM,A
  LCALL  PRL0
  MOV   R7,#16
WRCHIN12:
  CLR  A
  MOVC  A,@A+DPTR
  MOV  DAT,A
  LCALL   PRL1
  INC   DPTR
  DJNZ   R7,WRCHIN12
  DEC   ROW
  MOV  A,#16
  ADD  A,CUL
  MOV   CUL,A
  INC  CODEE
  RET
WRCHIN3T:
  LJMP  WRCHIN30
WRCHIN20:
  ORL  A,#40H
  MOV  COM,A
  LCALL  PRM0
  MOV   A,ROW
  ORL   A,#0B8H
  MOV   COM,A
  LCALL  PRM0
  MOV   R7,#16
WRCHIN21:
  CLR  A
  MOVC  A,@A+DPTR
  MOV  DAT,A
  LCALL   PRM1
  INC   DPTR
  DJNZ   R7,WRCHIN21
  INC  ROW
  MOV   A,CUL
  ORL  A,#40H
  MOV  COM,A
  LCALL  PRM0
  MOV   A,ROW
  ORL   A,#0B8H
  MOV   COM,A
  LCALL  PRM0
  MOV   R7,#16
WRCHIN22:
  CLR  A
  MOVC  A,@A+DPTR
  MOV  DAT,A
  LCALL   PRM1
  INC   DPTR
  DJNZ   R7,WRCHIN22
  DEC   ROW
  MOV  A,#16
  ADD  A,CUL
  MOV   CUL,A
  INC  CODEE
  RET
 WRCHIN30:
  ANL  A,#07FH
  ORL  A,#40H
  MOV  COM,A
  LCALL  PRR0
  MOV   A,ROW
  ORL   A,#0B8H
  MOV   COM,A
  LCALL  PRR0
  MOV   R7,#16
WRCHIN31:
  CLR  A
  MOVC  A,@A+DPTR
  MOV  DAT,A
  LCALL   PRR1
  INC   DPTR
  DJNZ   R7,WRCHIN31