5.1.2 bcd码移位.txt

来自「《MCS-51单片机应用开发实用子程序》配套源代码包含了常用的单片机开发子程序」· 文本 代码 · 共 17 行

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