rfm12 ausgabestring verarbeiten

[bastian07]

hatte eben vergessen die Schaltüläne anzuhängen.
Wenn ich das ans Oszi hänge und dem Board saft gebe hab ich kurz 5 V und dann nicht mehr weil der hier bei dem ersten print "stop1" hängen bleibt also kein print "Stop2" mehr ausgibt:

Sub Rf12_txdata(byval Maxchar As Byte)
Print "stop1"
  Temp = Rf12_trans(&H8238)
  Rf12_readys
Print "stop2"
  Temp = Rf12_trans(&Hb8aa)
  Rf12_readys
  Temp = Rf12_trans(&Hb8aa)
  Rf12_readys
  Temp = Rf12_trans(&Hb8aa)
  Rf12_readys
  Temp = Rf12_trans(&Hb82d)
  Rf12_readys
  Temp = Rf12_trans(&Hb8d4)
  Rf12_readys
  For Count = 1 To Maxchar
    Rf12_readys
    Temp = &HB800 + Rfdata(count)
    Temp = Rf12_trans(temp)
  Next Count
  Rf12_readys
  Temp = Rf12_trans(&H8208)
End Sub

Daraus folger ich das das irgendwas mit der Routine:

Sub Rf12_readys                                             'ready Senden
  Reset Spi_cs
  nop
  While Spi_sdo = 0
  Wend
End Sub

zu tuen haben muss sprich mit dem MISO pin, da wenn ich mit dem dipschalter(siehe schaltplan) die Leitung unterbreche, gibt der fortlaufend "Stop1" und "stop2" aus. der bleibt ja so lange in der schleife wie auf dem pin GND liegt. bei unterbrochener Leitung ist auf dem MISO pin allerdings +5V.
Bin am verzweifeln.

gruß Sebastian