EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
MCS-51单片机实用子程序库39 G% T2 j8 C. v$ p
* a7 K; t$ _$ T/ M4 t- i D& [
Q# D; x' Y7 N(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 ;回传结果
0 k. s- }* l0 C$ x: J |