数码管扫描程序（采用数据表格）

CNT EQU 30H ;赋值指令：给标号CNT赋值，标号CNT=30H

ORG 0000H
MOV P1,3FH

;刚开始的数据恢复程序（延时）
START: MOV R1,#00H
L0: DJNZ R1,L0
MOV SP,#50H

MOV CNT,#00H ;计数器先清零
LOOP: MOV A,CNT ;把CNT(地址)中的数（存的是程序表中的地址）付给A
MOV DPTR,#TABLE ;定义字形表的起始地址
MOVC A,@A+DPTR ;TABLE为表的起始地址
CALL OUTPUT ;跳转到输出程序
INC CNT ;计数器加一
MOV A,CNT ;重新把CNT放在A中
CJNE A,#10,LOOP ;比较不相等转移指令，如果数码管显示过9后，就不再转移了
MOV CNT,#00H ;数码管显示9后，从新使计数器记0
SJMP LOOP ;重新循环

;程序中的数据表格,DB为定义字节指令（从指定的地址开始，在程序存储器的连续单元中定义字节数据）
TABLE: DB 3FH ;0
DB 06H ;1
DB 5BH ;2
DB 4FH ;3
DB 66H ;4
DB 6DH ;5
DB 7DH ;6
DB 27H ;7
DB 7FH ;8
DB 6FH ;9

;输出函数
OUTPUT: PUSH PSW
CPL A ;取反指令
MOV P1,A
CALL DELAY
POP PSW
RET

;延时函数，延时125ms
DELAY: PUSH PSW
MOV R0,#00H
L1: MOV R1,#00H
L2:DJNZ R1,L2
DJNZ R0,L1
POP PSW
RET

END