Разработать вычислительное устройство для выполнения операции умножения двоичных чисел

.model small
.stack 100h
.data
msgA    db 'A = $'
msgB    db 'B = $'
crlf    db 0dh,0ah,'$'
.code
msg macro m
    mov ah,9
    lea dx,m
    int 21h
    endm
start:
    mov ax,@data
    mov ds,ax
 
    msg msgA    ;Ввод чисел
    call hexin  
    msg crlf
    mov si,bx
    msg msgB
    call hexin
    msg crlf
    
    shr si,1    ;Вычисление C.
    mul bx,si
 
    mov cl,3    ;С * 8
    shl bx,cl
.386
    bsr cx,bx   
    inc cx
    push cx
    neg cx
    add cx,16
    shl bx,cl
    pop cx
    mov ah,2
output:
    xor dx,dx
    shl bx,1
    adc dl,0
    or dl,30h
    int 21h
    loop output
 
    xor ax,ax
    int 16h     
 
    mov ax,4c00h
    int 21h
 
hexin proc  ;Подпрограмма ввода 16-ричного числа(стырена из книжки).
    mov bx,0
inpt:
    mov ah,8    ;Ввод символа.
    int 21h
    cmp al,13   ;<Enter>?
    je done
    cmp al,'0'
    jb inpt
    cmp al,'9'
    jbe ok      
    sub al,20h
    cmp al,'F'
    ja inpt
    cmp al,'A'
    jb inpt
ok: ;Введена 16-ричная цифра.
    mov ah,2
    mov dl,al
    int 21h
    cmp al,'9'
    ja letter
    sub al,'0'
    and ax,0fh
    jmp addd
letter:
    sub al,55
    and ax,0fh
addd:
    mov cl,4
    shl bx,cl
    or bx,ax
    jmp inpt
done:
    ret
hexin endp
end start

.data
X db 56
Y db 99
result dw ?
.code
   xor ax,ax; место под результат
   mov dh,0
   mov dl,Y; занести множитель в регистр DX
   mov cx,8; установить счетчик числа разрядов
   clc; очистить флаг переноса X(-1)=0
a0: jnc a1; проверить разряд X(i-1)
   ror X,1; X(i-1)=1 занести разряд X(i) в CF
   jnc a2; проверить разряд X(i)
   sub ax,dx;   X(i)=0 и X(i-1)=1 вычесть множимое
   jmp a2; продолжить
a1: ror X,1;       X(i-1)=0 занести разряд X(i) в CF
   jnc a2; проверить разряд X(i)
   add ax,dx;    X(i)=1 и X(i-1)=0 прибавить множимое
a2: shl dx,1;      новый X(i-1) в CF 
   loop a0;        пока не обработаем все 8 разрядов
   mov result,ax; AX=56*99=5544