$regfile = "M88def.dat"
$crystal = 8000000
$baud = 19200
Const Epr = 0
Config Spi = Hard , Interrupt = Off , Data_order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
'Init the spi pins
Spiinit
enable interrupts
Config Tcpip = NOINT , Mac = 12.128.12.34.56.78 , Ip = 192.168.1.70 , Submask = 255.255.255.0 , Gateway = 192.168.1.1 , Localport = 1000 , Tx = $55 , Rx = $55 , Chip = W5100 , Spi = 1
Print "Init Done"
Do
! nop
' a ping should now work
Loop
End |