c语言bcd码转浮点数,功能：浮点BCD码转换成格式化浮点数

功能：浮点BCD码转换成格式化浮点数

入口条件：浮点ＢＣＤ码操作数在[R0]中。

出口信息：转换成的格式化浮点数仍在[R0]中。

影响资源：PSW、A、B、R2～R7、位1DH～1FH 堆栈需求：６字节

BTOF: INC R0 ；判断是否为零。

INC R0

MOV A,@R0

MOV R7,A

DEC R0

MOV A,@R0

MOV R6,A

DEC R0

ORL A,R7

JNZ BTF0

MOV @R0,#41H；为零，转换结束。

RET

BTF0: MOV A,@R0

MOV C,ACC.7

MOV 1DH,C ；保存数符。

CLR 1FH ；以绝对值进行转换。

MOV C,ACC.6 ；扩充阶码为八位。

MOV ACC.7,C

MOV @R0,A

JNC BTF1

ADD A,#19 ；是否小于１Ｅ－１９？

JC BTF2

MOV @R0,#41H；小于１Ｅ－１９时以０计。

INC R0

MOV @R0,#0

INC R0

MOV @R0,#0

D