Умножение 16х16

[AlexKY]

Привет Всем!
Возникла проблема с умножением.
Задача была такая, Умножение с предварительным преобразованием сомножителей в модульную форму.
Множитель заносится в AX,множимое в BX.

Если поэтапно обрисовать то получилось вроде этого:
1. SignS = SignA кольцевая сумма SignB (xor)
2. Формирование модуля произведения |S|=|A|*|B|
3. { |S|, если флаг знака после 1пункта равен SF=0
S={
{ не=|S|+1, если флаг SF =1

Числа вводятся в десятичной СС потом переводятся в двоичный шестнадцатиразрядный код

PHP код:

CALC            PROC                 ; ПРОЦЕДУРА УМНОЖЕНИЯ  (16х16)  ??? правильно или нет ???

        jmp     start_calc              ;
NULLRES:
        xor     AX,AX            ; Обнуление результативных регистров, в случае
        xor     DX,DX            ; присутствия нулевого сомножителя  
        mov     [cs:Active], 1      ;
        mov     [cs:Result1],0;         ;
        mov     [cs:Result2],0;         ;
        ret
start_calc:     
        mov     bx,[cs:FirstDW]         ; bx -> первое число
        mov     ax,[cs:SecondDW]    ; ax -> второе число
             
                        
        cmp     BX,0            ; Если первое число == 0 
        je     NULLRES            ; То возвращается нулевой результат
                                
        cmp     AX,0            ; Если второе число == 0
        je      NULLRES            ; То возвращается нулевой результат
        jns     PRE            ; Проверка знака
        not     AX            ; Если было отрицательное число, то инвертируем:
        not     BX            ; ...
        inc     AX            ; ...
        inc     BX            ; ...

PRE:        xor     DX,DX            ; Подготовка к циклической части
        rcr     DX,1            ; Арифметический сдвиг на 1 вправо
        rcr     AX,1            ; Циклический сдвиг операнда на 1 вправо через флаг переноса
        mov     CX,10H            ; Число циклов = 16

                        ; Циклическая часть операции умножения.
LOOP0:        jnc     LOOP1            ; Если CF=0 то перейти на LOOP1
        add     DX,BX            ; Сложение (по таблице)
        jmp     LOOP2            ; Переход ко второму условию
LOOP1:        add     DX,0            ; Пропуск сложения (по таблице)
LOOP2:        jo      LOOP3            ; Если нет переполнения(OF=0),то переход на LOOP3
        rcr     DX,1            ; Сдвиг вправо с сохранением знакового бита(OF=1)
        rcr     AX,1            ; Циклический сдвиг вправо (заполнение CX)
        jmp     LOOP4            ; Переход к условию окончания
LOOP3:        rcr     DX,1            ; Циклический сдвиг вправо для DX (OF=0)
        rcr     AX,1            ; Циклический сдвиг вправо для AX
LOOP4:        loop     LOOP0            ; Условие окончания (loop уменьшает CX на 1)
        
        mov     [cs:Active], 1          ;
        mov     [cs:Result1],ax         ;
        mov     [cs:Result2],dx         ;
        ret                             ;
        
CALC        ENDP 


Подскажите что не так в процедуре!!!

[Goodwin98]

А что не так? Копилируется, работает, даже умножает правильно
Единственно только, что я заметил, что коментарии немного не соответствуют коду. Например:

jo      LOOP3            ; Если нет переполнения(OF=0),то переход на LOOP3

По идее это команда jno, правда от ее смены ответ не меняется.

[AlexKY]

Умножатся то умножается но только положительные, а если числа отрицательные то результат не соответствует действительности. Проблема как я понимаю в переводе чисел в модульную форму и обратно

[Goodwin98]

Опять же у меня все нормально. Умножаю, например -16 * 16 получается, как и должно -256, умножаю -16 * -16, получается 256.