程序清單（匯編）：

;2011 04 05 D:\DPJ\數(shù)碼管段顯\數(shù)碼管段顯2.asm
S0 BIT P3.7
ORG 00H
AJMP MAIN
ORG 0BH
AJMP T0INT
ORG 30H
MAIN:
MOV TMOD,#01H
MOV TH0,#3CH
MOV TL0,#0B0H
SETB EA
SETB ET0
SETB TR0
MOV R0,#10
MOV DPTR,#TAB

MAIN1:
ACALL DISP
JB S0,$-2
ACALL DISP
JNB S0,$-2
INC R1
INC R1
CJNE R1,#16,MAIN1
MOV R1,#0
AJMP  MAIN1

DISP:
MOV A,R1
MOVC A,@A+DPTR
MOV P2,A
CLR P3.0
ACALL D1MS
SETB P3.0
INC R1
JNB F0,RT
CLR F0
MOV A,R1
MOVC A,@A+DPTR
MOV P2,A
CLR P3.1
ACALL D1MS
SETB P3.1
RT:

MOV A,R1
DEC A
MOV R1,A
RET

T0INT:
MOV TH0,#3CH
MOV TL0,#0B0H
DJNZ R0,RTI
MOV R0,#10
SETB F0
RTI:
RETI

D1MS:
MOV R7,#25
MOV R6,#20
DJNZ R6,$
DJNZ R7,$-4
RET

TAB:
        
DB      077H;A
DB      001H;A
DB      07CH;b
DB      002H;b
DB      039H;C
DB      004H;C
DB      05EH;d
DB      008H;d
DB      079H;E
DB      010H;E
DB      071H;F
DB      020H;F
DB      06FH;g
DB      040H;g
DB      076H;H
DB      080H;H

END

程序清單（51c）：

//2011 04 05  D:\DPJ_C\數(shù)碼管段顯\數(shù)碼管段顯c2.c