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