主机.bas

来自「AVR ATMAGE16L-SPI应用 使用BASICOM-AVR语言编译」· BAS 代码 · 共 18 行

$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