单片机驱动数码管简单小实验.doc

按上图接线，进行七段数码管的显示小实验：数码管从0-9循环显示。
汇编源程序如下（written by 没缙殿 ）
ORG 00H
JMP MAIN
ORG 30H
MAIN:
MOV DPTR,#TABLE ;地址赋给dptr
MOV R0,#10 ;控制循环次数为10，即是0-9
START:
MOV A,#0 ;
MOVC A,@A+DPTR ;取表中的数据
MOV P0,A ;输出
INC DPTR ;修改指针，指向表中下一个数据
CALL DELAY ;调用延时子程序
DJNZ R0,START ;没显示完，跳转继续显示
JMP MAIN ;显示完10个数字，返回，重新显示
DELAY: ;延时子程序定义
MOV R1,#100
D1: MOV R2,#100
D2: MOV R3,#50
DJNZ R3,$
DJNZ R2,D2
DJNZ R1,D1
RET
TABLE： ;7段码显示
DB 01000000B
DB 01111001B
DB 00100100B
DB 00110000B
DB 00011001B
DB 00010010B
DB 00000010B
DB 01111000B
DB 00000000B
DB 00010000B
END