192641.asm

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

  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,#16
WRCHIN32:
  CLR  A
  MOVC  A,@A+DPTR
  MOV  DAT,A
  LCALL   PRR1
  INC   DPTR
  DJNZ   R7,WRCHIN32
  DEC   ROW
  MOV  A,#16
  ADD  A,CUL
  MOV   CUL,A
  INC  CODEE
  RET
 


INT:
   MOV   COM,#0C0H      ;设置显示起始行为第一行
   LCALL  PRL0
   LCALL  PRM0
   LCALL  PRR0
   MOV   COM,#03FH      ;开显示设置
   LCALL  PRL0
   LCALL  PRM0
   LCALL  PRR0
   RET
CLEAR:
   MOV   R4,#00H
CLEAR1:
   MOV   A,R4
   ORL   A,#0B8H
   MOV   COM,A
   LCALL   PRL0
   LCALL   PRM0
   LCALL   PRR0
   MOV   COM,#40H
   LCALL   PRL0
   LCALL   PRM0
   LCALL   PRR0
   MOV    R3,#40H
CLEAR2:
   MOV   DAT,#00H
   LCALL   PRL1
   LCALL   PRM1
   LCALL   PRR1
   DJNZ   R3,CLEAR2
   INC    R4
   CJNE   R4,#08H,CLEAR1
   RET

CLEARA:
   MOV   R4,#00H
CLEARA1:
   MOV   A,R4
   ORL   A,#0B8H
   MOV   COM,A
   LCALL   PRL0
   LCALL   PRM0
   LCALL   PRR0
   MOV   COM,#40H
   LCALL   PRL0
   LCALL   PRM0
   LCALL   PRR0
   MOV    R3,#40H
CLEARA2:
   MOV   DAT,#0FH
   LCALL   PRL1
   LCALL   PRM1
   LCALL   PRR1
   DJNZ   R3,CLEARA2
   INC    R4
   CJNE   R4,#08H,CLEARA1
   RET

CLEARB:
   MOV   R4,#00H
CLEARB1:
   MOV   A,R4
   ORL   A,#0B8H
   MOV   COM,A
   LCALL   PRL0
   LCALL   PRM0
   LCALL   PRR0
   MOV   COM,#40H
   LCALL   PRL0
   LCALL   PRM0
   LCALL   PRR0
   MOV    R3,#16
   MOV    DAT,#00H
CLEARB2:
   MOV   A,DAT
   CPL   A
   MOV   DAT,A
   LCALL   PRL1
   LCALL   PRM1
   LCALL   PRR1
   LCALL   PRL1
   LCALL   PRM1
   LCALL   PRR1
   LCALL   PRL1
   LCALL   PRM1
   LCALL   PRR1
   LCALL   PRL1
   LCALL   PRM1
   LCALL   PRR1
   DJNZ   R3,CLEARB2
   INC    R4
   CJNE   R4,#08H,CLEARB1
   RET

PRL0:                              ;左区写指令
   SETB    CS2
   CLR     CS1
   SETB    CS3
   CLR    PDI
   SETB   PWR
PRL01:
   MOV   P1,#0FFH
   SETB   PEE
   MOV   A,P1
   CLR    PEE
   JB   ACC.7,PRL01
   CLR    PWR
   MOV   P1,COM
   SETB   PEE
   CLR    PEE
   RET
PRL1:                           ;左区写数据
   SETB    CS2
   CLR     CS1
   SETB    CS3
   CLR    PDI
   SETB   PWR
PRL11:
   MOV   P1,#0FFH
   SETB   PEE
   MOV   A,P1
   CLR    PEE
   JB   ACC.7,PRL11
   SETB   PDI
   CLR   PWR
   MOV   P1,DAT
   SETB   PEE
   CLR    PEE
   RET
PRM0:                              ;中区写指令
   SETB    CS1
   CLR     CS2
   SETB    CS3
   CLR    PDI
   SETB   PWR
PRM01:
   MOV   P1,#0FFH
   SETB   PEE
   MOV   A,P1
   CLR    PEE
   JB   ACC.7,PRM01
   CLR    PWR
   MOV   P1,COM
   SETB   PEE
   CLR    PEE
   RET
