实用汇编程序子程序

《实用汇编程序子程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实用汇编程序子程序实用汇编程序实用汇编程序实用汇编程序实用汇编程序实用汇编程序实用汇编程序实用汇编程序实用汇编程序实用汇编程序实用汇编程序（一）ＭＣＳ－５１定点运算子程序库及其使用说明定点运算子程序库文件名为DQ51.ASM，为便于使用，先将有关约定说明如下：１．多字节定点操作数：用[R0]或[R1]来表示存放在由R0或R1指示的连续单元中的数据。地址小的单元存放数据的高字节。例如：[R0]=123456H，若(R0)=30H，则(30H)=12H，(31H)=34H，(32H)=56H。２．运算精度：单次定点运算精度为结果最

2、低位的当量值。３．工作区：数据工作区固定在PSW、A、B、R2～R7，用户只要不在工作区中存放无关的或非消耗性的信息，程序就具有较好的透明性。（１）标号：ＢＣＤＡ功能：多字节ＢＣＤ码加法入口条件：字节数在R7中，被加数在[R0]中，加数在[R1]中。出口信息：和在[R0]中，最高位进位在CY中。影响资源：PSW、A、R2堆栈需求：２字节BCDA:MOVA,R7；取字节数至R2中MOVR2,AADDA,R0；初始化数据指针MOVR0,AMOVA,R2ADDA,R1MOVR1,ACLRCBCD1:DECR0；调整数据指针DECR1

3、MOVA,@R0ADDCA,@R1；按字节相加DAA；十进制调整MOV@R0,A；和存回[R0]中DJNZR2,BCD1；处理完所有字节RET（２）标号：ＢＣＤＢ功能：多字节ＢＣＤ码减法入口条件：字节数在R7中，被减数在[R0]中，减数在[R1]中。出口信息：差在[R0]中，最高位借位在CY中。影响资源：PSW、A、R2、R3堆栈需求：６字节BCDB:LCALLNEG1；减数[R1]十进制取补LCALLBCDA；按多字节ＢＣＤ码加法处理CPLC；将补码加法的进位标志转换成借位标志MOVF0,C；保护借位标志LCALLNEG1；

4、恢复减数[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,AN

5、EG0:CLRCMOVA,#99HSUBBA,@R0；按字节十进制取补MOV@R0,A；存回[R0]中INCR0；调整数据指针DJNZR2,NEG0；处理完（R2）字节MOVA,#9AH；最低字节单独取补SUBBA,@R0MOV@R0,AMOVA,R3；恢复指针MOVR0,ARET（４）标号：ＢＲＬＮ功能：多字节ＢＣＤ码左移十进制一位（乘十）　入口条件：字节数在R7中，操作数在[R0]中。出口信息：结果仍在[R0]中，移出的十进制最高位在R3中。影响资源：PSW、A、R2、R3堆栈需求：２字节BRLN:MOVA,R7；取字节数

6、至R2中MOVR2,AADDA,R0；初始化数据指针MOVR0,AMOVR3,#0；工作单元初始化BRL1:DECR0；调整数据指针MOVA,@R0；取一字节SWAPA；交换十进制高低位MOV@R0,A；存回MOVA,R3；取低字节移出的十进制高位XCHDA,@R0；换出本字节的十进制高位MOVR3,A；保存本字节的十进制高位DJNZR2,BRL1；处理完所有字节RET　（５）标号：ＭＵＬＤ功能：双字节二进制无符号数乘法　入口条件：被乘数在R2、R3中，乘数在R6、R7中。出口信息：乘积在R2、R3、R4、R5中。影响资源：P

7、SW、A、B、R2～R7堆栈需求：２字节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,R

8、2ADDCA,BMOVR2,ARET（６）标号：ＭＵＬ２功能：双字节二进制无符号数平方　入口条件：待平方数在R2、R3中。出口信息：结果在R2、R3、R4、R5中。影响资源：PSW、A、B、R2～R5堆栈需求：２字节MUL2:MOVA,R3；计算R3平方MOVB,AMULAB