22.asm

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

         ORG 0000H
   START:MOV DPTR,#TAB      ;表首址
         ;MOV P1,#00H        ;初始化
         MOV P2,#00H
         MOV R1,#8
    LOOP:LCALL XS
         MOV R2,#4
     LOP:MOV R3,#64
     XH2:DJNZ R3,XH
         DJNZ R2,LOP

         MOV P2,#00H  ;黑屏
         LCALL DELAY1
         DJNZ R1,LOOP
         LJMP START
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      XS: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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      XH:MOV R0,#00H
         MOV P0,R0
         CLR C
         MOV A,DPL
         SUBB A,#32
         MOV DPL,A
         JC XH1
         LCALL XS
         LJMP XH2
     XH1:CLR C
         MOV A,DPH
         DEC A     ;SUBB A,#1
         MOV DPH,A
         LCALL XS
         LJMP XH2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   DELAY:MOV R7,#2
      D1:MOV R6,#2
      D2:MOV R5,#25
         DJNZ R5,$
         DJNZ R6,D2
         DJNZ R7,D1
         RET
     DELAY1:MOV R7,#20
      D11:MOV R6,#200
      D22:MOV R5,#250
         DJNZ R5,$
         DJNZ R6,D22
         DJNZ R7,D11
         RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     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;！
END
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;