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

1、MCS-51单片机实用子程序库（一） 定点运算子程序库及其使用说明 （） 标号： 功能：多字节码加法（） 标号： 功能：多字节码减法（） 标号： 功能：多字节码取补（） 标号： 功能：多字节码左移十进制一位（乘十）（） 标号： 功能：双字节二进制无符号数乘法（） 标号： 功能：双字节二进制无符号数平方（） 标号： 功能：双字节二进制无符号数除法（） 标号： 功能：双字节二进制无符号数除以单字节二进制数（） 标号： 功能：三字节二进制无符号数除以单字节二进制数（） 标号： 功能：双字节二进制有符号数乘法（补码）（） 标号： 功能：双字节二进制有符号数除法（补码）（） 标号： 功能：双字节二进制无

2、符号数开平方（快速）（） 标号： 功能：四字节二进制无符号数开平方（快速）（） 标号： 功能：单字节十六进制数转换成双字节ASCII码（） 标号： 功能：ASCII码转换成十六进制数（） 标号： 功能：单字节十六进制整数转换成单字节码整数（） 标号： 功能：双字节十六进制整数转换成三字节码整数（） 标号： 功能：单字节十六进制小数转换成单字节码小数（） 标号： 功能：双字节十六进制小数转换成双字节码小数（）标号： 功能：单字节码整数转换成单字节十六进制整数（）标号： 功能：双字节码整数转换成双字节十六进制整数()标号： 功能：单字节码小数转换成单字节十六进制小数（）标号： 功能：双字节码小数转

3、换成双字节十六进制小数（） 标号： 功能：求单字节十六进制无符号数据块的极值（） 标号： 功能：求单字节十六进制有符号数据块的极值（） 标号： 功能：顺序查找（）单字节表格（） 标号： 功能：顺序查找（）双字节表格（） 标号： 功能：对分查找（）单字节无符号增序数据表格（） 标号： 功能：对分查找（）双字节无符号增序数据表格（） 标号： 功能：求单字节十六进制无符号数据块的平均值（） 标号： 功能：求双字节十六进制无符号数据块的平均值（） 标号： 功能：求单字节数据块的（异或）校验和（） 标号： 功能：求双字节数据块的（异或）校验和（） 标号： 功能：单字节无符号数据块排序（增序）（二） 浮点

4、运算子程序库及其使用说明 （） 标号： 功能：浮点数格式化（） 标号： 功能：浮点数加法（） 标号： 功能：浮点数减法() 标号： 功能：浮点数乘法（） 标号： 功能：浮点数除法 （） 标号： 功能：浮点数清零（） 标号： 功能：浮点数判零（） 标号： 功能：浮点数传送（） 标号： 功能：浮点数压栈（） 标号： 功能：浮点数出栈（） 标号： 功能：浮点数代数值比较（不影响待比较操作数）（） 标号： 功能：浮点绝对值函数（） 标号： 功能：浮点符号函数（） 标号： 功能：浮点取整函数() 标号： 功能：浮点倒数函数（） 标号： 功能：浮点数平方（） 标号： 功能：浮点数开平方（快速逼近算法）（）

5、 标号： 功能：浮点数多项式计算（） 标号： 功能：以为底的浮点对数函数（） 标号： 功能：以为底的浮点对数函数（） 标号： 功能：以为底的浮点指数函数（） 标号： 功能：以为底的浮点指数函数（） 标号： 功能：以为底的浮点指数函数（）标号： 功能：双字节十六进制定点数转换成格式化浮点数（） 标号： 功能：格式化浮点数转换成双字节定点数（） 标号： 功能：浮点码转换成格式化浮点数（） 标号： 功能：格式化浮点数转换成浮点码（） 标号： 功能：浮点余弦函数（） 标号： 功能：浮点正弦函数（） 标号： 功能：浮点反正切函数（） 标号： 功能：浮点弧度数转换成浮点度数（） 标号： 功能：浮点度数转换

