anchor.diff:  var
     E: Integer;
   begin
  -  E := GetPlainExp(AValue);
  -  Result := GetPlainMantissa(AValue);
  +  E := GetRawExp(AValue);
  +  Result := GetRawMantissa(AValue);
     if (0 < E) and (E < CSingleExponentMask) then
       Result := Result or (UInt32(1) shl CSingleExponentShift);
   end;
  
positive.code:   M: UInt64;
    E: UInt32;
  begin
    M := GetPlainMantissa(AValue);
    E := GetPlainExp(AValue);
    if (0 < E) and (E < CDoubleExponentMask) then
      Result := E - CDoubleBias
    else if E = 0 then
  
negative.code: var
    M, E: UInt32;
  begin
    M := GetRawMantissa(AValue);
    E := GetRawExp(AValue);
    if (0 < E) and (E < CSingleExponentMask) then
      Result := E - CSingleBias
    else if E = 0 then
  