汇编语言流水灯作业，全亮-delay-全灭-delay-流水灯闪烁一次-p2接两个数码

Question

汇编语言流水灯作业，全亮-delay-全灭-delay-流水灯闪烁一次-p2接两个数码管(7seg-bcd)，显示0-99
要求Isis仿真可以跑出，仿真做好了，但是程序不会搞。

Answer 1

DAT EQU 30H
SCANLED EQU 32H
FSDAT EQU 33H
ORG 0000H
LJMP MAIN
ORG 000BH
LJMP T0ISR
ORG 0030H
MAIN:
MOV SP,#5FH
MOV TMOD,#01H
MOV TH0,#0F4H
MOV TL0,#048H
MOV P2,#00H
MOV SCANLED,#0
MOV 30H,#0
MOV 31H,#0
MOV FSDAT,#50
SETB EA
SETB ET0
SETB TR0
MOV R7,#0
MOV R6,#0FEH
LOOP:
MOV P1,#00H
LCALL DELAY
MOV P1,#0FFH
LCALL DELAY
MOV R5,#8
LOOP1:
MOV A,R6
MOV P1,A
RL A
MOV R6,A
LCALL DELAY
INC R7
CJNE R7,#100,LP1
MOV R7,#0
LP1:
MOV A,#R7
MOV B,#10
DIV AB
MOV 30H,A
MOV 31H,B
DJNZ R5,LOOP1
SJMP LOOP
;--------------------
T0ISR:
PUSH ACC
CLR TR0
MOV TH0,#0F4H
MOV TL0,#48H
SETB TR0
MOV DPTR,#LEDTAB1
T000:
MOV R0,#DAT
MOV A,SCANLED
ADD A,R0
MOV R0,A
MOV A,SCANLED
JNZ T001
MOV P3,#02H
SJMP T0DIS
T001:
MOV P3,#01H
T0DIS:
MOV A,@R0
MOVC A,@A+DPTR
CPL A
MOV P2,A
INC SCANLED
MOV A,SCANLED
ANL A,#01H
MOV SCANLED,A
POP ACC
RETI
;--------------------
LEDTAB1:
DB 0C0H ;"0" 00H
DB 0F9H ;"1" 01H
DB 0A4H ;"2" 02H
DB 0B0H ;"3" 03H
DB 99H ;"4" 04H
DB 92H ;"5" 05H
DB 82H ;"6" 06H
DB 0F8H ;"7" 07H
DB 80H ;"8" 08H
DB 90H ;"9" 09H
DB 88H ;"A" 0AH
DB 83H ;"B" 0BH
DB 0C6H ;"C" 0CH
DB 0A1H ;"D" 0DH
DB 86H ;"E" 0EH
DB 8EH ;"F" 0FH
DB 0FFH ;" " 10H
;--------------------
END