6、成浮点弧度数*（三）实用程序清单：清单1：双精度加法子程序清单2：被减数x1与减数x2比较大小子程序清单3；浮点减法子程序，减数数符求反后为加数清单4：;浮点乘法子程序清单5 ;浮点除法子程序清单6; 浮点数开平方子程序清单7 ;浮点数牛顿迭代开平方子程序清单8;基本运算子程序的演示程序清单9;装入浮点数清单10 ;计算奇次多项式值(ln x、sin x、arcsin x 等)子程序清单11 计算对数函数子程序清单12 先取ln 10，计算x?ln a清单13 弧度化为角度清单14 反正弦函数子程序清单15 函数子程序的演示程序清单16 ;阶乘子程序,定点二进制整数n 在R4 中清单17 ;定

7、点整数二翻十清单18 ;定点十进制数变二进制浮点数,数符已装入7BH 位,0 表正,1 表负清单19 ;最小二乘法拟合直线程序清单20 ;定点16位整数×16 位整数32 位整数清单21 INTSQR：取17位根，末位舍入清单22 SLPAV：滑动平均子程序清单23 BCDSB:减法子程序清单24 TBLENGTH EQU 10；CHETA:;字排序清单25 FUNC2:功能2 标志清单26 ACUM ;地址 4060H 1 2 3 4 5 6 7 8 9 a b c d e f 70 71H;ASCII 码串T I , A S ,+/-x x x x x x x k g CR LF

8、清单27 RDATE:;读日期清单28 GETAD1:传输清单29 DSPA:;显示程序清单30 LFDD8：键入BCD 码（最多8 位）左移子程序清单31 KEYIN2:只用二键输入数字程序P1.7选数P1.6 回车清单32 定时时钟清单33 PPRNT：打印清单34 SPDRV1:基本运作定时步进电机清单35 清单36 清单37 串行通信清单38 START4：；转8250 中断服务子程序清单39 P8255A EQU 7800H;显示口，只写 P8255B EQU 7000H;打印口清单40 CRCST:;循环余检测子程序清单41 GTOB8 8位格莱码(在ACC中)翻为二进制数*清单4

9、2 FPCPR: ;被减数x1 与减数x2 比较大小子程序清单43 FPSUB: ;浮点减法子程序清单44 FPMUL: ;浮点乘法子程序,尾数相乘(a+b)?(c+d)ac+ad+bc+bd清单45 FPDIV清单46 FPDI2清单47 FPSQ:;模拟手算快速开平方子程序,先建实数标志清单48 FSQR:清单49 DMST: 演示程序清单50清单51 LNX:对数函数子程序,ln x=mln 2+lnt 或ln x=(m-1)ln 2+ln(2t)清单52 DXP:以10 为底的指数函数子程序清单53 CTNX1:余切函数子程序,x为角度,先化为弧度CTNX:余切函数子程序,x 为弧度,

10、先计算正切值清单54 ASINX 反正弦函数及其衍生函数子程序清单清单55 NP;阶乘子程序清单56 SINTBTD:超长整数（最大限为270FFFFFFFFFH，在28H，26H，24H三字中）翻为十进制整数在33H2CH 中清单57 DTOB:;浮点数十翻二子程序清单58 FBTD:;浮点数分解为定点整数及定点小数清单59清单60 BEGN:;键盘管理程序清单61 TIM96: 精确定时程序清单62 SSEND:;软件定时器定时发送字符子程序(用P2.5)清单63 SSEND1:;用HSO定时发送字符子程序清单64 SRECV;用高速输入器件HSI0 和软件定时器1 定时接收字符子程清单6

11、5 CRC0B: CRC 校验程序清单66 GB16:16 位格莱码变二进制数 （一） 定点运算子程序库及其使用说明 定点运算子程序库文件名为DQ51.ASM，为便于使用，先将有关约定说明如下：多字节定点操作数：用R0或R1来表示存放在由R0或R1指示的连续单元中的数据。地址小的单元存放数据的高字节。例如：R0=123456H，若(R0)=30H，则(30H)=12H，(31H)=34H，(32H)=56H。运算精度：单次定点运算精度为结果最低位的当量值。工作区：数据工作区固定在PSW、A、B、R2R7，用户只要不在工作区中存放无关的或非消耗性的信息，程序就具有较好的透明性。（） 标号： 功能

