11.asm

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

         ORG 0000H
   START:MOV DPTR,#TAB      ;表首址
         MOV P1,#00H        ;初始化
         MOV P2,#00H
    LOOP:LCALL XS
         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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   DELAY:MOV R7,#2
      D1:MOV R6,#2
      D2:MOV R5,#25
         DJNZ R5,$
         DJNZ R6,D2
         DJNZ R7,D1
         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;邵
         END
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;