定点运算子程序库.docx

定点运算子程序库.docx

《定点运算子程序库.docx》由会员分享，可在线阅读，更多相关《定点运算子程序库.docx（45页珍藏版）》请在冰点文库上搜索。

定点运算子程序库

ＭＣＳ－５１单片机实用子程序库（９６年版）》

（一）ＭＣＳ－５１定点运算子程序库及其使用说明

定点运算子程序库文件名为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:

MOVA,R7；取字节数至R2中

MOVR2,A

ADDA,R0；初始化数据指针

MOVR0,A

MOVA,R2

ADDA,R1

MOVR1,A

CLRC

BCD1:

DECR0；调整数据指针

DECR1

MOVA,@R0

ADDCA,@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；恢复减数[R1]的原始值

MOVC,F0；恢复借位标志

RET

NEG1:

MOVA,R0；[R1]十进制取补子程序入口

XCHA,R1；交换指针

XCHA,R0

LCALLNEG；通过[R0]实现[R1]取补

MOVA,R0

XCHA,R1；换回指针

XCHA,R0

RET

（３）标号：

ＮＥＧ功能：

多字节ＢＣＤ码取补

入口条件：

字节数在R7中，操作数在[R0]中。

出口信息：

结果仍在[R0]中。

影响资源：

PSW、A、R2、R3堆栈需求：

２字节

NEG:

MOVA,R7；取（字节数减一）至R2中

DECA

MOVR2,A

MOVA,R0；保护指针

MOVR3,A

NEG0:

CLRC

MOVA,#99H

SUBBA,@R0；按字节十进制取补

MOV@R0,A；存回[R0]中

INCR0；调整数据指针

DJNZR2,NEG0；处理完（R2）字节

MOVA,#9AH；最低字节单独取补

SUBBA,@R0

MOV@R0,A

MOVA,R3；恢复指针

MOVR0,A

RET

（４）标号：

ＢＲＬＮ功能：

多字节ＢＣＤ码左移十进制一位（乘十）

入口条件：

字节数在R7中，操作数在[R0]中。

出口信息：

结果仍在[R0]中，移出的十进制最高位在R3中。

影响资源：

PSW、A、R2、R3堆栈需求：

２字节

BRLN:

MOVA,R7；取字节数至R2中

MOVR2,A

ADDA,R0；初始化数据指针

MOVR0,A

MOVR3,#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中。

影响资源：

PSW、A、B、R2～R7堆栈需求：

２字节

MULD:

MOVA,R3；计算R3乘R7

MOVB,R7

MULAB

MOVR4,B；暂存部分积

MOVR5,A

MOVA,R3；计算R3乘R6

MOVB,R6

MULAB

ADDA,R4；累加部分积

MOVR4,A

CLRA

ADDCA,B

MOVR3,A

MOVA,R2；计算R2乘R7

MOVB,R7

MULAB

ADDA,R4；累加部分积

MOVR4,A

MOVA,R3

ADDCA,B

MOVR3,A

CLRA

RLCA

XCHA,R2；计算R2乘R6

MOVB,R6

MULAB

ADDA,R3；累加部分积

MOVR3,A

MOVA,R2

ADDCA,B

MOVR2,A

RET

（６）标号：

ＭＵＬ２功能：

双字节二进制无符号数平方

入口条件：

待平方数在R2、R3中。

出口信息：

结果在R2、R3、R4、R5中。

影响资源：

PSW、A、B、R2～R5堆栈需求：

２字节

MUL2:

MOVA,R3；计算R3平方

MOVB,A

MULAB

MOVR4,B；暂存部分积

MOVR5,A

MOVA,R2；计算R2平方

MOVB,A

MULAB

XCHA,R3；暂存部分积，并换出R2和R3

XCHA,B

XCHA,R2

MULAB；计算2×R2×R3

CLRC

RLCA

XCHA,B

RLCA

JNCMU20

INCR2；累加溢出量

MU20:

XCHA,B；累加部分积

ADDA,R4

MOVR4,A

MOVA,R3

ADDCA,B

MOVR3,A

CLRA

ADDCA,R2

MOVR2,A

RET

（７）标号：

ＤＩＶＤ功能：

双字节二进制无符号数除法

