Остаток от деления (asm)

[Kronos913]

Тестовые процедуры

Function aaa(a, b:byte):byte;
asm
  mov al, a
  mov cl, b
  div al, cl
  mov result, al
end;

Выдаёт ошибку при исполнении

Function aaa(a, b:LongWord):LongWord;
asm
  mov eax, a
  mov ecx, b
  div eax, ecx
  mov result, edx
end;

В ответ вместо ответа возвращает переменную А

Вопрос: как в asm получить остаток от деления? Во всех статьях что я читал, писалось что при div остаток от деления выпадает в регистр edx

[macomics]

div cl

или

div ecx

иначе Pascal генерирует не ту инструкцию. Она не дает остаток.

[BDA]

Для байтов:

Function aaa(a, b: byte): byte;
asm
  div dl
  mov al, ah
end;

Аргументы функции в al и dl, а остаток от деления будет в ah.

[macomics]

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

Аргументы функции в al и dl, а остаток от деления будет в ah.

Смотря у какого компилятора. FreePascal их по-другому передает. И ah стоит очистить.

asm
  xor %ah, %ah
  mov a, %al
  div b
  mov %ah, Result
end;

asm
  xor %edx, %edx
  mov a, %eax
  div b
  mov %edx, Result
end;

[BDA]

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

Смотря у какого компилятора.

С этим согласен.

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

И ah стоит очистить.

Не стал очищать, так как дельфи добавил "and eax,$000000ff" после вызова функции.

[macomics]

Для 32-бит лучше так

asm
  mov a, %eax      // mov %ecx, %eax
  mov b, %ecx      // mov %edx, %ecx
  xor %edx, %edx   // xor %edx, %edx
  div %ecx         // div %ecx
  mov %edx, Result // mov %edx, %eax
end;

Нашел вариант, при котором предыдущий мой код не сработает.

[Kronos913]

Вот такой кусок кода у меня сейчас... Потому что не получилось нормально приладить деление

  @Kostyl:
    cmp ah, dh
      jb @Kostyl2
    sub ah, dh
    jmp @Kostyl
  @Kostyl2:

Ладно тут будет максимум 127 итераций. А там где у меня применяется на практике - 3-4 итерации. Потому что это из процедуры для строк

Но все же, надо сделать нормально ...