MCS51定点数算法子程Word下载.docx
《MCS51定点数算法子程Word下载.docx》由会员分享，可在线阅读，更多相关《MCS51定点数算法子程Word下载.docx（37页珍藏版）》请在冰点文库上搜索。
（１９）标号：
ＨＢＤ２功能：
双字节十六进制小数转换成双字节ＢＣＤ码小数
（２０）标号：
ＢＣＤＨ功能：
单字节ＢＣＤ码整数转换成单字节十六进制整数
（２１）标号：
ＢＨ２功能：
双字节ＢＣＤ码整数转换成双字节十六进制整数
（２２）标号：
ＢＨＤ功能：
单字节ＢＣＤ码小数转换成单字节十六进制小数
（２３）标号：
ＢＨＤ２功能：
双字节ＢＣＤ码小数转换成双字节十六进制小数
（２４）标号：
ＭＭ功能：
求单字节十六进制无符号数据块的极值
（２５）标号：
ＭＭＳ功能：
求单字节十六进制有符号数据块的极值
（２６）标号：
ＦＤＳ１功能：
顺序查找（ＲＯＭ）单字节表格
（２７）标号：
ＦＤＳ２功能：
顺序查找（ＲＯＭ）双字节表格
（２８）标号：
ＦＤＤ１功能：
对分查找（ＲＯＭ）单字节无符号增序数据表格
（２９）标号：
ＦＤＤ２功能：
对分查找（ＲＯＭ）双字节无符号增序数据表格
（３０）标号：
ＤＤＭ１功能：
求单字节十六进制无符号数据块的平均值
（３１）标号：
ＤＤＭ２功能：
求双字节十六进制无符号数据块的平均值
（３４）标号：
ＳＯＲＴ功能：
单字节无符号数据块排序（增序）
（３３）标号：
ＸＲ２功能：
求双字节数据块的（异或）校验和
（３２）标号：
ＸＲ１功能：
求单字节数据块的（异或）校验和
定点运算子程序库文件名为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；
恢复借位标志
NEG1:
MOVA,R0；
[R1]十进制取补子程序入口
XCHA,R1；
交换指针
XCHA,R0
LCALLNEG；
通过[R0]实现[R1]取补
MOVA,R0
换回指针
多字节ＢＣＤ码取补
字节数在R7中，操作数在[R0]中。
结果仍在[R0]中。
NEG:
取（字节数减一）至R2中
DECA
MOVA,R0；
保护指针
MOVR3,A
NEG0:
CLRC
MOVA,#99H
SUBBA,@R0；
按字节十进制取补
存回[R0]中
INCR0；
DJNZR2,NEG0；
处理完（R2）字节
MOVA,#9AH；
最低字节单独取补
SUBBA,@R0
MOV@R0,A
MOVA,R3；
恢复指针
结果仍在[R0]中，移出的十进制最高位在R3中。
BRLN:
MOVR3,#0；
工作单元初始化
BRL1:
MOVA,@R0；
取一字节
SWAPA；
交换十进制高低位
存回
取低字节移出的十进制高位
XCHDA,@R0；
换出本字节的十进制高位
MOVR3,A；
保存本字节的十进制高位
DJNZR2,BRL1；
被乘数在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
计算R3乘R6
MOVB,R6
ADDA,R4；
累加部分积
MOVR4,A
CLRA
ADDCA,B
MOVA,R2；
计算R2乘R7
MOVA,R3
RLCA
XCHA,R2；
计算R2乘R6
ADDA,R3；
待平方数在R2、R3中。
结果在R2、R3、R4、R5中。
PSW、A、B、R2～R5堆栈需求：
MUL2:
计算R3平方
MOVB,A
计算R2平方
XCHA,R3；
暂存部分积，并换出R2和R3
XCHA,B
XCHA,R2
MULAB；
计算2×
R2×
R3
JNCMU20
INCR2；
累加溢出量
MU20:
XCHA,B；
ADDA,R4
ADDCA,R2
被除数在R2、R3、R4、R5中，除数在R6、R7中。
OV=0时，双字节商在R2、R3中，OV=1时溢出。
PSW、A、B、R1～R7堆栈需求：
DIVD:
CLRC；
比较被除数和除数
SUBBA,R7
SUBBA,R6
JCDVD1
SETBOV；
溢出
DVD1:
MOVB,#10H；
计算双字节商
DVD2:
部分商和余数同时左移一位
MOVA,R5
MOVA,R4
保存溢出位
SUBBA,R7；
计算（R2R3－R6R7）
ANLC,/F0；
结果判断
JCDVD3
MOVR2,A；
够减，存放新的余数
MOVA,R1
INCR5；
商的低位置一
DVD3:
DJNZB,DVD2；
计算完十六位商（R4R5）
MOVA,R4；
将商移到R2R3中
CLROV；
设立成功标志
被除数在R4、R5中，除数在R7中。
OV=0时，单字节商在R3中，OV=1时溢出。
PSW、A、R3～R7堆栈需求：
D457:
JCDV50
商溢出
DV50:
MOVR6,#8；
求平均值（R4R5／R7－→R3）
DV51:
MOVA,R5
MOVF0,C
ANLC,/F0
JCDV52
DV52:
CPLC
DJNZR6,DV51
四舍五入
JCDV53
JCDV54
DV53:
INCR3
DV54:
CLROV
被除数在R3、R4、R5中，除数在R7中。
OV=0时，双字节商在R4、R5中，OV=1时溢出。
DV31:
JCDV30
DV30:
MOVR2,#10H；
求R3R4R5／R7－→R4R5
DM23:
JCDM24
INCR5
DM24:
DJNZR2,DM23
ADDA,R3
JCDM25
JCDM26
DM25:
INCR5
JNZDM26
INCR4
DM26:
RET；
商在R4R5中
４字节
MULS:
MOVR4,#0；
清零R4R5
MOVR5,#0
LCALLMDS；
计算结果的符号和两个操作数的绝对值
LCALLMULD；
计算两个绝对值的乘积
SJMPMDSE；
用补码表示结果
OV=0时商在R2、R3中，OV=1时溢出。
５字节
DIVS:
LCALLMDS；
PUSHPSW；
保存结果的符号
LCALLDIVD；
计算两个绝对值的商
JNBOV,DVS1；
溢出否？
POPACC；
溢出，放去结果的符号，保留溢出标志
DVS1:
POPPSW；
未溢出，取出结果的符号
MOVR4,#0
MDSE:
JBF0,MDS2；
用补码表示结果
结果为正，原码即补码，计算成功
MDS:
CLRF0；
结果符号初始化
MOVA,R6；
判断第二操作数的符号
JNBACC.7,MDS1；
为正，不必处理
CPLF0；
为负，结果符号取反
XCHA,R7；
第二操作数取补，得到其绝对值
CPLA
ADDA,#1
XCHA,R7
ADDCA,#0
MOVR6,A
MDS1:
MOVA,R2；
判断第一操作数或运算结果的符号
JNBACC.7,MDS3；
MDS2:
MOVA,R5；
求第一操作数的绝对值或运算结果的补码
MDS3:
CLROV；
运算成功
被开方数在R2、R3中。
平方根仍在R2、R3中，整数部分的位数为原数的一半，其余为小数。
SH2:
MOVA,R2
ORLA,R3
JNZSH20
被开方数为零，不必运算
SH20:
MOVR7,#0；
左规次数初始化
SH22:
ANLA,#0C0H；
被开方数高字节小于４０Ｈ否？
JNZSQRH；
不小于４０Ｈ，左规格化完成，转开方过程
CLRC；
每左规一次，被开方数左移两位
MOVACC.7,C
MOVC,F0
INCR7；
左规次数加一
SJMPSH22；
继续左规
被开方数在R2、R3、R4、R5中。
平方根在R2、R3中，整数部分的位数为原数的一半，其余为小数。
SH4:
ORLA,R4
ORLA,R5
JNZSH40
SH40:
SH41:
不小于４０Ｈ，左规格化完成
MOVR6,#2；
SH42:
被开方数左移一位
DJNZR6,SH42；
被开方数左移完两位
SJMPSH41；
SQRH:
规格化后高字节按折线法分为三个区间
ADDA,#57H
JCSQR2
ADDA,#45H
JCSQR1
ADDA,#24H
MOVB,#0E3H；
第一区间的斜率
MOVR4,#80H；
第一区间的平方根基数
SJMPSQR3
SQR1:
MOVB,#0B2H；
第二区间的斜率
MOVR4,#0A0H；
第二区间的平方根基数
SQR2:
MOVB,#8DH；
第三区间的斜率
MOVR4,#0D0H；
第三区间的平方根基数
SQR3:
MULAB；
与区间基点的偏移量乘区间斜率
MOVA,B
累加到平方根的基数上
求当前平方根的幂
求偏移量（存放在R2R3中）
SUBBA,R3
SUBBA,B
SQR4:
SETBC；
用减奇数法校正一个字节的平方根
当前平方根的两倍加一存入R5R6中
偏移量小于该奇数否？
SUBBA,R5
JCSQR5；
小于，校正结束，已达到一个字节的精度
INCR4；
不小于，平方根加一
保存新的偏移量
MOVR3,B
SJMPSQR4；
继续校正
SQR5:
MOVA,R4；
将一个字节精度的根存入R2
RRCA
保存最终偏移量的最高位
MOVR5,A；
将最终偏移量的低八位存入R5中
MOVR4,#8；
通过（R5R6／R2）求根的低字节
SQR6:
SUBBA,R2
JBF0,SQR7
JCSQR8
SQR7:
MOVR5,A
INCR3
SQR8:
DJNZR4,SQR6；
根的第二字节计算完，在R3中
MOVA,R7；
取原被开方数的左规次数
JZSQRE；
未左规，开方结束
SQR9:
按左规次数右移平方根，得到实际根
DJNZR7,SQR9
SQRE:
RET
待转换的单字节十六进制数在累加器A中。
高四位的ASCII码在A中，低四位的ASCII码在B中。
PSW、A、B堆栈需求：
HASC:
MOVB,A；
暂存待转换的单字节十六进制数
LCALLHAS1；
转换低四位
XCHA,B；
存放低四位的ASCII码
准备转换高四位
HAS1:
ANLA,#0FH；
将累加器的低四位转换成ASCII码
ADDA,#90H
DAA
ADDCA,#40H
待转换的ASCII码（30H～39H或41H～46H）在A中。
转换后的十六进制数（00H～0FH）仍在累加器A中。
PSW、A堆栈需求：
ASCH:
SUBBA,#30H
JNBACC.4,ASH1
SUBBA,#7
ASH1:
待转换的单字节十六进制整数在累加器A中。
转换后的ＢＣＤ码整数（十位和个位）仍在累加器A中，百位在R3中。
PSW、A、B、R3堆栈需求：
HBCD:
MOVB,#100；
分离出百位，存放在R3中
DIVAB
MOVA,#10；
余数继续分离十位和个位
SWAPA
ORLA,B；
将十位和个位拼装成ＢＣＤ码
（１
升级会员 