浮点子程序及开平方等1.txt

共有 45 个程序源码

MOV A,R3 
RLC A 
MOV F0,C 
CLR C 
RLC A 
MOV R3,A 
MOV A,R2 
MOV ACC.7,C 
MOV C,F0 
RLC A 
RLC A 
MOV R2,A 
INC R7 ；左规次数加一 
SJMP SH22 ；继续左规 
　 
（１３） 标号： ＳＨ４ 功能：四字节二进制无符号数开平方（快速） 

入口条件：被开方数在R2、R3、R4、R5中。 
出口信息：平方根在R2、R3中，整数部分的位数为原数的一半，其余为小数。 
影响资源：PSW、A、B、R2～R7 堆栈需求： ２字节 
SH4: MOV A,R2 
ORL A,R3 
ORL A,R4 
ORL A,R5 
JNZ SH40 
RET ；被开方数为零，不必运算 
SH40: MOV R7,#0 ；左规次数初始化 
MOV A,R2 
SH41: ANL A,#0C0H ；被开方数高字节小于４０Ｈ否？ 
JNZ SQRH ；不小于４０Ｈ，左规格化完成 
MOV R6,#2 ；每左规一次，被开方数左移两位 
SH42: CLR C ；被开方数左移一位 
MOV A,R5 
RLC A 
MOV R5,A 
MOV A,R4 
RLC A 
MOV R4,A 
MOV A,R3 
RLC A 
MOV R3,A 
MOV A,R2 
RLC A 
MOV R2,A 
DJNZ R6,SH42 ；被开方数左移完两位 
INC R7 ；左规次数加一 
SJMP SH41 ；继续左规 
SQRH: MOV A,R2 ；规格化后高字节按折线法分为三个区间 
ADD A,#57H 
JC SQR2 
ADD A,#45H 
JC SQR1 
ADD A,#24H 
MOV B,#0E3H ；第一区间的斜率 
MOV R4,#80H ；第一区间的平方根基数 
SJMP SQR3 
SQR1: MOV B,#0B2H ；第二区间的斜率 
MOV R4,#0A0H；第二区间的平方根基数 
SJMP SQR3 
SQR2: MOV B,#8DH ；第三区间的斜率 
MOV R4,#0D0H；第三区间的平方根基数 
SQR3: MUL AB ；与区间基点的偏移量乘区间斜率 
MOV A,B 
ADD A,R4 ；累加到平方根的基数上 
MOV R4,A 
MOV B,A 
MUL AB ；求当前平方根的幂 
XCH A,R3 ；求偏移量（存放在R2R3中） 
CLR C 
SUBB A,R3 
MOV R3,A 
MOV A,R2 
SUBB A,B 
MOV R2,A 
SQR4: SETB C ；用减奇数法校正一个字节的平方根 
MOV A,R4 ；当前平方根的两倍加一存入R5R6中 
RLC A 
MOV R6,A 
CLR A 
RLC A 
MOV R5,A 
MOV A,R3 ；偏移量小于该奇数否？ 
SUBB A,R6 
MOV B,A 
MOV A,R2 
SUBB A,R5 
JC SQR5 ；小于，校正结束，已达到一个字节的精度 
INC R4 ；不小于，平方根加一 
MOV R2,A ；保存新的偏移量 
MOV R3,B 
SJMP SQR4 ；继续校正 
SQR5: MOV A,R4 ；将一个字节精度的根存入R2 
XCH A,R2 
RRC A 
MOV F0,C ；保存最终偏移量的最高位 
MOV A,R3 
MOV R5,A ；将最终偏移量的低八位存入R5中 
MOV R4,#8 ；通过（R5R6／R2）求根的低字节 
SQR6: CLR C 
MOV A,R3 
RLC A 
MOV R3,A 
CLR C 
MOV A,R5 
SUBB A,R2 
JB F0,SQR7 
JC SQR8 
SQR7: MOV R5,A 
INC R3 
SQR8: CLR C 
MOV A,R5 
RLC A 
MOV R5,A 
MOV F0,C 
DJNZ R4,SQR6 ；根的第二字节计算完，在R3中 
MOV A,R7 ；取原被开方数的左规次数 
JZ SQRE ；未左规，开方结束 
SQR9: CLR C ；按左规次数右移平方根，得到实际根 
MOV A,R2 
RRC A 
MOV R2,A 
MOV A,R3 
RRC A 
MOV R3,A 
DJNZ R7,SQR9 
SQRE: RET 
　 
（１４） 标号： ＨＡＳＣ 功能：单字节十六进制数转换成双字节ASCII码 

入口条件：待转换的单字节十六进制数在累加器A中。 
出口信息：高四位的ASCII码在A中，低四位的ASCII码在B中。 
影响资源：PSW、A、B 堆栈需求： ４字节 
HASC: MOV B,A ；暂存待转换的单字节十六进制数 
LCALL HAS1 ；转换低四位 
XCH A,B ；存放低四位的ASCII码 
SWAP A ；准备转换高四位 
HAS1: ANL A,#0FH ；将累加器的低四位转换成ASCII码 
ADD A,#90H 
DA A 
ADDC A,#40H 
DA A 
RET 
　 
（１５） 标号： ＡＳＣＨ 功能：ASCII码转换成十六进制数 

