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

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

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

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

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

BCDA： MOV A，R7 ；取字節(jié)數至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 ；按字節(jié)相加

DA A ；十進制調整

MOV @R0，A ；和存回［R0］中

DJNZ R2，BCD1 ；處理完所有字節(jié)

RET

匯編語言多字節(jié)BCD碼加法減法

（２） 標號： ＢＣＤＢ 功能：多字節(jié)ＢＣＤ碼減法

入口條件：字節(jié)數在R7中，被減數在［R0］中，減數在［R1］中。

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

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

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

LCALL BCDA ；按多字節(jié)ＢＣＤ碼加法處理

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

MOV F0，C ；保護借位標志

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

MOV C，F(xiàn)0 ；恢復借位標志

RET

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

XCH A，R1 ；交換指針

XCH A，R0

LCALL NEG ；通過［R0］實現(xiàn)［R1］取補

MOV A，R0

XCH A，R1 ；換回指針

XCH A，R0

RET

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

匯編語言多字節(jié)BCD碼加法減法

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

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

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

NEG： MOV A，R7 ；取（字節(jié)數減一）至R2中

DEC A

MOV R2，A

MOV A，R0 ；保護指針

MOV R3，A

NEG0： CLR C

MOV A，#99H

SUBB A，@R0 ；按字節(jié)十進制取補

MOV @R0，A ；存回［R0］中

INC R0 ；調整數據指針

DJNZ R2，NEG0 ；處理完（R2）字節(jié)

MOV A，#9AH ；最低字節(jié)單獨取補

SUBB A，@R0

MOV @R0，A

MOV A，R3 ；恢復指針

MOV R0，A

RET