mcs-51单片机实用子程序库.txt

目前已有若干版本的子程序库公开发表

            LCALL MULD ；计算两个绝对值的乘积
            SJMP MDSE ；用补码表示结果
            （１１） 标号： ＤＩＶＳ 功能：双字节二进制有符号数除法（补码）

            入口条件：被除数在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
            　
            （２０）标号：ＢＣＤＨ 功能：单字节ＢＣＤ码整数转换成单字节十六进制整数