apx.asm

来自「恒科试验平台的所有程序代码」· 汇编 代码 · 共 29 行

;	“验证式”	实验四  数据排序实验

;用冒泡法进行数据排序
	ORG 0000H
	MOV R3,#50H
LOOP0:	MOV A,R3
	MOV R0,A		;指针送R0
	MOV R7,#0AH		;长度送R7
	CLR 00H		         ;标志位为0
	MOV A,@R0
LOOP1:	INC R0
	MOV R2,A
	CLR C
	MOV 22H,@R0
	CJNE A,22H,LOOP2	;相等吗?
	SETB C
LOOP2:	MOV A,R2
	JC LOOP3		;小于或等于不交换
	SETB 00H
	XCH A,@R0
	DEC R0
	XCH A,@R0
	INC R0			;大于交换位置
LOOP3:MOV A,@R0
	DJNZ R7,LOOP1
	JB 00H,LOOP0		;一次循环中有交换继续
LOOP:	SJMP LOOP		;无交换退出
	END