$regfile = "M8515.DAT" $crystal = 8000000 $baud = 19200 $hwstack = 32 $swstack = 10 $framesize = 40 'config CS Config Porta.1 = Output Cs Alias Porta.1 Cs = 1 'Konfiguration der SPI-Schnittelle: Config Spi = Soft , Din = Pina.4 , Dout = Porta.3 , Ss = None , Clock = Porta.2 'Initialisierung: Spiinit 'Variablen: Dim A(8) As Byte Dim X As Integer Print "Start:" X = 1 'counter While X < 9 Cs = 0 ' cs auf Low setzen Spiin A(x) , 1 '1 Byte in A(x) einlesen Print A(x) Incr X Waitms 20 Wend Print "Ende." End