Assemler Routine ummodeln - wer kann bitte helfen

[sirius]

Kannst ja die probieren:

Delphi-Quellcode:

procedure SwapRGB(data : Pointer; Size : Integer; Alpha:byte);
asm
  push ebx
  test edx,edx
  jz @@end

@@loop :
  mov bl,[eax+0]
  mov bh,[eax+2]
  mov [eax+2],bl
  mov [eax+0],bh
  mov [eax+3],cl

  add eax, 4
  sub edx, 4
  jnle @@loop
@@end:
  pop ebx
end;