（３） 标号： ＮＥＧ功能：多字节ＢＣＤ码取补

    入口条件：字节数在R7中，操作数在[R0]中。
    出口信息：结果仍在[R0]中。
    影响资源：PSW、A、R2、R3 堆栈需求： ２字节

NEG: MOV A R7 ；取（字节数减一）至R2中
DEC A
MOV R2 A
MOV A R0 ；保护指针
MOV R3 A
NEG0: CLR C
MOV A #99H
SUBB A @R0 ；按字节十进制取补
MOV @R0 A ；存回[R0]中
INC R0 ；调整数据指针
DJNZ R2 NEG0 ；处理完（R2）字节
MOV A #9AH ；最低字节单独取补
SUBB A @R0
MOV @R0 A
MOV A R3 ；恢复指针
MOV R0 A
RET

    （４） 标号： ＢＲＬＮ功能：多字节ＢＣＤ码左移十进制一位（乘十）

    入口条件：字节数在R7中，操作数在[R0]中。
    出口信息：结果仍在[R0]中，移出的十进制最高位在R3中。
    影响资源：PSW、A、R2、R3 堆栈需求： ２字节

BRLN: MOV A R7 ；取字节数至R2中
MOV R2 A
ADD A R0 ；初始化数据指针
MOV R0 A
MOV R3 #0 ；工作单元初始化
BRL1: DEC R0 ；调整数据指针
MOV A @R0 ；取一字节
SWAP A ；交换十进制高低位
MOV @R0 A ；存回
MOV A R3 ；取低字节移出的十进制高位
XCHD A @R0 ；换出本字节的十进制高位
MOV R3 A ；保存本字节的十进制高位
DJNZ R2 BRL1 ；处理完所有字节
RET

   （５） 标号： ＭＵＬＤ功能：双字节二进制无符号数乘法

    入口条件：被乘数在R2、R3中，乘数在R6、R7中。
    出口信息：乘积在R2、R3、R4、R5中。
    影响资源：PSW、A、B、R2～R7 堆栈需求： ２字节

MULD: MOV A R3 ；计算R3乘R7
MOV B R7
MUL AB
MOV R4 B ；暂存部分积
MOV R5 A
MOV A R3 ；计算R3乘R6
MOV B R6
MUL AB
ADD A R4 ；累加部分积
MOV R4 A
CLR A
ADDC A B
MOV R3 A
MOV A R2 ；计算R2乘R7
MOV B R7
MUL AB
ADD A R4 ；累加部分积
MOV R4 A
MOV A R3
ADDC A B
MOV R3 A
CLR A
RLC A
XCH A R2 ；计算R2乘R6
MOV B R6
MUL AB
ADD A R3 ；累加部分积
MOV R3 A
MOV A R2
ADDC A B
MOV R2 A
RET
    （６） 标号： ＭＵＬ２功能：双字节二进制无符号数平方

    入口条件：待平方数在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