Einzelnen Beitrag anzeigen

Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Assemler Routine ummodeln - wer kann bitte helfen

  Alt 7. Okt 2007, 15:05
Ich glaube, ich weis jetzt, was du meinst.
Für deinen Fall müsstest du in step 1 übergeben.
Delphi-Quellcode:
procedure SwapRGB(data : Pointer; Size : Integer; Step: Integer);
asm
  push ebx
  add ecx,3
  test edx,edx
  jz @@end

@@loop :
  mov bl,[eax+0]
  mov bh,[eax+2]
  mov [eax+2],bl
  mov [eax+0],bh
  add eax, ecx
  dec edx
  jnz @@loop
@@end:
  pop ebx
end;
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat