Device 16F876A Xtal 20 Dim k As Word Dim Daten As Byte Dim Daten2 As Word Dim PreData As Byte Dim StatusW As Word Dim C As Byte Dim Temper As Float Symbol CS = PORTC.0 Symbol FSK = PORTC.4 Symbol SDO = PORTC.5 Symbol SCL = PORTC.3 Symbol SDI = PORTC.1 Symbol DQ = PORTA.0 TRISC = %00000010 High FSK DelayMS 500 Dim i As Byte Dim Temp As Byte Dim Text[20] As Byte All_Digital = 1 Daten2 = $80d7 : GoSub Configs Daten2 = $8239 : GoSub Configs Daten2 = $a680 : GoSub Configs Daten2 = $c623 : GoSub Configs Daten2 = $94a0 : GoSub Configs Daten2 = $c2ac : GoSub Configs Daten2 = $ca81 : GoSub Configs Daten2 = $c428 : GoSub Configs Daten2 = $9840 : GoSub Configs Daten2 = $c800 : GoSub Configs Daten2 = $c400 : GoSub Configs Start: Str Text = "Testsendung",0 For C=0 To 20 Daten = Text[C] If Daten = 0 Then Break GoSub Senden Next GoTo Start Senden: Low CS For k = 0 To 1 Repeat Until SDI = 1 SHOut SDO, SCL, MsbFirst, [$b8aa\16] Next Repeat Until SDI = 1 SHOut SDO, SCL, MsbFirst, [$b82d\16] Repeat Until SDI = 1 SHOut SDO, SCL, MsbFirst, [$b8d4\16] Repeat Until SDI = 1 SHOut SDO, SCL, MsbFirst, [$b800+Daten\16] High CS Return Configs: Low CS SHOut SDO, SCL, MsbFirst, [Daten2\16] High CS Return