Автор: WildCat
Допустим, у вас есть BASCOM программа, которая зацикленно выполняет какое-то сложное и запутанное действо, и вам вдруг захотелось остановить это задание и заставить контроллер сделать что-то другое. Очевидное аппаратное решение - добавить кнопку "STOP".
Обычно вы бы стали проверять нажатие кнопки примерно таким кодом:
...
Config Pind.2 as Input
...
Do
...
... 'что-то запутанное...
...
If Pind.2 = 0 Then
Lcd "stopъ!"
Goto Othertask
End If
Loop
...
OtherTask:
...
Главный недостаток этого метода заключается в том, что мы потратим кучу времени на выполнение чего-то запутанного, и в итоге мы просто пропустим момент нажатия кнопки. Другими словами, кнопка будет нажата и уже отпущена к тому моменту, как программа дойдет до процедуры проверки Pind.2. Очевидно, что нам нужен другой способ проверить нажатую кнопку, независимо от хода выполнения других процедур.Такое решение предоставляют нам прерывания. Прерывания изменяют нормальный ход выполнения программы и заставляют МК реагировать на внешние события так же, как и на внутренние. Нам достаточно немного изменить код:
interrupt-stopbutton.bas
$regfile = "2313def.dat" $crystal = 4000000 Config Pind.6 = Output Config Pind.2 = Input Config Int0 = Falling Dim Wtime As Byte On Int0 Stopbutton Cls Wtime = 255 Enable Interrupts Enable Int0 Do Set Portd.6 Waitms Wtime Reset Portd.6 Waitms Wtime Loop Stopbutton: Lcd "stopъ!" Return EndPind.2 настроен на вход. Не забудьте про подтягивающий резистор 10кОм!
Config Int0 = Falling заставляет сработать прерывание по спаду сигнала, т.е. при переходе с высокого уровня на низкий.
Когда происходит прерывание Int0, программа переходит на метку Stopbutton.
Нужно включить прерывания как в целом, так и конкретно Int0!
В цикле Do-Loop "какое-то запутанное задание" - это мигание светодиодом.
Подпрограмма Stopbutton выводит "stopъ!" на ЖК индикатор, затем продолжает работу основной программы с того места, где она была прервана.
Здесь светодиод зацикленно включается и выключается, а большая часть времени ухожит на задержку Waitms. При нажатии на кнопку происходит переход на метку Stopbutton. На ЖКИ выводится "stopъ!", и программа возвращается к светодиоду.
Однако написание слов на ЖК индикаторе - далеко не единственое применение прерываний. Почему? Узнаете сами, немного позже. Для начала обзор прерываний, реализуемых в AT90S2313:
Прерывания AT90S2313
A. Внешние прерывания:
Int0 внешнее прерывание на PortD.2, pin 6
Int1 внешнее прерывание на PortD.3, pin 7
Counter0 прерывание по переполнению, PortD.4, pin 8
Counter1 прерывание по переполнению, PortD.5, pin 9
Timer1 прерывание по захвату, PortD.5, pin 9
Timer1 прерывание по сравнению, PortD.5, pin 9
Serial Rx прерывание по окончании приема
Analog comparator0 прерывание компаратора, PortB.0, pin 12
Analog comparator1 прерывание компаратора, PortB.1, pin 13
B. Внутренние прерывания:
Timer0 прерывание по переполнению
Timer1 прерывание по переполнению
Serial data register прерывание по опустошению
Serial Tx прерывание по окончании передачи
Все прерывания в AVR имеют одинаковый приоритет. Это отличает их от других микроконтроллеров, где вы можете задать приоритет для каждого вида прерывания по отношению к другому.
Если вы используете другой AVR микроконтроллер, используйте BASCOM файл *.def для определения доступных видов прерывания. А также почитайте даташит (обязательно!).
ВКЛ/ВЫКЛ прерываний
Когда вы пишете программу на BASCOM, прерывания по умолчанию отключены. Их нужно включить с помощью команды:
Enable InterruptsПрерывания включаются всей группой. Аналогично, они могу быть и отключены:
Disable InterruptsЭто может оказаться полезным, если у вас есть серьезный фрагмент в коде, выполнение которого нельзя прервать ни под каким предлогом:
Enable Interrupts Enable Int0 Enable Timer0 ... Disable Interrupts ... Очень важный фрагмент кода... ... Ладушки, справились... ... Enable Interrupts ...Здесь за раз включаются/отключаются ВСЕ прерывания. Отдельные прерывания включаются в индивидуальном порядке:
Enable Interrupts Enable Int0 Enable RX0 Enable Counter0 ...Так же точно они и отключаются:
... Disable Counter0 ...здесь нет прерываний counter0... Enable Counter0 ...Подпрограммы прерываний
Каждое прерывание должно иметь свою подпрограмму обработки событий. Подпрограмма - это фрагмент кода с меткой, набором команд и функцией возврата Return. Для каждого включенного прерывания вы должны указать подпрограмму, на которую нужно перейти при происхождении события:
On Int0 Stopbutton On Int1 LcdMenu On Counter0 Revcalc ... Enable Interrupts Enable Int0 Enable Int1 Enable Counter0 ... Главная программа ... Stopbutton: Lcd "stop!" ... Return LcdMenu: Cls Lcd "Калибровка: дави A!" ... Return Revcalc: Revs = Counter0 * Revfactor Counter0 = 0 ... ReturnПомните, что все подпрограммы начинаются с метки - названия, оканчивающимся ":" (двоеточием).
Нет прерываниям в прерывании!
В тот момент, когда программа прерывается и переходит к подпрограмме обработки прерывания, все включенные прерывания отключаются на время работы этой подпрограммы. Когда ее выполнение достигает оператора Return и переходит к тому месту в главном коде, на котором его выполнение было прервано, отключенные прерывания снова включаются. Это делается для того, чтобы подпрограммы обработки не прерывали сами себя (это как змея начала бы кушать себя с хвоста!). Такое поведение, отличающееся от микроконтроллеров большинства других фирм, заложено в самой AVR архитектуре, не в BASCOM.
Кратк. - сест. тал.
Делайте подпрограммы обработки прерываний как можно короче! Помните, что ваша программа прерывается, чем бы она ни занималась, и она не должна быть прервана надолго. Старайтесь не делать в прерываниях ничего сложнее, чем изменение счетчиков или флагов. Фрагменты обработки этих данных лучше всего разместить в главном коде. Сравните две программы - вот эту:
On Int0 Stopbutton Enable Interrupts Enable Int0 Do ... Loop End Stopbutton: Lcd "stop!" ... Делаем что-то сложное... ReturnС вот этой:
Dim Stopflag as Bit
On Int0 Stopbutton
Enable Interrupts
Enable Int0
Do
...
If Stopflag = 1 Then
Reset Stopflag
...
Делаем что-то сложное...
...
End If
Loop
End
Stopbutton:
Set Stopflag
Return
Во втором случае подпрограмма Stopbutton максимально сокращена, в ней только устанавливается флаг Stopflag. А он уже обрабатывается в главном коде. Однако будьте внимательны! В таком случае прерывание может быть обработано намного позже, чем оно произошло!Еще про int0/int1
Int0 и Int1 - внешние прерывания. Обычно они вызываются кнопками, переключателями, импульсами или логическими уровнями с других цепей. Вы можете предопределить, как обработчик прерываний будет реагировать на изменение сигнала:
Config Intx = Low Level Config Intx = Falling Config Intx = RisingТаким образом, прерывания генерируются, пока сигнал на Intx низкий, по спаду и по фронту. Low Level создает прерывания все время, пока управляющий уровень низкий. Например:
$regfile = "2313def.dat" $crystal = 4000000 Dim Cntr As Integer On Int0 Button Config Int0 = Low Level Cls Enable Interrupts Enable Int0 Do Locate 1 , 1 Lcd Cntr Waitms 250 Loop Button: Incr Cntr Return EndВ подпрограмме обработки значение счетчика увеличивается и отображается на дисплее четыре раза в секунду.
В справке BASCOM недокументирован (как считает pa3ckr) тот факт, что Low Level - конфигурация прерывания по умолчанию. Однако прерывание по фронту или по спаду намного распространеннее.
Неприятное явление дребезга
Идеальная кнопка переключает состояние строго с разомкнутого на замкнутое и наоборот. Однако, реальные кнопки обладают "дребезгом". При нажатии кнопка "генерирует" серию импульсов, причем у некоторых экземпляров эта серия длится до 50 миллисекунд. Вот осциллограмма сигнала нажатия кнопки, подключенной к земле через 10килоомный подтягивающий резистор:
На самом деле это очень даже хорошая кнопочка - дребез у нее длится всего 0.5 мс. Таким образом, если ваша программа реагирует на спад или фронт, вы получите кучу прерываний вместо одного. Поэтому нам необходимо реализовать функцию антидребезга, например, добавив задержку:
interrupt-debounce-self.bas
$regfile = "2313def.dat" $crystal = 4000000 Config Pind.6 = Output Config Pind.2 = Input Config Int0 = Falling Config Debounce = 50 Dim Wtime As Byte Const Debouncetime = 75 On Int0 Stopbutton Cls Wtime = 255 Enable Interrupts Enable Int0 Do Set Portd.6 Waitms Wtime Reset Portd.6 Waitms Wtime Loop Stopbutton: Lcd "stop!" Waitms Debouncetime Gifr = 64 Return EndВ эту продпрограмму всего лишь добавлен оператор задержки waitms. Поскольку на время обработки прерывания отключаются, программа среагирует только на первый импульс. Выберите значение константы Debouncetime так, чтобы оно было больше наибольшего времени дребезга используемых кнопок. Также в BASCOM есть команда Debounce, которую тоже можно использовать в прерываниях.
Что за GIFR?
В вышеприведенном примере, в подрограмме прерывания есть странная строка Gifr=64. Что это за Gifr за такой? Уберите эту строчку и посмотрите, что получится: практически в любом случае "stop!" будет выведено на ЖКИ два раза. Как же такое возможно?
А посмотрите вот этот пример: interrupt-deb-pre.bas
$regfile = "2313def.dat" $crystal = 4000000 Config Pind.6 = Output Config Pind.2 = Input Config Int0 = Falling Dim Wtime As Byte On Int0 Stopbutton Cls Set Portd.6 Waitms 3000 Reset Portd.6 Wtime = 255 Enable Interrupts Enable Int0 Do Set Portd.6 Waitms Wtime Reset Portd.6 Waitms Wtime Loop Stopbutton: Lcd "stop!" Waitms 75 Return EndПосле очистки ЖКИ включается светодиод. Затем следует трехсекундная задержка, после чего гаснет светодиод и включаются прерывания. Теперь сбросьте МК и попробуйте нажать кнопку, пока включен светодиод. У вас есть три секунды, так что думаю, у вас не возникнет проблем (а иначе - вам делать нечего тут! прим. WildCat'a). После погасания светодиода включается Int0, и вы заметите, что программа переходит к подпрограмме Stopbutton. Поэтому, даже если вы нажмете кнопку перед включением прерываний, данные о срабатывании где-то сохранятся, и после включения прерывание немедленно выполнится.
Вот что происходит в AT90S2313 (да и в других МК AVR). Даже если соответствующее прерывание НЕ включено, данные о его срабатывании хранятся в "General Interrupt Flag Register" (GIFR или Главный Регистр Флагов Прерываний). Это один из тех редчайших случаев, когда даже пользователям BASCOM придется вникнуть во внутреннее строение AVR (я вас не заставляю!) Регистр GIFR имеет восемь бит, из которых шестой и седьмой зарезервированы для Int0 и Int1 соответственно:
И вот что происходит в нашей программе interrupt-debounce-self.bas: В подпрограмме обработки, когда прерывания выключены, данные о срабатывании все равно приходят из-за дребезга контактов. Прерывания отмечаются в GIFR нулевым битом. Для Int0 это шестой бит, для Int1 - седьмой. Все, что нужно сделать для устранения нашей проблемы - это установить соответствующие биты в GIFR перед командой Return в подпрограмме обработки. Тогда дальнейшие (бесполезные) прерывания после продолжения работы обрабатываться не будут.
Зарегистрированные имена регистров
Теперь мы знаем, что есть несколько зарегистрированных имен регистров. Избегайте их использования в ваших программах. Используйте справку BASCOM (запустите справку, нажмите "Поиск" и введите "AVR internal registers") и даташит AT90S2313 (table 1, страницы 15 и 16).
Таймеры и счетчики
В AT90S2313 есть два таймера/счетчика (убедитесь, что вы прочитали 27 страницу... ну вы поняли, чего). Timer0 - это восьмибитный таймер/счетчик, может принимать значения от 0 до 255.
С командой Config мы можем настроить его, как нам заблагорассудится:
Config Timer0 = Timer, Prescale = 1|8|64|256|1024Здесь Timer0 настроен на счет тактовых импульсов. Он считает тактовые импульсы с выхода делителя с настраиваемым коэффициентом 1, 8, 64, 256 или 1024. Таймер считает время, в течение которого он изменяется с 0 до 255. Пусть в нашем проекте стоит кварц 4МГц и делитель на 1024. Тогда таймер будет увеличивать значение каждые (коэффициент/тактовая частота, 1024/4.000.000)=0,256 миллисекунд. Тогда переполняться он будет каждые 255*0,256=65 миллисекунд. Time1 аналогичен Timer0, но он 16-битный, он считает до 65535 до переполнения. Таймеры начинают отсчет с момента конфигурации.
Вот пример использования timer0 (вам нужен AT90S2313 с подключенным дисплеем):
interrupt-timer0-free.bas
$regfile = "2313def.dat" $crystal = 4000000 Config Pind.6 = Output Config Pinb.1 = Output Config Timer0 = Timer , Prescale = 1024 Dim Wtime As Byte Dim Timercounter As Byte Wtime = 100 Timercounter = 0 Do Set Portd.6 Waitms Wtime Reset Portd.6 Waitms Wtime Cls Timercounter = Timer0 Lcd "tmrcntr: " ; Timercounter Loop EndИ пример использования Timer1:
interrupt-timer1-free.bas
$regfile = "2313def.dat" $crystal = 4000000 Config Pind.6 = Output Config Pinb.1 = Output Config Timer1 = Timer , Prescale = 1024 Dim Wtime As Byte Dim Timercounter As Word Wtime = 100 Timercounter = 0 Do Set Portd.6 Waitms Wtime Reset Portd.6 Waitms Wtime Cls Timercounter = Timer1 Lcd "tmrcntr: " ; Timercounter Loop EndКонечно, главное отличие в том, что здесь переменная Timercounter представлена как Word. Текущие значения таймеров в любой момент могут быть прочитаны и записаны в переменную соответствующего типа.
Эти два примера используют свободно запущенные таймеры. Их можно запустить и остановить в любой момент:
Start Timer0 Stop Timer0 Start Timer1 Stop Timer1И поскольку это обычные регистры AVR, вы можете не только считать их, но и записать в них значение:
Stop Timer1 ... Timer1 = 132 ... Start Timer1Прерывания по таймеру
Наиболее распространенное использование таймеров - создание прерываний через равные промежутки времени для выполнения какого-то задания, например, проверки состояния порта, или наоборот, вывод импульса.
Вот пример генератора импульсов (используйте схему с кнопкой "Stop", выход на portb.1):
interrupt-timer0-pulse.bas
$regfile = "2313def.dat" $crystal = 4000000 Config Pind.6 = Output Config Pinb.1 = Output Config Timer0 = Timer , Prescale = 64 Dim Wtime As Byte On Timer0 Pulse: Wtime = 100 Enable Interrupts Enable Timer0 Do Set Portd.6 Waitms Wtime Reset Portd.6 Waitms Wtime Loop Pulse: Toggle Portb.1 Return EndДелитель настроен на коэффициент 64, timer0 будет увеличиваться каждые 16 микросекунд. Так как он считает до 255, переполнение будет через 256*16=4096 микросекунд. На каждом прерывании по переполнению генерируется импульс. В подпрограмме обработки состояние portb.1 переключается, т.е. уровень в зависимости от предыдущего состояния меняется на противоположный.
В результате на выходе мы получим красивый меандр с периодом примерно 8 миллисекунд на portb.1:
AT90S2313 довольно шустрый! Попробуйте настроить деление на 1 и проверьте результат на portb.1. Период сигнала примерно 120 микросекунд.
Вся эта прелесть работает, пока время работы подпрограммы меньше времени включения/выключения сигнала. Попробуйте вставить команду Cls в прерывание. Вы увидите, что период возрастет со 120 микросекунд до 12 миллисекунд!
Длительность задержки
Во всех этих примерах прерывание создается по переполнению счетчика таймера. Это значит, что мы ограничены в выборе времени тактовой частотой, коэффициентом деления и размерностью регистра таймера. Один из способов создания определенного промежутка времени - не давать таймеру свободно заполняться от 0 до максимального значения, а задавать некоторое ненулевое значение регистра после каждого переполнения. Мы можем выбрать его таким образом, чтобы получить нужное время заполнения от этого значения до максимума:
interrupt-timer1-preload.bas
$regfile = "2313def.dat" $crystal = 4000000 Config Pind.6 = Output Config Pinb.1 = Output Config Timer1 = Timer , Prescale = 1 Const Timer1pre = 65100 Dim Wtime As Byte Stop Timer1 Timer1 = Timer1pre On Timer1 Pulse: Start Timer1 Wtime = 100 Enable Interrupts Enable Timer1 Do Set Portd.6 Waitms Wtime Reset Portd.6 Waitms Wtime Loop Pulse: Stop Timer1 Timer1 = Timer1pre Toggle Portb.1 Start Timer1 Return EndПосле каждого переполнения Timer1 в его регистр помещается значение 65100, поэтому перед каждым прерыванием он считает от 65100 до 65535. Это занимает (65536 - 65100) * 0,25 = 109 микросекунд. Изменяя константу Timer1pre, вы можете задать время включения/выключения с точностью 0,25 микросекунд.
Подсчет внешних импульсов
Timer0 и Timer1 могут быть настроены на счет внешних импульсов на выводах T0 и T1:
Config Timer0 = Counter, Prescale = 1|8|64|256|1024, Edge = Rising|Falling Config Timer1 = Counter, Prescale = 1|8|64|256|1024, Edge = Rising|FallingВы можете выбрать счет по фронту или по спаду. Также вы можете задать предделитель для счета. Особенно интересен Timer1, так как он может считать до 65535 перед переполнением.
Имена Timerx, Counterx и Capturex в BASCOM соответствуют именам регистров, поэтому нельзя использовать одноименные переменные в программе, что не есть хорошо.
Когда Timer0 и Timer1 используются для подсчета внешних импульсов, контроллер будет квантовать входы со своей тактовой частотой. Это значит, что для точного подсчета частота следования импульсов не должна превышать половины тактовой частоты. Для безопасности старайтесь подавать импульсы на вход с частотой ниже 40% от тактовой. Так, для кварца 4МГц частота следования импульсов не должна превышать 1,6МГц. Проверьте это на ТТЛ генераторе, подключенном к T1 (Portd.5, 9 нога для AT90S2313):
counter1.bas
$regfile = "2313def.dat" $crystal = 4000000 Config Pind.6 = Output Config Timer1 = Counter , Edge = Falling , Prescale = 1 Stop Counter1 Set Portd.6 Waitms 1000 Reset Portd.6 Waitms 1000 Cls Do Counter1 = 0 Start Counter1 Waitms 25 Stop Counter1 Cls Lcd "Counter1: " ; Counter1 Waitms 100 Loop EndВ Do-Loop цикле Counter1 очищается и запускается. После задержки 25 мс Counter1 останавливается, и его значение выводится на ЖКИ. Заметьте: отсчет времени командой Waitms не очень точный. Есть более точные способы создания задержек.
Постепенно повышайте частоту импульсов с генератора и следите за тем, что происходит после 1.6 МГц.
Timer1 считает до 65535. Если вам этого мало, вы можете подсчитывать общее число срабатываний таймера в подпрограмме:
counter2.bas
$regfile = "2313def.dat" $crystal = 4000000 Config Pind.6 = Output Config Timer1 = Counter , Edge = Falling , Prescale = 1 Dim Wtime As Byte Dim Timercounter As Word Dim Overflcounter As Word Dim Totalcounter As Long On Counter1 Uphigh Wtime = 100 Timercounter = 0 Totalcounter = 0 Enable Interrupts Enable Counter1 Do Set Portd.6 Waitms Wtime Reset Portd.6 Waitms Wtime Cls Timercounter = Counter1 Lcd Timercounter ; " " ; Overflcounter Lowerline Totalcounter = Overflcounter Shift Totalcounter , Left , 16 Totalcounter = Totalcounter + Timercounter Lcd "total: " ; Totalcounter Loop Uphigh: Incr Overflcounter Return EndЗдесь заданы три переменные:
Overflowcounter (16-битное слово) хранит количество переполнений Timer1.
Timercounter (16-битное слово) хранит текущее значение Timer1.
. Totalcounter (32-битная Long) хранит значение Overflowcounter, сдвинутое на 16 разрядов влево + значение Timercounter.
Timer1 в режиме захвата
Timer1 может работать в режиме "Capture" (захвата). Это значит, что Timer1 считает тактовые импульсы через предделитель, и, когда на вход ICP (portd.6, 11 нога) приходит импульс, содержимое Timer1 копируется в регистр Input Capture. Таким способом можно точно измерить время между двумя импульсами:
Config Timer1 - Timer, Prescale = 1|8|64|256|1024, Capture Edge = Rising|Fallinginterrupt-timer1-capture.bas
$regfile = "2313def.dat" $crystal = 4000000 'Config Pind.6 = Output Config Timer1 = Timer , Prescale = 64 , Capture Edge = Rising Dim Wtime As Byte Dim Timercounter As Word On Capture1 Captmr Wtime = 100 Timercounter = 0 Enable Interrupts Enable Capture1 Do 'Set Portd.6 Waitms Wtime 'Reset Portd.6 Waitms Wtime Cls Lcd "pwidth: " ; " " ; Capture1 Loop Captmr: Timercounter = Capture1 Timer1 = 0 Return EndВ подпрограмме прерывания значение Timer1 (Capture1 - это второе имя этого регистра) копируется в Timercounter. Затем Timer1 очищается. При последующем импульсе на ICP входе цикл повторяется. Следовательно, Timercounter считает время между импульсами на ICP.
Компаратор на Timer1
У Timer1 есть регистр сравнения CompareA (в BASCOM также есть регистр CompareB, но он отсутствует в AT90S2313). В этот регистр можно положить конкретное значение. Когда значение Timer1 сравняется со значением CompareA, предописанное действие даст результат на OC1 (Portb.3, 15 нога):
Config Timer1 = Timer, Prescale = 1|8|64|256|1024, Compare A = Clear|Set|Toggle|Disconnect, Clear Timer = 0|1Действием может быть:
- Установить OC1
- Сбросить OC1
- Переключить OC1
- Отключить OC1
С помощью Clear Timer можно очистить Timer1, когда произойдет прерывание CompareA.
Наиболее используемая функция - Toggle (переключение). Она используется для генерирования точной частоты на OC1.
compare.bas
$regfile = "2313def.dat"
$crystal = 4000000
Config Pind.6 = Output
Config Timer1 = Timer , Prescale = 1 , Compare A = Toggle , Clear Timer = 1
Dim Wtime As Byte
Dim Compval As Word
Wtime = 100
Do
For Compval = 100 To 10000 Step 100
Compare1a = Compval
Waitms 10
Next Compval
Set Portd.6
Waitms Wtime
Reset Portd.6
Waitms Wtime
Loop
End
В цикле Do-Loop в регистр CompareA помещается значение Compval, находящееся в промежутке 100 - 10000. Когда Timer1 сравняется с CompareA, вывод OC1 меняет значение на противоположное, и таймер очищается. Подключите маленький динамик последовательно с резистором в несколько сот Ом к OC1 (Portb.3, 15 нога) и слушайте музыку...
Прерывания UART
В AT90S2313 есть три вида UART прерываний:
1. Tx ready - когда последний бит передан и буфер отправки пуст. Такой вид используется при работе в полудуплексном режиме, и вы должны знать, когда переходить с передачи на прием. В полнодуплексном режиме (по умолчанию) такое прерывание не требуется.
2. Буфер передачи пуст. Это прерывание возникает, когда символ из буфера данных переписан в буфер отправки. Его можно использовать, чтобы знать, что пора отправлять следующий символ. Вам это прерывание особенно не потребуется, так как при передаче строки BASCOM все сделает за вас.
3. Rx ready - когда по UART получен символ и помещен в буфер данных. Этот символ нужно считать как можно скорее, пока не пришел следующий. BASCOM также сам обрабатывает и прием строк по UART, но это прерывание можно использовать, например, для изменения порядка выполнения программы:
interrupt-rs232rx.bas
$regfile = "2313def.dat"
$crystal = 4000000
$baud = 9600
Config Pind.6 = Output
On Urxc Getchar
Dim Wtime As Word
Dim Inchar As String * 1
Const Fastblink = 100
Const Slowblink = 500
Wtime = Slowblink
Enable Interrupts
Enable Urxc
Do
Print Wtime
Set Portd.6
Waitms Wtime
Reset Portd.6
Waitms Wtime
Loop
Getchar:
Inchar = Inkey()
Select Case Inchar
Case "f" : Wtime = Fastblink
Case "s" : Wtime = Slowblink
End Select
Return
End
При получении символа по UART вызывается подпрограмма Getchar. Если полученный символ "f", то светодиод будет мигать часто, если "s", то редко. Все остальные символы игнорируются.Аналоговый компаратор
В AT90S2313 есть аналоговый компаратор на Ain0 (12 нога) и Ain1 (13 нога). Компаратор можно настроить так, что по его переключению включается Timer1 Capture. Также он может создавать прерывание:
Config ACI = On|Off, Compare = On|Off, Trigger = Rising|Falling|ToggleПри включении этого режима, при переключении компаратора включается Timer1 Compare. Срабатывание можно настроить по фронту (Ain0 > Ain1), по спаду (Ain0 < Ain1) или по переключению (Ain0 > Ain1 и Ain0 < Ain1).
Возможное применение аналогового компаратора - восьмибитный ЦАП, однако вам потребуется полностью свободный PortB для размещения R-2R ЦАП. Это довольно глупое занятие, гораздо практичнее использовать внешний I2C чип, например PCF8591, в котором есть один ЦАП и четыре АЦП (восьмибитных).