XProfan

if 0

     {$cleq}

endif

declare area#, y&, z&
dim area#,16
print
print "Erster Test to that Use with Memory-Variables# and einfachen reaches in XPIA"
print " (in this part goes it solely circa long&-values with 4 byte = 32 bit)"
print
z& = 1234567899
y& = 1212
print "------ Profan-part ------"
print "An position 0 of area# becomes zugewiesen",z&
long area#,0 = z&
print "An position 4 of area# becomes zugewiesen",y&
long area#,4 = y&
print "Probe: on position 0 the Bereiches standing tatsächlich", @long(area#,0)
print "       on position 4 the Bereiches standing tatsächlich", @long(area#,4)
print
print "Die Variable ´bereich#´ shows whom Wert",area#
set("decimals",0)
print "Die function Addr( area# ) supply ebenfalls", Addr( area# )
print "Addr( area# ) supply means whom Content the Zeigers ´bereich#´"
print "Aber on what shows it?"
print
print "---- Assemblerteil ----"

AsmStart Alig1( area# )

    MOV EAX, para1

AsmEnd (z&)

Print "Der Content of ´bereich#´, is with MOV EAX read als", z&

AsmStart Alig3( area# )

    MOV EBX,para1
    LEA EAX, [EBX]

AsmEnd (z&)

Print "Test: Para1 shows on Speicherstelle", z&

AsmStart Alig2( area# )

    LEA EAX, para1

AsmEnd (z&)

Print "An Speicherstelle ´bereich#´ standing one 32bit-Zeiger, the auf", z&,"zeigt."
print "----------------------"
print "Der 16-byte-alignment-Versatz the Bereichsbeginns is ", z& mod 16
print "Ergebnis NULL is VERY important for speedy SSE/SIMD-Algorithms!"
print "----------------------"

AsmStart Alig4( area# )

    LEA EBX, para1
    LEA EAX, [EBX]

AsmEnd (z&)

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

AsmStart Alig5( area# )

    MOV EBX, para1
    MOV EAX, [EBX]

AsmEnd (z&)

Print "Und there against standing = ", z&

AsmStart Alig6( area# )

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

AsmEnd (z&)

Print "Und 4 byte moreover standing = ", z&
Print "----- my Schlussfolgerung -----"
print "´Der Content of area#´ position So one internal Zeiger dar, in the "
print "der Beginn the reserved Speicherbereiches vermerkt is!"
print
print "Garantie Gibts naturally no! but for cordial Regards of woodpecker ;-)"
WaitInput
dispose area#
End

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

normal:
 {$cleq}
deaktiviert for XProfan and XPSE:
 {$cleq}
deaktiviert for XProfan but nevertheless for xpse visible:
 {$cleq}
deaktiviert for XProfan and XPSE:
 {$cleq}