12、：多字节码加法入口条件：字节数在R7中，被加数在R0中，加数在R1中。出口信息：和在R0中，最高位进位在CY中。影响资源：PSW、A、R2 堆栈需求： 字节BCDA: MOV A,R7 ；取字节数至R2中MOV R2,AADD A,R0 ；初始化数据指针MOV R0,AMOV A,R2ADD A,R1MOV R1,ACLR CBCD1: DEC R0 ；调整数据指针DEC R1MOV A,R0ADDC A,R1 ；按字节相加DA A ；十进制调整MOV R0,A ；和存回R0中DJNZ R2,BCD1 ；处理完所有字节RET（） 标号： 功能：多字节码减法入口条件：字节数在R7中，被减数在R0

13、中，减数在R1中。出口信息：差在R0中，最高位借位在CY中。影响资源：PSW、A、R2、R3 堆栈需求： 字节BCDB: LCALL NEG1 ；减数R1十进制取补LCALL BCDA ；按多字节码加法处理CPL C ；将补码加法的进位标志转换成借位标志MOV F0,C ；保护借位标志LCALL NEG1 ；恢复减数R1的原始值MOV C,F0 ；恢复借位标志RETNEG1: MOV A,R0 ；R1十进制取补子程序入口XCH A,R1 ；交换指针XCH A,R0LCALL NEG ；通过R0实现R1取补MOV A,R0XCH A,R1 ；换回指针XCH A,R0RET（） 标号： 功能：多字

14、节码取补入口条件：字节数在R7中，操作数在R0中。出口信息：结果仍在R0中。影响资源：PSW、A、R2、R3 堆栈需求： 字节NEG: MOV A,R7 ；取（字节数减一）至R2中DEC AMOV R2,AMOV A,R0 ；保护指针MOV R3,ANEG0: CLR C MOV A,#99HSUBB A,R0 ；按字节十进制取补MOV R0,A ；存回R0中INC R0 ；调整数据指针DJNZ R2,NEG0 ；处理完（R2）字节MOV A,#9AH ；最低字节单独取补SUBB A,R0MOV R0,AMOV A,R3 ；恢复指针MOV R0,ARET（） 标号： 功能：多字节码左移十进制一

15、位（乘十）入口条件：字节数在R7中，操作数在R0中。出口信息：结果仍在R0中，移出的十进制最高位在R3中。影响资源：PSW、A、R2、R3 堆栈需求： 字节BRLN: MOV A,R7 ；取字节数至R2中MOV R2,AADD A,R0 ；初始化数据指针MOV R0,AMOV R3,#0 ；工作单元初始化BRL1: DEC R0 ；调整数据指针MOV A,R0 ；取一字节SWAP A ；交换十进制高低位MOV R0,A ；存回MOV A,R3 ；取低字节移出的十进制高位XCHD A,R0 ；换出本字节的十进制高位MOV R3,A ；保存本字节的十进制高位DJNZ R2,BRL1 ；处理完所有字

16、节RET（） 标号： 功能：双字节二进制无符号数乘法入口条件：被乘数在R2、R3中，乘数在R6、R7中。出口信息：乘积在R2、R3、R4、R5中。影响资源：PSW、A、B、R2R7 堆栈需求： 字节MULD: MOV A,R3 ；计算R3乘R7MOV B,R7MUL ABMOV R4,B ；暂存部分积MOV R5,AMOV A,R3 ；计算R3乘R6MOV B,R6MUL ABADD A,R4 ；累加部分积MOV R4,ACLR AADDC A,BMOV R3,AMOV A,R2 ；计算R2乘R7MOV B,R7MUL ABADD A,R4 ；累加部分积MOV R4,AMOV A,R3ADDC

17、 A,BMOV R3,ACLR ARLC AXCH A,R2 ；计算R2乘R6MOV B,R6MUL ABADD A,R3 ；累加部分积MOV R3,AMOV A,R2ADDC A,BMOV R2,ARET（） 标号： 功能：双字节二进制无符号数平方入口条件：待平方数在R2、R3中。出口信息：结果在R2、R3、R4、R5中。影响资源：PSW、A、B、R2R5 堆栈需求： 字节MUL2: MOV A,R3 ；计算R3平方MOV B,AMUL ABMOV R4,B ；暂存部分积MOV R5,AMOV A,R2 ；计算R2平方MOV B,AMUL ABXCH A,R3 ；暂存部分积，并换出R2和R3

