急求：双字节码加减法程序,流程图 汇编语言

多字节BCD码加法
入口条件：字节数在R7中，被加数在[R0]中，加数在[R1]中。
出口信息：和在[R0]中，最高位进位在CY中。
影响资源：PSW、A、R2 堆栈需求： 2字节
BCDA: MOV A,R7 ；取字节数至R2中
MOV R2,A
ADD A,R0 ；初始化数据指针
MOV R0,A
MOV A,R2
ADD A,R1
MOV R1,A
CLR C
BCD1: DEC R0 ；调整数据指针
DEC R1
MOV A,@R0
ADDC A,@R1 ；按字节相加
DA A ；十进制调整
MOV @R0,A ；和存回[R0]中
DJNZ R2,BCD1 ；处理完所有字节
RET

多字节BCD码减法
入口条件：字节数在R7中，操作数在[R0]中。
出口信息：结果仍在[R0]中。
影响资源：PSW、A、R2、R3 堆栈需求： 2字节
BCDB: MOV A,R7 ；取字节数至R2中
MOV R2,A
SUBB A,R0 ；初始化数据指针
MOV R0,A
MOV A,R2
SUBB A,R1
MOV R1,A
CLR C
BCD1: DEC R0 ；调整数据指针
DEC R1
MOV A,@R0
SUBB A,@R1 ；按字节相加
DA A ；十进制调整
MOV @R0,A ；和存回[R0]中
DJNZ R2,BCD1 ；处理完所有字节
RET