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

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

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

最佳答案

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



问题是,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;

关于delphi - ASM/德尔福-分度,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/22570866/

10-11 21:59