hdbx2.asm

来自「通过调试的有用的单片机控制程序」· 汇编 代码 · 共 29 行

HBD2:	MOV	R4,#4		;四位十进制码
HBD3:	MOV	A,R3		;原小数扩大十倍
	MOV     B,#10
	MUL	AB
	MOV	R3,A
	MOV	R5,B
	MOV	A,R2
	MOV	B,#10
	MUL	AB
	ADD	A,R5
	MOV	R2,A
	CLR	A
	ADDC	A,B
	PUSH	ACC		;保存溢出的一位十进制码
	DJNZ	R4,HBD3		;计算完四位十进制码
	POP	ACC		;取出万分位
	MOV	R3,A
	POP	ACC		;取出千分位
	SWAP	A
	ORL	A,R3		;拼装成低字节ＢＣＤ码小数
	MOV	R3,A
	POP	ACC		;取出百分位
	MOV	R2,A
	POP	ACC		;取出十分位
	SWAP	A
	ORL	A,R2		;拼装成高字节ＢＣＤ码小数
	MOV	R2,A	
	RET