18、XCH A,BXCH A,R2MUL AB ；计算2×R2×R3CLR CRLC AXCH A,BRLC AJNC MU20INC R2 ；累加溢出量MU20: XCH A,B ；累加部分积ADD A,R4MOV R4,AMOV A,R3ADDC A,BMOV R3,ACLR AADDC A,R2MOV R2,ARET（） 标号： 功能：双字节二进制无符号数除法入口条件：被除数在R2、R3、R4、R5中，除数在R6、R7中。出口信息：OV=0 时，双字节商在R2、R3中，OV=1 时溢出。影响资源：PSW、A、B、R1R7 堆栈需求： 字节DIVD: CLR C ；比较被除

19、数和除数MOV A,R3 SUBB A,R7MOV A,R2SUBB A,R6JC DVD1SETB OV ；溢出RETDVD1: MOV B,#10H ；计算双字节商DVD2: CLR C ；部分商和余数同时左移一位MOV A,R5RLC AMOV R5,AMOV A,R4RLC AMOV R4,AMOV A,R3RLC AMOV R3,AXCH A,R2RLC AXCH A,R2MOV F0,C ；保存溢出位CLR CSUBB A,R7 ；计算（R2R3R6R7）MOV R1,AMOV A,R2SUBB A,R6ANL C,/F0 ；结果判断JC DVD3MOV R2,A ；够减，存放新的

20、余数MOV A,R1MOV R3,AINC R5 ；商的低位置一DVD3: DJNZ B,DVD2 ；计算完十六位商（R4R5）MOV A,R4 ；将商移到R2R3中MOV R2,AMOV A,R5MOV R3,ACLR OV ；设立成功标志RET（） 标号： 功能：双字节二进制无符号数除以单字节二进制数入口条件：被除数在R4、R5中，除数在R7中。出口信息：OV=0 时，单字节商在R3中，OV=1 时溢出。影响资源：PSW、A、R3R7 堆栈需求： 字节D457: CLR CMOV A,R4SUBB A,R7JC DV50SETB OV ；商溢出RETDV50: MOV R6,#8 ；求平均

21、值（R4R5R7R3）DV51: MOV A,R5RLC AMOV R5,AMOV A,R4RLC AMOV R4,AMOV F0,CCLR CSUBB A,R7ANL C,/F0JC DV52MOV R4,ADV52: CPL CMOV A,R3RLC AMOV R3,ADJNZ R6,DV51MOV A,R4 ；四舍五入ADD A,R4JC DV53SUBB A,R7JC DV54DV53: INC R3DV54: CLR OVRET（） 标号： 功能：三字节二进制无符号数除以单字节二进制数入口条件：被除数在R3、R4、R5中，除数在R7中。出口信息：OV=0 时，双字节商在R4、R5中，

22、OV=1 时溢出。影响资源：PSW、A、B、R2R7 堆栈需求： 字节DV31: CLR CMOV A,R3SUBB A,R7JC DV30SETB OV ；商溢出RETDV30: MOV R2,#10H ；求R3R4R5R7R4R5DM23: CLR CMOV A,R5RLC AMOV R5,AMOV A,R4RLC AMOV R4,AMOV A,R3RLC AMOV R3,AMOV F0,CCLR CSUBB A,R7ANL C,/F0JC DM24MOV R3,AINC R5DM24: DJNZ R2,DM23MOV A,R3 ；四舍五入ADD A,R3JC DM25SUBB A,R7J

23、C DM26DM25: INC R5MOV A,R5JNZ DM26INC R4DM26: CLR OVRET ；商在R4R5中 （） 标号： 功能：双字节二进制有符号数乘法（补码）入口条件：被乘数在R2、R3中，乘数在R6、R7中。出口信息：乘积在R2、R3、R4、R5中。影响资源：PSW、A、B、R2R7 堆栈需求： 字节MULS: MOV R4,#0 ；清零R4R5MOV R5,#0LCALL MDS ；计算结果的符号和两个操作数的绝对值LCALL MULD ；计算两个绝对值的乘积SJMP MDSE ；用补码表示结果（） 标号： 功能：双字节二进制有符号数除法（补码） 入口条件：被除数在

