wenn ich in einer Schleife alle Register durchgehe

Code:
Dim Vers As String * 50
Vers = "opt Maus 0001"



Ddr_sck Alias Ddrb.5
Ddr_sdio Alias Ddrb.4


Port_sck Alias Portb.5
Port_sdio Alias Portb.4
Pin_sdio Alias Pinb.4


   Dim Data_byte As Byte
   Dim Write_byte As Byte


'Print "Hallo"

Print Vers
Print



   Ddr_sck = 1
   Ddr_sdio = 1

   Port_sck = 1
   Port_sdio = 1

   'Call Adns2610_write_operation(&H00 , &H80)

   Waitus 250

   Write_byte = &H00

Do

   Wait 2

' write byte 1 #1000 0000
...
' read byte
...


   Print "Register: " ; Write_byte ; " read: " ; Data_byte

   Write_byte = Write_byte + 1
   Write_byte = Write_byte Mod 30
Loop

End
bekomme ich als Antwort abwechselnd 0 und 255:

Code:
opt Maus 0001

Register: 0 read: 0
Register: 1 read: 255
Register: 2 read: 0
Register: 3 read: 255
Register: 4 read: 0
Register: 5 read: 255

???
Stimmt das Timing nicht?