ws2801 - LEDs am zweiten Schieberegister leuchten nicht

Das Beispielprogramm:

$regfile = "m8def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 40
$framesize = 40


Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , 
Polarity = Low , Phase = 1 , Clockrate = 4 , Noss = 0


Spiinit

Declare Sub Set_rgb(byval Red As Byte , Byval Green As Byte , Byval Blue 
As Byte)

Dim R1 As Byte
Dim R2 As Byte
Dim R3 As Byte

Do

   'init
  Call Set_rgb(255 , 0 , 0)
  Waitms 1000

  Call Set_rgb(0 , 255 , 0)
  Waitms 1000

  Call Set_rgb(0 , 0 , 255)
  Waitms 1000

  '-----------------------


  ' testfarben
  Call Set_rgb(238 , 118 , 33)
  Waitms 1000

  '------------------

  Do
  R1 = Rnd(255)
  R2 = Rnd(255)
  R3 = Rnd(255)

  Call Set_rgb(r1 , R2 , R3)
  Waitms 1000

  Loop

Loop

'reihenfolge der bytes bei meiner platine: 1) GRÜN, 2) ROT, 3) BLAU
' setzt die übergebene farbe am spi
Sub Set_rgb(byval Red As Byte , Byval Green As Byte , Byval Blue As 
Byte)
   Spiout Green , 1
   Spiout Red , 1
   Spiout Blue , 1
End Sub

End

subroutine war falsch...

Sub Set_rgb(byval Red As Byte , Byval Green As Byte , Byval Blue As 
Byte)
   For I = 1 To Strips
      Spiout Green , 1
      Spiout Red , 1
      Spiout Blue , 1
   Next I
End Sub