MCS-51单片机实用子程序库6.docVIP

MCS-51单片机实用子程序库（六） （１７） 标号： ＦＳＱＲ 功能：浮点数开平方（快速逼近算法） 入口条件：操作数在[R0]中。出口信息：OV=0时，平方根仍在[R0]中，OV=1时，负数开平方出错。影响资源：PSW、A、B、R2～R7 堆栈需求： ２字节FSQR: MOV A,@R0JNB ACC.7,SQRSETB OV ；负数开平方，出错RETSQR: INC R0INC R0MOV A,@R0DEC R0ORL A,@R0DEC R0JNZ SQMOV @R0,#41H；尾数为零，不必运算CLR OVRETSQ: MOV A,@R0MOV C,ACC.6 ；将阶码扩展成８ｂｉｔ补码MOV ACC.7,CINC A ；加一CLR CRRC A ；除二MOV @R0,A ；得到平方根的阶码，回存之INC R0 ；指向被开方数尾数的高字节JC SQR0 ；原被开方数的阶码是奇数吗？MOV A,@R0 ；是奇数，尾数右规一次RRC AMOV @R0,AINC R0MOV A,@R0RRC AMOV @R0,ADEC R0SQR0: MOV A,@R0JZ SQR9 ；尾数为零，不必运算MOV R2,A ；将尾数传送到R2R3中INC R0MOV A,@R0MOV R3,AMOV A,R2 ；快速开方，参阅定点子程序说明ADD A,#57HJC SQR2ADD A,#45HJC SQR1ADD A,#24HMOV B,#0E3HMOV R4,#80HSJMP SQR3SQR1: MOV B,#0B2HMOV R4,#0A0HSJMP SQR3SQR2: MOV B,#8DHMOV R4,#0D0HSQR3: MUL ABMOV A,BADD A,R4MOV R4,AMOV B,AMUL ABXCH A,R3CLR CSUBB A,R3MOV R3,AMOV A,BXCH A,R2SUBB A,R2MOV R2,ASQR4: SETB CMOV A,R4RLC AMOV R6,ACLR ARLC AMOV R5,AMOV A,R3SUBB A,R6MOV B,AMOV A,R2SUBB A,R5JC SQR5INC R4MOV R2,AMOV R3,BSJMP SQR4SQR5: MOV A,R4XCH A,R2RRC AMOV F0,CMOV A,R3MOV R5,AMOV R4,#8SQR6: CLR CMOV A,R3RLC AMOV R3,ACLR CMOV A,R5SUBB A,R2JB F0,SQR7JC SQR8SQR7: MOV R5,AINC R3SQR8: CLR CMOV A,R5RLC AMOV R5,AMOV F0,CDJNZ R4,SQR6MOV A,R3 ；将平方根的尾数回传到[R0]中MOV @R0,ADEC R0MOV A,R2MOV @R0,ASQR9: DEC R0 ；数据指针回归原位CLR OV ；开方结果有效RET （１８） 标号： ＦＰＬＮ 功能：浮点数多项式计算 入口条件：自变量在[R0]中，多项式系数在调用指令之后，以４０Ｈ结束。出口信息：OV=0时，结果仍在[R0]中，OV=1时，溢出。影响资源：DPTR、PSW、A、B、R2～R7、位1EH、1FH 堆栈需求： ４字节FPLN: POP DPH ；取出多项式系数存放地址POP DPLXCH A,R0 ；R0、R1交换角色，自变量在[R1]中XCH A,R1XCH A,R0CLR A ；清第一工作区MOV R2,AMOV R3,AMOV R4,ACLR 1FHPLN1: CLR A ；读取一个系数，并装入第二工作区MOVC A,@A+DPTRMOV C,ACC.7MOV 1EH,CMOV C,ACC.6MOV ACC.7,CMOV R5,AINC DPTRCLR AMOVC A,@A+DPTRMOV R6,AINC DPTRCLR AMOVC A,@A+DPTRMOV R7,AINC DPTR ；指向下一个系数MOV C,1EH ；比较两个数符RRC AXRL A,23HRLC AMOV F0,C ；保存比较结果LCALL AS1 ；进行代数加法运算CLR A ；读取下一个系数的第一个字节MOVC A,@A+DPTRCJNE A,#40H,PLN2；是结束标志吗？XCH A,R0 ；运算结束，恢复R0、R1原来的角色XCH