data sorting.asm

来自「Proteus在MCS-51％26ARM7系统中的应用百例 Proteus在M」· 汇编 代码 · 共 28 行

	ORG  	00H
	SIZE  	EQU		10  	;数据个数
	ARRAY  	EQU 	50H   	;数据起始地址
	FLAG  	BIT   	00H   	;交换标志
SORT:
	MOV  	R0,#ARRAY 		;首地址输入到R0
	MOV  	R7,#SIZE-1	 	;数据个数减一输入到R7
	CLR  	FLAG   			;交换标志置零
COON:
	MOV  	A,@R0   		;将首地址中的内容读到A
	MOV   	R2,A   			;将数据写入到R2中
	INC  	R0  			;首地址加一
	MOV  	B,@R0 			;将首地址中的内容读到B
	CJNE  	A,B,NOTEQUAL	;不相等则跳转
	SJMP  	NEXT
NOTEQUAL:
	JC  	NEXT   			;前小后大,不交换
	SETB  	FLAG      		;前大后小,置交换标志                
	XCH  	A,@R0     		;交换
	DEC  	R0          	;R0减1
	XCH  	A,@R0
	INC   	R0
NEXT:		  
	DJNZ   	R7,COON		;R7不等于0时转到GOON(即没有交换完)
	JB  	FLAG,SORT	;FLAG=1时转到SORT使FLAG清零
	SJMP   	$
	END