Delphi und Assembler

[choose]

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ß!