Протестировать - Assembler

    mov ax,cs
    mov ds,ax
    mov es,ax
    
    mov ah,9
    mov dx,msg0
    int 21h
    call InputInt
    mov bx,ax
    mov ah,9
    mov dx,CR
    int 21h
    mov ah,9
    mov dx,msg1
    int 21h
    call InputInt
    mul bx
    push ax
    mov ah,9
    mov dx,CR
    int 21h
    mov ah,9
    mov dx,msg2
    int 21h
    pop ax
    call OutInt
    mov ah,0
    int 16h
    mov ax,4c00h
    int 21h
    
    msg0 db "a=$"
    msg1 db "b=$"
    msg2 db "a*b=$"
    CR db 13,10,"$"

OutInt:
    pusha    
    xor     cx, cx
    mov     bx, 10 ; основание сс. 10 для десятеричной и т.п.
oi2:
    xor     dx,dx
    div     bx
; Делим число на основание сс. В остатке получается последняя цифра.
; Сразу выводить её нельзя, поэтому сохраним её в стэке.
    push    dx
    inc     cx
; А с частным повторяем то же самое, отделяя от него очередную
; цифру справа, пока не останется ноль, что значит, что дальше
; слева только нули.
    test    ax, ax
    jnz     oi2
; Теперь приступим к выводу.
    mov     ah, 02h
oi3:
    pop     dx
; Извлекаем очередную цифру, переводим её в символ и выводим.
;; раскоментировать если основание сс > 10, т.е. для вывода требуются буквы
;   cmp     dl,9
;   jbe     oi4
;   add     dl,7
;oi4:
    add     dl, '0'
    int     21h
; Повторим ровно столько раз, сколько цифр насчитали.
    loop    oi3
    popa
    ret
       
InputInt:
    push bx
    push cx
    push di
    push si
    push dx
    
    mov ah,0ah
    xor di,di
    mov dx,buff ; аддрес буфера
    int 21h ; принимаем строку
    mov dl,0ah
    mov ah,02
    int 21h ; выводим перевода строки
    
; обрабатываем содержимое буфера
    mov si,buff+2 ; берем аддрес начала строки
    cmp byte [si],"-" ; если первый символ минус
    jnz ii1
    mov di,1  ; устанавливаем флаг
    inc si    ; и пропускаем его
ii1:
    xor ax,ax
    mov bx,10  ; основание сc
ii2:
    mov cl,[si] ; берем символ из буфера
    cmp cl,0dh  ; проверяем не последний ли он
    jz endin
    
; если символ не последний, то проверяем его на правильность
    cmp cl,'0'  ; если введен неверный символ <0
    jl er
    cmp cl,'9'  ; если введен неверный символ >9
    ja er
 
    sub cl,'0' ; делаем из символа число 
    mul bx     ; умножаем на 10
    add ax,cx  ; прибавляем к остальным
    inc si     ; указатель на следующий символ
    jmp ii2     ; повторяем
 
er:   ; если была ошибка, то выводим сообщение об этом и выходим
    mov dx, error
    mov ah,09
    int 21h
    int 20h
 
; все символы из буфера обработаны число находится в ax
endin:
    cmp di,1 ; если установлен флаг, то
    jnz ii3
    neg ax   ; делаем число отрицательным
ii3: 
    pop dx
    pop si
    pop di
    pop cx
    pop bx
    ret
 
error db "incorrect number$"
buff    db 3,7 Dup(?)