Программирование в Bascom для Arduino( сишники идут полем)

[Smalovsky]

Скачал модный Bascom.
Большой плюс "Баскова" - поддержка загрузчика ардуино через usb.
Набросал програмку для меги128:

Rem Programm barsik
Stop Watchdog
Rem отключил сторожевой таймер
Ddrb = &B11111111
Ddra = &B11111111
Portb = 0
Porta = 0
On Timer0 Timercount
Dim A(10) As Integer
Dim I As Byte
Tcnt0 = 0
Timsk = 1
Tccr0 = 1
Enable Interrupts
Do
For I = 0 To 10
A(i) = A(i) + I
Portb = Low(a(i))
Next I
Loop
Timercount:
Porta = I
Return
End

Тестировал в отладчике. Работает. Собственно вопрос - такой стиль обращения к внутренним портам непосредственно приемлем? Мне просто так удобней чем при использовании конфигов бейсика.
Может кто поделится какими ссылками на интересные проекты с использованием баскома для авра. Желательно начального уровня, так как ардуино я купил сравнительно недавно( осенью).

- - - Добавлено - - -

Нашёл ошибку в индексе и исправил. В баскоме индексы массивов начинаются с 1. Так что в цикле начальное значение 1.
Такая ошибка от вредного влияния си...)) Что интересно - компилятор пропустил и программа не рухнула.

[Advertiser]