MOV R7,A
DEC R1 ; 恢复数据指针 DEC R1 RET
AS1: MOV A,R6 ; 读取第二操作数尾数高字节 ORL A,R7
JZ AS2 ; 第二操作数为零，不必运算 MOV A,R3 ; 读取第一操作数尾数高字节 ORL A,R4 JNZ EQ1
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
EQ1: 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 EQ1 ; 尾数不为零，继续对阶 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 EQ1 ; 不为零，继续对阶 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
;(４） 标号： ＦＭＵＬ 功能：浮点数乘法
;入口条件：被乘数在[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
;（５） 标号： ＦＤＩＶ 功能：浮点数除法
;入口条件：被除数在[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 ; 比较两个操作数的符号
５字节