数码管动态显示 汇编 60进制

题目：用两个动态数码管从0显示到60，由89C51的P1口输出，不加译码器，直接连接数码管，注意是动态数码管，不是两个单独的静态数码管。

;=====================================
程序如下：
        ORG  0000H
        LJMP MAIN
        ORG  0100H
MAIN:                            ;开始初始化
        MOV  DPTR,#TAB           ;表首址送DPTR
        MOV  R1, #0
        MOV  R2, #0              
;-------------------------------------------------------
M1:
        MOV  R0, #50
LOOP:
        CALL DIS
        DJNZ R0, LOOP            ;循环显示80遍，约用1.6s
;-------------------------------------------------------
        MOV  A,  R3              ;这是计数值
        ADD  A,  #1
        DA   A                   ;变成 BCD 码，即：00~99H
        CJNE A, #60H, SSS
        CLR  A
SSS:
        MOV  R3, A               ;计数值分解.
        MOV  B,  #16
        DIV  AB                  ;分成高、低四位
        MOV  R2, A               ;准备去显示
        MOV  R1, B
        SJMP M1                  ;转到前面，显示80遍
;-------------------------------------------------------
DIS:                             ;显示程序.
        MOV  A,  R2              ;显示十位.
        MOVC A,  @A+DPTR
        CLR  P2.1
        MOV  P1, A
        SETB P2.0                ;十位的位选.
        CALL DLY

        MOV  A,  R1              ;个位显示.
        MOVC A,  @A+DPTR
        CLR  P2.0                ;关闭十位的显示.
        MOV  P1, A
        SETB P2.1                ;个位的位选.
        CALL DLY
        RET
;------------------------------
TAB:    DB  0xc0,0xf9,0xa4,0xb0,0x99  ;共阳极段码 0~4
        DB  0x92,0x82,0xf8,0x80,0x90  ;共阳极段码 5~9
;-------------------------------------------------------
DLY:    MOV  R6, #20            ;10ms延时.
D1:     MOV  R7, #248
        DJNZ R7, $
        DJNZ R6, D1
        RET
;-------------------------------------------------------
上述程序运行的效果图如下：