Hallo, guten Tag.
Ich möchte hiermit eine Proc aufrufen:
Code
$MAKE CLE
$H Windows.ph
Declare adr&
Window 20,20-500,500
Cls RGB(255,255,255)
If 0
AsmStart Schleife(Adr&)
mov ebx,para1
mov ecx,0
.while ecx<400
Inc ecx
push ecx ; ecx als Parameter an Schleifenkoerper übergeben
call ebx ; Schleifenkörper aufrufen.
mov ecx,[esp-4] ; ecx liegt jetzt noch im Stack
.endw
AsmEnd
EndIf
Cls
UsePen 0,2,$ff0000
Adr&=ProcAddr(Schleifenkoerper, 1)
Call(GetXpiaProcAddress(XpiaModule&,"Schleife"),Adr&)
WaitInput
End
Proc Schleifenkoerper
Parameters i&
SetPixel i&,i&,$ff0000
Ellipse 0,0,i&,i&
EndProc
Alles anzeigen
Welche Register müssen da noch gesichert werden?
Danke.
Gruss