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

MCS-51单片机实用子程序库（二） （１１） 标号： ＤＩＶＳ 功能：双字节二进制有符号数除法（补码） 入口条件：被除数在R2、R3、R4、R5中，除数在R6、R7中。出口信息：OV=0时商在R2、R3中，OV=1时溢出。影响资源：PSW、A、B、R1～R7 堆栈需求： ５字节DIVS: LCALL MDS ；计算结果的符号和两个操作数的绝对值PUSH PSW ；保存结果的符号LCALL DIVD ；计算两个绝对值的商JNB OV,DVS1 ；溢出否？POP ACC ；溢出，放去结果的符号，保留溢出标志RETDVS1: POP PSW ；未溢出，取出结果的符号MOV R4,#0MOV R5,#0MDSE: JB F0,MDS2 ；用补码表示结果CLR OV ；结果为正，原码即补码，计算成功RETMDS: CLR F0 ；结果符号初始化MOV A,R6 ；判断第二操作数的符号JNB ACC.7,MDS1；为正，不必处理CPL F0 ；为负，结果符号取反XCH A,R7 ；第二操作数取补，得到其绝对值CPL AADD A,#1XCH A,R7CPL AADDC A,#0MOV R6,AMDS1: MOV A,R2 ；判断第一操作数或运算结果的符号JNB ACC.7,MDS3；为正，不必处理CPL F0 ；为负，结果符号取反MDS2: MOV A,R5 ；求第一操作数的绝对值或运算结果的补码CPL AADD A,#1MOV R5,AMOV A,R4CPL AADDC A,#0MOV R4,AMOV A,R3CPL AADDC A,#0MOV R3,AMOV A,R2CPL AADDC A,#0MOV R2,AMDS3: CLR OV ；运算成功RET　（１２） 标号： ＳＨ２ 功能：双字节二进制无符号数开平方（快速） 入口条件：被开方数在R2、R3中。出口信息：平方根仍在R2、R3中，整数部分的位数为原数的一半，其余为小数。影响资源：PSW、A、B、R2～R7 堆栈需求： ２字节SH2: MOV A,R2ORL A,R3JNZ SH20RET ；被开方数为零，不必运算SH20: MOV R7,#0 ；左规次数初始化MOV A,R2SH22: ANL A,#0C0H ；被开方数高字节小于４０Ｈ否？JNZ SQRH ；不小于４０Ｈ，左规格化完成，转开方过程CLR C ；每左规一次，被开方数左移两位MOV A,R3RLC AMOV F0,CCLR CRLC AMOV R3,AMOV A,R2MOV ACC.7,CMOV C,F0RLC ARLC AMOV R2,AINC R7 ；左规次数加一SJMP SH22 ；继续左规　（１３） 标号： ＳＨ４ 功能：四字节二进制无符号数开平方（快速） 入口条件：被开方数在R2、R3、R4、R5中。出口信息：平方根在R2、R3中，整数部分的位数为原数的一半，其余为小数。影响资源：PSW、A、B、R2～R7 堆栈需求： ２字节SH4: MOV A,R2ORL A,R3ORL A,R4ORL A,R5JNZ SH40RET ；被开方数为零，不必运算SH40: MOV R7,#0 ；左规次数初始化MOV A,R2SH41: ANL A,#0C0H ；被开方数高字节小于４０Ｈ否？JNZ SQRH ；不小于４０Ｈ，左规格化完成MOV R6,#2 ；每左规一次，被开方数左移两位SH42: CLR C ；被开方数左移一位MOV A,R5RLC AMOV R5,AMOV A,R4RLC AMOV R4,AMOV A,R3RLC AMOV R3,AMOV A,R2RLC AMOV R2,ADJNZ R6,SH42 ；被开方数左移完两位INC R7 ；左规次数加一SJMP SH41 ；继续左规SQRH: MOV A,R2 ；规格化后高字节按折线法分为三个区间ADD A,#57HJC SQR2ADD A,#45HJC SQR1ADD A,#24HMOV B,#0E3H ；第一区间的斜率MOV R4,#80H ；第一区间的平方根基数SJMP SQR3SQR1: MOV B,#0B2H ；第二区间的斜率MOV R4,#0A0H；第二区间的平方根基数SJMP SQR3SQR2: MOV B,#8DH ；第三区间的斜率MOV R4,#0D0H；第三区间的平方根基数SQR3: MUL AB ；与区间基点的偏移量乘区间斜率MOV A,BADD A,R4 ；累加到平方根的基数上MOV R4,A