$regfile = "2313def.dat"      ' Частотомер 50.00 Герц
$crystal = 4000000            ' компилятор BASCOM

In_hertz Alias Pind.6


Declare Sub Byte2led(data_2byte As Word)

Dim Tempb As Byte , Data_2byte As Word , Tempw As Word
Dim Data_1 As Byte , Data_2 As Byte , Data_3 As Byte , Data_4 As Byte
Dim Tyscha As Byte , Sotka As Byte , Desaytka As Byte , Edinica As Byte , Timercounter As Single

Config Portb = Output : Portb = 255
Config Pind.6 = Input

Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.0 , Rs = Portb.1
Config Lcd = 16 * 2           'configure lcd screen


Config Timer1 = Timer , Prescale = 8 , Capture Edge = Rising
On Capture1 Captmr
Enable Capture1

Enable Interrupts             ' разрешаем прерывания и включаем таймер


Lcd "Start..."

' =======================   С Т А Р Т   =========================
 Start_main_prog:

  Cls
  Timercounter = 25000000 \ Timercounter       ' на входе - частота в 2 раза выше, чем от генератора сигнала!
  Tempw = Timercounter
  Lcd Tempw

 Goto Start_main_prog

' =========================================================
Captmr:                       ' Считаем импульсы, как-бы наполняем пачками между импульсами
   Timercounter = Capture1
   Timer1 = 0
Return"