MCS-51单片机实用子程序库.doc

单片机实用子程序库（年版） 周 航 慈 目前已有若干版本的子程序库公开发表，它们各有特色。笔者在1988年也编制了两个子程序库（定点子程序库和浮点子程序库），并在相容性、透明性、容错性和算法优化方面作了一些工作。本程序库中的开平方算法为笔者研究的快速逼近算法，它能达到牛顿迭代法同样的精度，而速度加快二十倍左右，超过双字节定点除法的速度。经过八年来全国广大用户的实际使用，反馈了不少信息，陆续扩充了一些新的子程序，纠正了一些隐含错误，成为现在这个最新版本。 本子程序库对单片机应用程序设计技术一书附录中的子程序库作了重大修订： （）按当前流行的以 IBM PC 为主机的开发系统对汇编语言的规定，将原子程序库的标号和位地址进行了调整，读者不必再进行修改，便可直接使用。 （）对浮点运算子程序库进行了进一步的测试和优化，对十进制浮点数和二进制浮点数的相互转换子程序进行了彻底改写，提高了运算精度和可靠性。 （）新增添了若干个浮点子程序（传送、比较、清零、判零等），使编写数据处理程序的工作变得更简单直观。 在使用说明中开列了最主要的几项：标号、入口条件、出口信息、影响资源、堆栈需求，各项目的意义请参阅单片机应用程序设计技术第六章 6.3.7 节的内容。程序清单中开列了四个栏目：标号、指令、操作数、注释。为方便读者理解，注释尽力详细。 子程序库的使用方法如下： 将子程序库全部内容链接在应用程序之后，统一编译即可。优点是简单方便，缺点是程序太长，大量无关子程序也包含在其中。 仅将子程序库中的有关部分内容链接在应用程序之后，统一编译即可。有些子程序需要调用一些低级子程序，这些低级子程序也应该包含在内。优点是程序紧凑，缺点是需要对子程序库进行仔细删节。 （一） 定点运算子程序库及其使用说明 定点运算子程序库文件名为DQ51.ASM，为便于使用，先将有关约定说明如下： 多字节定点操作数：用R0或R1来表示存放在由R0或R1指示的连续单元中的数据。地址小的单元存放数据的高字节。例如：R0=123456H，若(R0)=30H，则(30H)=12H，(31H)=34H，(32H)=56H。 运算精度：单次定点运算精度为结果最低位的当量值。 工作区：数据工作区固定在PSW、A、B、R2R7，用户只要不在工作区中存放无关的或非消耗性的信息，程序就具有较好的透明性。 （） 标号： 功能：多字节码加法入口条件：字节数在R7中，被加数在R0中，加数在R1中。出口信息：和在R0中，最高位进位在CY中。影响资源：PSW、A、R2 堆栈需求： 字节BCDA:MOVA,R7；取字节数至R2中MOVR2,AADDA,R0；初始化数据指针MOVR0,AMOVA,R2ADDA,R1MOVR1,ACLRCBCD1:DECR0；调整数据指针DECR1MOVA,R0ADDCA,R1；按字节相加DAA；十进制调整MOVR0,A；和存回R0中DJNZR2,BCD1；处理完所有字节RET （） 标号： 功能：多字节码减法入口条件：字节数在R7中，被减数在R0中，减数在R1中。出口信息：差在R0中，最高位借位在CY中。影响资源：PSW、A、R2、R3 堆栈需求： 字节BCDB:LCALLNEG1；减数R1十进制取补LCALLBCDA；按多字节码加法处理CPLC；将补码加法的进位标志转换成借位标志MOVF0,C；保护借位标志LCALLNEG1；恢复减数R1的原始值MOVC,F0 ；恢复借位标志RETNEG1:MOVA,R0；R1十进制取补子程序入口XCHA,R1；交换指针XCHA,R0LCALLNEG；通过R0实现R1取补MOVA,R0XCHA,R1；换回指针XCHA,R0RET （） 标号： 功能：多字节码取补入口条件：字节数在R7中，操作数在R0中。出口信息：结果仍在R0中。影响资源：PSW、A、R2、R3 堆栈需求： 字节NEG:MOVA,R7；取（字节数减一）至R2中DECAMOVR2,AMOVA,R0；保护指针MOVR3,ANEG0:CLRCMOVA,#99HSUBBA,R0；按字节十进制取补MOVR0,A；存回R0中INCR0；调整数据指针DJNZR2,NEG0；处理完（R2）字节MOVA,#9AH；最低字节单独取补SUBBA,R0MOVR0,AMOVA,R3；恢复指针MOVR0,ARET （） 标号： 功能：多字节码左移十进制一位（乘十）入口条件：字节数在R7中，操作数在R0中。出口信息：结果仍在R0中，移出的十进制最高位在R3中。影响资源：PSW、A、R2、R3 堆栈需求： 字节BRLN:MOVA,R7；取字节数至R2中 MOVR2,AADDA,R0；初始化数据指针MOVR0,AMOVR3,#0；工作单元初始化BRL1:DECR0；调整数据指针MOVA,R0；取一字节SWAPA；交换十进制高低位MOVR0,A；存回MOVA,R3；取低字节移出的十进制高位XCHDA,R0；换出本字节的十进制高位MOVR3,A；保存本字节的十进制高位DJNZR2,BRL1；处理完所有字节RET （） 标号： 功能：双字节二进制无符号数乘法入口条件：被乘数在R2、R3中，乘数在R6、R7中。出口信息：乘积在R2、R3、R4、R5中。影响资源：PSW、A、B、R2R7 堆栈需求： 字节MULD:MOVA,R3；计算R3乘R7MOVB,R7MULABMOVR4,B；暂存部分积MOVR5,AMOVA,R3；计算R3乘R6MOVB,R6MULABADDA,R4；累加部分积MOVR4,ACLRAADDCA,BMOVR3,AMOVA,R2；计算R2乘R7MOVB,R7MULABADDA,R4；累加部分积MOVR4,AMOVA,R3ADDCA,BMOVR3,ACLRARLCAXCHA,R2；计算R2乘R6MOVB,R6MULABADDA,R3；累加部分积MOVR3,AMOVA,R2ADDCA,BMOVR2,ARET （） 标号： 功能：双字节二进制无符号数平方入口条件：待平方数在R2、R3中。出口信息：结果在R2、R3、R4、R5中。影响资源：PSW、A、B、R2R5 堆栈需求： 字节MUL2:MOVA,R3；计算R3平方MOVB,AMULABMOVR4,B；暂存部分积MOVR5,AMOVA,R2；计算R2平方MOVB,AMULABXCHA,R3；暂存部分积，并换出R2和R3XCHA,BXCHA,R2MULAB；计算2R2R3CLRCRLCAXCHA,BRLCAJNCMU20INCR2；累加溢出量MU20:XCHA,B；累加部分积ADDA,R4MOVR4,AMOVA,R3ADDCA,BMOVR3,ACLRAADDCA,R2MOVR2,ARET （） 标号： 功能：双字节二进制无符号数除法入口条件：被除数在R2、R3、R4、R5中，除数在R6、R7中。出口信息：OV=0 时，双字节商在R2、R3中，OV=1 时溢出。影响资源：PSW、A、B、R1R7 堆栈需求： 字节DIVD:CLRC；比较被除数和除数MOVA,R3SUBBA,R7MOVA,R2SUBBA,R6JCDVD1SETBOV；溢出RETDVD1:MOVB,#10H；计算双字节商DVD2:CLRC；部分商和余数同时左移一位MOVA,R5RLCAMOVR5,AMOVA,R4RLCAMOVR4,AMOVA,R3RLCAMOVR3,AXCHA,R2RLCAXCHA,R2MOVF0,C；保存溢出位CLRCSUBBA,R7；计算（R2R3R6R7）MOVR1,AMOVA,R2SUBBA,R6ANLC,/F0；结果判断JCDVD3MOVR2,A；够减，存放新的余数MOVA,R1MOVR3,AINCR5；商的低位置一DVD3:DJNZB,DVD2；计算完十六位商（R4R5）MOVA,R4；将商移到R2R3中MOVR2,AMOVA,R5MOVR3,ACLROV；设立成功标志RET （） 标号： 功能：双字节二进制无符号数除以单字节二进制数入口条件：被除数在R4、R5中，除数在R7中。出口信息：OV=0 时，单字节商在R3中，OV=1 时溢出。影响资源：PSW、A、R3R7 堆栈需求： 字节D457:CLRCMOVA,R4SUBBA,R7JCDV50SETBOV；商溢出RETDV50:MOVR6,#8；求平均值（R4R5R7R3）DV51:MOVA,R5RLCAMOVR5,AMOVA,R4RLCAMOVR4,AMOVF0,CCLRCSUBBA,R7ANLC,/F0JCDV52MOVR4,ADV52:CPLCMOVA,R3RLCAMOVR3,ADJNZR6,DV51MOVA,R4；四舍五入ADDA,R4JCDV53SUBBA,R7JCDV54DV53:INCR3DV54:CLROVRET （） 标号： 功能：三字节二进制无符号数除以单字节二进制数入口条件：被除数在R3、R4、R5中，除数在R7中。出口信息：OV=0 时，双字节商在R4、R5中，OV=1 时溢出。影响资源：PSW、A、B、R2R7 堆栈需求： 字节DV31:CLRCMOVA,R3SUBBA,R7JCDV30SETBOV；商溢出RETDV30:MOVR2,#10H；求R3R4R5R7R4R5DM23:CLRCMOVA,R5RLCAMOVR5,AMOVA,R4RLCAMOVR4,AMOVA,R3RLCAMOVR3,AMOVF0,CCLRCSUBBA,R7ANLC,/F0JCDM24MOVR3,AINCR5DM24:DJNZR2,DM23MOVA,R3；四舍五入ADDA,R3JCDM25SUBBA,R7JCDM26DM25:INCR5MOVA,R5JNZDM26INCR4DM26:CLROVRET ；商在R4R5中 （） 标号： 功能：双字节二进制有符号数乘法（补码）入口条件：被乘数在R2、R3中，乘数在R6、R7中。出口信息：乘积在R2、R3、R4、R5中。影响资源：PSW、A、B、R2R7 堆栈需求： 字节MULS:MOVR4,#0；清零R4R5MOVR5,#0LCALLMDS；计算结果的符号和两个操作数的绝对值LCALLMULD；计算两个绝对值的乘积SJMPMDSE；用补码表示结果 （） 标号： 功能：双字节二进制有符号数除法（补码）入口条件：被除数在R2、R3、R4、R5中，除数在R6、R7中。出口信息：OV=0时商在R2、R3中，OV=1时溢出。影响资源：PSW、A、B、R1R7 堆栈需求： 字节DIVS:LCALLMDS；计算结果的符号和两个操作数的绝对值PUSHPSW；保存结果的符号LCALLDIVD；计算两个绝对值的商JNBOV,DVS1；溢出否？POPACC；溢出，放去结果的符号，保留溢出标志RETDVS1:POPPSW；未溢出，取出结果的符号MOVR4,#0MOVR5,#0MDSE:JBF0,MDS2；用补码表示结果CLROV；结果为正，原码即补码，计算成功RETMDS:CLRF0；结果符号初始化MOVA,R6；判断第二操作数的符号JNBACC.7,MDS1；为正，不必处理CPLF0；为负，结果符号取反XCHA,R7；第二操作数取补，得到其绝对值CPLAADDA,#1XCHA,R7CPLAADDCA,#0MOVR6,AMDS1:MOVA,R2；判断第一操作数或运算结果的符号JNBACC.7,MDS3；为正，不必处理CPLF0；为负，结果符号取反MDS2:MOVA,R5；求第一操作数的绝对值或运算结果的补码CPLAADDA,#1MOVR5,AMOVA,R4CPLAADDCA,#0MOVR4,AMOVA,R3CPLAADDCA,#0MOVR3,AMOVA,R2CPLAADDCA,#0MOVR2,AMDS3:CLROV；运算成功RET （） 标号： 功能：双字节二进制无符号数开平方（快速）入口条件：被开方数在R2、R3中。出口信息：平方根仍在R2、R3中，整数部分的位数为原数的一半，其余为小数。影响资源：PSW、A、B、R2R7 堆栈需求： 字节SH2:MOVA,R2ORLA,R3JNZSH20RET；被开方数为零，不必运算SH20:MOVR7,#0；左规次数初始化MOVA,R2SH22:ANLA,#0C0H；被开方数高字节小于否？JNZSQRH；不小于，左规格化完成，转开方过程CLRC；每左规一次，被开方数左移两位MOVA,R3RLCAMOVF0,CCLRCRLCAMOVR3,AMOVA,R2MOVACC.7,CMOVC,F0RLCARLCAMOVR2,AINCR7；左规次数加一SJMPSH22；继续左规 （） 标号： 功能：四字节二进制无符号数开平方（快速）入口条件：被开方数在R2、R3、R4、R5中。出口信息：平方根在R2、R3中，整数部分的位数为原数的一半，其余为小数。影响资源：PSW、A、B、R2R7 堆栈需求： 字节SH4:MOVA,R2ORLA,R3ORLA,R4ORLA,R5JNZSH40RET；被开方数为零，不必运算SH40:MOVR7,#0；左规次数初始化MOVA,R2SH41:ANLA,#0C0H；被开方数高字节小于否？JNZSQRH；不小于，左规格化完成MOVR6,#2；每左规一次，被开方数左移两位SH42:CLRC；被开方数左移一位MOVA,R5RLCAMOVR5,AMOVA,R4RLCAMOVR4,AMOVA,R3RLCAMOVR3,AMOVA,R2RLCAMOVR2,ADJNZR6,SH42；被开方数左移完两位INCR7；左规次数加一SJMPSH41；继续左规SQRH:MOVA,R2 ；规格化后高字节按折线法分为三个区间ADDA,#57HJCSQR2ADDA,#45HJCSQR1ADDA,#24HMOVB,#0E3H；第一区间的斜率MOVR4,#80H；第一区间的平方根基数SJMPSQR3SQR1:MOVB,#0B2H；第二区间的斜率MOVR4,#0A0H；第二区间的平方根基数SJMPSQR3SQR2:MOVB,#8DH；第三区间的斜率MOVR4,#0D0H；第三区间的平方根基数SQR3:MULAB；与区间基点的偏移量乘区间斜率MOVA,BADDA,R4；累加到平方根的基数上MOVR4,AMOVB,AMULAB；求当前平方根的幂XCHA,R3；求偏移量（存放在R2R3中）CLRCSUBBA,R3MOVR3,AMOVA,R2SUBBA,BMOVR2,ASQR4:SETBC；用减奇数法校正一个字节的平方根MOVA,R4；当前平方根的两倍加一存入R5R6中RLCAMOVR6,ACLRARLCAMOVR5,AMOVA,R3；偏移量小于该奇数否？SUBBA,R6MOVB,AMOVA,R2SUBBA,R5JCSQR5；小于，校正结束，已达到一个字节的精度INCR4；不小于，平方根加一MOVR2,A；保存新的偏移量MOVR3,BSJMPSQR4；继续校正SQR5:MOVA,R4；将一个字节精度的根存入R2XCHA,R2RRCAMOVF0,C；保存最终偏移量的最高位MOVA,R3MOVR5,A；将最终偏移量的低八位存入R5中MOVR4,#8；通过（R5R6R2）求根的低字节SQR6:CLRCMOVA,R3RLCAMOVR3,ACLRCMOVA,R5SUBBA,R2JBF0,SQR7JCSQR8SQR7:MOVR5,AINCR3SQR8:CLRCMOVA,R5RLCAMOVR5,AMOVF0,CDJNZR4,SQR6；根的第二字节计算完，在R3中MOVA,R7；取原被开方数的左规次数JZSQRE；未左规，开方结束SQR9:CLRC；按左规次数右移平方根，得到实际根MOVA,R2RRCAMOVR2,AMOVA,R3RRCAMOVR3,ADJNZR7,SQR9SQRE:RET （） 标号： 功能：单字节十六进制数转换成双字节ASCII码入口条件：待转换的单字节十六进制数在累加器A中。出口信息：高四位的ASCII码在A中，低四位的ASCII码在B中。影响资源：PSW、A、B 堆栈需求： 字节HASC:MOVB,A；暂存待转换的单字节十六进制数LCALLHAS1；转换低四位XCHA,B；存放低四位的ASCII码SWAPA；准备转换高四位HAS1:ANLA,#0FH；将累加器的低四位转换成ASCII码ADDA,#90HDAAADDCA,#40HDAARET （） 标号： 功能：ASCII码转换成十六进制数入口条件：待转换的ASCII码（30H39H或41H46H）在A中。出口信息：转换后的十六进制数（00H0FH）仍在累加器A中。影响资源：PSW、A 堆栈需求： 字节ASCH:CLRCSUBBA,#30HJNBACC.4,ASH1SUBBA,#7ASH1:RET （） 标号： 功能：单字节十六进制整数转换成单字节码整数入口条件：待转换的单字节十六进制整数在累加器A中。出口信息：转换后的码整数（十位和个位）仍在累加器A中，百位在R3中。影响资源：PSW、A、B、R3 堆栈需求： 字节HBCD:MOVB,#100；分离出百位，存放在R3中DIVABMOVR3,AMOVA,#10；余数继续分离十位和个位XCHA,BDIVABSWAPAORLA,B；将十位和个位拼装成码RET （） 标号： 功能：双字节十六进制整数转换成双字节码整数入口条件：待转换的双字节十六进制整数在R6、R7中。出口信息：转换后的三字节码整数在R3、R4、R5中。影响资源：PSW、A、R2R7 堆栈需求： 字节HB2:CLRA；码初始化MOVR3,AMOVR4,AMOVR5,AMOVR2,#10H；转换双字节十六进制整数HB3:MOVA,R7；从高端移出待转换数的一位到CY中RLCAMOVR7,AMOVA,R6RLCAMOVR6,AMOVA,R5；码带进位自身相加，相当于乘ADDCA,R5DAA；十进制调整MOVR5,AMOVA,R4ADDCA,R4DAAMOVR4,AMOVA,R3ADDCA,R3MOVR3,A；双字节十六进制数的万位数不超过，不用调整DJNZR2,HB3；处理完RET （） 标号： 功能：单字节十六进制小数转换成单字节码小数入口条件：待转换的单字节十六进制小数在累加器A中。出口信息：CY=0时转换后的码小数仍在A中。CY=1时原小数接近整数。影响资源：PSW、A、B 堆栈需求： 字节HBD:MOVB,#100；原小数扩大一百倍MULABRLCA；余数部分四舍五入CLRAADDCA,BMOVB,#10；分离出十分位和百分位DIVABSWAPAADDA,B；拼装成单字节码小数DAA；调整后若有进位，原小数接近整数RET （） 标号： 功能：双字节十六进制小数转换成双字节码小数入口条件：待转换的双字节十六进制小数在R2、R3中。出口信息：转换后的双字节码小数仍在R2、R3中。影响资源：PSW、A、B、R2、R3、R4、R5 堆栈需求： 字节HBD2:MOVR4,#4；四位十进制码HBD3:MOVA,R3；原小数扩大十倍MOVB,#10MULABMOVR3,AMOVR5,BMOVA,R2MOVB,#10MULABADDA,R5MOVR2,ACLRAADDCA,BPUSHACC；保存溢出的一位十进制码DJNZR4,HBD3；计算完四位十进制码POPACC；取出万分位MOVR3,APOPACC；取出千分位SWAPAORLA,R3；拼装成低字节码小数MOVR3,APOPACC；取出百分位MOVR2,APOPACC；取出十分位SWAPAORLA,R2；拼装成高字节码小数MOVR2,ARET （）标号： 功能：单字节码整数转换成单字节十六进制整数入口条件：待转换的单字节码整数在累加器A中。出口信息：转换后的单字节十六进制整数仍在累加器A中。影响资源：PSW、A、B、R4 堆栈需求： 字节BCDH:MOVB,#10H；分离十位和个位DIVABMOVR4,B；暂存个位MOVB,#10；将十位转换成十六进制MULABADDA,R4；按十六进制加上个位RET （）标号： 功能：双字节码整数转换成双字节十六进制整数入口条件：待转换的双字节码整数在R2、R3中。出口信息：转换后的双字节十六进制整数仍在R2、R3中。影响资源：PSW、A、B、R2、R3、R4 堆栈需求： 字节BH2:MOVA,R3；将低字节转换成十六进制LCALLBCDHMOVR3,AMOVA,R2；将高字节转换成十六进制LCALLBCDHMOVB,#100；扩大一百倍MULABADDA,R3；和低字节按十六进制相加MOVR3,ACLRAADDCA,BMOVR2,ARET （）标号： 功能：单字节码小数转换成单字节十六进制小数入口条件：待转换的单字节码数在累加器A中。出口信息：转换后的单字节十六进制小数仍在累加器A中。影响资源：PSW、A、R2、R3 堆栈需求： 字节BHD:MOVR2,#8；准备计算一个字节小数BHD0:ADDA,ACC；按十进制倍增DAAXCHA,R3RLCA；将进位标志移入结果中XCHA,R3DJNZR2,BHD0；共计算小数ADDA,#0B0H；剩余部分达到否？JNCBHD1；四舍INCR3；五入BHD1:MOVA,R3；取结果RET （）标号： 功能：双字节码小数转换成双字节十六进制小数入口条件：待转换的双字节码小数在R4、R5中。出口信息：转换后的双字节十六进制小数在R2、R3中。*影响资源：PSW、A、R2R6 堆栈需求： 字节BHD2:MOVR6,#10H；准备计算两个字节小数BHD3:MOVA,R5；按十进制倍增ADDA,R5DAAMOVR5,AMOVA,R4ADDCA,R4DAAMOVR4,AMOVA,R3；将进位标志移入结果中RLCAMOVR3,AMOVA,R2RLCAMOVR2,ADJNZR6,BHD3；共计算小数MOVA,R4ADDA,#0B0H；剩余部分达到否？JNCBHD4；四舍INCR3；五入MOVA,R3JNZBHD4INCR2BHD4:RET （） 标号： 功能：求单字节十六进制无符号数据块的极值入口条件：数据块的首址在DPTR中，数据个数在R7中。出口信息：最大值在R6中，地址在R2R3中；最小值在R7中，地址在R4R5中。影响资源：PSW、A、B、R1R7 堆栈需求： 字节MM:MOVB,R7；保存数据个数MOVXA,DPTR；读取第一个数据MOVR6,A；作为最大值的初始值MOVR7,A；也作为最小值的初始值MOVA,DPL；取第一个数据的地址MOVR3,A；作为最大值存放地址的初始值MOVR5,A；也作为最小值存放地址的初始值MOVA,DPHMOVR2,AMOVR4,AMOVA,B；取数据个数DECA；减一，得到需要比较的次数JZMME；只有一个数据，不需要比较MOVR1,A；保存比较次数PUSHDPL；保护数据块的首址PUSHDPHMM1:INCDPTR；指向一个新的数据MOVXA,DPTR；读取这个数据MOVB,A；保存SETBC；与最大值比较SUBBA,R6JCMM2；不超过当前最大值，保持当前最大值MOVR6,B；超过当前最大值，更新最大值存放地址MOVR2,DPH；同时更新最大值存放地址MOVR3,DPLSJMPMM3MM2:MOVA,B；与最小值比较CLRCSUBBA,R7JNCMM3；大于或等于当前最小值，保持当前最小值MOVR7,B；更新最小值MOVR4,DPH；更新最小值存放地址MOVR5,DPLMM3:DJNZR1,MM1；处理完全部数据POPDPH；恢复数据首址POPDPLMME:RET （） 标号： 功能：求单字节十六进制有符号数据块的极值入口条件：数据块的首址在DPTR中，数据个数在R7中。出口信息：最大值在R6中， 地址在R2R3中；最小值在R7中，地址在R4R5中。影响资源：PSW、A、B、R1R7 堆栈需求： 字节MMS:MOVB,R7；保存数据个数MOVXA,DPTR；读取第一个数据MOVR6,A；作为最大值的初始值MOVR7,A；也作为最小值的初始值MOVA,DPL；取第一个数据的地址MOVR3,A；作为最大值存放地址的初始值MOVR5,A；也作为最小值存放地址的初始值MOVA,DPHMOVR2,AMOVR4,AMOVA,B；取数据个数DECA；减一，得到需要比较的次数JZMMSE；只有一个数据，不需要比较MOVR1,A；保存比较次数PUSHDPL；保护数据块的首址PUSHDPHMMS1:INCDPTR；调整数据指针MOVXA,DPTR；读取一个数据MOVB,A；保存SETBC；与最大值比较SUBBA,R6JZMMS4；相同，不更新最大值JNBOV,MMS2；差未溢出，符号位有效CPLACC.7；差溢出，符号位取反MMS2:JBACC.7,MMS4；差为负，不更新最大值MOVR6,B；更新最大值MOVR2,DPH；更新最大值存放地址MOVR3,DPLSJMPMMS7MMS4:MOVA,B；与最小值比较CLRCSUBBA,R7JNBOV,MMS6；差未溢出，符号位有效CPLACC.7；差溢出，符号位取反MMS6:JNBACC.7,MMS7；差为正，不更新最小值MOVR7,B；更新最小值MOVR4,DPH；更新最小值存放地址MOVR5,DPLMMS7:DJNZR1,MMS1；处理完全部数据POPDPH；恢复数据首址POPDPLMMSE:RET （） 标号： 功能：顺序查找（）单字节表格入口条件：待查找的内容在A中，表格首址在DPTR中，表格的字节数在R7中。出口信息：OV=0时，顺序号在累加器A中；OV=1时，未找到。影响资源：PSW、A、B、R2、R6 堆栈需求： 字节FDS1:MOVB,A；保存待查找的内容MOVR2,#0；顺序号初始化（指向表首）MOVA,R7；保存表格的长度MOVR6,AFD11:MOVA,R2；按顺序号读取表格内容MOVCA,A+DPTRCJNEA,B,FD12；与待查找的内容比较CLROV；相同，查找成功MOVA,R2；取对应的顺序号RETFD12:INCR2；指向表格中的下一个内容DJNZR6,FD11；查完全部表格内容SETBOV；未查找到，失败RET （） 标号： 功能：顺序查找（）双字节表格入口条件：查找内容在R4、R5中，表格首址在DPTR中，数据总个数在R7中。出口信息：OV=0时顺序号在累加器A中，地址在DPTR中；OV=1时未找到。影响资源：PSW、A、R2、R6、DPTR 堆栈需求： 字节FDS2:MOVA,R7；保存表格中数据的个数MOVR6,AMOVR2,#0；顺序号初始化（指向表首）FD21:CLRA；读取表格内容的高字节MOVCA,A+DPTRXRLA,R4；与待查找内容的高字节比较JNZFD22MOVA,#1；读取表格内容的低字节MOVCA,A+DPTRXRLA,R5；与待查找内容的低字节比较JNZFD22CLROV；相同，查找成功MOVA,R2；取对应的顺序号RET FD22:INCDPTR；指向下一个数据INCDPTRINCR2；顺序号加一DJNZR6,FD21；查完全部数据SETBOV；未查找到，失败RET （） 标号： 功能：对分查找（）单字节无符号增序数据表格入口条件：待查找的内容在累加器A中，表格首址在DPTR中，字节数在R7中。出口信息：OV=0 时，顺序号在累加器A中；OV=1 时，未找到。影响资源：PSW、A、B、R2、R3、R4 堆栈需求： 字节FDD1:MOVB,A；保存待查找的内容MOVR2,#0；区间低端指针初始化（指向第一个数据）MOVA,R7DECAMOVR3,A；区间高端指针初始化（指向最后一个数据）FD61:CLRC；判断区间大小MOVA,R3SUBBA,R2JCFD69；区间消失，查找失败RRCA；取区间大小的一半ADDA,R2；加上区间的低端MOVR4,A；得到区间的中心MOVCA,A+DPTR；读取该点的内容CJNEA,B,FD65；与待查找的内容比较CLROV；相同，查找成功MOVA,R4；取顺序号RET FD65:JCFD68；该点的内容比待查找的内容大否？MOVA,R4；偏大，取该点位置DECA；减一MOVR3,A；作为新的区间高端SJMPFD61；继续查找FD68:MOVA,R4；偏小，取该点位置INCA；加一MOVR2,A；作为新的区间低端SJMPFD61；继续查找FD69:SETBOV；查找失败RET （） 标号： 功能：对分查找（）双字节无符号增序数据表格入口条件：查找内容在R4、R5中，表格首址在DPTR中，数据个数在R7中。出口信息：OV=0 时顺序号在累加器A中，址在DPTR中；OV=1 时未找到。影响资源：PSW、A、B、R1R7、DPTR 堆栈需求： 字节FDD2:MOVR2,#0；区间低端指针初始化（指向第一个数据）MOVA,R7DECAMOVR3,A；区间高端指针初始化，指向最后一个数据MOVR6,DPH；保存表格首址MOVR7,DPLFD81:CLRC；判断区间大小MOVA,R3SUBBA,R2JCFD89；区间消失，查找失败RRCA；取区间大小的一半ADDA,R2；加上区间的低端MOVR1,A；得到区间的中心MOVDPH,R6CLRC；计算区间中心的地址RLCAJNCFD82INCDPHFD82:ADDA,R7MOVDPL,AJNCFD83INCDPHFD83:CLRA；读取该点的内容的高字节MOVCA,A+DPTRMOVB,R4；与待查找内容的高字节比较CJNEA,B,FD84；不相同MOVA,#1；读取该点的内容的低字节MOVCA,A+DPTRMOVB,R5CJNEA,B,FD84；与待查找内容的低字节比较MOVA,R1；取顺序号CLROV；查找成功RETFD84:JCFD86；该点的内容比待查找的内容大否？MOVA,R1；偏大，取该点位置DECA；减一MOVR3,A；作为新的区间高端SJMPFD81；继续查找FD86:MOVA,R1；偏小，取该点位置INCA；加一MOVR2,A；作为新的区间低端SJMPFD81；继续查找FD89:MOVDPH,R6；相同，恢复首址MOVDPL,R7SETBOV；查找失败RET （） 标号： 功能：求单字节十六进制无符号数据块的平均值入口条件：数据块的首址在DPTR中，数据个数在R7中。出口信息：平均值在累加器A中。影响资源：PSW、A、R2R6 堆栈需求： 字节DDM1:MOVA,R7；保存数据个数MOVR2,APUSHDPHPUSHDPLCLRA；初始化累加和MOVR4,AMOVR5,ADM11:MOVXA,DPTR；读取一个数据ADDA,R5；累加到累加和中MOVR5,AJNCDM12INCR4DM12:INCDPTR；调整指针DJNZR2,DM11；累加完全部数据LCALLD457；求平均值（R4R5R7R3）MOVA,R3；取平均值POPDPLPOPDPHRET （） 标号： 功能：求双字节十六进制无符号数据块的平均值入口条件：数据块的首址在DPTR中，双字节数据总个数在R7中。出口信息：平均值在R4、R5中。影响资源：PSW、A、R2R6 堆栈需求： 字节DDM2:MOVA,R7；保存数据个数MOVR2,A；初始化数据指针PUSHDPL；保持首址PUSHDPHCLRA；初始化累加和MOVR3,AMOVR4,AMOVR5,ADM20:MOVXA,DPTR；读取一个数据的高字节MOVB,AINCDPTRMOVXA,DPTR；读取一个数据的低字节INCDPTRADDA,R5；累加到累加和中MOVR5,AMOVA,BADDCA,R4MOVR4,AJNCDM21INCR3DM21:DJNZR2,DM20；累加完全部数据POPDPH；恢复首址POPDPLLJMPDV31；求R3R4R5R7R4R5