$regfile = "2313def.dat"
$crystal = 8000000

Dim A As Byte

'настройка прерывания по таймеру через каждые 0,032 сек
Config Timer0 = Timer , Prescale = 1024
On Timer0 Impulse:

'кладем в счетчик стартовое значение, чтобы прерывание пришло раньше (через 10мсек)
'т.е. таймер начнет считать с этого значения и переполнится раньше
Timer0 = 78

Enable Interrupts
Enable Timer0
Start Timer0

Do

'цикл программы

Loop

'обработка прерывания
Impulse:

Incr A                    'считаем какой по счету вызов обработчика

'если заход в обработчик уже третий по счету следующее прерывание снова через 10 мсек
    If A = 3 Then
    Timer0 = 78
    End If

Return

End

Dim A As Single     
Dim B As Long
Dim S As Single                          'результат для вывода на индикатор

B = -123
A = 0.251

S = A + B                    'S = -122,749
Lcd Fusing(s , "#.##")                    'S = -123,45 результат округляется

$regfile = "2313def.dat"
$crystal = 8000000
$baud = 19200

Config Timer1 = Timer , Prescale = 64 , Capture Edge = Rising
Config Portd.6 = Input 'прерывания
Config Portb.2 = Output 'светодиод

Open "comb.0:9600,8,n,1" For Output As #1
Open "comb.1:9600,8,n,1" For Input As #2

'Так как предделитель 64 то 64/8000000*65535=0.52428 переполнений в секунду
'тобиш приблизительно 2 раза 2 Гц.
Dim Timercounter As Word '
Dim Period As Single
Dim Secund As Single
Dim Flag As Bit
'T=(1/F)*n тут Т-константа, n-предделитель, F-частота работы камня
'T=(1/8000000)*64=0.000008
'каждое значение таймера1 = 0.000008 сек.
Const T = 0.000008
Flag = 0
On Capture1 Zaxvat

Timercounter = 0
Flag = 0
Waitms 50
'разрешаем прерывания
Enable Interrupts
Enable Capture1

Set Portb.2

Do ' главный цикл программы
'0.52428 время переполнения таймера
If Timer1 = 65535 Then
'так как он переполняется каждые 0.52428 секунды то их и складываем
Secund = Secund + 0.52428
'больше 255 думаю не понадобится
If Secund > 255 Then Secund = 0
End If

If Flag = 1 Then

'секунды и то что насчитал таймер в сек.
Period = Timercounter * T
Secund = Period + Secund

Print #1 , "Secund :"
Print #1 , Secund

Flag = 0
Secund = 0
End If
Loop

'отрабатывает по прерыванию portd.6
Zaxvat:
Timercounter = Timer1 ' копируем значение таймера в переменную
Flag = 1
Timer1 = 0 ' обнуляем таймер
Return

$regfile = "m32def.dat"
$crystal = 16000000

Dim A As Byte

Config Timer1 = Timer , Prescale = 1024

On Timer1 Perepolnenie:

Start Timer1
Enable Interrupts

Do

If A = 30 Then
  'выполнение своей программы
End If

Loop

End

Perepolnenie:                    'переполнение таймера
Incr A
Return