Hi for_ro, Thanks for your message. Did you mean something like follows?:
[code:1:e775ef746f]Dim B1 As Byte
Dim B2 As Byte
Dim W1 As Word
Dim W2 As Word
Dim B3 As Byte
Dim R(7) As Byte At B1 Overlay
Dim Index As Byte
Index = 1
Dim W As Word
W = Index * 9
Dim B As Byte
Dim Rptr As Iram Word At 8 Overlay
Rptr = Loadlabel(datastr)
'Incr Rptr <- Error 218
'Rptr = Rptr + W <- Error 31
For B = 1 To 9
Read R(b)
Next B
Do
Loop
$data
Datastr:
Data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 0
Data 8 , 9 , 10 , 11 , 12 , 13 , 14 , 0
Data 15 , 16 , 17 , 18 , 19 , 20 , 21 , 0
[/code:1:e775ef746f]
Because that doesn't work either. I just can't find it, but there is another topic in the forum about that problem. You can load the label, but you can't add an offset to it (see the two commented lines).
I guess I could add my offset using $asm and potter about the registers - but hell! let's stay with basic.
[b:e775ef746f]Maybe mcselec could fix that bug, too? :)[/b:e775ef746f]
↧