MCS－51单片机应用开发实用子程序.rar

				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