51定点运算子程序库及其使用说明.docVIP

PAGE  PAGE 34 ５１定点运算子程序库及其使用说明定点运算子程序库文件名为DQ51.ASM，为便于使用，先将有关约定说明如下：１．多字节定点操作数：用[R0]或[R1]来表示存放在由R0或R1指示的连续单元中的数据。地址小的单元存放数据的高字节。例如：[R0]=123456H，若(R0)=30H，则(30H)=12H，(31H)=34H，(32H)=56H。２．运算精度：单次定点运算精度为结果最低位的当量值。３．工作区：数据工作区固定在PSW、A、B、R2～R7，用户只要不在工作区中存放无关的或非消耗性的信息，程序就具有较好的透明性。（１） 标号： ＢＣＤＡ功能：多字节ＢＣＤ码加法入口条件：字节数在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]中，减数在[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（３） 标号： ＮＥＧ功能：多字节ＢＣＤ码取补入口条件：字节数在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（４） 标号： ＢＲＬＮ功能：多字节ＢＣＤ码左移十进制一位（乘十）入口条件：字节数在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 ；处理完所有字节RET（５） 标号： ＭＵＬＤ功能：双字节二进制无符号数乘法入口条件：被乘数在R2、R3中，乘数在R6、R7中。出口信息：乘积在R2、R3、R4、R5中。影响资源：PSW、A、B、R2～R7 堆栈需求： ２字节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 A,BMO