Реализовать функцию умножения целых чисел (с учетом знака) не используя операцию умножения.

[fortnox]

Приветствую, прошу помощи. Нужно реализовать функцию умножения целых чисел (с учетом знака) не используя операцию умножения.

[macomics]

mult: ; rcx = op1, rdx = op2
    xor eax, eax
    test rcx, rcx
    jz zero
    jns @f
    neg rcx
cycl:
    add rax, rdx
    loop cycl
    neg rax
    retn
@@:
    add rax, rdx
    loop @b
zero:
    retn

fasm1 ver. 1.73.30 x86_64 LONG