BCDRL10: 
MOV 	A,R7 				
MOV 	R2,A
ADD 	A,R0 				
MOV 	R0,A
MOV 	R3,#0 				
BCDRL1: 
DEC 	R0 					
MOV 	A,@R0 				
SWAP 	A 					
MOV 	@R0,A 				
MOV 	A,R3 				
XCHD 	A,@R0 				
MOV 	R3,A 				
DJNZ 	R2,BCDRL1 			
RET