（１） 標號： ＢＣＤＡ 功能：多字節ＢＣＤ碼加法

給大家介紹一個單片機匯編語言寫的多字節BCD碼加法減法子程序

入口條件：字節數在R7中，被加數在［R0］中，加數在［R1］中。

出口信息：和在［R0］中，最高位進位在CY中。

影響資源：PSW、A、R2 堆棧需求： ２字節

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］中，減數在［R1］中。

出口信息：差在［R0］中，最高位借位在CY中。

影響資源：PSW、A、R2、R3 堆棧需求： ６字節

BCDB： LCALL NEG1 ；減數［R1］十進制取補

LCALL BCDA ；按多字節ＢＣＤ碼加法處理

CPL C ；將補碼加法的進位標志轉換成借位標志

MOV F0，C ；保護借位標志

LCALL NEG1 ；恢復減數［R1］的原始值

MOV C，F0 ；恢復借位標志

RET

NEG1： MOV A，R0 ；［R1］十進制取補子程序入口

XCH A，R1 ；交換指針

XCH A，R0

LCALL NEG ；通過［R0］實現［R1］取補

MOV A，R0

XCH A，R1 ；換回指針

XCH A，R0

RET

（３） 標號： ＮＥＧ 功能：多字節ＢＣＤ碼取補

匯編語言多字節BCD碼加法減法

入口條件：字節數在R7中，操作數在［R0］中。

出口信息：結果仍在［R0］中。

影響資源：PSW、A、R2、R3 堆棧需求： ２字節

NEG： MOV A，R7 ；?。ㄗ止潝禍p一）至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