6.3.1插入排序.txt

<mcs-51单片机应用开发实用子程序>书上的程序

DATA	EQU		20H				
N		EQU		8				
ISRT:	
MOV	DPTR,#LIST				
MOV	R0,#DATA
MOV	R2,#N
CPY:	
CLR		A
MOVC	A,@A+DPTR
MOV	@R0,A
INC		R0
INC	DPTR
DJNZ	R2,CPY
LCALL	INSSORT					
STOP:	
LJMP	STOP
LIST:	
DB		53H,87H,12H,9AH
DB		2FH,3CH,0A8H,0BCH
INSSRT:
MOV	R3,#1					
MOV	R2,#N-1					
LOOP0:	
MOV	A,R3						
MOV	R4,A						
ADD		A,#DATA					
MOV	R0,A						
DEC		A						
MOV	R1,A						
MOV	B,@R0					
LOOP1:	
MOV	A,@R1					
SETB	C
SUBB	A,B						
JC		LOOP2					
MOV	A,@R1					
MOV	@R0,A					
DEC		R0						
DEC		R1
DJNZ	R4,LOOP1					
LOOP2:	
MOV	@R0,B					
INC		R3						
DJNZ	R2,LOOP0					
RET