Hallo HolgX,
schön, dass sich heute noch jemand mit soetwas beschäftigt (sorry, Hagen
). Dein ursprünglicher Entwurf sah dabei etwas gestelzt aus. Verwende
asm..end einfach direkt und wisse, wie die Aufrufkonvention in Delphi oder anderen Hochsprachen funktioniert (siehe
OH).
Delphi-Quellcode:
function GetReversedBits(AValue, ALen: DWORD): Integer;
asm
xor ecx, ecx
xchg edx, ecx
@1:
shr eax, 1
rcl edx, 1
loop @1
mov eax, edx
end;
Weiterhin viel Spaß!