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

MCS 51单片机实用子程序库 六 MCS-51单片机实用子程序库(六)2010年12月22日星期三14：44MCS-51单片机实用子程序库 (17)标号：FSQR功能：浮点数开平方(快速逼近算法) 入口条件：操作数在[R0]中。 出口信息：OV=0时，平方根仍在[R0]中，OV=1时，负数开平方出错。 影响资源：PSW、A、B、R2~R7堆栈需求：2字节 FSQR：MOV A,@R0 JNB ACC.7,SQR SETB OV；负数开平方，出错 RET SQR：INC R0 INC R0 MOV A,@R0 DEC R0 ORL A,@R0 DEC R0 JNZ SQ MOV@R0,#41H；尾数为零，不必运算 CLR OV RET SQ：MOV A,@R0 MOV C,ACC.6；将阶码扩展成8bit补码 MOV ACC.7,C INC A；加一 CLR C RRC A；除二 MOV@R0,A；得到平方根的阶码，回存之 INC R0；指向被开方数尾数的高字节 JC SQR0；原被开方数的阶码是奇数吗? MOV A,@R0；是奇数，尾数右规一次 RRC A MOV@R0,A INC R0 MOV A,@R0 RRC A MOV@R0,A DEC R0 SQR0：MOV A,@R0 JZ SQR9；尾数为零，不必运算 MOV R2,A；将尾数传送到R2R3中 INC R0 MOV A,@R0 MOV R3,A MOV A,R2；快速开方，参阅定点子程序说明 ADD A,#57H JC SQR2 ADD A,#45H JC SQR1 ADD A,#24H MOV B,#0E3H MOV R4,#80H SJMP SQR3 SQR1：MOV B,#0B2H MOV R4,#0A0H SJMP SQR3 SQR2：MOV B,#8DH MOV R4,#0D0H SQR3：MUL AB MOV A,B ADD A,R4 MOV R4,A MOV B,A MUL AB XCH A,R3 CLR C SUBB A,R3 MOV R3,A MOV A,B XCH A,R2 SUBB A,R2 MOV R2,A SQR4：SETB C MOV A,R4 RLC A MOV R6,A CLR A RLC A MOV R5,A MOV A,R3 SUBB A,R6 MOV B,A MOV A,R2 SUBB A,R5 JC SQR5 INC R4 MOV R2,A MOV R3,B SJMP SQR4 SQR5：MOV A,R4 XCH A,R2 RRC A MOV F0,C MOV A,R3 MOV R5,A MOV R4,#8 SQR6：CLR C MOV A,R3 RLC A MOV R3,A CLR C MOV A,R5 SUBB A,R2 JB F0,SQR7 JC SQR8 SQR7：MOV R5,A INC R3 SQR8：CLR C MOV A,R5 RLC A MOV R5,A MOV F0,C DJNZ R4,SQR6 MOV A,R3；将平方根的尾数回传到[R0]中 MOV@R0,A DEC R0 MOV A,R2 MOV@R0,A SQR9：DEC R0；数据指针回归原位 CLR OV；开方结果有效 RET (18)标号：FPLN功能：浮点数多项式计算 入口条件：自变量在[R0]中，多项式系数在调用指令之后，以40H结束。 出口信息：OV=0时，结果仍在[R0]中，OV=1时，溢出。 影响资源：DPTR、PSW、A、B、R2~R7、位1EH、1FH堆栈需求：4字节 FPLN：POP DPH；取出多项式系数存放地址 POP DPL XCH A,R0；R0、R1交换角色，自变量在[R1]中 XCH A,R1 XCH A,R0 CLR A；清第一工作区 MOV R2,A MOV R3,A MOV R4,A CLR 1FH PLN1：CLR A；读取一个系数，并装入第二工作区 MOVC A,@A+DPTR MOV C,ACC.7 MOV 1EH,C MOV C,ACC.6 MOV ACC.7,C MOV R5,A INC DPTR CLR A MOVC A,@A+DPTR MOV R6,A INC DPTR CLR A MOVC A,@A+DPTR MOV R7,A INC DPTR；指向下一个系数 MOV C,1EH；比较两个数符 RRC A XRL A,23H RLC A MOV F0,C；保存比较结果 LCALL AS1；进行代数加法运算 CLR A；读取下一个系数的第一个字节 MOVC A,@A+DPTR CJNE A,#40H,PLN2；是结束标志吗? XCH A,R0；运算结束，恢复R0、R1原来的角色 XCH A,