MCS-51单片机实用子程序库3

wu68aq

MCS-51单片机实用子程序库3


- j' z2 t" f& F4 H, ?- w8 C, D

(15) 标号： FRCP 功能：浮点倒数函数

入口条件：操作数在[R0]中。

出口信息：OV=0时，结果仍在[R0]中，OV=1时，溢出。

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

FRCP: MOV A,@R0

MOV C,ACC.7

MOV 1FH,C ;保存数符

MOV C,ACC.6 ;绝对值传送到第二工作区

MOV ACC.7,C

MOV R5,A

INC R0

MOV A,@R0

MOV R6,A

INC R0

MOV A,@R0

MOV R7,A

DEC R0

DEC R0

ORL A,R6

JNZ RCP

SETB OV ;零不能求倒数，设立溢出标志

RET

RCP: MOV A,R6

JB ACC.7,RCP2;操作数格式化否?

CLR C ;格式化之

MOV A,R7

RLC A

MOV R7,A

MOV A,R6

RLC A

MOV R6,A

DEC R5

SJMP RCP

RCP2: MOV R2,#1 ;将数值1.00传送到第一工作区

MOV R3,#80H

MOV R4,#0

LCALL DIV3 ;调用工作区浮点除法，求得倒数

LJMP MOV0 ;回传结果

游客，如果您要查看本帖隐藏内容请回复

Mhza

谢谢楼主分享