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