bcd add.asm

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

		ORG		00H
		MOV		R7,#03H
		MOV		R0,#30H
		MOV		R1,#34H

		MOV	30H,#68H
		MOV	31H,#55H
		MOV	32H,#98H
		MOV	34H,#55H
		MOV	35H,#23H
		MOV	36H,#64H

BCDA: 	MOV 	A,R7		;取字节数至R2中 
		MOV 	R2,A 
		ADD 	A,R0		;初始化数据指针 
		MOV 	R0,A 
		MOV 	A,R2 
		ADD 	A,R1 		;高位字节相加
		MOV 	R1,A 
		CLR 	C 
BCD1: 	DEC 	R0			;调整数据指针 
		DEC 	R1 
		MOV 	A,@R0 
		ADDC 	A,@R1		;按字节相加 
		DA 		A			;十进制调整 
		MOV 	@R0,A		;和存回[R0]中 
		DJNZ 	R2,BCD1		;处理完所有字节 
		SJMP 	$
		END