2 Bytes zu word zusammenfassen ?

[MeckPommER]

Mit "peek" und "poke" kann man nur die Register 0-31 lesen und schreiben. Wenn man im SRAM etwas lesen und schreiben will, dann muss man dafür "inp" und "out" benutzen.

[python_rocks]

Mit "peek" und "poke" kann man nur die Register 0-31 lesen und schreiben. Wenn man im SRAM etwas lesen und schreiben will, dann muss man dafür "inp" und "out" benutzen.

Hallo MeckPommER!

Ja, damit funktioniert's. :-)

$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

Out Address , 255
Address = Address + 1
Out Address , 255

Print "New Wordvar:" ; Wordvar


End

Ergebnis:

Old Wordvar:200
Address:96
New Wordvar:65535

mfg
Gerold
:-)