$regfile = "m16def.dat"
$crystal = 8000000
Config Spi = Soft , Din = Porta.0 , Dout = Porta.1 , Clock = Porta.2 , Ss = Porta.3
Config Portc = Output

Dim A As Byte : A = 1


Spiinit


Do
   Spiout A , 1
   Portc = A
   Waitms 500
   Rotate A , Left , 1
Loop
End