8051用汇编语言将0～9这十个数循环送P1口七段LED上循环显示 。求代码

8051用汇编语言将0～9这十个数循环送P1口七段LED上循环显示 。求代码

ORG 0000H
JMP BEGIN
ORG 0030H
TABLE:; 共阴极数码管显示代码表
DB3FH,06H,5BH,4FH,66H ;01234
DB6DH,7DH,07H,7FH,6fh ;56789
DELAY:MOV R5,#20
LOOP4:MOV R6,#50H;延时20x20ms
LOOP5:MOV R7,#100
DJNZR7,$
DJNZR6,LOOP5
DJNZR5,LOOP4
RET
;---------------------------------------
BEGIN:
MOV R4,#0

MOV A,R4
AGAIN:MOV DPTR,#TABLE
MOVCA,@A+DPTR
MOV P1,A
LCALL DELAY;调用延时子程序

INC R4

CJNE R4,#10,AGAIN

MOV R4,#0

SJMPAGAIN
END

采纳答案的程序有错。
下列程序可满足题目要求：
ORG 0000H
MOV 0AH, #3FH
MOV 09H, #06H
MOV 08H, #5BH
MOV 07H, #4FH
MOV 06H, #66H
MOV 05H, #6DH
MOV 04H, #7DH
MOV 03H, #07H
MOV 02H, #7FH
MOV 01H, #6FH
LP0:MOV R0, #0AH
LP1:MOV P1, @R0
DJNZ30H, $
DJNZ31H, $ - 3
DJNZR0, LP1
SJMPLP0
END