sjpx.asm

基于89s51的一通用平台

;(6) 实验六:数据排序实验程序
;文件名称: SJPX.ASM

		ORG 0000H
PXCX:		MOV 	R3,#50H
QL4:		MOV 	A,R3		;指针送R0
		MOV	R0,A
		MOV	R7,#0AH	;长度送R7
		CLR	00H		;标志位=0
		MOV	A,@R0
QL2:		INC	R0
		MOV	R2,A
		CLR	C
		MOV	22H,@R0
		CJNE	A,22H,QL3	;相等吗?
		SETB	C
QL3:		MOV	A,R2
		JC	QL1		;大于交换位置
		SETB	00H
		XCH	A,@R0
		DEC	R0
		XCH	A,@R0		;大于交换位置
		INC	R0
QL1:		MOV	A,@R0
		DJNZ	R7,QL2
		JB	00H,QL4	;一次循环中有继续交换
		SJMP	$		;没有交换退出
		END