1、qpxd整理 单片机实用子程序库单片机实用子程序库单片机实用子程序库单片机实用子程序库（年版年版年版年版） 周 航 慈 目前已有若干版本的子程序库公开发表，它们各有特色。笔者在1988年也编制了两个 子程序库（定点子程序库和浮点子程序库），并在相容性、透明性、容错性和算法优化方 面作了一些工作。本程序库中的开平方算法为笔者研究的快速逼近算法，它能达到牛顿迭 代法同样的精度，而速度加快二十倍左右，超过双字节定点除法的速度。经过八年来全国 广大用户的实际使用，反馈了不少信息，陆续扩充了一些新的子程序，纠正了一些隐含错 误，成为现在这个最新版本。 本子程序库对单片机应用程序设计技术一书附录中的子程序
2、库作了重大修订： （）按当前流行的以 IBM PC 为主机的开发系统对汇编语言的规定，将原子程序库 的标号和位地址进行了调整，读者不必再进行修改，便可直接使用。 （）对浮点运算子程序库进行了进一步的测试和优化，对十进制浮点数和二进制浮 点数的相互转换子程序进行了彻底改写，提高了运算精度和可靠性。 （）新增添了若干个浮点子程序（传送、比较、清零、判零等），使编写数据处理 程序的工作变得更简单直观。 在使用说明中开列了最主要的几项：标号、入口条件、出口信息、影响资源、堆栈 需求，各项目的意义请参阅单片机应用程序设计技术第六章 6.3.7 节的内容。程序 清单中开列了四个栏目：标号、指令、操作数、注
3、释。为方便读者理解，注释尽力详细。 子程序库的使用方法如下： 将子程序库全部内容链接在应用程序之后，统一编译即可。优点是简单方便，缺 点是程序太长，大量无关子程序也包含在其中。 仅将子程序库中的有关部分内容链接在应用程序之后，统一编译即可。有些子程 序需要调用一些低级子程序，这些低级子程序也应该包含在内。优点是程序紧凑，缺点是 需要对子程序库进行仔细删节。 （一） 定点运算子程序库及其使用说明 定点运算子程序库文件名为DQ51.ASM，为便于使用，先将有关约定说明如下： 多字节定点操作数：用R0或R1来表示存放在由R0或R1指示的连续单元中的数 据。地址小的单元存放数据的高字节。例如：R0=1
4、23456H，若(R0)=30H，则(30H)=12H， (31H)=34H，(32H)=56H。 运算精度：单次定点运算精度为结果最低位的当量值。 qpxd整理 工作区：数据工作区固定在PSW、A、B、R2R7，用户只要不在工作区中存放无 关的或非消耗性的信息，程序就具有较好的透明性。 （） 标号： 功能：多字节码加法 入口条件：字节数在R7中，被加数在R0中，加数在R1中。 出口信息：和在R0中，最高位进位在CY中。 影响资源：PSW、A、R2 堆栈需求： 字节 BCDA: MOV A,R7 ；取字节数至R2中 MOV R2,A ADD A,R0 ；初始化数据指针 MOV R0,A MOV
5、 A,R2 ADD A,R1 MOV R1,A CLR C BCD1: DEC R0 ；调整数据指针 DEC R1 MOV A,R0 ADDC A,R1 ；按字节相加 DA A ；十进制调整 MOV R0,A ；和存回R0中 DJNZ R2,BCD1 ；处理完所有字节 RET （） 标号： 功能：多字节码减法 入口条件：字节数在R7中，被减数在R0中，减数在R1中。 出口信息：差在R0中，最高位借位在CY中。 影响资源：PSW、A、R2、R3 堆栈需求： 字节 BCDB: LCALL NEG1 ；减数R1十进制取补 LCALL BCDA ；按多字节码加法处理 CPL C ；将补码加法的进位标志
6、转换成借位标志 MOV F0,C ；保护借位标志 LCALL NEG1 ；恢复减数R1的原始值 MOV C,F0 ；恢复借位标志 RET NEG1: MOV A,R0 ；R1十进制取补子程序入口 XCH A,R1 ；交换指针 XCH A,R0 LCALL NEG ；通过R0实现R1取补 qpxd整理 MOV A,R0 XCH A,R1 ；换回指针 XCH A,R0 RET （） 标号： 功能：多字节码取补 入口条件：字节数在R7中，操作数在R0中。 出口信息：结果仍在R0中。 影响资源：PSW、A、R2、R3 堆栈需求： 字节 NEG: MOV A,R7 ；取（字节数减一）至R2中 DEC A
7、 MOV R2,A MOV A,R0 ；保护指针 MOV R3,A NEG0: CLR C MOV A,#99H SUBB A,R0 ；按字节十进制取补 MOV R0,A ；存回R0中 INC R0 ；调整数据指针 DJNZ R2,NEG0 ；处理完（R2）字节 MOV A,#9AH ；最低字节单独取补 SUBB A,R0 MOV R0,A MOV A,R3 ；恢复指针 MOV R0,A RET （） 标号： 功能：多字节码左移十进制一位（乘十） 入口条件：字节数在R7中，操作数在R0中。 出口信息：结果仍在R0中，移出的十进制最高位在R3中。 影响资源：PSW、A、R2、R3 堆栈需求： 字
8、节 BRLN: MOV A,R7 ；取字节数至R2中 MOV R2,A ADD A,R0 ；初始化数据指针 MOV R0,A MOV R3,#0 ；工作单元初始化 BRL1: DEC R0 ；调整数据指针 MOV A,R0 ；取一字节 SWAP A ；交换十进制高低位 MOV R0,A ；存回 qpxd整理 MOV A,R3 ；取低字节移出的十进制高位 XCHD A,R0 ；换出本字节的十进制高位 MOV R3,A ；保存本字节的十进制高位 DJNZ R2,BRL1 ；处理完所有字节 RET （） 标号： 功能：双字节二进制无符号数乘法 入口条件：被乘数在R2、R3中，乘数在R6、R7中。 出
9、口信息：乘积在R2、R3、R4、R5中。 影响资源：PSW、A、B、R2R7 堆栈需求： 字节 MULD: MOV A,R3 ；计算R3乘R7 MOV B,R7 MUL AB MOV R4,B ；暂存部分积 MOV R5,A MOV A,R3 ；计算R3乘R6 MOV B,R6 MUL AB ADD A,R4 ；累加部分积 MOV R4,A CLR A ADDC A,B MOV R3,A MOV A,R2 ；计算R2乘R7 MOV B,R7 MUL AB ADD A,R4 ；累加部分积 MOV R4,A MOV A,R3 ADDC A,B MOV R3,A CLR A RLC A XCH A,
10、R2 ；计算R2乘R6 MOV B,R6 MUL AB ADD A,R3 ；累加部分积 MOV R3,A MOV A,R2 ADDC A,B MOV R2,A RET qpxd整理 （） 标号： 功能：双字节二进制无符号数平方 入口条件：待平方数在R2、R3中。 出口信息：结果在R2、R3、R4、R5中。 影响资源：PSW、A、B、R2R5 堆栈需求： 字节 MUL2: MOV A,R3 ；计算R3平方 MOV B,A MUL AB MOV R4,B ；暂存部分积 MOV R5,A MOV A,R2 ；计算R2平方 MOV B,A MUL AB XCH A,R3 ；暂存部分积，并换出R2和R3
11、 XCH A,B XCH A,R2 MUL AB ；计算2R2R3 CLR C RLC A XCH A,B RLC A JNC MU20 INC R2 ；累加溢出量 MU20: XCH A,B ；累加部分积 ADD A,R4 MOV R4,A MOV A,R3 ADDC A,B MOV R3,A CLR A ADDC A,R2 MOV R2,A RET （） 标号： 功能：双字节二进制无符号数除法 入口条件：被除数在R2、R3、R4、R5中，除数在R6、R7中。 出口信息：OV=0 时，双字节商在R2、R3中，OV=1 时溢出。 影响资源：PSW、A、B、R1R7 堆栈需求： 字节 DIVD:
12、 CLR C ；比较被除数和除数 MOV A,R3 qpxd整理 SUBB A,R7 MOV A,R2 SUBB A,R6 JC DVD1 SETB OV ；溢出 RET DVD1: MOV B,#10H ；计算双字节商 DVD2: 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 XCH A,R2 RLC A XCH A,R2 MOV F0,C ；保存溢出位 CLR C SUBB A,R7 ；计算（R2R3R6R7） MOV R1,A MOV A,R2 SUB
13、B A,R6 ANL C,/F0 ；结果判断 JC DVD3 MOV R2,A ；够减，存放新的余数 MOV A,R1 MOV R3,A INC R5 ；商的低位置一 DVD3: DJNZ B,DVD2 ；计算完十六位商（R4R5） MOV A,R4 ；将商移到R2R3中 MOV R2,A MOV A,R5 MOV R3,A CLR OV ；设立成功标志 RET （） 标号： 功能：双字节二进制无符号数除以单字节二进制数 入口条件：被除数在R4、R5中，除数在R7中。 出口信息：OV=0 时，单字节商在R3中，OV=1 时溢出。 qpxd整理 影响资源：PSW、A、R3R7 堆栈需求： 字节
14、D457: CLR C MOV A,R4 SUBB A,R7 JC DV50 SETB OV ；商溢出 RET DV50: MOV R6,#8 ；求平均值（R4R5R7R3） DV51: MOV A,R5 RLC A MOV R5,A MOV A,R4 RLC A MOV R4,A MOV F0,C CLR C SUBB A,R7 ANL C,/F0 JC DV52 MOV R4,A DV52: CPL C MOV A,R3 RLC A MOV R3,A DJNZ R6,DV51 MOV A,R4 ；四舍五入 ADD A,R4 JC DV53 SUBB A,R7 JC DV54 DV53: I
15、NC R3 DV54: CLR OV RET （） 标号： 功能：三字节二进制无符号数除以单字节二进制数 入口条件：被除数在R3、R4、R5中，除数在R7中。 出口信息：OV=0 时，双字节商在R4、R5中，OV=1 时溢出。 影响资源：PSW、A、B、R2R7 堆栈需求： 字节 DV31: CLR C MOV A,R3 SUBB A,R7 qpxd整理 JC DV30 SETB OV ；商溢出 RET DV30: MOV R2,#10H ；求R3R4R5R7R4R5 DM23: CLR C MOV A,R5 RLC A MOV R5,A MOV A,R4 RLC A MOV R4,A MOV
16、 A,R3 RLC A MOV R3,A MOV F0,C CLR C SUBB A,R7 ANL C,/F0 JC DM24 MOV R3,A INC R5 DM24: DJNZ R2,DM23 MOV A,R3 ；四舍五入 ADD A,R3 JC DM25 SUBB A,R7 JC DM26 DM25: INC R5 MOV A,R5 JNZ DM26 INC R4 DM26: CLR OV RET ；商在R4R5中 （） 标号： 功能：双字节二进制有符号数乘法（补码） 入口条件：被乘数在R2、R3中，乘数在R6、R7中。 出口信息：乘积在R2、R3、R4、R5中。 影响资源：PSW、A、
17、B、R2R7 堆栈需求： 字节 MULS: MOV R4,#0 ；清零R4R5 MOV R5,#0 LCALL MDS ；计算结果的符号和两个操作数的绝对值 qpxd整理 LCALL MULD ；计算两个绝对值的乘积 SJMP MDSE ；用补码表示结果 （） 标号： 功能：双字节二进制有符号数除法（补码） 入口条件：被除数在R2、R3、R4、R5中，除数在R6、R7中。 出口信息：OV=0时商在R2、R3中，OV=1时溢出。 影响资源：PSW、A、B、R1R7 堆栈需求： 字节 DIVS: LCALL MDS ；计算结果的符号和两个操作数的绝对值 PUSH PSW ；保存结果的符号 LCAL
18、L 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
19、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 qpxd整理 CPL A ADDC A,#0 MOV R3,A MOV A,R2 CPL A ADDC A,#0 MOV R2,A MDS3: CLR OV ；运算成功 RET （） 标号： 功能：双
20、字节二进制无符号数开平方（快速） 入口条件：被开方数在R2、R3中。 出口信息：平方根仍在R2、R3中，整数部分的位数为原数的一半，其余为小数。 影响资源：PSW、A、B、R2R7 堆栈需求： 字节 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 M
21、OV 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中，整数部分的位数为原数的一半，其余为小数。 qpxd整理 影响资源：PSW、A、B、R2R7 堆栈需求： 字节 SH4: MOV A,R2 ORL A,R3 ORL A,R4 ORL A,R5 JNZ SH40 RET ；被开方数为零，不必运算 SH40: MOV R7,#0 ；左规次
22、数初始化 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 ；规格化后高字节按折线法分为三个区间 A
23、DD 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 ；与区间基点的偏移量乘区间斜率 qpxd整理 MOV A,B ADD A,R4 ；累加到平方根的基数上 MOV R4,A MOV B,A MUL
24、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 ；保存
25、新的偏移量 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 ；通过（R5R6R2）求根的低字节 SQR6: CLR C MOV A,R3 RLC A MOV R3,A CLR C MOV A,R5 SUBB A,R2 JB F0,SQR7 qpxd整理 JC SQR8 SQR7: MOV R5,A INC R3 SQR8: CLR C MOV A,R5 RLC A MOV
26、 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 堆栈需求： 字节 HAS
27、C: 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码（30H39H或41H46H）在A中。 出口信息：转换后的十六进制数（00H0FH）仍在累加器A中。 影响资源：PSW、A 堆栈需求： 字节 qpxd整理 ASCH: CLR C SUBB A,#30H JN
28、B 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 （） 标号： 功能：双字节十六进制整数转换成双字节码整数 入口条件：待转
29、换的双字节十六进制整数在R6、R7中。 出口信息：转换后的三字节码整数在R3、R4、R5中。 影响资源：PSW、A、R2R7 堆栈需求： 字节 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 qpxd整理 ADDC A,R4 DA A MO
30、V 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 ；
31、拼装成单字节码小数 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 qpxd整理 CLR A ADDC A,B
32、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 （）标号： 功能：单字节码整数转换成单字节十六进制整数 入口条件：待转换的单字节码整数在累加器A中。 出口信息：转换后的单字节十六进制整数仍在累加器A中。 影响资源：PSW、A、B、R4 堆栈需求：
33、字节 BCDH: MOV B,#10H ；分离十位和个位 DIV AB MOV R4,B ；暂存个位 MOV B,#10 ；将十位转换成十六进制 MUL AB ADD A,R4 ；按十六进制加上个位 RET （）标号： 功能：双字节码整数转换成双字节十六进制整数 入口条件：待转换的双字节码整数在R2、R3中。 出口信息：转换后的双字节十六进制整数仍在R2、R3中。 影响资源：PSW、A、B、R2、R3、R4 堆栈需求： 字节 BH2: MOV A,R3 ；将低字节转换成十六进制 LCALL BCDH MOV R3,A MOV A,R2 ；将高字节转换成十六进制 LCALL BCDH MOV B
34、,#100 ；扩大一百倍 qpxd整理 MUL AB ADD A,R3 ；和低字节按十六进制相加 MOV R3,A CLR A ADDC A,B MOV R2,A RET （）标号： 功能：单字节码小数转换成单字节十六进制小数 入口条件：待转换的单字节码数在累加器A中。 出口信息：转换后的单字节十六进制小数仍在累加器A中。 影响资源：PSW、A、R2、R3 堆栈需求： 字节 BHD: MOV R2,#8 ；准备计算一个字节小数 BHD0: ADD A,ACC ；按十进制倍增 DA A XCH A,R3 RLC A ；将进位标志移入结果中 XCH A,R3 DJNZ R2,BHD0 ；共计算小数
35、 ADD A,#0B0H ；剩余部分达到否？ JNC BHD1 ；四舍 INC R3 ；五入 BHD1: MOV A,R3 ；取结果 RET （）标号： 功能：双字节码小数转换成双字节十六进制小数 入口条件：待转换的双字节码小数在R4、R5中。 出口信息：转换后的双字节十六进制小数在R2、R3中。* 影响资源：PSW、A、R2R6 堆栈需求： 字节 BHD2: MOV R6,#10H ；准备计算两个字节小数 BHD3: MOV A,R5 ；按十进制倍增 ADD A,R5 DA A MOV R5,A MOV A,R4 ADDC A,R4 DA A MOV R4,A MOV A,R3 ；将进位标志
36、移入结果中 RLC A qpxd整理 MOV R3,A MOV A,R2 RLC A MOV R2,A DJNZ R6,BHD3 ；共计算小数 MOV A,R4 ADD A,#0B0H ；剩余部分达到否？ JNC BHD4 ；四舍 INC R3 ；五入 MOV A,R3 JNZ BHD4 INC R2 BHD4: RET （） 标号： 功能：求单字节十六进制无符号数据块的极值 入口条件：数据块的首址在DPTR中，数据个数在R7中。 出口信息：最大值在R6中，地址在R2R3中；最小值在R7中，地址在R4R5中。 影响资源：PSW、A、B、R1R7 堆栈需求： 字节 MM: MOV B,R7 ；保
37、存数据个数 MOVX A,DPTR ；读取第一个数据 MOV R6,A ；作为最大值的初始值 MOV R7,A ；也作为最小值的初始值 MOV A,DPL ；取第一个数据的地址 MOV R3,A ；作为最大值存放地址的初始值 MOV R5,A ；也作为最小值存放地址的初始值 MOV A,DPH MOV R2,A MOV R4,A MOV A,B ；取数据个数 DEC A ；减一，得到需要比较的次数 JZ MME ；只有一个数据，不需要比较 MOV R1,A ；保存比较次数 PUSH DPL ；保护数据块的首址 PUSH DPH MM1: INC DPTR ；指向一个新的数据 MOVX A,DP
38、TR ；读取这个数据 MOV B,A ；保存 SETB C ；与最大值比较 SUBB A,R6 JC MM2 ；不超过当前最大值，保持当前最大值 MOV R6,B ；超过当前最大值，更新最大值存放地址 MOV R2,DPH ；同时更新最大值存放地址 qpxd整理 MOV R3,DPL SJMP MM3 MM2: MOV A,B ；与最小值比较 CLR C SUBB A,R7 JNC MM3 ；大于或等于当前最小值，保持当前最小值 MOV R7,B ；更新最小值 MOV R4,DPH ；更新最小值存放地址 MOV R5,DPL MM3: DJNZ R1,MM1 ；处理完全部数据 POP DPH
39、；恢复数据首址 POP DPL MME: RET （） 标号： 功能：求单字节十六进制有符号数据块的极值 入口条件：数据块的首址在DPTR中，数据个数在R7中。 出口信息：最大值在R6中， 地址在R2R3中；最小值在R7中，地址在R4R5中。 影响资源：PSW、A、B、R1R7 堆栈需求： 字节 MMS: MOV B,R7 ；保存数据个数 MOVX A,DPTR ；读取第一个数据 MOV R6,A ；作为最大值的初始值 MOV R7,A ；也作为最小值的初始值 MOV A,DPL ；取第一个数据的地址 MOV R3,A ；作为最大值存放地址的初始值 MOV R5,A ；也作为最小值存放地址的初
40、始值 MOV A,DPH MOV R2,A MOV R4,A MOV A,B ；取数据个数 DEC A ；减一，得到需要比较的次数 JZ MMSE ；只有一个数据，不需要比较 MOV R1,A ；保存比较次数 PUSH DPL ；保护数据块的首址 PUSH DPH MMS1: INC DPTR ；调整数据指针 MOVX A,DPTR ；读取一个数据 MOV B,A ；保存 SETB C ；与最大值比较 SUBB A,R6 JZ MMS4 ；相同，不更新最大值 JNB OV,MMS2 ；差未溢出，符号位有效 CPL ACC.7 ；差溢出，符号位取反 qpxd整理 MMS2: JB ACC.7,M
41、MS4；差为负，不更新最大值 MOV R6,B ；更新最大值 MOV R2,DPH ；更新最大值存放地址 MOV R3,DPL SJMP MMS7 MMS4: MOV A,B ；与最小值比较 CLR C SUBB A,R7 JNB OV,MMS6 ；差未溢出，符号位有效 CPL ACC.7 ；差溢出，符号位取反 MMS6: JNB ACC.7,MMS7；差为正，不更新最小值 MOV R7,B ；更新最小值 MOV R4,DPH ；更新最小值存放地址 MOV R5,DPL MMS7: DJNZ R1,MMS1 ；处理完全部数据 POP DPH ；恢复数据首址 POP DPL MMSE: RET
42、（） 标号： 功能：顺序查找（）单字节表格 入口条件：待查找的内容在A中，表格首址在DPTR中，表格的字节数在R7中。 出口信息：OV=0时，顺序号在累加器A中；OV=1时，未找到。 影响资源：PSW、A、B、R2、R6 堆栈需求： 字节 FDS1: MOV B,A ；保存待查找的内容 MOV R2,#0 ；顺序号初始化（指向表首） MOV A,R7 ；保存表格的长度 MOV R6,A FD11: MOV A,R2 ；按顺序号读取表格内容 MOVC A,A+DPTR CJNE A,B,FD12；与待查找的内容比较 CLR OV ；相同，查找成功 MOV A,R2 ；取对应的顺序号 RET FD
43、12: INC R2 ；指向表格中的下一个内容 DJNZ R6,FD11 ；查完全部表格内容 SETB OV ；未查找到，失败 RET （） 标号： 功能：顺序查找（）双字节表格 入口条件：查找内容在R4、R5中，表格首址在DPTR中，数据总个数在R7中。 出口信息：OV=0时顺序号在累加器A中，地址在DPTR中；OV=1时未找到。 qpxd整理 影响资源：PSW、A、R2、R6、DPTR 堆栈需求： 字节 FDS2: MOV A,R7 ；保存表格中数据的个数 MOV R6,A MOV R2,#0 ；顺序号初始化（指向表首） FD21: CLR A ；读取表格内容的高字节 MOVC A,A+D
44、PTR XRL A,R4 ；与待查找内容的高字节比较 JNZ FD22 MOV A,#1 ；读取表格内容的低字节 MOVC A,A+DPTR XRL A,R5 ；与待查找内容的低字节比较 JNZ FD22 CLR OV ；相同，查找成功 MOV A,R2 ；取对应的顺序号 RET FD22: INC DPTR ；指向下一个数据 INC DPTR INC R2 ；顺序号加一 DJNZ R6,FD21 ；查完全部数据 SETB OV ；未查找到，失败 RET （） 标号： 功能：对分查找（）单字节无符号增序数据表格 入口条件：待查找的内容在累加器A中，表格首址在DPTR中，字节数在R7中。 出口信
45、息：OV=0 时，顺序号在累加器A中；OV=1 时，未找到。 影响资源：PSW、A、B、R2、R3、R4 堆栈需求： 字节 FDD1: MOV B,A ；保存待查找的内容 MOV R2,#0 ；区间低端指针初始化（指向第一个数据） MOV A,R7 DEC A MOV R3,A ；区间高端指针初始化（指向最后一个数据） FD61: CLR C ；判断区间大小 MOV A,R3 SUBB A,R2 JC FD69 ；区间消失，查找失败 RRC A ；取区间大小的一半 ADD A,R2 ；加上区间的低端 MOV R4,A ；得到区间的中心 MOVC A,A+DPTR；读取该点的内容 CJNE A,
46、B,FD65；与待查找的内容比较 CLR OV ；相同，查找成功 qpxd整理 MOV A,R4 ；取顺序号 RET FD65: JC FD68 ；该点的内容比待查找的内容大否？ MOV A,R4 ；偏大，取该点位置 DEC A ；减一 MOV R3,A ；作为新的区间高端 SJMP FD61 ；继续查找 FD68: MOV A,R4 ；偏小，取该点位置 INC A ；加一 MOV R2,A ；作为新的区间低端 SJMP FD61 ；继续查找 FD69: SETB OV ；查找失败 RET （） 标号： 功能：对分查找（）双字节无符号增序数据表格 入口条件：查找内容在R4、R5中，表格首址在D
47、PTR中，数据个数在R7中。 出口信息：OV=0 时顺序号在累加器A中，址在DPTR中；OV=1 时未找到。 影响资源：PSW、A、B、R1R7、DPTR 堆栈需求： 字节 FDD2: MOV R2,#0 ；区间低端指针初始化（指向第一个数据） MOV A,R7 DEC A MOV R3,A ；区间高端指针初始化，指向最后一个数据 MOV R6,DPH ；保存表格首址 MOV R7,DPL FD81: CLR C ；判断区间大小 MOV A,R3 SUBB A,R2 JC FD89 ；区间消失，查找失败 RRC A ；取区间大小的一半 ADD A,R2 ；加上区间的低端 MOV R1,A ；得
48、到区间的中心 MOV DPH,R6 CLR C ；计算区间中心的地址 RLC A JNC FD82 INC DPH FD82: ADD A,R7 MOV DPL,A JNC FD83 INC DPH FD83: CLR A ；读取该点的内容的高字节 MOVC A,A+DPTR qpxd整理 MOV B,R4 ；与待查找内容的高字节比较 CJNE A,B,FD84；不相同 MOV A,#1 ；读取该点的内容的低字节 MOVC A,A+DPTR MOV B,R5 CJNE A,B,FD84；与待查找内容的低字节比较 MOV A,R1 ；取顺序号 CLR OV ；查找成功 RET FD84: JC FD86 ；该点的内容比待查找的内容大否？ MOV A,R1 ；偏大，取该点位置 DE
