汇编写程序果然不是一般般的麻烦~小小的冒泡居然调试了一节课
不过终于成功了
我们班第一个调试完成的~~!
MAIN: MOV R3,#0BH
ACALL PAIXU
SJMP $
PAIXU:MOV A,R3
MOV R2,A
MOV R0,#50H
MOV A,R0
MOV R1,A
INC R1
LOOP: CLR F0
MOV A,@R0
MOV B,A
MOV A,@R1
CJNE A,B,NEXT
SJMP NOCHA
NEXT: JNC NOCHA
SETB F0
MOV @R0,A
XCH A,B
MOV @R1,A
NOCHA:INC R0
INC R1
DJNZ R2,LOOP
JNB F0,EXIT
DJNZ R3,PAIXU
EXIT: RET
END
ACALL PAIXU
SJMP $
PAIXU:MOV A,R3
MOV R2,A
MOV R0,#50H
MOV A,R0
MOV R1,A
INC R1
LOOP: CLR F0
MOV A,@R0
MOV B,A
MOV A,@R1
CJNE A,B,NEXT
SJMP NOCHA
NEXT: JNC NOCHA
SETB F0
MOV @R0,A
XCH A,B
MOV @R1,A
NOCHA:INC R0
INC R1
DJNZ R2,LOOP
JNB F0,EXIT
DJNZ R3,PAIXU
EXIT: RET
END