数码管动态扫描

Question

各位汇编程序高手请帮忙看个程序，是数码管的动态扫描，我已经检查过很多次了，实属小弟实力有限，不知道哪里出现了错误，程序可以用keil生成hex文件。如果是按照程序的意思，应该是从00到99的循环，在keil上仿真是对的，但是我把它烧到Proteus上仿真数码管却出现了一个个乱码在走，一直不知道原因，请各位大哥帮个忙指出错误。
;************************************
P20 EQU P2.0;常数定义
P23 EQU P2.3
;************************************
ORG 0000H
AJMP MAIN
ORG 0100H
MAIN: MOV DPTR,#TAB
MOV R7, #00H;十位计数
MOV R2, #00H;个位计数
DSUP0:MOV R6,#00H;扫描速度计数
DSUP: MOV A,R2
MOVC A,@A+DPTR;取个位字模
MOV P0,A
CLR P20;十位
SETB P23;个位
LCALL YSH1S
MOV A,R7
MOVC A,@A+DPTR;取十位字模
MOV P0,A
SETB P20
CLR P23
LCALL YSH1S
INC R6;个十位轮流扫描
CJNE R6,#3FH,DSUP
INC R2
ACALL YSH1S
CJNE R2,#0AH,DSUP0;是否到10
INC R7
MOV R2,#00H
CJNE R7,#0AH,DSUP0;同上
AJMP MAIN;重启
;*************************************
;延时子程序
YSH1S: MOV R3,#01H
LOOP2: MOV R4,#028H
LOOP21:MOV R5,#05AH
XHD3: DJNZ R5,XHD3
DJNZ R4,LOOP21
DJNZ R3,LOOP2
RET
;**************************************
;共阳极段码
TAB: DB 0C0H;0
DB 0F9H;1
DB 0A4H;2
DB 0B0H;3
DB 099H;4
DB 092H;5
DB 082H;6
DB 0F8H;7
DB 080H;8
DB 090H;9
DB 088H;A
DB 083H;B
DB 0C6H;C
DB 0A1H;D
DB 086H;E
DB 08EH;F
END

Answer 1

帧扫描太快了(即R6的比较值太小了),而且每一位显示的时间又太长,应该每一位停留一毫秒就好了,你把R6的比较值3F加大一点看看