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；溢出，放去结果的符号，保留溢出标志 RET DVS1: POP PSW；未溢出，取出结果的符号 MOV R4,#0 MOV R5,#0 MDSE: JB F0,MDS2；用补码表示结果 CLR OV；结果为正，原码即补码，计算成功 RET MDS: CLR F0；结果符号初始化 MOV A,R6；判断第二操作数的符号 JNB ACC.7,MDS1；为正，不必处理 CPL F0；为负，结果符号取反 XCH A,R7；第二操作数取补，得到其绝对值 CPL A ADD A,#1 XCH A,R7 CPL A ADDC A,#0 MOV R6,A MDS1: MOV A,R2；判断第一操作数或运算结果的符号 JNB ACC.7,MDS3；为正，不必处理 CPL F0；为负，结果符号取反 MDS2: MOV A,R5；求第一操作数的绝对值或运算结果的补码 CPL A ADD A,#1 MOV R5,A MOV A,R4 CPL A ADDC A,#0 MOV R4,A MOV A,R3 CPL A ADDC A,#0 MOV R3,A MOV A,R2 CPL A ADDC A,#0 MOV R2,A MDS3: CLR OV；运算成功 RET

（１２） 标号： ＳＨ２ 功能：双字节二进制无符号数开平方（快速） 入口条件：被开方数在 R2、R3 中。 出口信息：平方根仍在 R2、R3 中，整数部分的位数为原数的一半，其余为小数。 影响资源：PSW、A、B、R2～R7 堆栈需求： ２字节 SH2: MOV A,R2 ORL A,R3 JNZ SH20 RET；被开方数为零，不必运算 SH20: MOV R7,#0；左规次数初始化 MOV A,R2 SH22: ANL A,#0C0H；被开方数高字节小于４０Ｈ否。

JNZ SQRH；不小于４０Ｈ，左规格化完成，转开方过程 CLR C；每左规一次，被开方数左移两位 MOV A,R3 RLC A MOV F0,C CLR C RLC A MOV R3,A MOV A,R2 MOV ACC.7,C MOV C,F0 RLC A RLC A MOV R2,A INC R7；左规次数加一 SJMP SH22；继续左规

（１３） 标号： ＳＨ４ 功能：四字节二进制无符号数开平方（快速） 入口条件：被开方数在 R2、R3、R4、R5 中。 出口信息：平方根在 R2、R3 中，整数部分的位数为原数的一半，其余为小数。 影响资源：PSW、A、B、R2～R7 堆栈需求： ２字节 SH4: MOV A,R2 ORL A,R3 ORL A,R4 ORL A,R5 JNZ SH40 RET；被开方数为零，不必运算 SH40: MOV R7,#0；左规次数初始化 MOV A,R2 SH41: ANL A,#0C0H；被开方数高字节小于４０Ｈ否。

JNZ SQRH；不小于４０Ｈ，左规格化完成 MOV R6,#2；每左规一次，被开方数左移两位 SH42: CLR C；被开方数左移一位 MOV A,R5 RLC A MOV R5,A MOV A,R4 RLC A MOV R4,A MOV A,R3 RLC A MOV R3,A MOV A,R2 RLC A MOV R2,A DJNZ R6,SH42；被开方数左移完两位 INC R7；左规次数加一 SJMP SH41；继续左规 SQRH: 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；求偏移量（存放在 R2R3 中） CLR C SUBB A,R3 MOV R3,A MOV A,R2 SUBB A,B MOV R2,A SQR4: SETB C；用减奇数法校正一个字节的平方根 MOV A,R4；当前平方根的两倍加一存入 R5R6 中 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；将一个字节精度的根存入 R2 XCH A,R2 RRC A MOV F0,C；保存最终偏移量的最高位 MOV A,R3 MOV R5,A；将最终偏移量的低八位存入 R5 中 MOV R4,#8；通过（R5R6／R2）求根的低字节 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；根的第二字节计算完，在 R3 中 MOV A,R7；取原被开方数的左规次数 JZ SQRE；未左规，开方结束 SQR9: CLR C；按左规次数右移平方根，得到实际根 MOV A,R2 RRC A MOV R2,A MOV A,R3 RRC A MOV R3,A DJNZ R7,SQR9 SQRE: RET

（１４） 标号： ＨＡＳＣ 功能：单字节十六进制数转换成双字节 ASCII 码入口条件：待转换的单字节十六进制数在累加器 A 中。 出口信息：高四位的 ASCII 码在 A 中，低四位的 ASCII 码在 B 中。 影响资源：PSW、A、B 堆栈需求： ４字节 HASC: MOV B,A；暂存待转换的单字节十六进制数 LCALL HAS1；转换低四位 XCH A,B；存放低四位的 ASCII 码 SWAP A；准备转换高四位 HAS1: ANL A,#0FH；将累加器的低四位转换成 ASCII 码 ADD A,#90H DA A ADDC A,#40H DA A RET

（１５） 标号： ＡＳＣＨ 功能：ASCII 码转换成十六进制数入口条件：待转换的 ASCII 码（30H～39H 或 41H～46H）在 A 中。 出口信息：转换后的十六进制数（00H～0FH）仍在累加器 A 中。 影响资源：PSW、A 堆栈需求： ２字节 ASCH: CLR C SUBB A,#30H JNB ACC.4,ASH1 SUBB A,#7 ASH1: RET

