bcd shift.asm

来自「proteus实例集锦」· 汇编 代码 · 共 21 行

ORG		00H
	   	MOV		R7,#03H
		MOV		R0,#30H
		MOV		30H,#47H
		MOV		31H,#36H
		MOV		32H,#21H
BRLN: 	MOV 	A,R7			;取字节数至R2中 
		MOV 	R2,A 
		ADD 	A,R0			;初始化数据指针 
		MOV 	R0,A 
		MOV 	R3,#0			;工作单元初始化 
BRL1: 	DEC 	R0				;调整数据指针 
		MOV 	A,@R0			;取一字节 
		SWAP 	A				;交换十进制高低位 
		MOV 	@R0,A			;存回 
		MOV 	A,R3			;取低字节移出的十进制高位 
		XCHD 	A,@R0			;换出本字节的十进制高位 
		MOV 	R3,A			;保存本字节的十进制高位 
		DJNZ 	R2,BRL1			;处理完所有字节 
		END