12.asm

输入两个5位数

DATAS SEGMENT
TITLE1       db 0ah,0dh,   'please input 1st number:$'
TITLE2       db 0ah,0dh,   'please  input  2nd  number:$'
TITLE3       db 0ah,0dh,   'the  SUM is:$'
TITLE4		 db 0ah,0dh,   'WRANING:PLEASE INPUT NUMBER(0~9)!!!$'
DATA1		 db '$', 5 dup  (?)
DATA2		 db '$', 5 dup  (?)
SUM			 db  31h,20 dup  (?),'$'  
DATAS ENDS

STACKS SEGMENT
STA			 db    30  dup  (?)
TOP			 EQU   length    sta   
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
strat: 
    MOV AX,DATAS
    MOV DS,AX
    LEA DX,DATA1
    MOV AH,9
    INT 21H

START:
    MOV AX,DATAS
    MOV DS,AX
    LEA DX,TITLE2
    MOV AH,9
    INT 21H
    LEA BX,DATA1
    MOV CX,5
 LOP1:
    MOV AH,1
    INT 21H
    CMP AL,40H
    Jnl strat
    cmp al,30h
    jl strat
    MOV [BX+5],AL
    DEC BX
    DEC CX
JNZ LOP1

    LEA DX,TITLE3
    MOV AH,9
    INT 21H
    LEA BX,DATA2
    MOV CX,5
 LOP2:
    MOV AH,1
    INT 21H
    MOV [BX+5],AL
    DEC BX
    DEC CX
 JNZ LOP2
    MOV CX,5
    LEA DI,DATA1
    INC DI
    LEA SI,DATA1
    INC SI
    LEA BX,DATA2
    INC BX
AGAIN:
    MOV AH,0
    MOV AL,[SI]
    ADC AL,[BX]
    AAA
    MOV [DI],AL
    INC SI
    INC BX
    INC DI
    DEC CX
 JNZ AGAIN
    MOV BH,AH
    MOV CX,5
    LEA DI,SUM
    INC DI
    LEA SI,DATA1
NEXT:
    MOV AL,[SI+5]
    ADD AL,30H
    MOV [DI],AL
    DEC SI
    INC DI
    DEC CX
 JNZ NEXT
    LEA DX,TITLE4
    MOV AH,9
    INT 21H
    LEA DX,SUM
    CMP BH,0
 JNZ Y
 	INC DX
Y:
	MOV AH,9
	INT 21H
    MOV AH,4CH
    INT 21H

CODES ENDS
    END START