（１６） 标号：ＨＢＣＤ 功能：单字节十六进制整数转换成单字节ＢＣＤ码整数入口条件：待转换的单字节十六进制整数在累加器 A 中。 出口信息：转换后的ＢＣＤ码整数（十位和个位）仍在累加器 A 中，百位在 R3 中。 影响资源：PSW、A、B、R3 堆栈需求： ２字节 HBCD: MOV B,#100；分离出百位，存放在 R3 中 DIV AB MOV R3,A MOV A,#10；余数继续分离十位和个位 XCH A,B DIV AB SWAP A ORL A,B；将十位和个位拼装成ＢＣＤ码 RET

（１７） 标号： ＨＢ２ 功能：双字节十六进制整数转换成双字节ＢＣＤ码整数入口条件：待转换的双字节十六进制整数在 R6、R7 中。 出口信息：转换后的三字节ＢＣＤ码整数在 R3、R4、R5 中。 影响资源：PSW、A、R2～R7 堆栈需求： ２字节 HB2: CLR A；ＢＣＤ码初始化 MOV R3,A MOV R4,A MOV R5,A MOV R2,#10H；转换双字节十六进制整数 HB3: MOV A,R7；从高端移出待转换数的一位到 CY 中 RLC A MOV R7,A MOV A,R6 RLC A MOV R6,A MOV A,R5；ＢＣＤ码带进位自身相加，相当于乘２ ADDC A,R5 DA A；十进制调整 MOV R5,A MOV A,R4 ADDC A,R4 DA A MOV R4,A MOV A,R3 ADDC A,R3 MOV R3,A；双字节十六进制数的万位数不超过６，不用调整 DJNZ R2,HB3；处理完１６ｂｉｔ RET

（１８） 标号： ＨＢＤ 功能：单字节十六进制小数转换成单字节ＢＣＤ码小数入口条件：待转换的单字节十六进制小数在累加器 A 中。 出口信息：CY=0 时转换后的ＢＣＤ码小数仍在 A 中。CY=1 时原小数接近整数１。 影响资源：PSW、A、B 堆栈需求： ２字节 HBD: MOV B,#100；原小数扩大一百倍 MUL AB RLC A；余数部分四舍五入 CLR A ADDC A,B MOV B,#10；分离出十分位和百分位 DIV AB SWAP A ADD A,B；拼装成单字节ＢＣＤ码小数 DA A；调整后若有进位，原小数接近整数１ RET

（１９） 标号： ＨＢＤ２ 功能：双字节十六进制小数转换成双字节ＢＣＤ码小数入口条件：待转换的双字节十六进制小数在 R2、R3 中。 出口信息：转换后的双字节ＢＣＤ码小数仍在 R2、R3 中。 影响资源：PSW、A、B、R2、R3、R4、R5 堆栈需求： ６字节 HBD2: MOV R4,#4；四位十进制码 HBD3: MOV A,R3；原小数扩大十倍 MOV B,#10 MUL AB MOV R3,A MOV R5,B MOV A,R2 MOV B,#10 MUL AB ADD A,R5 MOV R2,A CLR A ADDC A,B PUSH ACC；保存溢出的一位十进制码 DJNZ R4,HBD3；计算完四位十进制码 POP ACC；取出万分位 MOV R3,A POP ACC；取出千分位 SWAP A ORL A,R3；拼装成低字节ＢＣＤ码小数 MOV R3,A POP ACC；取出百分位 MOV R2,A POP ACC；取出十分位 SWAP A ORL A,R2；拼装成高字节ＢＣＤ码小数 MOV R2,A RET

（２０）标号：ＢＣＤＨ 功能：单字节ＢＣＤ码整数转换成单字节十六进制整数入口条件：待转换的单字节ＢＣＤ码整数在累加器 A 中。 出口信息：转换后的单字节十六进制整数仍在累加器 A 中。 影响资源：PSW、A、B、R4 堆栈需求： ２字节 BCDH: MOV B,#10H；分离十位和个位 DIV AB MOV R4,B；暂存个位 MOV B,#10；将十位转换成十六进制 MUL AB ADD A,R4；按十六进制加上个位 RET

（２１）标号： ＢＨ２ 功能：双字节ＢＣＤ码整数转换成双字节十六进制整数入口条件：待转换的双字节ＢＣＤ码整数在 R2、R3 中。 出口信息：转换后的双字节十六进制整数仍在 R2、R3 中。 影响资源：PSW、A、B、R2、R3、R4 堆栈需求： ４字节 BH2: MOV A,R3；将低字节转换成十六进制 LCALL BCDH MOV R3,A MOV A,R2；将高字节转换成十六进制 LCALL BCDH MOV B,#100；扩大一百倍 MUL AB ADD A,R3；和低字节按十六进制相加 MOV R3,A CLR A ADDC A,B MOV R2,A RET

(２２）标号： ＢＨＤ 功能：单字节ＢＣＤ码小数转换成单字节十六进制小数入口条件：待转换的单字节ＢＣＤ码数在累加器 A 中。 出口信息：转换后的单字节十六进制小数仍在累加器 A 中。 影响资源：PSW、A、R2、R3 堆栈需求： ２字节 BHD: MOV R2,#8；准备计算一个字节小数 BHD0: ADD A,ACC；按十进制倍增 DA A XCH A,R3 RLC A；将进位标志移入结果中 XCH A,R3 DJNZ R2,BHD0；共计算８ｂｉｔ小数 ADD A,#0B0H；剩余部分达到０．５０否？ JNC BHD1；四舍 INC R3；五入 BHD1: MOV A,R3；取结果 RET