PRM1:                           ;中区写数据
   CLR    CS2
   SETB   CS1
   SETB    CS3
   CLR    PDI
   SETB   PWR
PRM11:
   MOV   P1,#0FFH
   SETB   PEE
   MOV   A,P1
   CLR    PEE
   JB   ACC.7,PRM11
   SETB   PDI
   CLR   PWR
   MOV   P1,DAT
   SETB   PEE
   CLR    PEE
   RET

PRR0:                            ;右区写指令
   SETB   CS1
   CLR    CS3
   SETB    CS2
   CLR    PDI
   SETB   PWR
PRR01:
   MOV   P1,#0FFH
   SETB   PEE
   MOV   A,P1
   CLR    PEE
   JB   ACC.7,PRR01
   CLR    PWR
   MOV   P1,COM
   SETB   PEE
   CLR    PEE
   RET
PRR1:                              ;右区写数据
   SETB   CS1
   CLR    CS3
   SETB    CS2
   CLR    PDI
   SETB   PWR
PRR11:
   MOV   P1,#0FFH
   SETB   PEE
   MOV   A,P1
   CLR    PEE
   JB   ACC.7,PRR11
   SETB   PDI
   CLR   PWR
   MOV   P1,DAT
   SETB   PEE
   CLR    PEE
   RET
   NOP

  

CHINTAB:
;--  文字:  是  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  080H,080H,080H,080H,0BEH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0BEH,080H,080H,080H,000H
DB  000H,040H,020H,010H,00EH,010H,020H,03FH,044H,044H,044H,044H,044H,040H,040H,000H

;--  文字:  一  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  000H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,0C0H,080H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H

;--  文字:  种  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  000H,012H,012H,0D2H,0FEH,051H,081H,0F0H,010H,010H,0FFH,010H,010H,0F0H,000H,000H
DB  008H,004H,003H,000H,0FFH,000H,000H,003H,001H,001H,0FFH,001H,001H,003H,000H,000H

;--  文字:  图  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  000H,0FEH,042H,042H,022H,01EH,0AAH,04AH,0AAH,09AH,00AH,002H,002H,0FEH,000H,000H
DB  000H,0FFH,042H,042H,041H,041H,048H,072H,054H,040H,041H,043H,041H,0FFH,000H,000H

;--  文字:  形  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  040H,042H,042H,0FEH,042H,042H,0FEH,042H,042H,040H,010H,088H,0E4H,047H,002H,000H
DB  080H,040H,030H,00FH,000H,000H,07FH,000H,084H,042H,021H,010H,008H,00EH,004H,000H

;--  文字:  点  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  000H,000H,000H,0E0H,020H,020H,020H,03FH,024H,024H,024H,0F4H,024H,000H,000H,000H
DB  000H,040H,030H,007H,012H,062H,002H,00AH,012H,062H,002H,00FH,010H,060H,000H,000H

;--  文字:  阵  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  0FEH,002H,012H,02AH,0C6H,088H,0C8H,0B8H,08FH,0E8H,088H,088H,088H,088H,000H,000H
DB  0FFH,000H,002H,004H,003H,004H,004H,004H,004H,0FFH,004H,004H,004H,004H,004H,000H

;--  文字:  液  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  010H,061H,006H,0E0H,018H,084H,0E4H,01CH,084H,065H,0BEH,024H,0A4H,064H,004H,000H
DB  004H,004H,0FFH,000H,001H,000H,0FFH,041H,021H,012H,00CH,01BH,061H,0C0H,040H,000H

;--  文字:  晶  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  000H,000H,000H,000H,07EH,02AH,02AH,02AH,02AH,02AH,02AH,07EH,000H,000H,000H,000H
DB  000H,07FH,025H,025H,025H,025H,07FH,000H,000H,07FH,025H,025H,025H,025H,07FH,000H

;--  文字:  显  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  000H,000H,000H,03EH,02AH,0EAH,02AH,02AH,02AH,0EAH,02AH,03EH,000H,000H,000H,000H
DB  020H,021H,022H,02CH,020H,03FH,020H,020H,020H,03FH,028H,024H,023H,020H,020H,000H

