输入两组数743216、527864,按BCD码求和,并将结果显示在屏幕上。
DATAS SEGMENT
BUF1 DB 20,?,20 DUP(?)
BUF2 DB 20,?,20 DUP('$');此处输入数据段代码
DATAS ENDS
STACKS SEGMENT
;此处输入堆栈段代码
STACKS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
MOV AX,DATAS
MOV DS,AX
MOV ES,AX
MOV CX,7
MOV AL,00H
MOV BUF1[0],AL
MOV BUF2[0],AL
LEA DI,BUF1[1]
LEA SI,BUF2[1]
SHURU1:
MOV AH,01H
INT 21H
CMP AL,0DH
JE SHURU2
SUB AL,30H
MOV [DI],AL
INC DI
JMP SHURU1
SHURU2:
MOV AH,01H
INT 21H
CMP AL,0DH
JE HAHA
SUB AL,30H
MOV [SI],AL
INC SI
JMP SHURU2
HAHA:
DEC SI
DEC DI
JIAFA:
MOV AL,[DI]
ADC AL,[SI]
CMP AL,0AH
JB JIXU
SUB AL,0AH
MOV BL,01H
ADD [SI-1],BL
JIXU:
ADD AL,30H
MOV [SI],AL
DEC SI
DEC DI
LOOP JIAFA
LEA DX,BUF2
MOV AH,09H
INT 21H
;此处输入代码段代码
MOV AH,4CH
INT 21H
CODES ENDS
END START
结果图: