. 一位數碼管自動延時加1循環顯示0~F。

. 一位數碼管自動延時加1循環顯示0~F。

        ORG 0000H

JMP MAIN

ORG 0100H

MAIN:  CLR P2.7   ;數碼管使能位

MOV P0,#0FE

SETB P2.7

CLR P2.7

SETB P2.6

MOV DPTR,#TABLE

MOV R2,#0

LOOP1:  ACALL D100MS

        INC R2

        MOV A,R2

        MOVC A,@A+DPTR

        MOV P0,A

CJNE R2,#0FH,LOOP1

SJMP $

D100MS:MOV R5,#100

D1MS:  MOV R4, #249

DL:     NOP

        NOP

        DJNZ R4, DL

        DJNZ R5,D1MS

        RET

TABLE: DB 3FH,06H,5BH,4FH,66H,6DH,7DH;共陰字碼表

        DB 07H,7FH,6FH,77H,7CH,39H,5EH

        DB 79H,71H,76H,73H,3EH,00H

           END