.MODEL  TINY
.STACK      100
.DATA    

BUFFER DB 10 DUP(?);BUFFER存放8個(gè)不確定數(shù)
augend DB 2 DUP(?) ;被加數(shù)
addend DB 2 DUP(?) ;加數(shù)
msg1 DB 0DH,0AH,'請(qǐng)輸入被加數(shù): $'
msg2 DB 0DH,0AH,'請(qǐng)輸入加數(shù): $'
msg3 DB 0DH,0AH,'結(jié)果： $';msg3存放結(jié)果
;0DH和0AH分別是回車和換行的ASCII碼,
;'$'是DOS功能調(diào)用INT 21H中9號(hào)功能要求的要顯示字符串的結(jié)束標(biāo)志
.CODE
START: MOV AX,@DATA
MOV DS,AX
MOV ES,AX
CLD ;方向標(biāo)志位清零 ;CLD與STD是用來(lái)操作方向標(biāo)志位DF（Direction Flag）。
;CLD使DF復(fù)位具滴，即DF=0驹闰，STD使DF置位，即DF=1.用于串操作指令中
NOP ;空操作 ;NOP指令只使程序計(jì)數(shù)器PC加1，所以占用一個(gè)機(jī)器周期
;其目的為保證寫(xiě)歪脏、讀之間有個(gè)穩(wěn)定時(shí)間
MOV AH,00H
MOV AL,03H
INT 10H ;清屏
START1: MOV AH,09H ;9號(hào)調(diào)用DX指向被加數(shù)的首地址技潘，輸出提示信息
LEA DX,msg1 ;將源操作數(shù)給出的有效地址傳送到指定的的寄存器中
INT 21H
LEA DI,augend ;DI->augend的首地址
MOV CX,4 ;按鍵次數(shù)
CALL GetBCDKey ;得到雙字節(jié)十進(jìn)制數(shù)(被加數(shù))
JNB START2 ;沒(méi)有輸入任何數(shù)字,結(jié)束 CF=0
MOV AH,09H ;9號(hào)調(diào)用DX指向加數(shù)的首地址
LEA DX,msg2 ;將源操作數(shù)給出的有效地址傳送到指定的的寄存器中
INT 21H
LEA DI,addend ;di指向加數(shù)
MOV CX,4 ;按鍵次數(shù)
CALL GetBCDKey ;得到雙字節(jié)十進(jìn)制數(shù)(加數(shù))
JNB START2 ;沒(méi)有輸入任何數(shù)字,結(jié)束
MOV AL,augend ;被加數(shù)的低8位送al
ADD AL,addend ;al與加數(shù)的低位相加的結(jié)果送al
DAA ;BCD算術(shù)運(yùn)算調(diào)整，轉(zhuǎn)換為壓縮型BCD
XCHG AL,AH ;高位與低位互換
MOV AL,augend + 1
ADC AL,addend + 1 ;高位
DAA
XCHG AL,AH
MOV BL,0
ADC BL,0 ;進(jìn)位 bl存放的是進(jìn)位 bl和ax相加是最后的結(jié)果
STD ;方向標(biāo)志置1
LEA DI,BUFFER+4 ;存放顯示結(jié)果
CALL B1toB2 ;低位
MOV AL,AH
CALL B1toB2 ;高位
MOV AL,BL
OR AL,30H ;轉(zhuǎn)換成數(shù)字
STOSB ;存數(shù)
LEA SI,BUFFER
MOV CX,5
CALL BlackDisplay ;將高位0消隱
MOV AH,09H
LEA DX,msg3 ;9號(hào)調(diào)用DX指向結(jié)果的首地址
INT 21H
MOV AH,09H
LEA DX,BUFFER ;9號(hào)調(diào)用DX指向BUFFER的首地址
INT 21H
JMP START1 ;跳轉(zhuǎn)到START1
START2: MOV AH,4CH ;結(jié)束程序
INT 21H
; JMP $

;將一個(gè)字節(jié)壓縮BCD碼轉(zhuǎn)換成二個(gè)字節(jié)數(shù)字
B1toB2 PROC NEAR ;段內(nèi)
PUSH AX ;ax存放的是相加后的結(jié)果
AND AL,0FH ;高四位置0
OR AL,30H ;加30H
STOSB ;存數(shù) 個(gè)位 百位
POP AX
AND AL,0F0H ;低四位置0
ROR AL,4 ;循環(huán)右移4位
OR AL,30H ;加30H
STOSB ;存數(shù) 十位 千位
RET
B1toB2 ENDP

BlackDisplay PROC NEAR
CLD ;方向標(biāo)志清零
MOV DI,SI ;si送給di si指向buff的第一個(gè)緩沖區(qū) 增量變化
BlackDisplay1: LODSB ;將高位0消隱分飞，取串
CMP AL,'0'
JNZ Exit ;若al不等于0跳轉(zhuǎn)EXIT
LOOP BlackDisplay1 ;否則cx不為0一直循環(huán) cx次
INC CX ;cx加1
Exit: DEC SI ;si前移
REP MOVSB ;重復(fù)傳送字節(jié)
MOV AL,'$' ;把$符送al
STOSB ;存數(shù)
RET
BlackDisplay ENDP

GetBCDKey PROC NEAR
LEA SI,BUFFER
MOV AL,4 ;把4寫(xiě)入到buff
MOV [SI],AL ;【】是內(nèi)存單元
MOV DX,SI
MOV AH,0AH ;dx指向緩沖區(qū)
MOV AL,02H ;0:任意字符 1:16進(jìn)制數(shù) 2:10進(jìn)制數(shù)悴务，10進(jìn)制數(shù)輸入
INT 21H

    MOV AL,[BUFFER+1]   ;把內(nèi)存數(shù)據(jù)段buff地址+1的值給al
    XOR AH,AH           ;AH清零 異或指令
    MOV CX,AX           ;ax的內(nèi)容送CX cx的值是數(shù)據(jù)的個(gè)數(shù)
    JCXZ    GetBCDKey3      ;cx為0，轉(zhuǎn)向GetBCDKey3 判斷cx直接回車cx=0
    LEA SI,BUFFER+1     ;不為0
    ADD SI,AX           ;ax=4 si=5
    STD                     ;std 使si或di遞增

GetBCDKey1: LODSB ;ds:si->al
AND AL,0FH ;高4位清零
CMP CX,1 ;
JE GetBCDKey2
DEC CX ;進(jìn)數(shù)位-1
MOV AH,AL
LODSB
AND AL,0FH
SHL AL,4 ;邏輯左移4位
OR AL,AH ;
GetBCDKey2: CLD
STOSB ;存串指令
STD
LOOP GetBCDKey1 ;cx=2 原先為4 上面減了一次一 loop再減一所以等于2
MOV CL,[BUFFER]
SUB CL,[BUFFER+1]
SHR CL,1 ;邏輯右移1位
MOV AL,0
CLD
REP STOSB ;重復(fù)存數(shù)
STC ;進(jìn)位標(biāo)志位置1
RET
GetBCDKey3: CLC ;進(jìn)位標(biāo)志位清零cf=0
RET ;返回
GetBCDKey ENDP

    END START