BCD码求和-汇编语言

输入两组数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

结果图：