;*************
;*******************************************************************

         DISSTART  EQU  40H    ;顯示單元首地址
         LED_DATA  EQU  P0     ;數(shù)碼管數(shù)據(jù)口定義

;-----------------------------------------------------
         ORG 0000H
         AJMP MAIN
         ORG 0030H
;-----------------------------------------------------
MAIN:
         MOV  SP,#60H
         MOV  P0,#0FFH
         MOV  P2,#0FFH
         MOV  R2,#08H
         MOV  R0,#DISSTART
         MOV  R1,#00H

MAIN1:
         MOV  A,R1           
         MOV  @R0,A          ;將0-7分別存入顯示單元
         INC  R1
         INC  R0
         DJNZ  R2,MAIN1

M_LOOP:
         ACALL  PLAY
         JMP  M_LOOP

;---------------------------------------------------------
PLAY:
        MOV R0,#DISSTART      ;獲得顯示單元首地址
        MOV R1,#0FEH          ;從第一個數(shù)碼管開始
        MOV R2,#08H           ;共顯示3位數(shù)碼管
DISP1:
        MOV A,@R0             ;獲得當前位地址
        MOV DPTR,#TAB_NU      ;獲得表頭
        MOVC A,@A+DPTR        ;查表獲得顯示數(shù)據(jù)
        MOV LED_DATA,A        ;顯示數(shù)據(jù)
        MOV P2,R1             ;開始顯示當前位
        MOV A,R1              ;準備顯示下一位
        RL A
        MOV R1,A              ;下一位
        INC R0                ;取下一個單元地址
        LCALL DELAY2MS        ;延時 2 MS
        DJNZ R2,DISP1         ;重復顯示下一個
        MOV  P2,#0FFH         ;關(guān)閉顯示
        RET                   ;顯示完成，返回
;---------------------------------------------------------
;延時子程序
;---------------------------------------------------------
DELAY2MS:
        MOV  R6,#10
DEL1:
        MOV  R7,#100
        DJNZ  R7,$
        DJNZ  R6,DEL1
        RET
;---------------------------------------------------------
TAB_NU:
    DB 0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H
    DB 080H,090H,0FFH,088H,083H,0C6H,0A1H,086H,08EH
;---------------------------------------------------------
        END