$regfile = "m8def.dat"
$crystal = 8000000

Config Spi = Hard , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 64 , Noss = 1

Dim Adresse As Byte
Dim Eingang As Byte

Config Portd.6 = Output // chipenable

Spiinit

Adresse = &B0101
Eingang = &B11111111

Spiout A , 1 // chip adressieren (da chip allein und s-pin auf low --> 0101)

Portd.6 = 1 // chip für datenempfang aktivieren

Spiout B , 1 // Datenpaket senden (alle eingänge auf 1)

Portd.6 = 0 // chip für datenempfang deaktivieren

End