Умножение беззнаковых двоичных чисел, не используя команду умножения - Assembler

[Evgesha200]

пожалуйста, помогите сделать программу.
Задание такое: реализовать алгоритм умножения беззнаковых двоичных чисел не используя команду умножения.

model small
.stack 100h
.data
x db 0001b
y db 0001b
z db (?)
k db 0010b
.code
start:
	mov ax,@data
	mov ds,ax
	xor cx,cx
	mov ah,x
	mov al,y
	mov dh,k
	mov dl,z
 cmp al,dh
	jb l1
	je l2
	ja l3
l2: shl x,1
jmp l1
l3: shl ah,1
shl dh,1
cmp al,dh
jb l4
je l2
ja l3
l4: inc ah
     inc ah
jmp l1
l1: mov dl,ah
mov ah,4ch
int 21h
end start

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[FPaul]

Если вопрос лишь в алгоритме - делайте обычное умножение в столбик.

[Мановар]

Сообщение от FPaul

делайте обычное умножение в столбик.

Сообщение от Evgesha200

не используя команду умножения.

Складывайте в цикле. (13 * 5 = 13 + 13 + 13 + 13 + 13)
Да и числа у Вас какие то странные.

[Аватар]

в x,y сомножители, в z результат

x,y - WORD
z,z1,z2 - DWORD

  если x=0 или y=0 тогда z=0
  иначе
    z1=x
    z2=0
    пока y>1 цикл
      если y четное тогда
        z1 сдвинуть влево на 1 бит
        y сдвинуть вправо на 1 бит
      иначе
        z2=z2+z1
        y=y-1
    конец цикла
    z=z1+z2