brauche kleine Hilfe in ASM, Flaschenhals

[negaH]

Delphi-Quellcode:

function SmallToDouble(CodZahl: Integer): Double; 
var 
  Scale: Double; 
begin 
  case CodZahl and (3 shl 29) of 
    (0 shl 29) : Scale := 1/100; 
    (1 shl 29) : Scale := 1/10000; 
    (2 shl 29) : Scale := 1/1000000; 
  else 
    Scale := 1; 
  end; 

  if CodZahl >= 0 then CodZahl := CodZahl and $9FFFFFFF  // Bits müssen Null sein 
    else CodZahl := CodZahl or $60000000;  // Bits müssen Eins sein 

  Result := CodZahl * Scale; 
end;