从机.bas

AVR ATMAGE16L-SPI应用 使用BASICOM-AVR语言编译

$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600

Config Spi = Hard , Interrupt = On , Data Order = Msb , Master = No , Polarity = Low , Phase = 0 , Clockrate = 4
'Config Porta = Output
'Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Porta.2 , Db7 = Porta.3 , E = Porta.4 , Rs = Porta.5
'Config Lcd = 16 * 2
On Spi Ext
Enable Interrupts
Enable Spi

Dim Indata As Byte
Spiinit

Do
   nop
Loop
End

Ext:
   Indata = Spdr
  Lcd Indata
   'Portc = Indata
   Return