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

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

2、数在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中，减数在R1中。出口信息：差在R0中，

3、最高位借位在 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 （） 标号： 功能：多字节码取补入口条件：字节数

4、在 R7 中，操作数在 R0中。出口信息：结果仍在R0中。影响资源：PSW 、 A、R2 、R3 堆栈需求： 字节NEG: MOV A,R7 ；取（字节数减一）至 R2 中DEC AMOV R2,AMOV A,R0 ；保护指针MOV R3,ANEG0: CLR CMOV 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（） 标号： 功能：多字节码左移十进制一位（乘十）

5、入口条件：字节数在 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 ；处

6、理完所有字节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 ；累

7、加部分积MOV R4,AMOV A,R3ADDC 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

8、平方MOV B,AMUL ABXCH A,R3 ；暂存部分积，并换出 R2 和 R3XCH A,BXCH A,R2MUL AB ；计算 2R2R3CLR 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 时溢出。影响资源：P

9、SW 、 A、B 、R1R7 堆栈需求： 字节DIVD: CLR C ；比较被除数和除数MOV A,R3SUBB 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,R6

10、ANL C,/F0 ；结果判断JC DVD3MOV R2,A ；够减，存放新的余数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、R3 R7 堆栈需求： 字节D457: CLR CMOV A,R4

11、SUBB A,R7JC DV50SETB OV ；商溢出RETDV50: MOV R6,#8 ；求平均值（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（） 标号： 功能：三字节二进制无符号数除以单字节二进制

12、数入口条件：被除数在 R3、R4、R5 中，除数在 R7 中。出口信息：OV=0 时，双字节商在 R4、R5 中，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,AIN

13、C R5DM24: DJNZ R2,DM23MOV A,R3 ；四舍五入ADD A,R3JC DM25SUBB A,R7JC 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 ；计算结果的符号和两个操作数的绝对值LCA

14、LL MULD ；计算两个绝对值的乘积SJMP MDSE ；用补码表示结果（） 标号： 功能：双字节二进制有符号数除法（补码）入口条件：被除数在 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 ；未溢出，取出结果

15、的符号MOV R4,#0MOV R5,#0MDSE: JB F0,MDS2 ；用补码表示结果CLR OV ；结果为正，原码即补码，计算成功RETMDS: CLR F0 ；结果符号初始化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,

16、R5 ；求第一操作数的绝对值或运算结果的补码CPL AADD A,#1MOV R5,AMOV A,R4CPL AADDC A,#0MOV R4,AMOV A,R3CPL 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

17、 ；被开方数为零，不必运算SH20: MOV R7,#0 ；左规次数初始化MOV A,R2SH22: ANL A,#0C0H ；被开方数高字节小于否？JNZ SQRH ；不小于，左规格化完成，转开方过程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、

18、R3 中，整数部分的位数为原数的一半，其余为小数。影响资源：PSW 、 A、B 、R2R7 堆栈需求： 字节SH4: MOV A,R2ORL A,R3ORL A,R4ORL A,R5JNZ SH40RET ；被开方数为零，不必运算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 ；规格化后高字节按折线法分为三个区间ADD A,#57HJC SQR2ADD A,#45HJC SQR1ADD A,#24HMOV B,#0E3H ；第一区间的斜率MOV R4,#80H ；第一区间的平方根基数SJMP SQR3SQR1: MOV B,#0B2H ；第二区间的斜率