入口条件：

被除数在R2、R3、R4、R5中，除数在R6、R7中。

出口信息：

OV=0时，双字节商在R2、R3中，OV=1时溢出。

影响资源：

PSW、A、B、R1～R7堆栈需求：

２字节

DIVD:

CLRC；比较被除数和除数

MOVA,R3

SUBBA,R7

MOVA,R2

SUBBA,R6

JCDVD1

SETBOV；溢出

RET

DVD1:

MOVB,#10H；计算双字节商

DVD2:

CLRC；部分商和余数同时左移一位

MOVA,R5

RLCA

MOVR5,A

MOVA,R4

RLCA

MOVR4,A

MOVA,R3

RLCA

MOVR3,A

XCHA,R2

RLCA

XCHA,R2

MOVF0,C；保存溢出位

CLRC

SUBBA,R7；计算（R2R3－R6R7）

MOVR1,A

MOVA,R2

SUBBA,R6

ANLC,/F0；结果判断

JCDVD3

MOVR2,A；够减，存放新的余数

MOVA,R1

MOVR3,A

INCR5；商的低位置一

DVD3:

DJNZB,DVD2；计算完十六位商（R4R5）

MOVA,R4；将商移到R2R3中

MOVR2,A

MOVA,R5

MOVR3,A

CLROV；设立成功标志

RET

（８）标号：

Ｄ４５７功能：

双字节二进制无符号数除以单字节二进制数

入口条件：

被除数在R4、R5中，除数在R7中。

出口信息：

OV=0时，单字节商在R3中，OV=1时溢出。

影响资源：

PSW、A、R3～R7堆栈需求：

２字节

D457:

CLRC

MOVA,R4

SUBBA,R7

JCDV50

SETBOV；商溢出

RET

DV50:

MOVR6,#8；求平均值（R4R5／R7－→R3）

DV51:

MOVA,R5

RLCA

MOVR5,A

MOVA,R4

RLCA

MOVR4,A

MOVF0,C

CLRC

SUBBA,R7

ANLC,/F0

JCDV52

MOVR4,A

DV52:

CPLC

MOVA,R3

RLCA

MOVR3,A

DJNZR6,DV51

MOVA,R4；四舍五入

ADDA,R4

JCDV53

SUBBA,R7

JCDV54

DV53:

INCR3

DV54:

CLROV

RET

（９）标号：

ＤＶ３１功能：

三字节二进制无符号数除以单字节二进制数

入口条件：

被除数在R3、R4、R5中，除数在R7中。

出口信息：

OV=0时，双字节商在R4、R5中，OV=1时溢出。

影响资源：

PSW、A、B、R2～R7堆栈需求：

２字节

DV31:

CLRC

MOVA,R3

SUBBA,R7

JCDV30

SETBOV；商溢出

RET

DV30:

MOVR2,#10H；求R3R4R5／R7－→R4R5

DM23:

CLRC

MOVA,R5

RLCA

MOVR5,A

MOVA,R4

RLCA

MOVR4,A

MOVA,R3

RLCA

MOVR3,A

MOVF0,C

CLRC

SUBBA,R7

ANLC,/F0

JCDM24

MOVR3,A

INCR5

DM24:

DJNZR2,DM23

MOVA,R3；四舍五入

ADDA,R3

JCDM25

SUBBA,R7

JCDM26

DM25:

INCR5

MOVA,R5

JNZDM26

INCR4

DM26:

CLROV

RET；商在R4R5中

（１０）标号：

ＭＵＬＳ功能：

双字节二进制有符号数乘法（补码）

入口条件：

被乘数在R2、R3中，乘数在R6、R7中。

出口信息：

乘积在R2、R3、R4、R5中。

影响资源：

PSW、A、B、R2～R7堆栈需求：

４字节

MULS:

MOVR4,#0；清零R4R5

MOVR5,#0

LCALLMDS；计算结果的符号和两个操作数的绝对值

LCALLMULD；计算两个绝对值的乘积

SJMPMDSE；用补码表示结果

（１１）标号：

ＤＩＶＳ功能：

双字节二进制有符号数除法（补码）

入口条件：

被除数在R2、R3、R4、R5中，除数在R6、R7中。

