XProfan

si 0

     {$cleq}

endif

declare bereich#, y&, z&
dim bereich#,16
imprimer
imprimer "Erster Test zum Umgang avec Bereichsvariablen# et einfachen Bereichen dans XPIA"
imprimer " (dans diesem partie ca va ausschließlich um long&-Werte avec 4 Byte = 32 bit)"
imprimer
z& = 1234567899
y& = 1212
imprimer "------ Profan-partie ------"
imprimer "An Position 0 de bereich# wird zugewiesen",z&
long bereich#,0 = z&
imprimer "An Position 4 de bereich# wird zugewiesen",y&
long bereich#,4 = y&
imprimer "Probe: à Position 0 des Bereiches steht tatsächlich", @long(bereich#,0)
imprimer "       à Position 4 des Bereiches steht tatsächlich", @long(bereich#,4)
imprimer
imprimer "Die Variable ´bereich#´ zeigt den Wert",bereich#
set("decimals",0)
imprimer "Die Funktion Addr( bereich# ) liefert ebenfalls", Addr( bereich# )
imprimer "Addr( bereich# ) liefert alors den le contenu des Zeigers ´bereich#´"
imprimer "Aber worauf zeigt il?"
imprimer
imprimer "---- Assemblerteil ----"

AsmStart Alig1( bereich# )

    MOV EAX, para1

AsmEnd (z&)

Imprimer "Der le contenu de ´bereich#´, wird avec MOV EAX lire als", z&

AsmStart Alig3( bereich# )

    MOV EBX,para1
    LEA EAX, [EBX]

AsmEnd (z&)

Imprimer "Test: Para1 zeigt sur Speicherstelle", z&

AsmStart Alig2( bereich# )

    LEA EAX, para1

AsmEnd (z&)

Imprimer "An Speicherstelle ´bereich#´ steht un 32bit-aiguille, qui auf", z&,"zeigt."
imprimer "----------------------"
imprimer "Der 16-byte-alignment-Versatz des Bereichsbeginns ist ", z& mod 16
imprimer "Ergebnis NULL ist SEHR important pour schnelle SSE/SIMD-Algorithmen!"
imprimer "----------------------"

AsmStart Alig4( bereich# )

    LEA EBX, para1
    LEA EAX, [EBX]

AsmEnd (z&)

Imprimer "Probe: para1 verweist indirect auf", z&

AsmStart Alig5( bereich# )

    MOV EBX, para1
    MOV EAX, [EBX]

AsmEnd (z&)

Imprimer "Und là wiederum steht = ", z&

AsmStart Alig6( bereich# )

    MOV EBX, para1
    MOV EAX, [EBX + 4]

AsmEnd (z&)

Imprimer "Und 4 Byte plus steht = ", z&
Imprimer "----- mon Schlussfolgerung -----"
imprimer "´Der le contenu de bereich#´ stellt alors un interner aiguille dar, dans dem "
imprimer "der Beginn des reservierten Speicherbereiches vermerkt ist!"
imprimer
imprimer "Garantie gibts naturellement aucun! mais pour herzliche Grüße de Specht ;-)"
WaitInput
dispose bereich#
Fin

declare bereich#
declare adresse%
dim bereich#,16
byte bereich#,0 = 7
byte bereich#,1 = 8
imprimer Addr( bereich# )
imprimer byte(Addr( bereich# ),0)
imprimer byte(Addr( bereich# ),1)
imprimer byte(177857072,0)
imprimer byte(177857072+1,0)
waitkey

normal:
 {$cleq}
deaktiviert pour XProfan et XPSE:
 {$cleq}
deaktiviert pour XProfan mais toutefois pour xpse sichtbar:
 {$cleq}
deaktiviert pour XProfan et XPSE:
 {$cleq}