two.asm

输入两个两位十进制数

data segment
x dw ?
y dw ?
ts db 'input 2 decimal number(EG:x+y):',0ah,0dh,'$'
data ends
code segment
assume ds:data,cs:code
main proc far
start:
  push ds
  sub ax,ax
  push ax
  mov ax,data
  mov ds,ax
  mov dx,offset ts
  mov ah,9
  int 21h
  call Addxy
  call crlf
  call hextodec
  call crlf
  ret
main endp
decinbin proc near
mov bx,0
newchar:mov ah,1
        int 21h
        sub al,30h
        jl exit
        cmp al,9d
        jg exit
        cbw
        xchg ax,bx
        mov cx,10d
        mul cx
        xchg ax,bx
        add bx,ax
        jmp newchar
        exit:ret
        decinbin endp
;//////////////////////////
Addxy proc near
call decinbin
mov x,bx
call decinbin
mov y,bx
mov ax,x
adc dx,0
add ax,y
mov bx,ax
ret
Addxy endp
;//////////////////////////
hextodec proc near

mov cx,1000d
call dec_div
mov cx,100d
call dec_div
mov cx,10d
call dec_div
mov cx,1d
call dec_div
ret
hextodec endp
;//////////////////////////////
dec_div proc near
mov ax,bx
mov dx,0
div cx
mov bx,dx
mov dl,al
add dl,30h
mov ah,2
int 21h
ret
dec_div endp
;//////////////////////////////
crlf proc near
mov dl,0ah
mov ah,2
int 21h
mov dl,0dh
mov ah,2
int 21h
ret
crlf endp
;/////////////////////////////////
code ends
end start