ORL A,@R0
DEC R0
DEC R0
JNZ DIV1
MOV @R0,#41H；被除數為零，不必運算
CLR OV
RET
DIV1: INC R1
MOV A,@R1
INC R1 
ORL A,@R1
DEC R1
DEC R1 
JNZ DIV2 
SETB OV ；除數為零，溢出
RET 
DIV2: LCALL MVR0 ；將[R0]傳送到第一工作區中
MOV A,@R0
XRL A,@R1 ；比較兩個操作數的符號
RLC A
MOV 1FH,C ；保存結果的符號
LCALL MVR1 ；將[R1]傳送到第二工作區中
LCALL DIV3 ；調用工作區浮點除法
LJMP MOV0 ；回傳結果
DIV3: CLR C ；比較尾數的大小
MOV A,R4
SUBB A,R7
MOV A,R3
SUBB A,R6
JC DIV4
LCALL RR1 ；被除數右規一次
SJMP DIV3
DIV4: CLR A ；借用R0R1R2作工作寄存器
XCH A,R0 ；清零并保護之
PUSH ACC
CLR A
XCH A,R1
PUSH ACC
MOV A,R2
PUSH ACC
MOV B,#10H ；除法運算，R3R4／R6R7－→R0R1
DIV5: CLR C
MOV A,R1
RLC A
MOV R1,A
MOV A,R0
RLC A
MOV R0,A
MOV A,R4
RLC A
MOV R4,A
XCH A,R3
RLC A
XCH A,R3
MOV F0,C
CLR C
SUBB A,R7
MOV R2,A
MOV A,R3
SUBB A,R6
ANL C,/F0
JC DIV6
MOV R3,A
MOV A,R2
MOV R4,A
INC R1
DIV6: DJNZ B,DIV5
MOV A,R6 ；四舍五入
CLR C
RRC A
SUBB A,R3
CLR A
ADDC A,R1 ；將結果存回R3R4
MOV R4,A
CLR A
ADDC A,R0
MOV R3,A
POP ACC ；恢復R0R1R2
MOV R2,A
POP ACC
MOV R1,A
POP ACC
MOV R0,A
MOV A,R2 ；計算商的階碼
CLR C
SUBB A,R5
LCALL MD ；階碼檢驗
LJMP RLN ；規格化

（６） 標號： ＦＣＬＲ 功能：浮點數清零

入口條件：操作數在[R0]中。
出口信息：操作數被清零。
影響資源：A 堆棧需求： ２字節
FCLR: INC R0
INC R0
CLR A
MOV @R0,A
DEC R0
MOV @R0,A
DEC R0
MOV @R0,#41H
RET 
　
（７） 標號： ＦＺＥＲ 功能：浮點數判零

入口條件：操作數在[R0]中。
出口信息：若累加器A為零，則操作數[R0]為零，否則不為零。
影響資源：A 堆棧需求： ２字節
FZER: INC R0
INC R0
MOV A,@R0
DEC R0
ORL A,@R0
DEC R0
JNZ ZERO
MOV @R0,#41H
ZERO: RET 

（８） 標號： ＦＭＯＶ 功能：浮點數傳送

入口條件：源操作數在[R1]中，目標地址為[R0]。
出口信息：[R0]=[R1]，[R1]不變。
影響資源：A 堆棧需求： ２字節
FMOV: INC R0
INC R0
INC R1
INC R1
MOV A,@R1
MOV @R0,A
DEC R0
DEC R1
MOV A,@R1
MOV @R0,A
DEC R0
DEC R1
MOV A,@R1
MOV @R0,A
RET
　
（９） 標號： ＦＰＵＳ 功能：浮點數壓棧

入口條件：操作數在[R0]中。
出口信息：操作數壓入棧頂。
影響資源：A、R2、R3 堆棧需求： ５字節
FPUS: POP ACC ；將返回地址保存在R2R3中
MOV R2,A
POP ACC
MOV R3,A
MOV A,@R0 ；將操作數壓入堆棧
PUSH ACC
INC R0
MOV A,@R0
PUSH ACC
INC R0
MOV A,@R0
PUSH ACC
DEC R0
DEC R0
MOV A,R3 ；將返回地址壓入堆棧
PUSH ACC
MOV A,R2
PUSH ACC
RET ；返回主程序

（１０） 標號： ＦＰＯＰ 功能：浮點數出棧

入口條件：操作數處于棧頂。
出口信息：操作數彈至[R0]中。
影響資源：A、R2、R3 堆棧需求： ２字節
FPOP: POP ACC ；將返回地址保存在R2R3中
MOV R2,A
POP ACC
MOV R3,A
INC R0
INC R0
POP ACC ；將操作數彈出堆棧，傳送到[R0]中
MOV @R0,A
DEC R0
POP ACC
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 堆棧需求： ２字節
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 堆棧需求： ２字節
FABS: MOV A,@R0 ；讀取操作數的階碼
CLR ACC.7 ；清除數符
MOV @R0,A ；回傳階碼
RET

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

入口條件：操作數在[R0]中。
出口信息：累加器 A=1 時為正數，A=0FFH時為負數，A=0 時為零。
影響資源：PSW、A 堆棧需求： ２字節
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 堆棧需求： ６字節
FINT: LCALL MVR0 ；將[R0]傳送到第一工作區中
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 ；右規一次
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 ；將結果規格化

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

入口條件：操作數在[R0]中。
出口信息：OV=0時，結果仍在[R0]中，OV=1時，溢出。
影響資源：PSW、A、B、R2～R7、位1EH、1FH 堆棧需求： ５字節
FRCP: MOV A,@R0
MOV C,ACC.7
MOV 1FH,C ；保存數符
MOV C,ACC.6 ；絕對值傳送到第二工作區
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 ；將數值１．００傳送到第一工作區
MOV R3,#80H
MOV R4,#0
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