入口条件：待转换的ASCII码（30H～39H或41H～46H）在A中。 
出口信息：转换后的十六进制数（00H～0FH）仍在累加器A中。 
影响资源：PSW、A 堆栈需求： ２字节 
ASCH: CLR C 
SUBB A,#30H 
JNB ACC.4,ASH1 
SUBB A,#7 
ASH1: RET 
　 
（１６） 标号：ＨＢＣＤ 功能：单字节十六进制整数转换成单字节ＢＣＤ码整数 

入口条件：待转换的单字节十六进制整数在累加器A中。 
出口信息：转换后的ＢＣＤ码整数（十位和个位）仍在累加器A中，百位在R3中。 
影响资源：PSW、A、B、R3 堆栈需求： ２字节 
HBCD: MOV B,#100 ；分离出百位，存放在R3中 
DIV AB 
MOV R3,A 
MOV A,#10 ；余数继续分离十位和个位 
XCH A,B 
DIV AB 
SWAP A 
ORL A,B ；将十位和个位拼装成ＢＣＤ码 
RET 
　 
（１７） 标号： ＨＢ２ 功能：双字节十六进制整数转换成双字节ＢＣＤ码整数 

入口条件：待转换的双字节十六进制整数在R6、R7中。 
出口信息：转换后的三字节ＢＣＤ码整数在R3、R4、R5中。 
影响资源：PSW、A、R2～R7 堆栈需求： ２字节 
HB2: CLR A ；ＢＣＤ码初始化 
MOV R3,A 
MOV R4,A 
MOV R5,A 
MOV R2,#10H ；转换双字节十六进制整数 
HB3: MOV A,R7 ；从高端移出待转换数的一位到CY中 
RLC A 
MOV R7,A 
MOV A,R6 
RLC A 
MOV R6,A 
MOV A,R5 ；ＢＣＤ码带进位自身相加，相当于乘２ 
ADDC A,R5 
DA A ；十进制调整 
MOV R5,A 
MOV A,R4 
ADDC A,R4 
DA A 
MOV R4,A 
MOV A,R3 
ADDC A,R3 
MOV R3,A ；双字节十六进制数的万位数不超过６，不用调整 
DJNZ R2,HB3 ；处理完１６ｂｉｔ 
RET 
　 
（１８） 标号： ＨＢＤ 功能：单字节十六进制小数转换成单字节ＢＣＤ码小数 

入口条件：待转换的单字节十六进制小数在累加器A中。 
出口信息：CY=0时转换后的ＢＣＤ码小数仍在A中。CY=1时原小数接近整数１。 
影响资源：PSW、A、B 堆栈需求： ２字节 
HBD: MOV B,#100 ；原小数扩大一百倍 
MUL AB 
RLC A ；余数部分四舍五入 
CLR A 
ADDC A,B 
MOV B,#10 ；分离出十分位和百分位 
DIV AB 
SWAP A 
ADD A,B ；拼装成单字节ＢＣＤ码小数 
DA A ；调整后若有进位，原小数接近整数１ 
RET 
　 
（１９） 标号： ＨＢＤ２ 功能：双字节十六进制小数转换成双字节ＢＣＤ码小数 

入口条件：待转换的双字节十六进制小数在R2、R3中。 
出口信息：转换后的双字节ＢＣＤ码小数仍在R2、R3中。 
影响资源：PSW、A、B、R2、R3、R4、R5 堆栈需求： ６字节 
HBD2: MOV R4,#4 ；四位十进制码 
HBD3: MOV A,R3 ；原小数扩大十倍 
MOV B,#10 
MUL AB 
MOV R3,A 
MOV R5,B 
MOV A,R2 
MOV B,#10 
MUL AB 
ADD A,R5 
MOV R2,A 
CLR A 
ADDC A,B 
PUSH ACC ；保存溢出的一位十进制码 
DJNZ R4,HBD3 ；计算完四位十进制码 
POP ACC ；取出万分位 
MOV R3,A 
POP ACC ；取出千分位 
SWAP A 
ORL A,R3 ；拼装成低字节ＢＣＤ码小数 
MOV R3,A 
POP ACC ；取出百分位 
MOV R2,A 
POP ACC ；取出十分位 
SWAP A 
ORL A,R2 ；拼装成高字节ＢＣＤ码小数 
MOV R2,A 
RET 
　 
（２０）标号：ＢＣＤＨ 功能：单字节ＢＣＤ码整数转换成单字节十六进制整数 