;--  文字:  示  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  000H,020H,020H,022H,022H,022H,022H,0E2H,022H,022H,022H,022H,022H,020H,020H,000H
DB  010H,008H,004H,003H,000H,040H,080H,07FH,000H,000H,001H,002H,00CH,018H,000H,000H

;--  文字:  器  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  040H,040H,04FH,049H,049H,0C9H,0CFH,070H,0C0H,0CFH,049H,059H,069H,04FH,000H,000H
DB  002H,002H,07EH,045H,045H,044H,07CH,000H,07CH,044H,045H,045H,07EH,006H,002H,000H

;--  文字:  电  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  000H,000H,0F8H,048H,048H,048H,048H,0FFH,048H,048H,048H,048H,0F8H,000H,000H,000H
DB  000H,000H,00FH,004H,004H,004H,004H,03FH,044H,044H,044H,044H,04FH,040H,070H,000H

;--  文字:  话  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  040H,041H,04EH,0C4H,000H,020H,024H,024H,024H,024H,0FCH,022H,022H,022H,020H,000H
DB  000H,000H,000H,07FH,020H,010H,000H,07EH,022H,022H,023H,022H,022H,07EH,000H,000H


NUNTAB:
;--  文字:  0  --
;--  新宋体12;  此字体下对应的点阵为：宽x高=8x16   --
DB  000H,0E0H,010H,008H,008H,010H,0E0H,000H,000H,00FH,010H,020H,020H,010H,00FH,000H

;--  文字:  1  --
;--  新宋体12;  此字体下对应的点阵为：宽x高=8x16   --
DB  000H,010H,010H,0F8H,000H,000H,000H,000H,000H,020H,020H,03FH,020H,020H,000H,000H

;--  文字:  2  --
;--  新宋体12;  此字体下对应的点阵为：宽x高=8x16   --
DB  000H,070H,008H,008H,008H,088H,070H,000H,000H,030H,028H,024H,022H,021H,030H,000H

;--  文字:  3  --
;--  新宋体12;  此字体下对应的点阵为：宽x高=8x16   --
DB  000H,030H,008H,088H,088H,048H,030H,000H,000H,018H,020H,020H,020H,011H,00EH,000H

;--  文字:  4  --
;--  新宋体12;  此字体下对应的点阵为：宽x高=8x16   --
DB  000H,000H,0C0H,020H,010H,0F8H,000H,000H,000H,007H,004H,024H,024H,03FH,024H,000H

;--  文字:  5  --
;--  新宋体12;  此字体下对应的点阵为：宽x高=8x16   --
DB  000H,0F8H,008H,088H,088H,008H,008H,000H,000H,019H,021H,020H,020H,011H,00EH,000H

;--  文字:  6  --
;--  新宋体12;  此字体下对应的点阵为：宽x高=8x16   --
DB  000H,0E0H,010H,088H,088H,018H,000H,000H,000H,00FH,011H,020H,020H,011H,00EH,000H

;--  文字:  7  --
;--  新宋体12;  此字体下对应的点阵为：宽x高=8x16   --
DB  000H,038H,008H,008H,0C8H,038H,008H,000H,000H,000H,000H,03FH,000H,000H,000H,000H

;--  文字:  8  --
;--  新宋体12;  此字体下对应的点阵为：宽x高=8x16   --
DB  000H,070H,088H,008H,008H,088H,070H,000H,000H,01CH,022H,021H,021H,022H,01CH,000H

;--  文字:  9  --
;--  新宋体12;  此字体下对应的点阵为：宽x高=8x16   --
DB  000H,0E0H,010H,008H,008H,010H,0E0H,000H,000H,000H,031H,022H,022H,011H,00FH,000H

;--  文字:  :  --
;--  新宋体12;  此字体下对应的点阵为：宽x高=8x16   --
DB  000H,000H,000H,0C0H,0C0H,000H,000H,000H,000H,000H,000H,030H,030H,000H,000H,000H


   END