2.4运算类编程实验（微机实验）

**2．十进制数的 BCD 码减法运算
本实验要求计算 X-Y=Z，其中，X、Y、Z为 BCD 码，其中 X=0400H，Y=0102H。

STACK1 SEGMENT STACK
DW 256(?)
STACK1 ENDS
DATA SEGMENT
MES1 DB 'THE RESULT IS:$'
X DW 0400H
Y DW 0102H
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START: MOV AX,DATA
MOV DS,AX
MOV AH,00H
SAHF
MOV SI,OFFSET X
MOV AL,[SI]
SBB AL,[SI+02H]
DAS
PUSHF
AND AL,0FH
POPF
MOV BL,AL
INC SI
MOV AL,[SI]
SBB AL,[SI+02H]
DAS
PUSHF
AND AL,0FH
POPF
MOV BH,AL
MOV DX,OFFSET MES1
MOV AH,09H
INT 21H
MOV AX,BX
CALL SHWORD
WAIT1:MOV AH,1
INT 16H
JZ WAIT1
MOV AX,4C00H
INT 21H
SHWORD PROC NEAR
MOV BL,AH
CALL SHOW
MOV BL,AL
CALL SHOW
RET
ENDP
SHOW PROC NEAR
PUSH AX
PUSH DX
MOV AL,BL
AND AL,0F0H
SHR AL,4
CMP AL,0AH
JB C2
ADD AL,07H
C2: ADD AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
MOV AL,BL
AND AL,0FH
CMP AL,0AH
JB C3
ADD AL,07H
C3: ADD AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
POP DX
POP AX
RET
ENDP
CODE ENDS
END START