24、R2、R3、R4、R5中，除数在R6、R7中。出口信息：OV=0时商在R2、R3中，OV=1时溢出。影响资源：PSW、A、B、R1R7 堆栈需求： 字节DIVS: LCALL MDS ；计算结果的符号和两个操作数的绝对值PUSH PSW ；保存结果的符号LCALL DIVD ；计算两个绝对值的商JNB OV,DVS1 ；溢出否？POP ACC ；溢出，放去结果的符号，保留溢出标志RETDVS1: POP PSW ；未溢出，取出结果的符号MOV R4,#0MOV R5,#0MDSE: JB F0,MDS2 ；用补码表示结果CLR OV ；结果为正，原码即补码，计算成功RETMDS: CLR F0

25、 ；结果符号初始化MOV A,R6 ；判断第二操作数的符号JNB ACC.7,MDS1；为正，不必处理CPL F0 ；为负，结果符号取反XCH A,R7 ；第二操作数取补，得到其绝对值CPL AADD A,#1XCH A,R7CPL AADDC A,#0MOV R6,AMDS1: MOV A,R2 ；判断第一操作数或运算结果的符号JNB ACC.7,MDS3；为正，不必处理CPL F0 ；为负，结果符号取反MDS2: MOV A,R5 ；求第一操作数的绝对值或运算结果的补码CPL AADD A,#1MOV R5,AMOV A,R4CPL AADDC A,#0MOV R4,AMOV A,R3CP

26、L AADDC A,#0MOV R3,AMOV A,R2CPL AADDC A,#0MOV R2,AMDS3: CLR OV ；运算成功RET（） 标号： 功能：双字节二进制无符号数开平方（快速）入口条件：被开方数在R2、R3中。出口信息：平方根仍在R2、R3中，整数部分的位数为原数的一半，其余为小数。影响资源：PSW、A、B、R2R7 堆栈需求： 字节SH2: MOV A,R2ORL A,R3JNZ SH20RET ；被开方数为零，不必运算SH20: MOV R7,#0 ；左规次数初始化MOV A,R2SH22: ANL A,#0C0H ；被开方数高字节小于否？JNZ SQRH ；不小于，左

27、规格化完成，转开方过程CLR C ；每左规一次，被开方数左移两位MOV A,R3RLC AMOV F0,CCLR CRLC AMOV R3,AMOV A,R2MOV ACC.7,CMOV C,F0RLC ARLC AMOV R2,AINC R7 ；左规次数加一SJMP SH22 ；继续左规（） 标号： 功能：四字节二进制无符号数开平方（快速）入口条件：被开方数在R2、R3、R4、R5中。出口信息：平方根在R2、R3中，整数部分的位数为原数的一半，其余为小数。影响资源：PSW、A、B、R2R7 堆栈需求： 字节SH4: MOV A,R2ORL A,R3ORL A,R4ORL A,R5JNZ SH

28、40RET ；被开方数为零，不必运算SH40: MOV R7,#0 ；左规次数初始化MOV A,R2SH41: ANL A,#0C0H ；被开方数高字节小于否？JNZ SQRH ；不小于，左规格化完成MOV R6,#2 ；每左规一次，被开方数左移两位SH42: CLR C ；被开方数左移一位MOV A,R5RLC AMOV R5,AMOV A,R4RLC AMOV R4,AMOV A,R3RLC AMOV R3,AMOV A,R2RLC AMOV R2,ADJNZ R6,SH42 ；被开方数左移完两位INC R7 ；左规次数加一SJMP SH41 ；继续左规SQRH: MOV A,R2 ；规格

29、化后高字节按折线法分为三个区间ADD A,#57HJC SQR2ADD A,#45HJC SQR1ADD A,#24HMOV B,#0E3H ；第一区间的斜率MOV R4,#80H ；第一区间的平方根基数SJMP SQR3SQR1: MOV B,#0B2H ；第二区间的斜率MOV R4,#0A0H；第二区间的平方根基数SJMP SQR3SQR2: MOV B,#8DH ；第三区间的斜率MOV R4,#0D0H；第三区间的平方根基数SQR3: MUL AB ；与区间基点的偏移量乘区间斜率MOV A,BADD A,R4 ；累加到平方根的基数上MOV R4,AMOV B,AMUL AB ；求当前平方

