MOV @R0,A
 DEC R0
 POP ACC
 MOV @R0,A
 MOV A,R3 ；將返回地址壓入堆棧
 PUSH ACC
 MOV A,R2
 PUSH ACC
 RET  ；返回主程序

    （１１）  標號：  ＦＣＭＰ    功能：浮點數代數值比較（不影響待比較操作數）

入口條件：待比較操作數分別在[R0]和[R1]中。
出口信息：若CY=1，則[R0] < [R1]，若CY=0且A=0則 [R0] = [R1]，否則[R0] > [R1]。
影響資源：A、B、PSW    堆棧需求：  ２字節(jié)

FCMP: MOV A,@R0 ；數符比較
 XRL A,@R1
 JNB ACC.7,CMP2
 MOV A,@R0 ；兩數異號，以[R0]數符為準
 RLC A
 MOV A,#0FFH
 RET  
CMP2: MOV A,@R1 ；兩數同號，準備比較階碼
 MOV C,ACC.6
 MOV ACC.7,C
 MOV B,A

MOV A,@R0
 MOV C,ACC.7
 MOV F0,C ；保存[R0]的數符
 MOV C,ACC.6
 MOV ACC.7,C
 CLR C ；比較階碼
 SUBB A,B
 JZ CMP6
 RLC A ；取階碼之差的符號
 JNB F0,CMP5
 CPL C ；[R0]為負時，結果取反
CMP5: MOV A,#0FFH ；兩數不相等
 RET  
CMP6: INC R0 ；階碼相同時，準備比較尾數
 INC R0
 INC R1
 INC R1
 CLR C
 MOV A,@R0
 SUBB A,@R1
 MOV B,A ；保存部分差 
 DEC R0
 DEC R1
 MOV A,@R0
 SUBB A,@R1
 DEC R0
 DEC R1

ORL A,B ；生成是否相等信息
 JZ CMP7
 JNB F0,CMP7
 CPL C ；[R0]為負時，結果取反
CMP7: RET

    （１２）  標號：  ＦＡＢＳ    功能：浮點絕對值函數

入口條件：操作數在[R0]中。
出口信息：結果仍在[R0]中。
影響資源：A    堆棧需求：  ２字節(jié)

FABS: MOV A,@R0 ；讀取操作數的階碼
 CLR ACC.7 ；清除數符
 MOV @R0,A ；回傳階碼
 RET

    （１３）  標號：  ＦＳＧＮ    功能：浮點符號函數

入口條件：操作數在[R0]中。
出口信息：累加器 A=1 時為正數，A=0FFH時為負數，A=0 時為零。

影響資源：PSW、A    堆棧需求：  ２字節(jié)

FSGN: INC R0 ；讀尾數
 MOV A,@R0
 INC R0
 ORL A,@R0
 DEC R0
 DEC R0
 JNZ SGN
 RET  ；尾數為零，結束
SGN: MOV A,@R0 ；讀取操作數的階碼
 RLC A ；取數符
 MOV A,#1 ；按正數初始化
 JNC SGN1 ；是正數，結束
 MOV A,#0FFH ；是負數，改變標志
SGN1: RET

    （１４）  標號：  ＦＩＮＴ    功能：浮點取整函數

入口條件：操作數在[R0]中。
出口信息：結果仍在[R0]中。
影響資源：PSW、A、R2、R3、R4、位1FH    堆棧需求：  ６字節(jié)

FINT: LCALL MVR0 ；將[R0]傳送到第一工作區(qū)中
 LCALL INT ；在工作寄存器中完成取整運算
 LJMP MOV0 ；將結果傳回到[R0]中
INT: MOV A,R3
 ORL A,R4
 JNZ INTA
 CLR 1FH ；尾數為零，階碼也清零，結束取整
 MOV R2,#41H
 RET  
INTA: MOV A,R2
 JZ INTB ；階碼為零否？
 JB ACC.7,INTB；階符為負否？
 CLR C
 SUBB A,#10H ；階碼小于１６否？
 JC INTD
 RET  ；階碼大于１６，已經是整數
INTB: CLR A   ；絕對值小于一，取整后正數為零，負數為負一

MOV R4,A
 MOV C,1FH
 RRC A
 MOV R3,A
 RL A
 MOV R2,A
 JNZ INTC
 MOV R2,#41H
INTC: RET
INTD: CLR F0 ；舍尾標志初始化
INTE: CLR C
 LCALL RR1 ；右規(guī)一次
 ORL C,F0 ；記憶舍尾情況
 MOV F0,C
 CJNE R2,#10H,INTE；階碼達到１６（尾數完全為整數）否？
 JNB F0,INTF ；舍去部分為零否？
 JNB 1FH,INTF；操作數為正數否？
 INC R4 ；對于帶小數的負數，向下取整
 MOV A,R4
 JNZ INTF
 INC R3
INTF: LJMP RLN ；將結果規(guī)格化

    （１５）  標號：  ＦＲＣＰ    功能：浮點倒數函數

