Hallo Profis,
Hier mal ein Testprogramm ,das bei der Ausgabe die Zahlenpaare
vertauscht.Es sollen die Paare so ausgegeben werden,wie sie
abgelegt sind.Komischerweise fängt die Ausgabe mit einen Zahlenpaar
aus der Mitte einer Data-ablage an.Wie kriegt man das hin,
das der Speicher wahrheitsgemäss abgearbeitet wird?


$regfile = "attiny2313.dat"
$crystal = 3686400
$baud = 9600
$hwstack = 32
$swstack = 10
$framesize = 40
Config Serialout = Buffered , Size = 10
Config Com1 = Dummy , Synchrone = 0 , Parity = Even , Stopbits = 1 , Databits = 8 , Clockpol = 0
Dim S As Byte , Count As Byte
Declare Sub Datenpunkt
Declare Sub Displaycls

Do
Wait 2
Displaycls 'Display löschen
Datenpunkt 'Datenpunkt setzen
Restore Data1:
For Count = 1 To 4
Read S : Print Chr(s);
Next
Loop

Sub Displaycls
Local C As Byte
Restore Cls1:
For Count = 1 To 3
Read C : Print Chr(c);
Next
End Sub

Sub Datenpunkt
Local D As Byte
Restore Datp10:
For Count = 1 To 5
Read D : Print Chr(d);
Next
End Sub

'Datentabelle
Cls1:
Data &H02 , &H43 , &H41 '02 43 41
Datp10:
Data &H04 , &H53 , &H01 , &H00 , &H56 '04 53 01 00 56
Data1:
Data &H03 , &H50 , &H41 , &H12 '03 50 41 12