Exponent aus Extended extrahieren?

[himitsu]

und so?

Delphi-Quellcode:

class operator FIXCOMMA64.Multiply(const Left, Right: FIXCOMMA64): FIXCOMMA64;
  const
    idiv: LongInt = 1000000000;
  asm
    mov eax, &Left
    fild qword ptr [eax]
    mov eax, &Right
    fild qword ptr [eax]
    fmulp st(1), st(0)
    fidiv dword ptr [&idiv]
    mov eax, &Result
    fistp qword ptr [eax]
    wait
  end;