LCALL FLN ；进行浮点对数运算
LCALL FTOB ；将结果转换成ＢＣＤ码浮点数 STOP: LJMP STOP END
运行结果， [R0]=804915H ，即ｙ =-0.4915 ，比较精确的结果应该是 -0.491437 。 （1） 标号： ＦＳＤＴ 功能：浮点数格式化 入口条件：待格式化浮点操作数在 [R0] 中。 出口信息：已格式化浮点操作数仍在 [R0] 中。
影响资源： PSW 、 A 、 R2 、 R3 、 R4 、位 1FH 堆栈需求： ６字节 FSDT: LCALL MVR0 ；将待格式化操作数传送到第一工作区中 LCALL RLN ；通过左规完成格式化
LJMP MOV0 ；将已格式化浮点操作数传回到 [R0] 中 （2） 标号： ＦＡＤＤ 功能：浮点数加法 入口条件：被加数在 [R0] 中，加数在 [R1] 中。
出口信息： OV=0 时，和仍在 [R0] 中， OV=1 时，溢出。
影响资源： PSW 、 A 、 B 、 R2 ～ R7 、位 1EH 、 1FH 堆栈需求： ６字节 FADD: CLR F0 ；设立加法标志 SJMP AS ；计算代数和
（3） 标号： ＦＳＵＢ 功能：浮点数减法 入口条件：被减数在 [R0] 中，减数在 [R1] 中。
出口信息： OV=0 时，差仍在 [R0] 中， OV=1 时，溢出。
影响资源： PSW 、 A 、 B 、 R2 ～ R7 、位 1EH 、 1FH 堆栈需求：６字节 FSUB: SETB F0 ；设立减法标志
AS: LCALL MVR1 ；计算代数和。先将 [R1] 传送到第二工作区 MOV C,F0 ；用加减标志来校正第二操作数的有效符号 RRC A XRL A,@R1 MOV C,ACC.7
ASN: MOV 1EH,C ；将第二操作数的有效符号存入位 1EH 中 XRL A,@R0 ；与第一操作数的符号比较 RLC A
MOV F0,C ；保存比较结果
LCALL MVR0 ；将 [R0] 传送到第一工作区中 LCALL AS1 ；在工作寄存器中完成代数运算
MOV0: INC R0 ；将结果传回到 [R0] 中的子程序入口 INC R0
MOV A,R4 ；传回尾数的低字节 MOV @R0,A DEC R0
MOV A,R3 ；传回尾数的高字节 MOV @R0,A DEC R0
MOV A,R2 ；取结果的阶码 MOV C,1FH ；取结果的数符 MOV ACC.7,C ；拼入阶码中 MOV @R0,A
CLR ACC.7 ；不考虑数符 CLR OV ；清除溢出标志
CJNE A,#3FH,MV01 ；阶码是否上溢？ SETB OV ；设立溢出标志
MV01: MOV A,@R0 ；取出带数符的阶码 RET
MVR0: MOV A,@R0 ；将 [R0] 传送到第一工作区中的子程序 MOV C,ACC.7 ；将数符保存在位 1FH 中 MOV 1FH,C
MOV C,ACC.6 ；将阶码扩充为８ｂｉｔ补码 MOV ACC.7,C
MOV R2,A ；存放在 R2 中 INC R0
MOV A,@R0 ；将尾数高字节存放在 R3 中 MOV R3,A INC R0
MOV A,@R0 ；将尾数低字节存放在 R4 中 MOV R4,A
DEC R0 ；恢复数据指针 DEC R0 RET
MVR1: MOV A,@R1 ；将 [R1] 传送到第二工作区中的子程序 MOV C,ACC.7 ；将数符保存在位 1EH 中
MOV 1EH,C
MOV C,ACC.6 ；将阶码扩充为８ｂｉｔ补码 MOV ACC.7,C
MOV R5,A ；存放在 R5 中 INC R1
MOV A,@R1 ；将尾数高字节存放在 R6 中 MOV R6,A INC R1
MOV A,@R1 ；将尾数低字节存放在 R7 中 MOV R7,A
DEC R1 ；恢复数据指针 DEC R1 RET
AS1: MOV A,R6 ；读取第二操作数尾数高字节 ORL A,R7
JZ AS2 ；第二操作数为零，不必运算 MOV A,R3 ；读取第一操作数尾数高字节 ORL A,R4 JNZ EQ
MOV A,R6 ；第一操作数为零，结果以第二操作数为准 MOV R3,A MOV A,R7 MOV R4,A MOV A,R5 MOV R2,A MOV C,1EH MOV 1FH,C AS2: RET
EQ: MOV A,R2 ；对阶，比较两个操作数的阶码 XRL A,R5
JZ AS4 ；阶码相同，对阶结束 JB ACC.7,EQ3 ；阶符互异
MOV A,R2 ；阶符相同，比较大小 CLR C SUBB A,R5 JC EQ4
EQ2: CLR C ；第二操作数右规一次 MOV A,R6 ；尾数缩小一半 RRC A MOV R6,A MOV A,R7 RRC A MOV R7,A
INC R5 ；阶码加一
ORL A,R6 ；尾数为零否？
JNZ EQ ；尾数不为零，继续对阶 MOV A,R2 ；尾数为零，提前结束对阶 MOV R5,A SJMP AS4
EQ3: MOV A,R2 ；判断第一操作数阶符 JNB ACC.7,EQ2 ；如为正，右规第二操作数 EQ4: CLR C
LCALL RR1 ；第一操作数右规一次 ORL A,R3 ；尾数为零否？ JNZ EQ ；不为零，继续对阶
MOV A,R5 ；尾数为零，提前结束对阶 MOV R2,A
AS4: JB F0,AS5 ；尾数加减判断 MOV A,R4 ；尾数相加 ADD A,R7 MOV R4,A MOV A,R3 ADDC A,R6 MOV R3,A JNC AS2
LJMP RR1 ；有进位，右规一次 AS5: CLR C ；比较绝对值大小 MOV A,R4 SUBB A,R7
MOV B,A MOV A,R3 SUBB A,R6 JC AS6
MOV R4,B ；第一尾数减第二尾数 MOV R3,A
LJMP RLN ；结果规格化
AS6: CPL 1FH ；结果的符号与第一操作数相反 CLR C ；结果的绝对值为第二尾数减第一尾数 MOV A,R7 SUBB A,R4 MOV R4,A MOV A,R6 SUBB A,R3 MOV R3,A
RLN: MOV A,R3 ；浮点数规格化 ORL A,R4 ；尾数为零否？ JNZ RLN1
MOV R2,#0C1H ；阶码取最小值 RET RLN1: MOV A,R3
JB ACC.7,RLN2 ；尾数最高位为一否？ CLR C ；不为一，左规一次 LCALL RL1
SJMP RLN ；继续判断
RLN2: CLR OV ；规格化结束 RET
RL1: MOV A,R4 ；第一操作数左规一次 RLC A ；尾数扩大一倍 MOV R4,A MOV A,R3 RLC A MOV R3,A
DEC R2 ；阶码减一
CJNE R2,#0C0H,RL1E ；阶码下溢否？ CLR A
MOV R3,A ；阶码下溢，操作数以零计 MOV R4,A MOV R2,#0C1H RL1E: CLR OV RET
RR1: MOV A,R3 ；第一操作数右规一次 RRC A ；尾数缩小一半 MOV R3,A MOV A,R4 RRC A MOV R4,A
INC R2 ；阶码加一 CLR OV ；清溢出标志
CJNE R2,#40H,RR1E ；阶码上溢否？ MOV R2,#3FH ；阶码溢出 SETB OV RR1E: RET
（4） 标号： ＦＭＵＬ 功能：浮点数乘法入口条件：被乘数在 [R0] 中，乘数在 [R1] 中。
出口信息： OV=0 时，积仍在 [R0] 中， OV=1 时，溢出。
影响资源： PSW 、 A 、 B 、 R2 ～ R7 、位 1EH 、 1FH FMUL: LCALL MVR0 ；将 [R0] 传送到第一工作区中 MOV A,@R0
XRL A,@R1 ；比较两个操作数的符号 RLC A
MOV 1FH,C ；保存积的符号 LCALL MUL0 ；计算积的绝对值
LJMP MOV0 ；将结果传回到 [R0] 中
MUL0: LCALL MVR1 ；将 [R1] 传送到第二工作区中 MUL1: MOV A,R3 ；第一尾数为零否？ ORL A,R4 JZ MUL6
MOV A,R6 ；第二尾数为零否？
堆栈需求：６字节 ORL A,R7 JZ MUL5
MOV A,R7 ；计算 R3R4 × R6R7 －→ R3R4 MOV B,R4 MUL AB MOV A,B XCH A,R7 MOV B,R3 MUL AB ADD A,R7 MOV R7,A CLR A ADDC A,B XCH A,R4 MOV B,R6 MUL AB ADD A,R7 MOV R7,A MOV A,B ADDC A,R4 MOV R4,A CLR A RLC A XCH A,R3 MOV B,R6 MUL AB ADD A,R4 MOV R4,A MOV A,B ADDC A,R3 MOV R3,A
JB ACC.7,MUL2 ；积为规格化数否？ MOV A,R7 ；左规一次 RLC A MOV R7,A LCALL RL1 MUL2: MOV A,R7 JNB ACC.7,MUL3 INC R4 MOV A,R4 JNZ MUL3 INC R3 MOV A,R3 JNZ MUL3 MOV R3,#80H INC R2
MUL3: MOV A,R2 ；求积的阶码 ADD A,R5
MD: MOV R2,A ；阶码溢出判断 JB ACC.7,MUL4 JNB ACC.6,MUL6
MOV R2,#3FH ；阶码上溢，设立标志 SETB OV RET
MUL4: JB ACC.6,MUL6
MUL5: CLR A ；结果清零（因子为零或阶码下溢） MOV R3,A MOV R4,A MOV R2,#41H MUL6: CLR OV RET
（5） 标号： ＦＤＩＶ 功能：浮点数除法 入口条件：被除数在 [R0] 中，除数在 [R1] 中。
出口信息： OV=0 时，商仍在 [R0] 中， OV=1 时，溢出。
影响资源： PSW 、 A 、 B 、 R2 ～ R7 、位 1EH 、 1FH 堆栈需求：FDIV: INC R0 MOV A,@R0 INC R0 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