出口信息：

OV=0时商在R2、R3中，OV=1时溢出。

影响资源：

PSW、A、B、R1～R7堆栈需求：

５字节

DIVS:

LCALLMDS；计算结果的符号和两个操作数的绝对值

PUSHPSW；保存结果的符号

LCALLDIVD；计算两个绝对值的商

JNBOV,DVS1；溢出否？

POPACC；溢出，放去结果的符号，保留溢出标志

RET

DVS1:

POPPSW；未溢出，取出结果的符号

MOVR4,#0

MOVR5,#0

MDSE:

JBF0,MDS2；用补码表示结果

CLROV；结果为正，原码即补码，计算成功

RET

MDS:

CLRF0；结果符号初始化

MOVA,R6；判断第二操作数的符号

JNBACC.7,MDS1；为正，不必处理

CPLF0；为负，结果符号取反

XCHA,R7；第二操作数取补，得到其绝对值

CPLA

ADDA,#1

XCHA,R7

CPLA

ADDCA,#0

MOVR6,A

MDS1:

MOVA,R2；判断第一操作数或运算结果的符号

JNBACC.7,MDS3；为正，不必处理

CPLF0；为负，结果符号取反

MDS2:

MOVA,R5；求第一操作数的绝对值或运算结果的补码

CPLA

ADDA,#1

MOVR5,A

MOVA,R4

CPLA

ADDCA,#0

MOVR4,A

MOVA,R3

CPLA

ADDCA,#0

MOVR3,A

MOVA,R2

CPLA

ADDCA,#0

MOVR2,A

MDS3:

CLROV；运算成功

RET

（１２）标号：

ＳＨ２功能：

双字节二进制无符号数开平方（快速）

入口条件：

被开方数在R2、R3中。

出口信息：

平方根仍在R2、R3中，整数部分的位数为原数的一半，其余为小数。

影响资源：

PSW、A、B、R2～R7堆栈需求：

２字节

SH2:

MOVA,R2

ORLA,R3

JNZSH20

RET；被开方数为零，不必运算

SH20:

MOVR7,#0；左规次数初始化

MOVA,R2

SH22:

ANLA,#0C0H；被开方数高字节小于４０Ｈ否？

JNZSQRH；不小于４０Ｈ，左规格化完成，转开方过程

CLRC；每左规一次，被开方数左移两位

MOVA,R3

RLCA

MOVF0,C

CLRC

RLCA

MOVR3,A

MOVA,R2

MOVACC.7,C

MOVC,F0

RLCA

RLCA

MOVR2,A

INCR7；左规次数加一

SJMPSH22；继续左规

（１３）标号：

ＳＨ４功能：

四字节二进制无符号数开平方（快速）

入口条件：

被开方数在R2、R3、R4、R5中。

出口信息：

平方根在R2、R3中，整数部分的位数为原数的一半，其余为小数。

影响资源：

PSW、A、B、R2～R7堆栈需求：

２字节

SH4:

MOVA,R2

ORLA,R3

ORLA,R4

ORLA,R5

JNZSH40

RET；被开方数为零，不必运算

SH40:

MOVR7,#0；左规次数初始化

MOVA,R2

SH41:

ANLA,#0C0H；被开方数高字节小于４０Ｈ否？

JNZSQRH；不小于４０Ｈ，左规格化完成

MOVR6,#2；每左规一次，被开方数左移两位

SH42:

CLRC；被开方数左移一位

MOVA,R5

RLCA

MOVR5,A

MOVA,R4

RLCA

MOVR4,A

MOVA,R3

RLCA

MOVR3,A

MOVA,R2

RLCA

MOVR2,A

DJNZR6,SH42；被开方数左移完两位

INCR7；左规次数加一

SJMPSH41；继续左规

SQRH:

MOVA,R2；规格化后高字节按折线法分为三个区间

ADDA,#57H

JCSQR2

ADDA,#45H

JCSQR1

ADDA,#24H

MOVB,#0E3H；第一区间的斜率

MOVR4,#80H；第一区间的平方根基数

SJMPSQR3

SQR1:

MOVB,#0B2H；第二区间的斜率

MOVR4,#0A0H；第二区间的平方根基数

