Подсчет внешних импульсов

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|Falling
interrupt-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.