XProfan

if 0

     {$cleq}

endif

declare bereich#, y&, z&
dim bereich#,16
print
print "Erster Test zum Umgang mit Bereichsvariablen# und einfachen Bereichen in XPIA"
print " (In diesem Teil geht es ausschließlich um long&-Werte mit 4 Byte = 32 bit)"
print
z& = 1234567899
y& = 1212
print "------ Profan-Teil ------"
print "An Position 0 von bereich# wird zugewiesen",z&
long bereich#,0 = z&
print "An Position 4 von bereich# wird zugewiesen",y&
long bereich#,4 = y&
print "Probe: An Position 0 des Bereiches steht tatsächlich", @long(bereich#,0)
print "       An Position 4 des Bereiches steht tatsächlich", @long(bereich#,4)
print
print "Die Variable ´bereich#´ zeigt den Wert",bereich#
set("decimals",0)
print "Die Funktion Addr( bereich# ) liefert ebenfalls", Addr( bereich# )
print "Addr( bereich# ) liefert also den Inhalt des Zeigers ´bereich#´"
print "Aber worauf zeigt er?"
print
print "---- Assemblerteil ----"

AsmStart Alig1( bereich# )

    MOV EAX, para1

AsmEnd (z&)

Print "Der Inhalt von ´bereich#´, wird mit MOV EAX eingelesen als", z&

AsmStart Alig3( bereich# )

    MOV EBX,para1
    LEA EAX, [EBX]

AsmEnd (z&)

Print "Test: Para1 zeigt auf Speicherstelle", z&

AsmStart Alig2( bereich# )

    LEA EAX, para1

AsmEnd (z&)

Print "An Speicherstelle ´bereich#´ steht ein 32bit-Zeiger, der auf", z&,"zeigt."
print "----------------------"
print "Der 16-byte-alignment-Versatz des Bereichsbeginns ist ", z& mod 16
print "Ergebnis NULL ist SEHR wichtig für schnelle SSE/SIMD-Algorithmen!"
print "----------------------"

AsmStart Alig4( bereich# )

    LEA EBX, para1
    LEA EAX, [EBX]

AsmEnd (z&)

Print "Probe: para1 verweist indirekt auf", z&

AsmStart Alig5( bereich# )

    MOV EBX, para1
    MOV EAX, [EBX]

AsmEnd (z&)

Print "Und dort wiederum steht = ", z&

AsmStart Alig6( bereich# )

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

AsmEnd (z&)

Print "Und 4 Byte weiter steht = ", z&
Print "----- Meine Schlussfolgerung -----"
print "´Der Inhalt von bereich#´ stellt also ein interner Zeiger dar, in dem "
print "der Beginn des reservierten Speicherbereiches vermerkt ist!"
print
print "Garantie gibts natürlich keine! Aber dafür herzliche Grüße von Specht ;-)"
WaitInput
dispose bereich#
End

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

normal:
 {$cleq}
deaktiviert für XProfan und XPSE:
 {$cleq}
deaktiviert für XProfan aber dennoch für xpse sichtbar:
 {$cleq}
deaktiviert für XProfan und XPSE:
 {$cleq}