入口条件：待转换的单字节ＢＣＤ码整数在累加器A中。 
出口信息：转换后的单字节十六进制整数仍在累加器A中。 
影响资源：PSW、A、B、R4 堆栈需求： ２字节 
BCDH: MOV B,#10H ；分离十位和个位 
DIV AB 
MOV R4,B ；暂存个位 
MOV B,#10 ；将十位转换成十六进制 
MUL AB 
ADD A,R4 ；按十六进制加上个位 
RET 
　 
（２１）标号： ＢＨ２ 功能：双字节ＢＣＤ码整数转换成双字节十六进制整数 

入口条件：待转换的双字节ＢＣＤ码整数在R2、R3中。 
出口信息：转换后的双字节十六进制整数仍在R2、R3中。 
影响资源：PSW、A、B、R2、R3、R4 堆栈需求： ４字节 
BH2: MOV A,R3 ；将低字节转换成十六进制 
LCALL BCDH 
MOV R3,A 
MOV A,R2 ；将高字节转换成十六进制 
LCALL BCDH 
MOV B,#100 ；扩大一百倍 
MUL AB 
ADD A,R3 ；和低字节按十六进制相加 
MOV R3,A 
CLR A 
ADDC A,B 
MOV R2,A 
RET 
　 
(２２）标号： ＢＨＤ 功能：单字节ＢＣＤ码小数转换成单字节十六进制小数 

入口条件：待转换的单字节ＢＣＤ码数在累加器A中。 
出口信息：转换后的单字节十六进制小数仍在累加器A中。 
影响资源：PSW、A、R2、R3 堆栈需求： ２字节 
BHD: MOV R2,#8 ；准备计算一个字节小数 
BHD0: ADD A,ACC ；按十进制倍增 
DA A 
XCH A,R3 
RLC A ；将进位标志移入结果中 
XCH A,R3 
DJNZ R2,BHD0 ；共计算８ｂｉｔ小数 
ADD A,#0B0H ；剩余部分达到０．５０否？ 
JNC BHD1 ；四舍 
INC R3 ；五入 
BHD1: MOV A,R3 ；取结果 
RET 

 


 
       
    MCS-51单片机实用子程序库（七）
   
  MCS-51单片机实用子程序库 

（２５） 标号： ＦＴＯＤ 功能：格式化浮点数转换成双字节定点数 

入口条件：格式化浮点操作数在[R0]中。 
出口信息：OV=1时溢出，OV=0时转换成功：定点数的绝对值在[R0]中（双字节），数符 
在位1FH中，F0=1 时为整数，CY=1时为一字节整数一字节小数，否则为纯小数。 
影响资源：PSW、A、B、R2、R3、R4、位1FH 堆栈需求： ６字节 
FTOD: LCALL MVR0 ；将[R0]传送到第一工作区 
MOV A,R2 
JZ FTD4 ；阶码为零，纯小数 
JB ACC.7,FTD4；阶码为负，纯小数 
SETB C 
SUBB A,#10H 
JC FTD1 
SETB OV ；阶码大于１６，溢出 
RET 
FTD1: SETB C 
MOV A,R2 
SUBB A,#8 ；阶码大于８否？ 
JC FTD3 
FTD2: MOV B,#10H ；阶码大于８，按双字节整数转换 
LCALL FTD8 
SETB F0 ；设立双字节整数标志 
CLR C 
CLR OV 
RET 
FTD3: MOV B,#8 ；按一字节整数一字节小数转换 
LCALL FTD8 
SETB C ；设立一字节整数一字节小数标志 
CLR F0 
CLR OV 
RET 
FTD4: MOV B,#0 ；按纯小数转换 
LCALL FTD8 
CLR OV ；设立纯小数标志 
CLR F0 
CLR C 
RET 
FTD8: MOV A,R2 ；按规定的整数位数进行右规 
CJNE A,B,FTD9 
MOV A,R3 ；将双字节结果传送到[R0]中 
MOV @R0,A 
INC R0 
MOV A,R4 
MOV @R0,A 
DEC R0 
RET 
FTD9: CLR C 
LCALL RR1 ；右规一次 
SJMP FTD8 

（２６） 标号： ＢＴＯＦ 功能：浮点ＢＣＤ码转换成格式化浮点数 

入口条件：浮点ＢＣＤ码操作数在[R0]中。 
出口信息：转换成的格式化浮点数仍在[R0]中。 
影响资源：PSW、A、B、R2～R7、位1DH～1FH 堆栈需求：６字节 
BTOF: INC R0 ；判断是否为零。 
INC R0 
MOV A,@R0 
MOV R7,A 
DEC R0 
MOV A,@R0 
MOV R6,A 
DEC R0 
ORL A,R7 
JNZ BTF0 
MOV @R0,#41H；为零，转换结束。 
RET 
BTF0: MOV A,@R0 
MOV C,ACC.7 
MOV 1DH,C ；保存数符。 
CLR 1FH ；以绝对值进行转换。 
MOV C,ACC.6 ；扩充阶码为八位。 
MOV ACC.7,C 
MOV @R0,A 
JNC BTF1 
ADD A,#19 ；是否小于１Ｅ－１９？ 
JC BTF2