Das ist simples Festkomma Format im 2'er Komplementär, 16:16.
Delphi-Quellcode:
function ToDouble(Value: Integer): Double;
function Swap(Value: Integer): Integer;
// swap Endianess
asm
BSWAP EAX
end;
begin
Result := Swap(Value) / $10000;
// Fixpoint 16:16
end;
Gruß Hagen