Hallo,

habe einen Fehler entdeckt, der mir sehr viel Zeit gekostet hat. Hier ein kleines Programm, um den Fehler zu zeigen.
Code:
$sim
$regfile = "m8def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 40
$swstack = 16
$framesize = 10



Dim Sio(3) As Word
Dim X As Byte

Sio(1) = &B0000_0001_0011_0000                             
sio(2) = &B0000_0001_1110_1000
sio(3) = &B0000_0001_1111_0000



      Print Bin(sio(1))

      Print Sio(1).15;
      Print Sio(1).14;
      Print Sio(1).13;
      Print Sio(1).12;
      Print Sio(1).11;
      Print Sio(1).10;
      Print Sio(1).9;
      Print Sio(1).8;
      Print Sio(1).7;
      Print Sio(1).6;
      Print Sio(1).5;
      Print Sio(1).4;
      Print Sio(1).3;
      Print Sio(1).2;
      Print Sio(1).1;
      Print Sio(1).0;


End
Mit Print Bin(sio(1)) stimmt das Bitmuster, versucht man aber die Bits einzeln auswerten, geht es daneben. Andere Bitmuster wie z.B. Sio(1) = &B1010_1010_1010_1010 funktionieren aber.

Gruß
Günter