44.asm

基于8051单片机的16*16点阵proteus仿真

         ORG 0000H
   START:MOV DPTR,#0200H     ;表首址
         MOV P2,#00H
         MOV R1,#8
         MOV R4,#15
    LOOP:LCALL XS
    
        ; MOV P2,#00H
        ; LCALL DELAY
         LJMP YD
     YD2:DJNZ R4,YD
         MOV R4,#15

         CLR C
         MOV A,DPL
         SUBB A,#32
         MOV DPL,A
         JC XH11
         LJMP XH22
    XH11:CLR C
         MOV A,DPH
         DEC A
         MOV DPH,A
         
   XH22: DJNZ R1,LOOP
         LJMP START
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      YD:CLR C
         MOV A,DPL
         SUBB A,#30
         MOV DPL,A
         JC YD1
         LCALL XS
         LJMP YD2
     YD1:CLR C
         MOV A,DPH
         DEC A
         MOV DPH,A
         LCALL XS
         LJMP YD2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     XS: LCALL XS0

         MOV R2,#2
     LOP:MOV R3,#20
     XH2:DJNZ R3,XH
         DJNZ R2,LOP
         LJMP XSXS

      XH:CLR C
         MOV A,DPL
         SUBB A,#32
         MOV DPL,A
         JC XH1
         LCALL XS0
         LJMP XH2
     XH1:CLR C
         MOV A,DPH
         DEC A
         MOV DPH,A
         LCALL XS0
         LJMP XH2

   XSXS: RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     XS0:MOV R0,#00H           ;循环8次  8行
         MOV P0,R0             ;选一行
     XSS:CLR A
         MOVC A,@A+DPTR        ;查表
         SETB P2.0             ; 选A块
         MOV P1,A
         lcall delay
         CLR P2.0              ;关A块
         SETB P2.1              ; 选B块
         INC DPTR
         CLR A
         MOVC A,@A+DPTR
         MOV P1,A
         LCALL DELAY
         CLR P2.1                ;关B块
         INC DPTR
         INC R0                   ;行加1
         MOV P0,R0
         CJNE R0,#08H,XSS          ;比较是否8行完成 否则继续
         MOV R0,#00H
         MOV P0,R0
     XSX:CLR A                ;选一行
         MOVC A,@A+DPTR
         SETB P2.2                 ; 选C块
         MOV P1,A
         LCALL DELAY
         CLR P2.2                   ;关C块
         SETB P2.3                 ; 选D块
         INC DPTR
         CLR A
         MOVC A,@A+DPTR
         MOV P1,A
         LCALL DELAY
         CLR P2.3                    ;关D块
         INC DPTR
         INC R0
         MOV P0,R0
         CJNE R0,#08H,XSX               ;比较8行完成 否则继续
         RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   DELAY:MOV R7,#2
      D1:MOV R6,#2
      D2:MOV R5,#25
         DJNZ R5,$
         DJNZ R6,D2
         DJNZ R7,D1
         RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         ORG 0200H
     ;TAB:;DB 0FDH,0FFH,000H,003H,0DDH,07BH,0DDH,07BH,0DDH,077H,0BDH,077H,0B5H,06FH,07BH,077H,0FDH,07BH,080H,07DH,0BDH,03DH,0BDH,05DH,0BDH,06BH,081H,077H,0BDH,07FH,0FFH,07FH;邵
         ;DB 0FFH,0FBH,082H,001H,0BAH,0FBH,0B6H,0FBH,0B6H,0FBH,0AEH,0FBH,0B6H,0FBH,0B6H,003H,0BAH,0FBH,0BAH,0FBH,0BAH,0FBH,096H,0FBH,0AEH,0FBH,0BEH,0FBH,0BEH,003H,0BEH,0FBH;阳
         ;DB 0DDH,0F7H,0EEH,0F7H,0EEH,0EFH,0FFH,0DFH,080H,001H,0BFH,0FDH,07FH,0FBH,0E0H,01FH,0FFH,0BFH,0FEH,07BH,000H,001H,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,0FAH,0FFH,0FDH,0FFH;学
        ; DB 0FFH,07FH,087H,0BFH,0B0H,001H,0ABH,0FDH,0A7H,0EBH,09CH,007H,0AFH,0FFH,0B7H,0F7H,0B0H,003H,0B7H,05FH,097H,05FH,0AFH,05FH,0BEH,0DDH,0BEH,0DDH,0BDH,0E1H,0B3H,0FFH;院
        ; DB 0FFH,07FH,0FFH,07FH,003H,07FH,0FBH,003H,0BAH,0FBH,0B9H,0B7H,0D7H,0BFH,0D7H,0BFH,0EFH,0BFH,0D7H,0BFH,0DBH,05FH,0BBH,05FH,07EH,0EFH,0FEH,0F7H,0FDH,0F1H,0F3H,0FBH;欢
        ; DB 0FFH,0FFH,0BEH,07BH,0D9H,081H,0EBH,0BBH,0FBH,0BBH,0FBH,0BBH,00BH,0BBH,0EBH,03BH,0EAH,0BBH,0E9H,0ABH,0EBH,0B7H,0EFH,0BFH,0EFH,0BFH,0D7H,0B9H,0B8H,003H,0FFH,0FFH;迎
        ; DB 0EEH,0FFH,0EEH,0FFH,0EEH,0FFH,0DCH,003H,0DDH,0FBH,09BH,0F7H,057H,0BFH,0DFH,0BFH,0DEH,0AFH,0DEH,0B7H,0DDH,0B3H,0DBH,0BBH,0DFH,0BFH,0DFH,0BFH,0DEH,0BFH,0DFH,07FH;你
        ; DB 0FFH,0FFH,0FEH,07FH,0FCH,03FH,0FCH,03FH,0FCH,03FH,0FCH,03FH,0FCH,03FH,0FEH,07FH,0FEH,07FH,0FEH,07FH,0FFH,0FFH,0FEH,07FH,0FCH,03FH,0FEH,07FH,0FFH,0FFH,0FFH,0FFH;！

