XProfan

DEF @CopyMemory(3) !"kernel32","RtlMoveMemory"
Declare Zahl#,Zeichenkette$
Dim Zahl#,4
Windowstyle 31
Windowtitle "Speicherbereich kopieren"
Window 0,0-640,440
Print "String vor dem kopieren: "+Zeichenkette$
clear Zahl#
Long Zahl#,0=65
LET Zeichenkette$="    "
@CopyMemory(@addr(Zeichenkette$),Zahl#,4)
Dispose Zahl#
Print "String nach dem kopieren: "+Zeichenkette$

While 0=0

    Waitinput

Wend

@copyMemory(A#+10,Ziel#,91)

long addr&,10=20
'istgleich
long addr&+10,0=20

mov ebx,adresse
add ebx,offset
mov eax,[ebx]//läd 32Bit breiten Wert von Adresse ebx in eax