download/file.php?id=5244
Заменил камень и кварц
и теперь при компиляции вываливается миллион ошибок
Там походу нужно все конфиги и библы переписывать?
начал включать по одной строке
1. С чего бы ему ругаться на "Config Serialin = Buffered , Size = 20"?
отключил пока, и без нее вроде проживем пока.
2. Включаю $include "Config_MMC.bas"
вываливается
На вот такой код естественно не ругается
- Код: Выделить всё
$regfile = "xm128a1def.dat"
$crystal = 2000000 '11059200
$lib "XMega.LIB" , "mcsbyte.lbx " , "MCS.lib"
Config Com5 = 2400 , Mode = 0 , Parity = None , Stopbits = 1 , Databits = 8
Open "Com5:" For Binary As #1
'Config Serialin = Buffered , Size = 20
Waitms 250
Print #1 , "Код скомпилирован " ; Version()
$hwstack = 128
$swstack = 128
$framesize = 128
Enable Interrupts
'$include "Config_MMC.bas"
'$include "Config_AVR-DOS.BAS"
Dim Berrorcode As Byte
'Berrorcode = Initfilesystem(1)
If Berrorcode > 0 Then
Print #1 , "Ошибка FAT: " ; Berrorcode
Else
Print #1 , "FAT проинициализирован"
End If
Config Porta.5 = Output
Config Porta.4 = Input
Dim A As Byte
Dim S As String * 10 , W As Word , L As Long
'S = "write test"
'Open "write.txt" For Output As #2
'Print "записали"
'Write #2 , S , W , L ' так же поддерживается такой формат
'Close #2
'Open "write.txt" For Input As #2
'Input #2 , S , W , L ' так же поддерживается такой формат
'Close #2
'Print #1 , S ; " " ; W ; " " ; L
Do
Print #1 , A
Incr A
Wait 1
If Pina.4 = 1 Then
Porta.5 = 1 : Waitms 900
Porta.5 = 0 : Waitms 100
Else
Porta.5 = 0
End If
Loop
Добавлено спустя 15 минут 26 секунд:
оказывается, в файле Config_MMC.bas ему не нравится стока
- Код: Выделить всё
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 4 , Noss = 1
Заменил ее на строку из хелпника
- Код: Выделить всё
Config Spie = Hard , Master = Yes , Mode = 2 , Clockdiv = Clk4 , Data_order = M
тоже ругается, пишет инвалид параметр.
кто нибудь знает как конфигурировать SPI на XMega?
