動態(tài)顯示匯編程序

ORG        0000H
        SJMP        MAIN
        ORG        001BH
        SJMP        IN_T1
        ORG        0030H
MAIN:        CLR        A
        MOV        40H,A
        MOV        41H,A
        MOV        42H,A
        MOV        43H,A
        MOV        R2,#00
        MOV        R4,#80H                ; (1000 0000)B
        MOV        30H,#50H
        MOV        TMOD,#10H
        MOV        TH1,#0FCH
        MOV        TL1,#018H
        SETB        ET1
        SETB        EA
        SETB        TR1
        SJMP        $
                       
IN_T1:       
        MOV        TH1,#0FCH
        MOV        TL1,#018H
        INC        R2
        CJNE        R2,#100,DISP
        MOV        R2,#00
        MOV        A,40H
        ADD        A,#01
        DA        A
        MOV        40H,A
        CJNE        A,#00,DISP
        MOV        A,41H
        ADD        A,#01
        DA        A
        MOV        41H,A
        CJNE        A,#00,DISP
        MOV        A,42H
        ADD        A,#01
        DA        A
        MOV        42H,A
        CJNE        A,#00,DISP
        MOV        A,43H
        ADD        A,#01
        DA        A
        MOV        43H,A
        CJNE        A,#00,DISP
        MOV        43H,#00

DISP:        MOV        R0,#40H        
        MOV        R1,#50H
        MOV        R6,#04
LP:        MOV        A,@R0
        ANL        A,#0FH
        MOV        @R1,A
        INC        R1
        MOV        A,@R0
        ANL        A,#0F0H
        SWAP        A
        MOV        @R1,A
        INC        R1
        INC        R0
        DJNZ        R6,LP
               
        MOV        P0,#0FFH        ;送數據
        SETB        P2.0
        CLR        P2.0

        MOV        A,R4                ;選數碼管
        MOV        P0,A
        SETB        P2.1
        CLR          P2.1
        RR        A
        MOV        R4,A
               
        MOV        R0,30H
        MOV        DPTR,#TAB
        MOV        A,@R0
        MOVC        A,@A+DPTR
        MOV        P0,A
        SETB        P2.0
        CLR        P2.0
               
        INC        30H
        MOV        A,30H
        CJNE        A,#58H,EX
        MOV        30H,#50H

EX:        NOP
        RETI
               
TAB:        DB        0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,88H,83H,0C6H,0A1H,86H,84H
        END