30、根的幂XCH A,R3 ；求偏移量（存放在R2R3中）CLR CSUBB A,R3MOV R3,AMOV A,R2SUBB A,BMOV R2,ASQR4: SETB C ；用减奇数法校正一个字节的平方根MOV A,R4 ；当前平方根的两倍加一存入R5R6中RLC AMOV R6,ACLR ARLC AMOV R5,AMOV A,R3 ；偏移量小于该奇数否？SUBB A,R6MOV B,AMOV A,R2SUBB A,R5JC SQR5 ；小于，校正结束，已达到一个字节的精度INC R4 ；不小于，平方根加一MOV R2,A ；保存新的偏移量MOV R3,BSJMP SQR4 ；继续校正SQR

31、5: MOV A,R4 ；将一个字节精度的根存入R2XCH A,R2RRC AMOV F0,C ；保存最终偏移量的最高位MOV A,R3MOV R5,A ；将最终偏移量的低八位存入R5中MOV R4,#8 ；通过（R5R6R2）求根的低字节SQR6: CLR CMOV A,R3RLC AMOV R3,ACLR CMOV A,R5SUBB A,R2JB F0,SQR7JC SQR8SQR7: MOV R5,AINC R3SQR8: CLR CMOV A,R5RLC AMOV R5,AMOV F0,CDJNZ R4,SQR6 ；根的第二字节计算完，在R3中MOV A,R7 ；取原被开方数的左规次数

32、JZ SQRE ；未左规，开方结束SQR9: CLR C ；按左规次数右移平方根，得到实际根MOV A,R2RRC AMOV R2,AMOV A,R3RRC AMOV R3,ADJNZ R7,SQR9SQRE: RET（） 标号： 功能：单字节十六进制数转换成双字节ASCII码入口条件：待转换的单字节十六进制数在累加器A中。出口信息：高四位的ASCII码在A中，低四位的ASCII码在B中。影响资源：PSW、A、B 堆栈需求： 字节HASC: MOV B,A ；暂存待转换的单字节十六进制数LCALL HAS1 ；转换低四位XCH A,B ；存放低四位的ASCII码SWAP A ；准备转换高四位H

33、AS1: ANL A,#0FH ；将累加器的低四位转换成ASCII码ADD A,#90HDA AADDC A,#40HDA ARET（） 标号： 功能：ASCII码转换成十六进制数入口条件：待转换的ASCII码（30H39H或41H46H）在A中。出口信息：转换后的十六进制数（00H0FH）仍在累加器A中。影响资源：PSW、A 堆栈需求： 字节ASCH: CLR CSUBB A,#30HJNB ACC.4,ASH1SUBB A,#7ASH1: RET（） 标号： 功能：单字节十六进制整数转换成单字节码整数入口条件：待转换的单字节十六进制整数在累加器A中。出口信息：转换后的码整数（十位和个位）仍

34、在累加器A中，百位在R3中。影响资源：PSW、A、B、R3 堆栈需求： 字节HBCD: MOV B,#100 ；分离出百位，存放在R3中DIV ABMOV R3,AMOV A,#10 ；余数继续分离十位和个位XCH A,BDIV ABSWAP AORL A,B ；将十位和个位拼装成码RET（） 标号： 功能：双字节十六进制整数转换成三字节码整数入口条件：待转换的双字节十六进制整数在R6、R7中。出口信息：转换后的三字节码整数在R3、R4、R5中。影响资源：PSW、A、R2R7 堆栈需求： 字节HB2: CLR A ；码初始化MOV R3,AMOV R4,AMOV R5,AMOV R2,#10H

35、 ；转换双字节十六进制整数HB3: MOV A,R7 ；从高端移出待转换数的一位到CY中RLC AMOV R7,AMOV A,R6RLC AMOV R6,AMOV A,R5 ；码带进位自身相加，相当于乘ADDC A,R5DA A ；十进制调整MOV R5,AMOV A,R4ADDC A,R4DA AMOV R4,AMOV A,R3ADDC A,R3MOV R3,A ；双字节十六进制数的万位数不超过，不用调整DJNZ R2,HB3 ；处理完RET（） 标号： 功能：单字节十六进制小数转换成单字节码小数入口条件：待转换的单字节十六进制小数在累加器A中。出口信息：CY=0时转换后的码小数仍在A中。C

