MCS51单片机实用子程序库Word格式.docx
- 文档编号:18120976
- 上传时间:2022-12-13
- 格式:DOCX
- 页数:86
- 大小:44.38KB
MCS51单片机实用子程序库Word格式.docx
《MCS51单片机实用子程序库Word格式.docx》由会员分享,可在线阅读,更多相关《MCS51单片机实用子程序库Word格式.docx(86页珍藏版)》请在冰豆网上搜索。
出口信息:
和在[R0]中,最高位进位在CY中。
影响资源:
PSW、A、R2堆栈需求:
2字节
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
(2)标号:
BCDB功能:
多字节BCD码减法
字节数在R7中,被减数在[R0]中,减数在[R1]中。
差在[R0]中,最高位借位在CY中。
PSW、A、R2、R3堆栈需求:
6字节
BCDB:
LCALLNEG1;
减数[R1]十进制取补
LCALLBCDA;
按多字节BCD码加法处理
CPLC;
将补码加法的进位标志转换成借位标志
MOVF0,C;
保护借位标志
恢复减数[R1]的原始值
MOVC,F0;
恢复借位标志
NEG1:
MOVA,R0;
[R1]十进制取补子程序入口
XCHA,R1;
交换指针
XCHA,R0
LCALLNEG;
通过[R0]实现[R1]取补
MOVA,R0
换回指针
(3)标号:
NEG功能:
多字节BCD码取补
字节数在R7中,操作数在[R0]中。
结果仍在[R0]中。
NEG:
取(字节数减一)至R2中
DECA
保护指针
MOVR3,A
NEG0:
CLRC
MOVA,#99H
SUBBA,@R0;
按字节十进制取补
存回[R0]中
INCR0;
DJNZR2,NEG0;
处理完(R2)字节
MOVA,#9AH;
最低字节单独取补
SUBBA,@R0
MOV@R0,A
MOVA,R3;
恢复指针
(4)标号:
BRLN功能:
多字节BCD码左移十进制一位(乘十)
结果仍在[R0]中,移出的十进制最高位在R3中。
BRLN:
MOVR2,A
MOVR3,#0;
工作单元初始化
BRL1:
MOVA,@R0;
取一字节
SWAPA;
交换十进制高低位
存回
取低字节移出的十进制高位
XCHDA,@R0;
换出本字节的十进制高位
MOVR3,A;
保存本字节的十进制高位
DJNZR2,BRL1;
(5)标号:
MULD功能:
双字节二进制无符号数乘法
被乘数在R2、R3中,乘数在R6、R7中。
乘积在R2、R3、R4、R5中。
PSW、A、B、R2~R7堆栈需求:
MULD:
计算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;
(6)标号:
MUL2功能:
双字节二进制无符号数平方
待平方数在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
(7)标号:
DIVD功能:
双字节二进制无符号数除法
被除数在R2、R3、R4、R5中,除数在R6、R7中。
OV=0时,双字节商在R2、R3中,OV=1时溢出。
PSW、A、B、R1~R7堆栈需求:
DIVD:
CLRC;
比较被除数和除数
MOVA,R3
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;
设立成功标志
(8)标号:
D457功能:
双字节二进制无符号数除以单字节二进制数
被除数在R4、R5中,除数在R7中。
OV=0时,单字节商在R3中,OV=1时溢出。
PSW、A、R3~R7堆栈需求:
D457:
JCDV50
商溢出
DV50:
MOVR6,#8;
求平均值(R4R5/R7-→R3)
DV51:
MOVF0,C
ANLC,/F0
JCDV52
DV52:
CPLC
DJNZR6,DV51
四舍五入
JCDV53
JCDV54
DV53:
INCR3
DV54:
CLROV
(9)标号:
DV31功能:
三字节二进制无符号数除以单字节二进制数
被除数在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:
JNZDM26
INCR4
DM26:
RET;
商在R4R5中
(10)标号:
MULS功能:
双字节二进制有符号数乘法(补码)
4字节
MULS:
MOVR4,#0;
清零R4R5
MOVR5,#0
LCALLMDS;
计算结果的符号和两个操作数的绝对值
LCALLMULD;
计算两个绝对值的乘积
SJMPMDSE;
用补码表示结果
(11)标号:
DIVS功能:
双字节二进制有符号数除法(补码)
OV=0时商在R2、R3中,OV=1时溢出。
5字节
DIVS:
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:
判断第一操作数或运算结果的符号
JNBACC.7,MDS3;
MDS2:
MOVA,R5;
求第一操作数的绝对值或运算结果的补码
MDS3:
运算成功
(12)标号:
SH2功能:
双字节二进制无符号数开平方(快速)
被开方数在R2、R3中。
平方根仍在R2、R3中,整数部分的位数为原数的一半,其余为小数。
SH2:
ORLA,R3
JNZSH20
RET;
被开方数为零,不必运算
SH20:
MOVR7,#0;
左规次数初始化
SH22:
ANLA,#0C0H;
被开方数高字节小于40H否?
JNZSQRH;
不小于40H,左规格化完成,转开方过程
每左规一次,被开方数左移两位
MOVACC.7,C
MOVC,F0
INCR7;
左规次数加一
SJMPSH22;
继续左规
(13)标号:
SH4功能:
四字节二进制无符号数开平方(快速)
被开方数在R2、R3、R4、R5中。
平方根在R2、R3中,整数部分的位数为原数的一半,其余为小数。
SH4:
ORLA,R4
ORLA,R5
JNZSH40
SH40:
SH41:
不小于40H,左规格化完成
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:
与区间基点的偏移量乘区间斜率
MOVA,B
累加到平方根的基数上
求当前平方根的幂
求偏移量(存放在R2R3中)
SUBBA,R3
SUBBA,B
SQR4:
SETBC;
用减奇数法校正一个字节的平方根
当前平方根的两倍加一存入R5R6中
偏移量小于该奇数否?
SUBBA,R5
JCSQR5;
小于,校正结束,已达到一个字节的精度
INCR4;
不小于,平方根加一
保存新的偏移量
MOVR3,B
SJMPSQR4;
继续校正
SQR5:
将一个字节精度的根存入R2
RRCA
保存最终偏移量的最高位
MOVR5,A;
将最终偏移量的低八位存入R5中
MOVR4,#8;
通过(R5R6/R2)求根的低字节
SQR6:
SUBBA,R2
JBF0,SQR7
JCSQR8
SQR7:
SQR8:
DJNZR4,SQR6;
根的第二字节计算完,在R3中
取原被开方数的左规次数
JZSQRE;
未左规,开方结束
SQR9:
按左规次数右移平方根,得到实际根
DJNZR7,SQR9
SQRE:
(14)标号:
HASC功能:
单字节十六进制数转换成双字节ASCII码
待转换的单字节十六进制数在累加器A中。
高四位的ASCII码在A中,低四位的ASCII码在B中。
PSW、A、B堆栈需求:
HASC:
MOVB,A;
暂存待转换的单字节十六进制数
LCALLHAS1;
转换低四位
存放低四位的ASCII码
准备转换高四位
HAS1:
ANLA,#0FH;
将累加器的低四位转换成ASCII码
ADDA,#90H
DAA
ADDCA,#40H
(15)标号:
ASCH功能:
ASCII码转换成十六进制数
待转换的ASCII码(30H~39H或41H~46H)在A中。
转换后的十六进制数(00H~0FH)仍在累加器A中。
PSW、A堆栈需求:
ASCH:
SUBBA,#30H
JNBACC.4,ASH1
SUBBA,#7
ASH1:
(16)标号:
HBCD功能:
单字节十六进制整数转换成单字节BCD码整数
待转换的单字节十六进制整数在累加器A中。
转换后的BCD码整数(十位和个位)仍在累加器A中,百位在R3中。
PSW、A、B、R3堆栈需求:
HBCD:
MOVB,#100;
分离出百位,存放在R3中
DIVAB
MOVA,#10;
余数继续分离十位和个位
SWAPA
ORLA,B;
将十位和个位拼装成BCD码
(17)标号:
HB2功能:
双字节十六进制整数转换成双字节BCD码整数
待转换的双字节十六进制整数在R6、R7中。
转换后的三字节BCD码整数在R3、R4、R5中。
PSW、A、R2~R7堆栈需求:
HB2:
CLRA;
BCD码初始化
转换双字节十六进制整数
HB3:
从高端移出待转换数的一位到CY中
MOVR7,A
MOVA,R6
BCD码带进位自身相加,相当于乘2
ADDCA,R5
ADDCA,R4
ADDCA,R3
双字节十六进制数的万位数不超过6,不用调整
DJNZR2,HB3;
处理完16bit
RET
(18)标号:
HBD功能:
单字节十六进制小数转换成单字节BCD码小数
待转换的单字节十六进制小数在累
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- MCS51 单片机 实用 程序库