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

				SRT: 
				MOV 	A,R7
				MOV 	R5,A 			
				SRT1: 
				CLR 	F0 				
				MOV 	A,R5 		
				DEC 	A 				
				MOV 	R5,A 			
				MOV 	R2,A 			
				JZ 		SRT5 			
				MOV 	A,R0 			
				MOV 	R6,A
				SRT2: 
				MOV 	A,@R0 			
				MOV 	R3,A
				INC 		R0 				
				MOV 	A,@R0 			
				MOV 	R4,A
				CLR 	C
				SUBB 	A,R3 			
				JNC 		SRT4 			
				SETB 	F0 				
				MOV 	A,R3 			
				MOV 	@R0,A
				DEC 	R0
				MOV 	A,R4
				MOV 	@R0,A
				INC 		R0 				
				SRT4: 
				DJNZ 	R2,SRT2 			
				MOV 	A,R6 			
				MOV 	R0,A
				JB 		F0,SRT1 			
				SRT5: 
				RET 					
				END