36、Y=1时原小数接近整数。影响资源：PSW、A、B 堆栈需求： 字节HBD: MOV B,#100 ；原小数扩大一百倍MUL ABRLC A ；余数部分四舍五入CLR AADDC A,BMOV B,#10 ；分离出十分位和百分位DIV ABSWAP AADD A,B ；拼装成单字节码小数DA A ；调整后若有进位，原小数接近整数RET（） 标号： 功能：双字节十六进制小数转换成双字节码小数入口条件：待转换的双字节十六进制小数在R2、R3中。出口信息：转换后的双字节码小数仍在R2、R3中。影响资源：PSW、A、B、R2、R3、R4、R5 堆栈需求： 字节HBD2: MOV R4,#4 ；四位十进制

37、码HBD3: MOV A,R3 ；原小数扩大十倍MOV B,#10MUL ABMOV R3,AMOV R5,BMOV A,R2MOV B,#10MUL ABADD A,R5MOV R2,ACLR AADDC A,BPUSH ACC ；保存溢出的一位十进制码DJNZ R4,HBD3 ；计算完四位十进制码POP ACC ；取出万分位MOV R3,APOP ACC ；取出千分位SWAP AORL A,R3 ；拼装成低字节码小数MOV R3,APOP ACC ；取出百分位MOV R2,APOP ACC ；取出十分位SWAP AORL A,R2 ；拼装成高字节码小数MOV R2,ARET（）标号： 功能

38、：单字节码整数转换成单字节十六进制整数入口条件：待转换的单字节码整数在累加器A中。出口信息：转换后的单字节十六进制整数仍在累加器A中。影响资源：PSW、A、B、R4 堆栈需求： 字节BCDH: MOV B,#10H ；分离十位和个位DIV ABMOV R4,B ；暂存个位MOV B,#10 ；将十位转换成十六进制MUL ABADD A,R4 ；按十六进制加上个位RET（）标号： 功能：双字节码整数转换成双字节十六进制整数入口条件：待转换的双字节码整数在R2、R3中。出口信息：转换后的双字节十六进制整数仍在R2、R3中。影响资源：PSW、A、B、R2、R3、R4 堆栈需求： 字节BH2: MOV

39、 A,R3 ；将低字节转换成十六进制LCALL BCDHMOV R3,AMOV A,R2 ；将高字节转换成十六进制LCALL BCDHMOV B,#100 ；扩大一百倍MUL ABADD A,R3 ；和低字节按十六进制相加MOV R3,ACLR AADDC A,BMOV R2,ARET(）标号： 功能：单字节码小数转换成单字节十六进制小数入口条件：待转换的单字节码数在累加器A中。出口信息：转换后的单字节十六进制小数仍在累加器A中。影响资源：PSW、A、R2、R3 堆栈需求： 字节BHD: MOV R2,#8 ；准备计算一个字节小数BHD0: ADD A,ACC ；按十进制倍增DA AXCH A

40、,R3RLC A ；将进位标志移入结果中XCH A,R3DJNZ R2,BHD0 ；共计算小数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,R5DA AMOV R5,AMOV A,R4ADDC A,

41、R4DA AMOV R4,AMOV A,R3 ；将进位标志移入结果中RLC AMOV R3,AMOV A,R2RLC AMOV R2,ADJNZ R6,BHD3 ；共计算小数MOV A,R4ADD A,#0B0H ；剩余部分达到否？JNC BHD4 ；四舍INC R3 ；五入MOV A,R3JNZ BHD4INC R2BHD4: RET（） 标号： 功能：求单字节十六进制无符号数据块的极值入口条件：数据块的首址在DPTR中，数据个数在R7中。出口信息：最大值在R6中，地址在R2R3中；最小值在R7中，地址在R4R5中。影响资源：PSW、A、B、R1R7 堆栈需求： 字节MM: MOV B,R7

42、 ；保存数据个数MOVX A,DPTR ；读取第一个数据MOV R6,A ；作为最大值的初始值MOV R7,A ；也作为最小值的初始值MOV A,DPL ；取第一个数据的地址MOV R3,A ；作为最大值存放地址的初始值MOV R5,A ；也作为最小值存放地址的初始值MOV A,DPHMOV R2,AMOV R4,AMOV A,B ；取数据个数DEC A ；减一，得到需要比较的次数JZ MME ；只有一个数据，不需要比较MOV R1,A ；保存比较次数PUSH DPL ；保护数据块的首址PUSH DPHMM1: INC DPTR ；指向一个新的数据MOVX A,DPTR ；读取这个数据MOV

