51单片机 数码管 显示子程序

DBUF EQU 30H ;置存储区首址
TEMP EQU 40H ;置缓冲区首址
ORG 00H
MOV 30H,#1 ;存入数据
MOV 31H,#6
MOV 32H,#8
MOV 33H,#1
MOV 34H,#6
MOV 35H,#8
MOV R0,#DBUF
MOV R1,#TEMP
MOV R2,#6 ;6位显示器
MOV DPTR,#DCODE ;置段码表首址
DP00: MOV A,@R0 ;取要显示的数据
MOVC A,@A+DPTR ;查表取段码
MOV @R1,A ;段码存入暂存器
INC R1
INC R0
DJNZ R2,DP00
DISP0: MOV R0,#TEMP ;显示子程序
MOV R1,#6 ;扫描6次
MOV R2,#01H ;决定数据动态显示方向
DP01: MOV A,@R0
MOV P0,A ;段码输出
MOV A,R2 ;取位码
MOV P1,A ;位码输出
ACALL DELAY ;调用延时
MOV A,R2
RL A
MOV R2,A
INC R0
DJNZ R1,DP01
SJMP DISP0
DCODE: DB 3FH,06H,5BH,4FH,66H
DB 6DH,7DH,07H,7FH,6FH
DELAY: MOV R4,#03H ;延时子程序
AA1: MOV R5,#0FFH
AA: DJNZ R5,AA
DJNZ R4,AA1
RET
END