（６） 标号： ＭＵＬ２ 功能：双字节二进制无符号数平方
入口条件：待平方数在R2、R3中。
出口信息：结果在R2、R3、R4、R5中。
影响资源：PSW、A、B、R2～R5 堆栈需求： ２字节
MUL2: MOV A,R3 ；计算R3平方
MOV B,A
MUL AB
MOV R4,B ；暂存部分积
MOV R5,A
MOV A,R2 ；计算R2平方
MOV B,A
MUL AB
XCH A,R3 ；暂存部分积，并换出R2和R3
XCH A,B
XCH A,R2
MUL AB ；计算2×R2×R3
CLR C
RLC A
XCH A,B
RLC A
JNC MU20
INC R2 ；累加溢出量
MU20: XCH A,B ；累加部分积
ADD A,R4
MOV R4,A
MOV A,R3
ADDC A,B
MOV R3,A
CLR A
ADDC A,R2
MOV R2,A
RET
（７） 标号： ＤＩＶＤ 功能：双字节二进制无符号数除法
入口条件：被除数在R2、R3、R4、R5中，除数在R6、R7中。
出口信息：OV=0 时，双字节商在R2、R3中，OV=1 时溢出。
影响资源：PSW、A、B、R1～R7 堆栈需求： ２字节
DIVD: CLR C ；比较被除数和除数
MOV A,R3
SUBB A,R7
MOV A,R2
SUBB A,R6
JC DVD1
SETB OV ；溢出
RET
DVD1: MOV B,#10H ；计算双字节商
DVD2: CLR C ；部分商和余数同时左移一位
MOV A,R5
RLC A
MOV R5,A
MOV A,R4
RLC A
MOV R4,A
MOV A,R3
RLC A
MOV R3,A
XCH A,R2
RLC A
XCH A,R2
MOV F0,C ；保存溢出位
CLR C
SUBB A,R7 ；计算（R2R3－R6R7）
MOV R1,A
MOV A,R2
SUBB A,R6
ANL C,/F0 ；结果判断
JC DVD3
MOV R2,A ；够减，存放新的余数
MOV A,R1
MOV R3,A
INC R5 ；商的低位置一
DVD3: DJNZ B,DVD2 ；计算完十六位商（R4R5）
MOV A,R4 ；将商移到R2R3中
MOV R2,A
MOV A,R5
MOV R3,A
CLR OV ；设立成功标志
RET
（８） 标号： Ｄ４５７ 功能：双字节二进制无符号数除以单字节二进制数
入口条件：被除数在R4、R5中，除数在R7中。
出口信息：OV=0 时，单字节商在R3中，OV=1 时溢出。
影响资源：PSW、A、R3～R7 堆栈需求： ２字节
D457: CLR C
MOV A,R4
SUBB A,R7
JC DV50
SETB OV ；商溢出
RET
DV50: MOV R6,#8 ；求平均值（R4R5／R7－→R3）
DV51: MOV A,R5
RLC A
MOV R5,A
MOV A,R4
RLC A
MOV R4,A
MOV F0,C
CLR C
SUBB A,R7
ANL C,/F0
JC DV52
MOV R4,A
DV52: CPL C
MOV A,R3
RLC A
MOV R3,A
DJNZ R6,DV51
MOV A,R4 ；四舍五入
ADD A,R4
JC DV53
SUBB A,R7
JC DV54
DV53: INC R3
DV54: CLR OV
RET
（９） 标号： ＤＶ３１ 功能：三字节二进制无符号数除以单字节二进制数
入口条件：被除数在R3、R4、R5中，除数在R7中。
出口信息：OV=0 时，双字节商在R4、R5中，OV=1 时溢出。
影响资源：PSW、A、B、R2～R7 堆栈需求： ２字节
DV31: CLR C
MOV A,R3
SUBB A,R7
JC DV30
SETB OV ；商溢出
RET
DV30: MOV R2,#10H ；求R3R4R5／R7－→R4R5
DM23: CLR C
MOV A,R5
RLC A
MOV R5,A
MOV A,R4
RLC A
MOV R4,A
MOV A,R3
RLC A
MOV R3,A
MOV F0,C
CLR C
SUBB A,R7
ANL C,/F0
JC DM24
MOV R3,A
INC R5
DM24: DJNZ R2,DM23
MOV A,R3 ；四舍五入
ADD A,R3
JC DM25
SUBB A,R7
JC DM26
DM25: INC R5
MOV A,R5
JNZ DM26
INC R4
DM26: CLR OV
RET ；商在R4R5中
（１０） 标号： ＭＵＬＳ 功能：双字节二进制有符号数乘法（补码）
入口条件：被乘数在R2、R3中，乘数在R6、R7中。
出口信息：乘积在R2、R3、R4、R5中。
影响资源：PSW、A、B、R2～R7 堆栈需求： ４字节
MULS: MOV R4,#0 ；清零R4R5
MOV R5,#0
LCALL MDS ；计算结果的符号和两个操作数的绝对值
LCALL MULD ；计算两个绝对值的乘积
SJMP MDSE ；用补码表示结果
（１１） 标号： ＤＩＶＳ 功能：双字节二进制有符号数除法（补码）
入口条件：被除数在R2、R3、R4、R5中，除数在R6、R7中。
出口信息：OV=0时商在R2、R3中，OV=1时溢出。
影响资源：PSW、A、B、R1～R7 堆栈需求： ５字节
DIVS: LCALL MDS ；计算结果的符号和两个操作数的绝对值
PUSH PSW ；保存结果的符号
LCALL DIVD ；计算两个绝对值的商
JNB OV,DVS1 ；溢出否？
POP ACC ；溢出，放去结果的符号，保留溢出标志
RET
DVS1: POP PSW ；未溢出，取出结果的符号
MOV R4,#0
MOV R5,#0
MDSE: JB F0,MDS2 ；用补码表示结果
CLR OV ；结果为正，原码即补码，计算成功
RET
MDS: CLR F0 ；结果符号初始化
MOV A,R6 ；判断第二操作数的符号
JNB ACC.7,MDS1；为正，不必处理
CPL F0 ；为负，结果符号取反
XCH A,R7 ；第二操作数取补，得到其绝对值
CPL A
ADD A,#1
XCH A,R7
CPL A
ADDC A,#0
MOV R6,A
MDS1: MOV A,R2 ；判断第一操作数或运算结果的符号
JNB ACC.7,MDS3；为正，不必处理
CPL F0 ；为负，结果符号取反
MDS2: MOV A,R5 ；求第一操作数的绝对值或运算结果的补码
CPL A
ADD A,#1
MOV R5,A
MOV A,R4
CPL A
ADDC A,#0
MOV R4,A
MOV A,R3
CPL A
ADDC A,#0
MOV R3,A
MOV A,R2
CPL A
ADDC A,#0
MOV R2,A
MDS3: CLR OV ；运算成功
RET |