43、B,A ；保存SETB C ；与最大值比较SUBB A,R6JC MM2 ；不超过当前最大值，保持当前最大值MOV R6,B ；超过当前最大值，更新最大值存放地址MOV R2,DPH ；同时更新最大值存放地址MOV R3,DPLSJMP MM3MM2: MOV A,B ；与最小值比较CLR CSUBB A,R7JNC MM3 ；大于或等于当前最小值，保持当前最小值MOV R7,B ；更新最小值MOV R4,DPH ；更新最小值存放地址MOV R5,DPLMM3: DJNZ R1,MM1 ；处理完全部数据POP DPH ；恢复数据首址POP DPLMME: RET（） 标号： 功能：求单字节十六

44、进制有符号数据块的极值入口条件：数据块的首址在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 ；也作为最小值存放地址的初始值MOV A,DPHMOV R2,AMOV R4,AMOV A,B ；取数据个数DEC A ；减一，

45、得到需要比较的次数JZ MMSE ；只有一个数据，不需要比较MOV R1,A ；保存比较次数PUSH DPL ；保护数据块的首址PUSH DPHMMS1: INC DPTR ；调整数据指针MOVX A,DPTR ；读取一个数据MOV B,A ；保存SETB C ；与最大值比较SUBB A,R6JZ MMS4 ；相同，不更新最大值JNB OV,MMS2 ；差未溢出，符号位有效CPL ACC.7 ；差溢出，符号位取反MMS2: JB ACC.7,MMS4；差为负，不更新最大值MOV R6,B ；更新最大值MOV R2,DPH ；更新最大值存放地址MOV R3,DPLSJMP MMS7MMS4: M

46、OV A,B ；与最小值比较CLR CSUBB A,R7JNB OV,MMS6 ；差未溢出，符号位有效CPL ACC.7 ；差溢出，符号位取反MMS6: JNB ACC.7,MMS7；差为正，不更新最小值MOV R7,B ；更新最小值MOV R4,DPH ；更新最小值存放地址MOV R5,DPLMMS7: DJNZ R1,MMS1 ；处理完全部数据POP DPH ；恢复数据首址POP DPLMMSE: RET（） 标号： 功能：顺序查找（）单字节表格入口条件：待查找的内容在A中，表格首址在DPTR中，表格的字节数在R7中。出口信息：OV=0时，顺序号在累加器A中；OV=1时，未找到。影响资源：

47、PSW、A、B、R2、R6 堆栈需求： 字节FDS1: MOV B,A ；保存待查找的内容MOV R2,#0 ；顺序号初始化（指向表首）MOV A,R7 ；保存表格的长度MOV R6,AFD11: MOV A,R2 ；按顺序号读取表格内容MOVC A,A+DPTRCJNE A,B,FD12；与待查找的内容比较CLR OV ；相同，查找成功MOV A,R2 ；取对应的顺序号RETFD12: INC R2 ；指向表格中的下一个内容DJNZ R6,FD11 ；查完全部表格内容SETB OV ；未查找到，失败RET（） 标号： 功能：顺序查找（）双字节表格入口条件：查找内容在R4、R5中，表格首址在D

48、PTR中，数据总个数在R7中。出口信息：OV=0时顺序号在累加器A中，地址在DPTR中；OV=1时未找到。影响资源：PSW、A、R2、R6、DPTR 堆栈需求： 字节FDS2: MOV A,R7 ；保存表格中数据的个数MOV R6,AMOV R2,#0 ；顺序号初始化（指向表首）FD21: CLR A ；读取表格内容的高字节MOVC A,A+DPTRXRL A,R4 ；与待查找内容的高字节比较JNZ FD22MOV A,#1 ；读取表格内容的低字节MOVC A,A+DPTRXRL A,R5 ；与待查找内容的低字节比较JNZ FD22CLR OV ；相同，查找成功MOV A,R2 ；取对应的顺序号RETFD22: INC DPTR ；指向下一个数据INC DPTRINC R2 ；顺序号加一DJNZ R6,FD21 ；查完全部数据SETB OV ；未查找到，失败RET（） 标号： 功能：对分查找（）单字节无符号增序数据表格入口条件：待查找的内容在累加器A中，表格首址在DPTR中，字节数在R7中。出口信息：OV=0 时，顺序号在累加器A中；OV=1 时，未找到。影响资