入口條件：操作數在[R0]中。
出口信息：OV=0時，結果仍在[R0]中，OV=1時，溢出。
影響資源：PSW、A、B、R2～R7、位1EH、1FH   堆棧需求： ５字節(jié)

FRCP: MOV A,@R0
 MOV C,ACC.7
 MOV 1FH,C ；保存數符
 MOV C,ACC.6 ；絕對值傳送到第二工作區(qū)
 MOV ACC.7,C
 MOV R5,A
 INC R0
 MOV A,@R0
 MOV R6,A
 INC R0
 MOV A,@R0
 MOV R7,A
 DEC R0
 DEC R0
 ORL A,R6
 JNZ RCP
 SETB OV ；零不能求倒數，設立溢出標志
 RET  
RCP: MOV A,R6
 JB ACC.7,RCP2；操作數格式化否？

CLR C ；格式化之
 MOV A,R7
 RLC A
 MOV R7,A
 MOV A,R6
 RLC A
 MOV R6,A
 DEC R5
 SJMP RCP
RCP2: MOV R2,#1 ；將數值１．００傳送到第一工作區(qū)
 MOV R3,#80H
 MOV R4,#0
 LCALL DIV3 ；調用工作區(qū)浮點除法，求得倒數
 LJMP MOV0 ；回傳結果

    （１６）  標號：  ＦＳＱＵ    功能：浮點數平方

入口條件：操作數在[R0]中。
出口信息：OV=0時，平方值仍然在[R0]中，OV=1時溢出。
影響資源：PSW、A、B、R2～R7、位1EH、1FH      堆棧需求：  ９字節(jié)


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      堆棧需求：  ２字節(jié)

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 ；指向被開方數尾數的高字節(jié)
 JC SQR0 ；原被開方數的階碼是奇數嗎？
 MOV A,@R0 ；是奇數，尾數右規(guī)一次
 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    堆棧需求： ４字節(jié)

FPLN: POP DPH ；取出多項式系數存放地址
 POP DPL
 XCH A,R0    ；R0、R1交換角色，自變量在[R1]中
 XCH A,R1
 XCH A,R0
 CLR A ；清第一工作區(qū)
 MOV R2,A
 MOV R3,A
 MOV R4,A
 CLR 1FH
PLN1: CLR A ；讀取一個系數，并裝入第二工作區(qū)
 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 ；讀取下一個系數的第一個字節(jié)
 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 ；繼續(xù)下一項運算

    （１９）  標號：  ＦＬＯＧ    功能：以１０為底的浮點對數函數

入口條件：操作數在[R0]中。
出口信息：OV=0時，結果仍在[R0]中，OV=1時，負數或零求對數出錯。
影響資源：DPTR、PSW、A、B、R2～R7、位1EH、1FH  堆棧需求：９字節(jié)

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  堆棧需求： ７字節(jié)

FLN: LCALL MVR0 ；將[R0]傳送到第一工作區(qū)
 JB 1FH,LNOV；負數或零求對數，出錯
 MOV A,R3
 ORL A,R4
 JNZ LN0
LNOV: SETB OV
 RET
LN0: CLR C

LCALL RL1 ；左規(guī)一次
 CLR A
 XCH A,R2 ；保存原階碼，清零工作區(qū)的階碼
 PUSH ACC
 LCALL RLN ；規(guī)格化
 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 ；清第二區(qū)數符
 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 ；乘積的階碼初始化（整數部分為一字節(jié)）
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  堆棧需求：６字節(jié)

FE10: MOV R5,#2 ；加權系數為３．３２１９（Ｌｏｇ2１０）
 MOV R6,#0D4H

MOV R7,#9AH
 SJMP EXP ；先進行加權運算，后以２為底統(tǒng)一求冪

    （２２）  標號：  ＦＥＸＰ    功能：以ｅ為底的浮點指數函數

入口條件：操作數在[R0]中。
出口信息：OV=0時，結果仍在[R0]中，OV=1時，溢出。
影響資源：DPTR、PSW、A、B、R2～R7、位1EH、1FH  堆棧需求：６字節(jié)

FEXP: MOV R5,#1 ；加權系數為１．４４２７２（Ｌｎｇ2ｅ）
 MOV R6,#0B8H
 MOV R7,#0ABH
EXP: CLR 1EH ；加權系數為正數
 LCALL MVR0 ；將[R0]傳送到第一工作區(qū)
 LCALL MUL1 ；進行加權運算

SJMP E20 ；以２為底統(tǒng)一求冪

    （２３）  標號：  ＦＥ２    功能：以２為底的浮點指數函數

入口條件：操作數在[R0]中。
出口信息：OV=0時，結果仍在[R0]中，OV=1時，溢出。
影響資源：DPTR、PSW、A、B、R2～R7、位1EH、1FH  堆棧需求：６字節(jié)

FE2: LCALL MVR0 ；將[R0]傳送到第一工作區(qū)
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 ；將指數復制到第二工作區(qū)
 MOV R5,A
 MOV A,R3