Примитивный калькулятор (+,-,*,/)

title prog
page ,132
stk segment para stack 'stack'
db 64 dup('stack')
stk ends
 
data segment para public 'data'
sob db ' Vvedite primer dlya resheniya: $'
 
ch1 db 2 dup (0)
ch2 db 2 dup(0)
rex db 2 dup(0)
inbuf db 2,0,2 dup (?)
simb db 2 dup (?)
s db 2 dup (?)
data ends
 
code segment para public 'code'
main proc far
assume cs:code,ds:data,ss:stk
push ax
mov ax,data
mov ds,ax
 
lea dx,sob
mov ah,9
int 21h
 
; вводим и преобразуем 1 число
 
mov ax,0a00h 
mov dx,offset inbuf 
int 21h 
mov al,inbuf
sub al,30h
mov ch1,al
 
lea dx,s
mov ah,1
int 21h
 
cmp al,'+'
jne min; если + вводим число 2
 
mov ax,0a00h 
mov dx,offset inbuf 
int 21h 
mov al,inbuf
sub al,30h
mov ch2,al
 
mov al,ch1
add al,ch2
aaa
mov rex,al
 
lea dx,pr1
mov ah,9
int 21h
 
mov al,rex
add al,30h
int 29h
jmp exit
 
min:
 
mov ax,0a00h 
mov dx,offset inbuf 
int 21h 
mov al,inbuf
sub al,30h
mov ch2,al
 
mov al,ch1
sub al,ch2
;aas
mov rex,al
 
lea dx,pr1
mov ah,9
int 21h
 
mov al,rex
add al,30h
int 29h
jmp exit
 
exit:
pop ax
mov ax,0c07h ; ожидаем нажатие клавиши
int 21h 
mov ax,4c00h
int 21h
 
main endp
code ends
End main

.386c
.model small
.stack  256
 
_text_  segment para public use16
    assume  cs:_text_, ds:_data_, es:_data_
    
start:  
    mov ax, seg _data_
    mov ds, ax
    mov es, ax
again:
; Вывод на экран 
    mov     ah, 09h
    lea     dx, req
    int     21h
; ввод строки
    mov ah, 0Ah
    lea dx, inpbuf
    int 21h
;;
; prepare for convert
    mov si, dx
    lodsw
    mov di, si
    shr ax, 8
    test    al,al
    jz  error
    mov cx, ax
;   inc cx
    xor edx,edx
    mov di, offset ops
; cx - str length, DS:SI = ES:DI -> string buf
; edx = 
;-------------
_loop:  lodsb
    cmp al, 30h ; isdigit? "0" ?
    jb  no_dig
    cmp al, 39h ;  "9" ?
    ja  no_dig
        lea edx,[edx*4+edx]
        lea edx,[edx*2+eax-'0']
    jmp next
no_dig: 
    xor bx, bx
@@6:    cmp al, ops[bx]
    jz  @@7
    cmp ops[bx],0
    jz  error
    inc bx
    jmp @@6
@@7:    mov byte ptr sign+1,al
    shl bx,1
    mov bx, word ptr op_tabl[bx]    
    call    bx  ;word ptr op_tabl[bx]   
next:   loop    _loop
    call    output
    jmp again
op_tabl:dw  offset _ignore_
    dw  offset _plus_
    dw  offset _minus_
    dw  offset _div_
    dw  offset _mul_
_ignore_:           ; ничего не делаем, пропускаем символ(пробел)
    ret
; сложение
_plus_: mov [op1],dx
    mov [_do_what_], offset do_add
    xor edx,edx
    ret
; вычитание
_minus_: 
    mov [op1],dx
    mov [_do_what_], offset do_sub
    xor edx,edx
    ret
; деление
_div_:
    mov [op1],dx
    mov [_do_what_], offset do_div
    xor edx,edx
    ret
; умножение
_mul_:
    mov [op1],dx
    mov [_do_what_], offset do_mul
    xor edx,edx
    ret
error:
    mov dx, offset errmsg
    mov     ah, 09h
    int 21h
    call    reset
    jmp again
 
do_div:
    movzx   eax, [op1]
    xor edx, edx
    div [op2]
    ret
 
do_mul:
    movzx   eax, [op1]
    mul [op2]
    ret
 
do_add: 
    movzx   eax, [op1]
    add ax, [op2]
    ret
do_sub:
    movzx   eax, [op1]
    sub ax, [op2]
    ret
 
output: mov [op2], dx
    call    [_do_what_]
    mov [res], ax
 
; новая строка
    mov     ah, 09h
    lea     dx, crlf
    int     21h
; выводим первый операнд
    mov ax, [op1]
    call    out_dec
    cmp [_do_what_], offset _ignore_
    jz  @@8
; выводим действие
    mov     ah, 09h
    lea     dx, sign
    int     21h
; выводим второй операнд
    mov ax, [op2]
    call    out_dec
    mov     ah, 09h
    lea     dx, eql
    int     21h
; выводим результат
    mov ax, [res]
    call    out_dec
 
; Вывод на экран 
@@8:    mov     ah, 09h
    mov     dx, offset crlf
    int     21h
@@9:    call    reset
    ret
;   jmp again
; выход
    mov ah, 4Ch
    int 21h
 
reset:  mov [op1], 0
    mov [op2], 0
    mov [res], 0
    mov [_do_what_], offset _ignore_
    ret
;
out_dec:
        mov     bx, 10
        xor cx,cx
        std
@@out_dec:
        xor     dx, dx
        div     bx
        or  dx, 30h            ;остаток от деления
        push    dx
        inc     cx                ;считаем кол-во цифр
        or  ax, ax             ;пока не 0 - делим
        jnz     @@out_dec
@@3:    mov ah, 02
        pop dx
        int 21h
        loop    @@3
        cld
        ret
 
_text_  ends
_data_  segment para use16 
;.data
_do_what_   dw offset _ignore_
op1 dw  0
op2 dw  0
res dw  0
sign    db  ' _ $'
eql     db  ' = $'
errmsg  db  07h,'TYPO @input. Try arain.',0Dh,0Ah,0
crlf    db  0Dh,0Ah,'$'
req db  'Enter string:$'
ops db  ' +-/*',0
inpbuf  db  255         ; наибольшая длина строки
len db  ?                       ; сюда вернется настоящая длина
buf db  255 dup(?)              ; тут будет то, что ввели
_data_  ends
    end start