SJMPSQR3

SQR2:

MOVB,#8DH；第三区间的斜率

MOVR4,#0D0H；第三区间的平方根基数

SQR3:

MULAB；与区间基点的偏移量乘区间斜率

MOVA,B

ADDA,R4；累加到平方根的基数上

MOVR4,A

MOVB,A

MULAB；求当前平方根的幂

XCHA,R3；求偏移量（存放在R2R3中）

CLRC

SUBBA,R3

MOVR3,A

MOVA,R2

SUBBA,B

MOVR2,A

SQR4:

SETBC；用减奇数法校正一个字节的平方根

MOVA,R4；当前平方根的两倍加一存入R5R6中

RLCA

MOVR6,A

CLRA

RLCA

MOVR5,A

MOVA,R3；偏移量小于该奇数否？

SUBBA,R6

MOVB,A

MOVA,R2

SUBBA,R5

JCSQR5；小于，校正结束，已达到一个字节的精度

INCR4；不小于，平方根加一

MOVR2,A；保存新的偏移量

MOVR3,B

SJMPSQR4；继续校正

SQR5:

MOVA,R4；将一个字节精度的根存入R2

XCHA,R2

RRCA

MOVF0,C；保存最终偏移量的最高位

MOVA,R3

MOVR5,A；将最终偏移量的低八位存入R5中

MOVR4,#8；通过（R5R6／R2）求根的低字节

SQR6:

CLRC

MOVA,R3

RLCA

MOVR3,A

CLRC

MOVA,R5

SUBBA,R2

JBF0,SQR7

JCSQR8

SQR7:

MOVR5,A

INCR3

SQR8:

CLRC

MOVA,R5

RLCA

MOVR5,A

MOVF0,C

DJNZR4,SQR6；根的第二字节计算完，在R3中

MOVA,R7；取原被开方数的左规次数

JZSQRE；未左规，开方结束

SQR9:

CLRC；按左规次数右移平方根，得到实际根

MOVA,R2

RRCA

MOVR2,A

MOVA,R3

RRCA

MOVR3,A

DJNZR7,SQR9

SQRE:

RET

（１４）标号：

ＨＡＳＣ功能：

单字节十六进制数转换成双字节ASCII码

入口条件：

待转换的单字节十六进制数在累加器A中。

出口信息：

高四位的ASCII码在A中，低四位的ASCII码在B中。

影响资源：

PSW、A、B堆栈需求：

４字节

HASC:

MOVB,A；暂存待转换的单字节十六进制数

LCALLHAS1；转换低四位

XCHA,B；存放低四位的ASCII码

SWAPA；准备转换高四位

HAS1:

ANLA,#0FH；将累加器的低四位转换成ASCII码

ADDA,#90H

DAA

ADDCA,#40H

DAA

RET

（１５）标号：

ＡＳＣＨ功能：

ASCII码转换成十六进制数

入口条件：

待转换的ASCII码（30H～39H或41H～46H）在A中。

出口信息：

转换后的十六进制数（00H～0FH）仍在累加器A中。

影响资源：

PSW、A堆栈需求：

２字节

ASCH:

CLRC

SUBBA,#30H

JNBACC.4,ASH1

SUBBA,#7

ASH1:

RET

（１６）标号：

ＨＢＣＤ功能：

单字节十六进制整数转换成单字节ＢＣＤ码整数

入口条件：

待转换的单字节十六进制整数在累加器A中。

出口信息：

转换后的ＢＣＤ码整数（十位和个位）仍在累加器A中，百位在R3中。

影响资源：

PSW、A、B、R3堆栈需求：

２字节

HBCD:

MOVB,#100；分离出百位，存放在R3中

DIVAB

MOVR3,A

MOVA,#10；余数继续分离十位和个位

XCHA,B

DIVAB

SWAPA

ORLA,B；将十位和个位拼装成ＢＣＤ码

RET

（１７）标号：

ＨＢ２功能：

双字节十六进制整数转换成双字节ＢＣＤ码整数

入口条件：

待转换的双字节十六进制整数在R6、R7中。

出口信息：

转换后的三字节ＢＣＤ码整数在R3、R4、R5中。

影响资源：

PSW、A、R2～R7堆栈需求：

