Добрый день также нужна помощь в написание кода Bascom AVR.
Суть такова. Контроллер ATTINY13.
После включения мигает красный светодиод выход pb1 (6 нога) При нажатии кнопки вход pb3 (со схемой дребезга контактов), светодиод на выход pb1 гаснет, а на pb2(вывод 7) загорается. При следующим нажатии на выводе 7 гаснет, а на выводе 6 начинает мигать. Далее все повторяется. В основном цикле мигает красный светодиод, при условии, что на выходе PB2 низкий уровень, т.е. нагрузка отключена, а зеленый светодиод не горит. По прерыванию Int1 вызывается подпрограмма Swbutton. Оператор Toggle переключает состояния выхода PB2 (если был 1 то станет 0 и наоборот). После переключения выхода программа возвращается в основной цикл, до следующего прерывания.
Исходник.
$regfile = «attiny13.dat» ‘
$hwstack = 32
$swstack = 8 ‘
$framesize = 16
$crystal = 9600000

Config Portb.1 = Output
Config Portb.2 = Output
Config Pinb.3 = INPUT
Config Int1 = Falling

Dim Wtime As Byte

On Int1 Swbutton

Cls

Wtime = 255

Enable Interrupts
Enable Int1

Do
if pinb.2 = 0 Then
Set Portb.1
Waitms Wtime
Reset Portb.1
Waitms Wtime
Else
‘Pinb.4 = 0
End If
Loop
End

Swbutton:
Toggle Portb.2

Return

End
При компиляции в hex. В10 и 14 строке ошибки.
Не силен в программировании. Где нитак?