delphi - ASM/德尔福 - 划分

Question

我正在尝试将两个数字 50 和 5 相除。这是我的代码:

function Divide(Num1, Num2: Integer): Integer;
asm
  MOV   EAX, Num1
  CDQ
  MOV   ECX, Num2
  IDIV  ECX
  MOV   @RESULT, ECX
end;

它在 Delphi 中给了我一个 DivisionByZeroException 异常。有人可以告诉我我做错了什么吗？

Answer 1

这是CDQ指令。来自 an online reference :

Converts signed DWORD in EAX to a signed quad word in EDX:EAX by extending the high order bit of EAX throughout EDX

问题是，Num2 是第二个参数，存储在 EDX 中，并且由于您在将 EDX 加载到 ECX 之前运行 CDQ，因此最终会存储在 ECX 中是 0。像这样重写它，您的例程将按预期工作:

function Divide(Num1, Num2: integer): integer;
asm
  MOV EAX, Num1
  MOV ECX, Num2
  CDQ
  IDIV ECX
  MOV @Result, EAX
end;