[code:1:799bc35070]$Regfile = "xm128a1def.dat"
$Crystal = 32000000
$hwstack = 32
$swstack = 8
$framesize = 24
Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz
Config Com1 = 250000 , mode = SPI , Databits = 8
'Config Com2 = 250000 , mode = SPI , Databits = 8
'Open "com2:" For Binary As #1
Dim B As Byte
B = 1
Do
Printbin B
'Printbin #1 , B
Incr B
Waitms 500
Loop
'Close #1[/code:1:799bc35070]
↧