;--  文字:  邵  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  0FFH,0FFH,080H,081H,0EEH,0BBH,0EEH,0B7H,0EEH,0B7H,0DEH,0AFH,0DAH,0B7H,0BDH,0BBH,
DB  040H,0BDH,0DEH,0BDH,0DEH,0BDH,0DEH,0A5H,0C0H,0BBH,0DEH,0BFH,0FFH,0BFH,0FFH,0BFH,

;--  文字:  阳  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  0FFH,0FFH,082H,003H,0BAH,0FBH,0B6H,0FBH,0B6H,0FBH,0AEH,0FBH,0B6H,003H,0BAH,0FBH,
DB  0BAH,0FBH,0BAH,0FBH,096H,0FBH,0AEH,0FBH,0BEH,003H,0BEH,0FBH,0BFH,0FFH,0BFH,0FFH,

;--  文字:  学  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  0FEH,0F7H,0EFH,073H,0F3H,037H,0F7H,06FH,080H,001H,0BFH,0FBH,070H,017H,0FFH,0BFH,
DB  0FFH,07FH,080H,001H,0FFH,07FH,0FFH,07FH,0FFH,07FH,0FFH,07FH,0FDH,07FH,0FEH,0FFH,

;--  文字:  院  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  0FFH,07FH,007H,0BFH,070H,001H,06BH,0FBH,05FH,0FFH,05CH,007H,06FH,0FFH,077H,0FFH,
DB  070H,001H,056H,0DFH,06EH,0DFH,07EH,0DFH,07DH,0DDH,07DH,0DDH,07BH,0DDH,077H,0E1H,

;--  文字:  欢  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  0FFH,07FH,0FFH,07FH,003H,07FH,0FAH,001H,07AH,0FBH,0B5H,0B7H,0D7H,0BFH,0EFH,0BFH,
DB  0E7H,0BFH,0E7H,09FH,0DBH,05FH,0DBH,06FH,0BEH,0E7H,079H,0F1H,0C7H,0FBH,0FFH,0FFH,

;--  文字:  迎  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  0BFH,0FFH,0DEH,07FH,0C9H,083H,0DBH,0BBH,0FBH,0BBH,0FBH,0BBH,01BH,0BBH,0DBH,0BBH,
DB  0DAH,0BBH,0D9H,0ABH,0DBH,0B7H,0DFH,0BFH,0DFH,0BFH,0AFH,0FFH,070H,001H,0FFH,0FFH,

;--  文字:  你  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  0F6H,0FFH,0F6H,07FH,0EEH,0FBH,0ECH,001H,0DDH,0FBH,0CBH,0B7H,097H,0BFH,05DH,0AFH,
DB  0DCH,0B7H,0DDH,0B7H,0DBH,0BBH,0DBH,0B9H,0D7H,0BBH,0DEH,0BFH,0DFH,07FH,0FFH,0FFH,

;--  文字:  ！  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0EFH,0FFH,0EFH,0FFH,0EFH,0FFH,0EFH,0FFH,
DB  0EFH,0FFH,0EFH,0FFH,0EFH,0FFH,0EFH,0FFH,0EFH,0FFH,0FFH,0FFH,0EFH,0FFH,0FFH,0FFH,

DB  0FFH,0FFH,080H,081H,0EEH,0BBH,0EEH,0B7H,0EEH,0B7H,0DEH,0AFH,0DAH,0B7H,0BDH,0BBH,
DB  040H,0BDH,0DEH,0BDH,0DEH,0BDH,0DEH,0A5H,0C0H,0BBH,0DEH,0BFH,0FFH,0BFH,0FFH,0BFH,


END
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;