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

MCS-51单片机实用子程序库,希望交流学习。

            功能：对分查找（ＲＯＭ）单字节无符号增序数据表格<BR><BR><BR>入口条件：待查找的内容在累加器A中，表格首址在DPTR中，字节数在R7中。<BR>出口信息：OV=0 
            时，顺序号在累加器A中；OV=1 时，未找到。<BR>影响资源：PSW、A、B、R2、R3、R4 堆栈需求： ２字节<BR>FDD1: 
            MOV B,A ；保存待查找的内容<BR>MOV R2,#0 ；区间低端指针初始化（指向第一个数据）<BR>MOV 
            A,R7<BR>DEC A<BR>MOV R3,A ；区间高端指针初始化（指向最后一个数据）<BR>FD61: CLR C 
            ；判断区间大小<BR>MOV A,R3<BR>SUBB A,R2<BR>JC FD69 ；区间消失，查找失败<BR>RRC A 
            ；取区间大小的一半<BR>ADD A,R2 ；加上区间的低端<BR>MOV R4,A ；得到区间的中心<BR>MOVC 
            A,@A+DPTR；读取该点的内容<BR>CJNE A,B,FD65；与待查找的内容比较<BR>CLR OV 
            ；相同，查找成功<BR>MOV A,R4 ；取顺序号<BR>RET <BR>FD65: JC FD68 
            ；该点的内容比待查找的内容大否？<BR>MOV A,R4 ；偏大，取该点位置<BR>DEC A ；减一<BR>MOV R3,A 
            ；作为新的区间高端<BR>SJMP FD61 ；继续查找<BR>FD68: MOV A,R4 ；偏小，取该点位置<BR>INC A 
            ；加一<BR>MOV R2,A ；作为新的区间低端<BR>SJMP FD61 ；继续查找<BR>FD69: SETB OV 
            ；查找失败<BR>RET<BR>　<BR>（２９） 标号：ＦＤＤ２ 
            功能：对分查找（ＲＯＭ）双字节无符号增序数据表格<BR><BR>入口条件：查找内容在R4、R5中，表格首址在DPTR中，数据个数在R7中。<BR>出口信息：OV=0 
            时顺序号在累加器A中，址在DPTR中；OV=1 时未找到。<BR>影响资源：PSW、A、B、R1～R7、DPTR 堆栈需求： 
            ２字节<BR>FDD2: MOV R2,#0 ；区间低端指针初始化（指向第一个数据）<BR>MOV A,R7<BR>DEC 
            A<BR>MOV R3,A ；区间高端指针初始化，指向最后一个数据<BR>MOV R6,DPH ；保存表格首址<BR>MOV 
            R7,DPL<BR>FD81: CLR C ；判断区间大小<BR>MOV A,R3<BR>SUBB A,R2<BR>JC FD89 
            ；区间消失，查找失败<BR>RRC A ；取区间大小的一半<BR>ADD A,R2 ；加上区间的低端<BR>MOV R1,A 
            ；得到区间的中心<BR>MOV DPH,R6<BR>CLR C ；计算区间中心的地址<BR>RLC A<BR>JNC 
            FD82<BR>INC DPH<BR>FD82: ADD A,R7<BR>MOV DPL,A<BR>JNC FD83<BR>INC 
            DPH<BR>FD83: CLR A ；读取该点的内容的高字节<BR>MOVC A,@A+DPTR<BR>MOV B,R4 
            ；与待查找内容的高字节比较<BR>CJNE A,B,FD84；不相同<BR>MOV A,#1 ；读取该点的内容的低字节<BR>MOVC 
            A,@A+DPTR<BR>MOV B,R5<BR>CJNE A,B,FD84；与待查找内容的低字节比较<BR>MOV A,R1 
            ；取顺序号<BR>CLR OV ；查找成功<BR>RET<BR>FD84: JC FD86 
            ；该点的内容比待查找的内容大否？<BR>MOV A,R1 ；偏大，取该点位置<BR>DEC A ；减一<BR>MOV R3,A 
            ；作为新的区间高端<BR>SJMP FD81 ；继续查找<BR>FD86: MOV A,R1 ；偏小，取该点位置<BR>INC A 
            ；加一<BR>MOV R2,A ；作为新的区间低端<BR>SJMP FD81 ；继续查找<BR>FD89: MOV DPH,R6 
            ；相同，恢复首址<BR>MOV DPL,R7<BR>SETB OV ；查找失败<BR>RET<BR>　<BR>（３０） 标号： ＤＤＭ１ 
            功能：求单字节十六进制无符号数据块的平均值<BR><BR><BR>入口条件：数据块的首址在DPTR中，数据个数在R7中。<BR>出口信息：平均值在累加器A中。<BR>影响资源：PSW、A、R2～R6 
            堆栈需求： ４字节<BR>DDM1: MOV A,R7 ；保存数据个数<BR>MOV R2,A<BR>PUSH DPH<BR>PUSH 
            DPL<BR>CLR A ；初始化累加和<BR>MOV R4,A<BR>MOV R5,A<BR>DM11: MOVX A,@DPTR 
            ；读取一个数据<BR>ADD A,R5 ；累加到累加和中<BR>MOV R5,A<BR>JNC DM12<BR>INC 
            R4<BR>DM12: INC DPTR ；调整指针<BR>DJNZ R2,DM11 ；累加完全部数据<BR>LCALL D457 
            ；求平均值（R4R5／R7－→R3）<BR>MOV A,R3 ；取平均值<BR>POP DPL<BR>POP 
            DPH<BR>RET<BR>　<BR>（３１） 标号： ＤＤＭ２ 
            功能：求双字节十六进制无符号数据块的平均值<BR><BR>入口条件：数据块的首址在DPTR中，双字节数据总个数在R7中。<BR>出口信息：平均值在R4、R5中。<BR>影响资源：PSW、A、R2～R6 
            堆栈需求： ４字节<BR>DDM2: MOV A,R7 ；保存数据个数<BR>MOV R2,A ；初始化数据指针<BR>PUSH DPL 
            ；保持首址<BR>PUSH DPH<BR>CLR A ；初始化累加和<BR>MOV R3,A<BR>MOV R4,A<BR>MOV 
            R5,A<BR>DM20: MOVX A,@DPTR ；读取一个数据的高字节<BR>MOV B,A<BR>INC 
            DPTR<BR>MOVX A,@DPTR ；读取一个数据的低字节<BR>INC DPTR<BR>ADD A,R5 
            ；累加到累加和中<BR>MOV R5,A<BR>MOV A,B<BR>ADDC A,R4<BR>MOV R4,A<BR>JNC 
            DM21<BR>INC R3<BR>DM21: DJNZ R2,DM20 ；累加完全部数据<BR>POP DPH 
            ；恢复首址<BR>POP DPL<BR>LJMP DV31 ；求R3R4R5／R7－→R4R5，得到平均值<BR>　<BR>（３２） 
            标号： ＸＲ１ 
            功能：求单字节数据块的（异或）校验和<BR><BR>入口条件：数据块的首址在DPTR中，数据的个数在R6、R7中。<BR>出口信息：校验和在累加器A中。<BR>影响资源：PSW、A、B、R4～R7 
            堆栈需求： ２字节<BR>XR1: MOV R4,DPH ；保存数据块的首址<BR>MOV R5,DPL<BR>MOV A,R7 
            ；双字节计数器调整<BR>JZ XR10<BR>INC R6<BR>XR10: MOV B,#0 ；校验和初始化<BR>XR11: 
            MOVX A,@DPTR ；读取一个数据<BR>XRL B,A ；异或运算<BR>INC DPTR ；指向下一个数据<BR>DJNZ 
            R7,XR11 ；双字节计数器减一<BR>DJNZ R6,XR11<BR>MOV DPH,R4 ；恢复数据首址<BR>MOV 
            DPL,R5<BR>MOV A,B ；取校验和<BR>RET<BR>　<BR>（３３） 标号： ＸＲ２ 
            功能：求双字节数据块的（异或）校验和<BR><BR>入口条件：数据块的首址在DPTR中，双字节数据总个数在R6、R7中。<BR>出口信息：校验和在R2、R3中。<BR>影响资源：PSW、A、R2～R7 
            堆栈需求： ２字节<BR>XR2: MOV R4,DPH ；保存数据块的首址<BR>MOV R5,DPL<BR>MOV A,R7 
            ；双字节计数器调整<BR>JZ XR20<BR>INC R6<BR>XR20: CLR A ；校验和初始化<BR>MOV 
            R2,A<BR>MOV R3,A<BR>XR21: MOVX A,@DPTR ；读取一个数据的高字节<BR>XRL A,R2 
            ；异或运算<BR>MOV R2,A<BR>INC DPTR<BR>MOVX A,@DPTR ；读取一个数据的低字节<BR>XRL 
            A,R3 ；异或运算<BR>MOV R3,A<BR>INC DPTR ；指向下一个数据<BR>DJNZ R7,XR21 
            ；双字节计数器减一<BR>DJNZ R6,XR21<BR>MOV DPH,R4 ；恢复数据首址<BR>MOV 
            DPL,R5<BR>RET<BR>　<BR>（３４） 标号： ＳＯＲＴ 
            功能：单字节无符号数据块排序（增序）<BR><BR>入口条件：数据块的首址在R0中，字节数在R7中。<BR>出口信息：完成排序（增序）<BR>影响资源：PSW、A、R2～R6 
            堆栈需求： ２字节<BR>SORT: MOV A,R7<BR>MOV R5,A ；比较次数初始化<BR>SRT1: CLR F0 
            ；交换标志初始化<BR>MOV A,R5 ；取上遍比较次数<BR>DEC A ；本遍比上遍减少一次<BR>MOV R5,A 
            ；保存本遍次数<BR>MOV R2,A ；复制到计数器中<BR>JZ SRT5 ；若为零，排序结束<BR>MOV A,R0 
            ；保存数据指针<BR>MOV R6,A<BR>SRT2: MOV A,@R0 ；读取一个数据<BR>MOV R3,A<BR>INC R0 
            ；指向下一个数据<BR>MOV A,@R0 ；再读取一个数据<BR>MOV R4,A<BR>CLR C<BR>SUBB A,R3 
            ；比较两个数据的大小<BR>JNC SRT4 ；顺序正确（增序或相同），不必交换<BR>SETB F0 ；设立交换标志<BR>MOV 
            A,R3 ；将两个数据交换位置<BR>MOV @R0,A<BR>DEC R0<BR>MOV A,R4<BR>MOV 
            @R0,A<BR>INC R0 ；指向下一个数据<BR>SRT4: DJNZ R2,SRT2 ；完成本遍的比较次数<BR>MOV 
            A,R6 ；恢复数据首址<BR>MOV R0,A<BR>JB F0,SRT1 ；本遍若进行过交换，则需继续排序<BR>SRT5: RET 
            ；排序结束<BR>END<BR>　<BR>（二） ＭＣＳ－５１ 
            浮点运算子程序库及其使用说明<BR><BR>本浮点子程序库有三个不同层次的版本，以便适应不同的应用场合：<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>（１） 
            标号： ＦＳＤＴ 
            功能：浮点数格式化<BR><BR>入口条件：待格式化浮点操作数在[R0]中。<BR>出口信息：已格式化浮点操作数仍在[R0]中。<BR>影响资源：PSW、A、R2、R3、R4、位1FH 
            堆栈需求： ６字节<BR>FSDT: LCALL MVR0 ；将待格式化操作数传送到第一工作区中<BR>LCALL RLN 
            ；通过左规完成格式化<BR>LJMP MOV0 ；将已格式化浮点操作数传回到[R0]中<BR><BR>（２） 标号： ＦＡＤＤ 
            功能：浮点数加法<BR><BR>入口条件：被加数在[R0]中，加数在[R1]中。<BR>出口信息：OV=0时，和仍在[R0]中，OV=1时，溢出。<BR>影响资源：PSW、A、B、R2～R7、位1EH、1FH 
            堆栈需求： ６字节<BR>FADD: CLR F0 ；设立加法标志<BR>SJMP AS ；计算代数和<BR><BR>（３） 标号： 
            ＦＳＵＢ 
            功能：浮点数减法<BR><BR>入口条件：被减数在[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