XProfan

DEF @CopyMemory(3) !"kernel32","RtlMoveMemory"
Declarar Zahl#,Zeichenkette$
Dim Zahl#,4
Windowstyle 31
Windowtitle "Speicherbereich kopieren"
Ventana 0,0-640,440
Imprimir "String antes el kopieren: "+Zeichenkette$
clear Zahl#
Largo Zahl#,0=65
LET Zeichenkette$="    "
@CopyMemory(@addr(Zeichenkette$),Zahl#,4)
Disponer Zahl#
Imprimir "String después de el kopieren: "+Zeichenkette$

Mientras que 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 Valor de Adresse ebx en eax