2 Bytes zu word zusammenfassen ?

[python_rocks]

Aber ich werde es dann noch ausprobieren.

Hallo!

Ich bekomme beim Kompilieren dieses Beispiels

$regfile = "M8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 9600

Dim Wordvar As Word
Dim Address As Word


Wordvar = 200
Print "Old Wordvar:" ; Wordvar

Address = Varptr(wordvar)
Print "Address:" ; Address

Poke Address , 255
Poke Address + 1 , 255

Print "New Wordvar:" ; Wordvar


End

den Fehler
"Error : 200 Line: 24 .DEF not found [R98 [adddr]] , in File..."

Wenn ich die POKE-Zeilen auskommentiere, dann bekomme ich als Ausgabe des laufenden Programms das hier:

Old Wordvar:200
Address:96
New Wordvar:200

mfg
Gerold
:-)