２字节

HB2:

CLRA；ＢＣＤ码初始化

MOVR3,A

MOVR4,A

MOVR5,A

MOVR2,#10H；转换双字节十六进制整数

HB3:

MOVA,R7；从高端移出待转换数的一位到CY中

RLCA

MOVR7,A

MOVA,R6

RLCA

MOVR6,A

MOVA,R5；ＢＣＤ码带进位自身相加，相当于乘２

ADDCA,R5

DAA；十进制调整

MOVR5,A

MOVA,R4

ADDCA,R4

DAA

MOVR4,A

MOVA,R3

ADDCA,R3

MOVR3,A；双字节十六进制数的万位数不超过６，不用调整

DJNZR2,HB3；处理完１６ｂｉｔ

RET

（１８）标号：

ＨＢＤ功能：

单字节十六进制小数转换成单字节ＢＣＤ码小数

入口条件：

待转换的单字节十六进制小数在累加器A中。

出口信息：

CY=0时转换后的ＢＣＤ码小数仍在A中。

CY=1时原小数接近整数１。

影响资源：

PSW、A、B堆栈需求：

２字节

HBD:

MOVB,#100；原小数扩大一百倍

MULAB

RLCA；余数部分四舍五入

CLRA

ADDCA,B

MOVB,#10；分离出十分位和百分位

DIVAB

SWAPA

ADDA,B；拼装成单字节ＢＣＤ码小数

DAA；调整后若有进位，原小数接近整数１

RET

（１９）标号：

ＨＢＤ２功能：

双字节十六进制小数转换成双字节ＢＣＤ码小数

入口条件：

待转换的双字节十六进制小数在R2、R3中。

出口信息：

转换后的双字节ＢＣＤ码小数仍在R2、R3中。

影响资源：

PSW、A、B、R2、R3、R4、R5堆栈需求：

６字节

HBD2:

MOVR4,#4；四位十进制码

HBD3:

MOVA,R3；原小数扩大十倍

MOVB,#10

MULAB

MOVR3,A

MOVR5,B

MOVA,R2

MOVB,#10

MULAB

ADDA,R5

MOVR2,A

CLRA

ADDCA,B

PUSHACC；保存溢出的一位十进制码

DJNZR4,HBD3；计算完四位十进制码

POPACC；取出万分位

MOVR3,A

POPACC；取出千分位

SWAPA

ORLA,R3；拼装成低字节ＢＣＤ码小数

MOVR3,A

POPACC；取出百分位

MOVR2,A

POPACC；取出十分位

SWAPA

ORLA,R2；拼装成高字节ＢＣＤ码小数

MOVR2,A

RET

（２０）标号：

ＢＣＤＨ功能：

单字节ＢＣＤ码整数转换成单字节十六进制整数

入口条件：

待转换的单字节ＢＣＤ码整数在累加器A中。

出口信息：

转换后的单字节十六进制整数仍在累加器A中。

影响资源：

PSW、A、B、R4堆栈需求：

２字节

BCDH:

MOVB,#10H；分离十位和个位

DIVAB

MOVR4,B；暂存个位

MOVB,#10；将十位转换成十六进制

MULAB

ADDA,R4；按十六进制加上个位

RET

（２１）标号：

ＢＨ２功能：

双字节ＢＣＤ码整数转换成双字节十六进制整数

入口条件：

待转换的双字节ＢＣＤ码整数在R2、R3中。

出口信息：

转换后的双字节十六进制整数仍在R2、R3中。

影响资源：

PSW、A、B、R2、R3、R4堆栈需求：

４字节

BH2:

MOVA,R3；将低字节转换成十六进制

LCALLBCDH

MOVR3,A

MOVA,R2；将高字节转换成十六进制

LCALLBCDH

MOVB,#100；扩大一百倍

MULAB

ADDA,R3；和低字节按十六进制相加

MOVR3,A

CLRA

ADDCA,B

MOVR2,A

RET

（２２）标号：

ＢＨＤ功能：

单字节ＢＣＤ码小数转换成单字节十六进制小数

入口条件：

待转换的单字节ＢＣＤ码数在累加器A中。

出口信息：

转换后的单字节十六进制小数仍在累加器A中。