Du musst das garnicht übersetzen, lass es doch Delphi für dich machen
Einfach nen Breakpoint auf das
begin setzen, F9, wenns am Breakpoint angekommen ist Strg+Alt+C und das was dann da steht abschreiben
Edit: ohne es zu testen würd ich tippen das es mit
Delphi-Quellcode:
function func( PPS, BPP, A: Longint): Longint;
asm
sub ecx, 1
mul edx
add eax, acx
not ecx
and eax, ecx
sar eax, 3
end;
funktionieren sollte...