bcd sub.asm

Proteus在MCS-51％26ARM7系统中的应用百例 Proteus在MCS-51％26ARM7系统中的应用百例

		ORG		00H
		MOV		30H,#57H
		MOV		31H,#82H
		MOV		32H,#64H	;设置被减数为578264
		MOV		34H,#38H
		MOV		35H,#65H
		MOV		36H,#29H	;设置减数为386529
		MOV		R7,#03H
		MOV		R0,#30H
		MOV		R1,#34H
BCDB: 	LCALL 	NEG1		;减数[R1]十进制取补 
		LCALL 	BCDA		;按多字节ＢＣＤ码加法处理 
		CPL 	C			;将补码加法的进位标志转换成借位标志 
		MOV 	F0,C		;保护借位标志 
		LCALL 	NEG1		;恢复减数[R1]的原始值 
		MOV 	C,F0		;恢复借位标志 
		SJMP	$ 
NEG1: 	MOV 	A,R0		;[R1]十进制取补子程序入口 
		XCH 	A,R1		;交换指针 
		XCH 	A,R0 
		LCALL 	NEG			;通过[R0]实现[R1]取补 
		MOV 	A,R0 
		XCH 	A,R1		;换回指针 
		XCH 	A,R0 
		RET 
NEG: 	MOV 	A,R7		;取（字节数减一）至R2中 
		DEC 	A 
		MOV 	R2,A 
		MOV 	A,R0		;保护指针 
		MOV 	R3,A 
NEG0: 	CLR 	C 
		MOV 	A,#99H 
		SUBB 	A,@R0		;按字节十进制取补 
		MOV 	@R0,A		;存回[R0]中 
		INC 	R0			;调整数据指针 
		DJNZ 	R2,NEG0		;处理完（R2）字节 
		MOV 	A,#9AH		;最低字节单独取补 
		SUBB 	A,@R0 
		MOV 	@R0,A 
		MOV 	A,R3		;恢复指针 
		MOV 	R0,A 
		RET 
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		;处理完所有字节 
		RET
		END