Pascal code to asm

[sniper_w]

Ich habe folgende Funktion in pascal:

Delphi-Quellcode:

function func( PPS, BPP, A: Longint): Longint;
begin
  Dec(A);
  Result := ((PPS * BPP) + A) and not A;
  Result := Result div 8;
end;

Ich kann kein asm . Wenn jemand Zeit finden würde, diese Funktion nach asm zu übersetzen, wäre ich dankbar.

Ich selber mag dieser Art der Fragestellung nicht, und ich verstehe es, wenn sorag diesen Thread geschlossen wäre, aber ich bin im Not.
Danke.