?? ＭＣＳ－５１單片機實用子程序庫（９６年版）.txt
字號:
LCALL DIV3 ；調用工作區浮點除法，求得倒數
LJMP MOV0 ；回傳結果
（１６） 標號： ＦＳＱＵ 功能：浮點數平方
入口條件：操作數在[R0]中。
出口信息：OV=0時，平方值仍然在[R0]中，OV=1時溢出。
影響資源：PSW、A、B、R2～R7、位1EH、1FH 堆棧需求： ９字節
FSQU MOV A,R0 ；將操作數
XCH A,R1 ；同時作為乘數
PUSH ACC ；保存Ｒ１指針
LCALL FMUL ；進行乘法運算
POP ACC
MOV R1,A ；恢復Ｒ１指針
RET
（１７） 標號： ＦＳＱＲ 功能：浮點數開平方（快速逼近算法）
入口條件：操作數在[R0]中。
出口信息：OV=0時，平方根仍在[R0]中，OV=1時，負數開平方出錯。
影響資源：PSW、A、B、R2～R7 堆棧需求： ２字節
FSQR MOV A,@R0
JNB ACC.7,SQR
SETB OV ；負數開平方，出錯
RET
SQR INC R0
INC R0
MOV A,@R0
DEC R0
ORL A,@R0
DEC R0
JNZ SQ
MOV @R0,#41H；尾數為零，不必運算
CLR OV
RET
SQ MOV A,@R0
MOV C,ACC.6 ；將階碼擴展成８ｂｉｔ補碼
MOV ACC.7,C
INC A ；加一
CLR C
RRC A ；除二
MOV @R0,A ；得到平方根的階碼，回存之
INC R0 ；指向被開方數尾數的高字節
JC SQR0 ；原被開方數的階碼是奇數嗎？
MOV A,@R0 ；是奇數，尾數右規一次
RRC A
MOV @R0,A
INC R0
MOV A,@R0
RRC A
MOV @R0,A
DEC R0
SQR0 MOV A,@R0
JZ SQR9 ；尾數為零，不必運算
MOV R2,A ；將尾數傳送到R2R3中
INC R0
MOV A,@R0
MOV R3,A
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
CLR C
SUBB A,R3
MOV R3,A
MOV A,B
XCH A,R2
SUBB A,R2
MOV R2,A
SQR4 SETB C
MOV A,R4
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
XCH A,R2
RRC A
MOV F0,C
MOV A,R3
MOV R5,A
MOV R4,#8
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
MOV A,R3 ；將平方根的尾數回傳到[R0]中
MOV @R0,A
DEC R0
MOV A,R2
MOV @R0,A
SQR9 DEC R0 ；數據指針回歸原位
CLR OV ；開方結果有效
RET
（１８） 標號： ＦＰＬＮ 功能：浮點數多項式計算
入口條件：自變量在[R0]中，多項式系數在調用指令之后，以４０Ｈ結束。
出口信息：OV=0時，結果仍在[R0]中，OV=1時，溢出。
影響資源：DPTR、PSW、A、B、R2～R7、位1EH、1FH 堆棧需求： ４字節
FPLN POP DPH ；取出多項式系數存放地址
POP DPL
XCH A,R0 ；R0、R1交換角色，自變量在[R1]中
XCH A,R1
XCH A,R0
CLR A ；清第一工作區
MOV R2,A
MOV R3,A
MOV R4,A
CLR 1FH
PLN1 CLR A ；讀取一個系數，并裝入第二工作區
MOVC A,@A+DPTR
MOV C,ACC.7
MOV 1EH,C
MOV C,ACC.6
MOV ACC.7,C
MOV R5,A
INC DPTR
CLR A
MOVC A,@A+DPTR
MOV R6,A
INC DPTR
CLR A
MOVC A,@A+DPTR
MOV R7,A
INC DPTR ；指向下一個系數
MOV C,1EH ；比較兩個數符
RRC A
XRL A,23H
RLC A
MOV F0,C ；保存比較結果
LCALL AS1 ；進行代數加法運算
CLR A ；讀取下一個系數的第一個字節
MOVC A,@A+DPTR
CJNE A,#40H,PLN2；是結束標志嗎？
XCH A,R0 ；運算結束，恢復R0、R1原來的角色
XCH A,R1
XCH A,R0
LCALL MOV0 ；將結果回傳到[R0]中
CLR A
INC DPTR
JMP @A+DPTR ；返回主程序
PLN2 MOV A,@R1 ；比較自變量和中間結果的符號
XRL A,23H
RLC A
MOV 1FH,C ；保存比較結果
LCALL MUL0 ；進行乘法運算
SJMP PLN1 ；繼續下一項運算
（１９） 標號： ＦＬＯＧ 功能：以１０為底的浮點對數函數
入口條件：操作數在[R0]中。
出口信息：OV=0時，結果仍在[R0]中，OV=1時，負數或零求對數出錯。
影響資源：DPTR、PSW、A、B、R2～R7、位1EH、1FH 堆棧需求：９字節
FLOG LCALL FLN ；先以ｅ為底求對數
JNB OV,LOG
RET ；如溢出則停止計算
LOG MOV R5,#0FFH；系數０．４３４３０（１／Ｌｎ１０）
MOV R6,#0DEH
MOV R7,#5CH
LCALL MUL1 ；通過相乘來換底
LJMP MOV0 ；傳回結果
（２０） 標號： ＦＬＮ 功能：以ｅ為底的浮點對數函數
入口條件：操作數在[R0]中。
出口信息：OV=0時，結果仍在[R0]中，OV=1時，負數或零求對數出錯。
影響資源：DPTR、PSW、A、B、R2～R7、位1EH、1FH 堆棧需求： ７字節
FLN LCALL MVR0 ；將[R0]傳送到第一工作區
JB 1FH,LNOV；負數或零求對數，出錯
MOV A,R3
ORL A,R4
JNZ LN0
LNOV SETB OV
RET
LN0 CLR C
LCALL RL1 ；左規一次
CLR A
XCH A,R2 ；保存原階碼，清零工作區的階碼
PUSH ACC
LCALL RLN ；規格化
LCALL MOV0 ；回傳
LCALL FPLN ；用多項式計算尾數的對數
DB 7BH,0F4H,30H；０．０２９８０８
DB 0FEH,85H,13H；－０．１２９９６
DB 7FH,91H,51H；０．２８３８２
DB 0FFH,0FAH,0BAH；－０．４８９７
DB 0,0FFH,0CAH；０．９９９１８
DB 70H,0C0H,0；１．１４４２×１０-5
DB 40H ；結束
POP ACC ；取出原階碼
JNZ LN1
RET ；如為零，則結束
LN1 CLR 1EH ；清第二區數符
MOV C,ACC.7
MOV F0,C ；保存階符
JNC LN2
CPL A ；當階碼為負時，求其絕對值
INC A
LN2 MOV R2,A ；階碼的絕對值乘以０．６９３１５
MOV B,#72H
MUL AB
XCH A,R2
MOV R7,B
MOV B,#0B1H
MUL AB
ADD A,R7
MOV R7,A ；乘積的尾數在R6R7R2中
CLR A
ADDC A,B
MOV R6,A
MOV R5,#8 ；乘積的階碼初始化（整數部分為一字節）
LN3 JB ACC.7,LN4；乘積格式化
MOV A,R2
RLC A
MOV R2,A
MOV A,R7
RLC A
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
DEC R5
SJMP LN3
LN4 MOV C,F0 ；取出階符，作為乘積的數符
MOV ACC.7,C
LJMP ASN ；與尾數的對數合并，得原操作數的對數
（２１） 標號： ＦＥ１０ 功能：以１０為底的浮點指數函數
入口條件：操作數在[R0]中。
出口信息：OV=0時，結果仍在[R0]中，OV=1時，溢出。
影響資源：DPTR、PSW、A、B、R2～R7、位1EH、1FH 堆棧需求：６字節
FE10 MOV R5,#2 ；加權系數為３．３２１９（Ｌｏｇ2１０）
MOV R6,#0D4H
MOV R7,#9AH
SJMP EXP ；先進行加權運算，后以２為底統一求冪
（２２） 標號： ＦＥＸＰ 功能：以ｅ為底的浮點指數函數
入口條件：操作數在[R0]中。
出口信息：OV=0時，結果仍在[R0]中，OV=1時，溢出。
影響資源：DPTR、PSW、A、B、R2～R7、位1EH、1FH 堆棧需求：６字節
FEXP MOV R5,#1 ；加權系數為１．４４２７２（Ｌｎｇ2ｅ）
MOV R6,#0B8H
MOV R7,#0ABH
EXP CLR 1EH ；加權系數為正數
LCALL MVR0 ；將[R0]傳送到第一工作區
LCALL MUL1 ；進行加權運算
SJMP E20 ；以２為底統一求冪
（２３） 標號： ＦＥ２ 功能：以２為底的浮點指數函數
入口條件：操作數在[R0]中。
出口信息：OV=0時，結果仍在[R0]中，OV=1時，溢出。
影響資源：DPTR、PSW、A、B、R2～R7、位1EH、1FH 堆棧需求：６字節
FE2 LCALL MVR0 ；將[R0]傳送到第一工作區
E20 MOV A,R3
ORL A,R4
JZ EXP1 ；尾數為零
MOV A,R2
JB ACC.7,EXP2；階符為負？
SETB C
SUBB A,#6 ；階碼大于６否？
JC EXP2
JB 1FH,EXP0；數符為負否？
MOV @R0,#3FH；正指數過大，冪溢出
INC R0
MOV @R0,#0FFH
INC R0
MOV @R0,#0FFH
DEC R0
DEC R0
SETB OV
RET
EXP0 MOV @R0,#41H；負指數過大，冪下溢，清零處理
CLR A
INC R0
MOV @R0,A
INC R0
MOV @R0,A
DEC R0
DEC R0
CLR OV
RET
EXP1 MOV @R0,#1 ；指數為零，冪為１．００
INC R0
MOV @R0,#80H
INC R0
MOV @R0,#0
DEC R0
DEC R0
CLR OV
RET
EXP2 MOV A,R2 ；將指數復制到第二工作區
MOV R5,A
MOV A,R3
MOV R6,A
MOV A,R4
MOV R7,A
MOV C,1FH
MOV 1EH,C
LCALL INT ；對第一區取整
MOV A,R3
JZ EXP4
EXP3 CLR C ；使尾數高字節R3對應一個字節整數
RRC A
INC R2
CJNE R2,#8,EXP3
EXP4 MOV R3,A
JNB 1FH,EXP5
CPL A ；并用補碼表示
INC A
EXP5 PUSH ACC ；暫時保存之
LCALL RLN ；重新規格化
CPL 1FH
SETB F0
LCALL AS1 ；求指數的小數部分
LCALL MOV0 ；回傳指數的小數部分
LCALL FPLN ；通過多項式計算指數的小數部分的冪
DB 77H,0B1H,0C9H；１．３５６４×１０-3
DB 7AH,0A1H,68H；９．８５１４×１０-3
DB 7CH,0E3H,4FH；０．０５５４９５
DB 7EH,0F5H,0E7H；０．２４０１４
DB 0,0B1H,72H；０．６９３１５
DB 1,80H,0 ；１．０００００
DB 40H ；結束
POP ACC ；取出指數的整數部分
ADD A,R2 ；按補碼加到冪的階碼上
MOV R2,A
CLR 1FH ；冪的符號為正
LJMP MOV0 ；將冪傳回[R0]中
（２４）標號： ＤＴＯＦ 功能：雙字節十六進制定點數轉換成格式化浮點數
入口條件：雙字節定點數的絕對值在[R0]中，數符在位1FH中，整數部分的位數在A中。
出口信息：轉換成格式化浮點數在[R0]中（三字節）。
影響資源：PSW、A、R2、R3、R4、位1FH 堆棧需求： ６字節
DTOF MOV R2,A ；按整數的位數初始化階碼
MOV A,@R0 ；將定點數作尾數
MOV R3,A
INC R0
MOV A,@R0
MOV R4,A
DEC R0
LCALL RLN ；進行規格化
LJMP MOV0 ；傳送結果到[R0]中
（２５） 標號： ＦＴＯＤ 功能：格式化浮點數轉換成雙字節定點數
入口條件：格式化浮點操作數在[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 R?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -