求：一个同时求得商和余的无符号除法的函数

Question

今天写了一下，总是写不对，请各位大佬指点一下：//给定一个被除数aDivident，和除数aDivisor
//求商aQuotient和余aRemainder
//要求写成asm procedureprocedure DivMod(const aDivident, aDivisor: Cardinal;
  var aQuotient, aRemainder: Cardinal);
asm
  //... ?
end;小弟在此先谢了

Answer 1

aQuotient := aDivdent div aDivisor;
aRemainder := aDivdent mod aDivisor;

Answer 2

这种方法我也想过，但是因为这种方法做了两次除法，所以我想用asm procedure来做，希望只执行一次除法。

Answer 3

asm 忘光了。呵呵．．．up