作者：不詳

     來源：不詳

     -------------（１） 標(biāo)號： ｂｃｄａ 功能：多字節(jié)ｂｃｄ碼加法

     入口條件：字節(jié)數(shù)在r7中，被加數(shù)在[r0]中，加數(shù)在[r1]中。

     出口信息：和在[r0]中，最高位進(jìn)位在cy中。

     影響資源：psw、a、r2 堆棧需求： ２字節(jié)

     bcda: mov a,r7 ；取字節(jié)數(shù)至r2中

     mov r2,a

     add a,r0 ；初始化數(shù)據(jù)指針

     mov r0,a

     mov a,r2

     add a,r1

     mov r1,a

     clr c

     bcd1: dec r0 ；調(diào)整數(shù)據(jù)指針

     dec r1

     mov a,@r0

     addc a,@r1 ；按字節(jié)相加

     da a ；十進(jìn)制調(diào)整

     mov @r0,a ；和存回[r0]中

     djnz r2,bcd1 ；處理完所有字節(jié)

     ret（２） 標(biāo)號： ｂｃｄｂ 功能：多字節(jié)ｂｃｄ碼減法

     入口條件：字節(jié)數(shù)在r7中，被減數(shù)在[r0]中，減數(shù)在[r1]中。

     出口信息：差在[r0]中，最高位借位在cy中。

     影響資源：psw、a、r2、r3 堆棧需求： ６字節(jié)

     bcdb: lcall neg1 ；減數(shù)[r1]十進(jìn)制取補(bǔ)

     lcall bcda ；按多字節(jié)ｂｃｄ碼加法處理

     cpl c ；將補(bǔ)碼加法的進(jìn)位標(biāo)志轉(zhuǎn)換成借位標(biāo)志

     mov f0,c ；保護(hù)借位標(biāo)志

     lcall neg1 ；恢復(fù)減數(shù)[r1]的原始值

     mov c,f0 ；恢復(fù)借位標(biāo)志

     ret

     neg1: mov a,r0 ；[r1]十進(jìn)制取補(bǔ)子程序入口

     xch a,r1 ；交換指針

     xch a,r0

     lcall neg ；通過[r0]實(shí)現(xiàn)[r1]取補(bǔ)

     mov a,r0

     xch a,r1 ；換回指針

     xch a,r0

     ret

     （３） 標(biāo)號： ｎｅｇ 功能：多字節(jié)ｂｃｄ碼取補(bǔ)入口條件：字節(jié)數(shù)在r7中，操作數(shù)在[r0]中。

     出口信息：結(jié)果仍在[r0]中。

     影響資源：psw、a、r2、r3 堆棧需求： ２字節(jié)

     neg: mov a,r7 ；�。ㄗ止�(jié)數(shù)減一）至r2中

     dec a

     mov r2,a

     mov a,r0 ；保護(hù)指針

     mov r3,a

     neg0: clr c

     mov a,#99h

     subb a,@r0 ；按字節(jié)十進(jìn)制取補(bǔ)

     mov @r0,a ；存回[r0]中

     inc r0 ；調(diào)整數(shù)據(jù)指針

     djnz r2,neg0 ；處理完（r2）字節(jié)

     mov a,#9ah ；最低字節(jié)單獨(dú)取補(bǔ)

     subb a,@r0

     mov @r0,a

     mov a,r3 ；恢復(fù)指針

     mov r0,a

     ret