ORG 1000H
MOV R0,#20H
MOV R1,#10
LOOP:MOV A,R1
MOV @R0,A
INC R0
DJNZ R1,LOOP
MAOPAO:MOV R0,#20H
MOV R4,#00
MOV R3,#00
MOV R5,#00
MOV R6,#09
MOV R7,#09
LOOP1:MOV A,@R0
MOV R3,A
MOV A,R0
MOV R1,A
INC R0
MOV A,R3
SUBB A,@R0
INC R4
JNC LOOP2
AJMP LOOP1
LOOP2:MOV A,R3
XCH A,@R0
MOV @R1,A
MOV A,R4
SUBB A,R7
JNC L00P3
AJMP LOOP1
L00P3:MOV A,R5
SUBB A,#08
JC LOOP5
JNC LOOP4
LOOP5:MOV R0,#29H
INC R5
MOV A,R0
SUBB A,R5
DEC R7
MOV R4,#00
MOV R6,A
MOV R0,#20H
AJMP LOOP1
LOOP4:END |