$regfile = "m8def.dat"                                      ' Выбор типа контроллера.
$crystal = 4000000                                          ' Частота генератора, Гц.
$hwstack = 50                                               ' Размер аппаратного.
$swstack = 30                                               ' и программных стеков.
$framesize = 40

Config Portb = Output                                       'конфигурация портов

Config Portc = Output

Config Portd = Input


Config Timer0 = Timer , Prescale = 64                       ' Конфигурация таймера Timer1.
On Timer0 Обработка_нажатия
Enable Timer0                                               ' Назначение подпрограммы прерываний от Timer1

Config Timer2 = Timer , Prescale = 256                      ' Конфигурация таймера Timer2.
On Timer2 Индикация                                         ' Назначение подпрограммы прерываний от Timer2
Enable Timer2                                               ' Разрешение прерываний от Timer2

Config Int0 = Falling
On Int0 Счёт
Enable Int0

Config Int1 = Falling
On Int1 Кнопка
Enable Int1
               'кусок кода, отвечающий за запись текущего значения счётчика при отключении питания
               'подсмотренный вот тут: http://bascomavr.3bb.ru/viewtopic.php?id=733
               'за что огромное спасибо MACTEPok(ку)
Config Aci = On , Compare = Off , Trigger = Rising
Acsr.6 = 1                                                  'входAIN0 на внутренний ИОН - 1,23V
On Aci Снятие_питания                                       'подпрограмма прерывания от компаратора
Enable Aci
Start Ac

Enable Interrupts

                'разные нужные переменные и флаги

Dim Коэффициент_пересчёта As Integer
Dim Результат_счёта_1 As Byte
Dim Результат_счёта_2 As Byte
Dim Результат_счёта_3 As Byte
               ' переменные еепром
Dim Результат_счёта_1_eep As Eram Byte At &H16
Dim Результат_счёта_2_eep As Eram Byte At &H17
Dim Результат_счёта_3_eep As Eram Byte At &H18

Dim Счетчик_разрядов As Byte
Dim Flag_вперёд As Byte
Dim Flag_назад As Byte
Dim Flag_длиное_нажатие As Byte
Dim Flag_короткое_нажатие As Byte

Dim Flag_настройка_1 As Byte
Dim Flag_настройка_2 As Byte
Dim Flag_настройка_3 As Byte
Dim Flag_мигание As Byte
Dim Счётчик_времени_нажатия As Byte
Dim Счётчик_длиных_нажатий As Byte
Dim Счётчик_мигания As Byte

Const Длительность_горения_при_мигании = 15
Const Частота_мигания = 30

Declare Sub Индикация()
Declare Sub Обработка_нажатия()
Declare Sub Кнопка()
Declare Sub Счёт()
Declare Sub Обработка_времени_нажатия()
Declare Sub Короткое_нажатие()
Declare Sub Длиное_нажатие()
Declare Sub Снятие_питания()

Результат_счёта_1 = Результат_счёта_1_eep                   ' чтение из еепром
Результат_счёта_2 = Результат_счёта_2_eep
Результат_счёта_3 = Результат_счёта_3_eep

Do
Portd.0 = Acsr.5                                            ',будем наблюдать сработку компаратора
Loop

Счёт:

If Pind.0 = 0 Then
Incr Коэффициент_пересчёта
Set Flag_вперёд
Reset Flag_назад
End If

If Pind.1 = 0 Then
Decr Коэффициент_пересчёта
Set Flag_назад
Reset Flag_вперёд
End If

If Flag_вперёд = 1 Then                                     'счёт вперед
If Коэффициент_пересчёта = 3 Then                           'вообще коэфициент пересчёта будет, примерно 1600
Incr Результат_счёта_3                                      'он будет находиться эксперементально, для каждого датчика
Коэффициент_пересчёта = 0                                   'А такое значение, только для удобства отладки.
End If

If Результат_счёта_3 = 10 Then
Incr Результат_счёта_2
Результат_счёта_3 = 0
End If

If Результат_счёта_2 = 10 Then
Incr Результат_счёта_1
Результат_счёта_2 = 0
End If

If Результат_счёта_1 = 10 Then
Результат_счёта_3 = 0
Результат_счёта_2 = 0
Результат_счёта_1 = 0
End If
End If

If Flag_назад = 1 Then                                      'счёт назад
If Коэффициент_пересчёта = -3 Then
Decr Результат_счёта_3
Коэффициент_пересчёта = 0
End If

If Результат_счёта_3 = 0 And Результат_счёта_2 > 0 Then
Decr Результат_счёта_2
Результат_счёта_3 = 9
End If

If Результат_счёта_2 = 0 And Результат_счёта_1 > 0 Then
Decr Результат_счёта_1
Результат_счёта_2 = 9
End If
End If

Return

Индикация:
                   'обработка индикации происходит по прерыванию от timer2 (8 bit)
Incr Счетчик_разрядов

If Счетчик_разрядов > 3 Then
 Счетчик_разрядов = 1
End If
                  ' подготовка к миганию. принцип работы подсмотрено тут:
                  ' http://bascom.at.ua/publ/issledovanie_raboty_7_seg_led_indikatorov_v_bascom/1-1-0-89
                  ' спасибо sasha_1973!

Incr Счётчик_мигания
If Счётчик_мигания > Частота_мигания Then
Счётчик_мигания = 1
End If
                  'собственно, индикация
                  'не помню уже от куда, но тоже содрал )))
                  'авторам так же, спасибо

If Счетчик_разрядов = 1 Then

   Portc = &B00000100                                       'зажигаем первое число

      Select Case Результат_счёта_1
         Case 0 : Portb = &B11000000
         Case 1 : Portb = &B11111001
         Case 2 : Portb = &B10100100
         Case 3 : Portb = &B10110000
         Case 4 : Portb = &B10011001
         Case 5 : Portb = &B10010010
         Case 6 : Portb = &B10000010
         Case 7 : Portb = &B11111000
         Case 8 : Portb = &B10000000
         Case 9 : Portb = &B10010000
         Case 11 : Portb = &B11111111
      End Select

  If Счётчик_мигания > Длительность_горения_при_мигании And Счётчик_длиных_нажатий = 3 Then
 Portb = &B11111111
End If

End If
       Waitms 5

If Счетчик_разрядов = 2 Then
   Portc = &B00000010                                       'зажигаем второе число

      Select Case Результат_счёта_2
         Case 0 : Portb = &B01000000
         Case 1 : Portb = &B01111001
         Case 2 : Portb = &B00100100
         Case 3 : Portb = &B00110000
         Case 4 : Portb = &B00011001
         Case 5 : Portb = &B00010010
         Case 6 : Portb = &B00000010
         Case 7 : Portb = &B01111000
         Case 8 : Portb = &B00000000
         Case 9 : Portb = &B00010000
         Case 11 : Portb = &B11111111
      End Select

  If Счётчик_мигания > Длительность_горения_при_мигании And Счётчик_длиных_нажатий = 2 Then
 Portb = &B11111111
End If

End If
       Waitms 5

If Счетчик_разрядов = 3 Then
   Portc = &B00000001                                       'зажигаем третье число

      Select Case Результат_счёта_3
         Case 0 : Portb = &B11000000
         Case 1 : Portb = &B11111001
         Case 2 : Portb = &B10100100
         Case 3 : Portb = &B10110000
         Case 4 : Portb = &B10011001
         Case 5 : Portb = &B10010010
         Case 6 : Portb = &B10000010
         Case 7 : Portb = &B11111000
         Case 8 : Portb = &B10000000
         Case 9 : Portb = &B10010000
         Case 11 : Portb = &B11111111
      End Select

  If Счётчик_мигания > Длительность_горения_при_мигании And Счётчик_длиных_нажатий = 1 Then
 Portb = &B11111111
End If

End If
       Waitms 5

Return
          'эта часть кода работает от внешнего прерывания int1, настроеного
          'на срабатывание по низсходящему фронту, то есть, ИМЕННО в момент нажатия (1->0) кнопки
          'потом её можно держать нажатой сколько угодно, но прерывания уже не произойдёт
          'пока кнопку не отпустить и снова не нажать.
Кнопка:

Счётчик_времени_нажатия = 0

If Pind.3 = 0 And Счётчик_длиных_нажатий > 0 Then
 Set Flag_короткое_нажатие
 rcall Короткое_нажатие
End If

Return

Обработка_нажатия:

Incr Счётчик_времени_нажатия

If Pind.3 = 1 Then
 Reset Flag_короткое_нажатие
End If

rcall Обработка_времени_нажатия

Return
            'вот в этом куске кода у меня остался "косяк" и как его устранить я
            'так и не додумался. Дело в том, что КОРОТКОЕ нажатие происходит ВСЕГДА раньше длинного
            'на то оно и короткое! Чётко разделить разные нажатия получается только "закрыв МК глаза" циклом
            'в течении которого ему всё равно что там ЕЩЁ помимо должно происходить! Ввиду этого, во время
            'цикла, гаснет индикация. А без цикла, в момент переключения разрядов при их настройке, фиксируется
            'ложное короткое нажатие и тем самым к настроеному как бы уже значению, прибавляется единица.
            'То есть, если надо установить значение 5, то настраивать надо 4.

Обработка_времени_нажатия:

If Pind.3 = 0 And Счётчик_времени_нажатия >= 50 Then
 Set Flag_длиное_нажатие
 Incr Счётчик_длиных_нажатий
 Счётчик_времени_нажатия = 0
 rcall длиное_нажатие
End If

Return

Короткое_нажатие:

If Flag_короткое_нажатие = 1 And Flag_настройка_1 = 1 Then
 Incr Результат_счёта_3
 If Результат_счёта_3 > 9 Then
 Результат_счёта_3 = 0
 End If
End If

If Flag_короткое_нажатие = 1 And Flag_настройка_2 = 1 Then
 Incr Результат_счёта_2
 If Результат_счёта_2 > 9 Then
 Результат_счёта_2 = 0
 End If
End If

If Flag_короткое_нажатие = 1 And Flag_настройка_3 = 1 Then
 Incr Результат_счёта_1
 If Результат_счёта_1 > 9 Then
 Результат_счёта_1 = 0
 End If
End If

Return

Длиное_нажатие:
     'при первом длинном нажатии

If Счётчик_длиных_нажатий = 1 Then
 Set Flag_настройка_1
 Reset Flag_настройка_3
End If

            'при втором длинном нажатии

If Счётчик_длиных_нажатий = 2 Then
 Set Flag_настройка_2
 Reset Flag_настройка_1
End If
            'при третьем длинном нажатии

If Счётчик_длиных_нажатий = 3 Then
 Set Flag_настройка_3
 Reset Flag_настройка_2
End If

            'при четвертом длинном нажатии

If Счётчик_длиных_нажатий = 4 Then
 Reset Flag_длиное_нажатие
 Reset Flag_короткое_нажатие
 Reset Flag_настройка_1
 Reset Flag_настройка_2
 Reset Flag_настройка_3
 Счётчик_длиных_нажатий = 0
End If

Return

Снятие_питания:

    Portb = &B11111111                                      ' тушим порты для экономии электроэнергии
    Результат_счёта_1_eep = Результат_счёта_1               ' запись в еепром
    Результат_счёта_2_eep = Результат_счёта_2
    Результат_счёта_3_eep = Результат_счёта_3

    Waitms 2000     ' на 2с МК зависает, если питание вернулось, схема работает дальше
Return

$regfile = "attiny26.dat"
$crystal = 8000000

Ddrb = &B00001111                                           ' настройка пинов порта

Tccr1a = &B01010011                                         ' режимы ШИМ и вкл запуск ШИМ
Tccr1b = &B00000001                                         ' прескаллер = синхронный режим без делителя

Ocr1a = 5                                                   ' регистр сравнения для 1A
Ocr1b = 200                                                 ' регистр сравнения для 1B
Ocr1c = 255                                                 ' модуль счета для таймера (максимум счета)

Do

Loop

$regfile = "attiny2313.dat"
$crystal = 8000000

Config Portd.2 = Output : Led Alias Portd.2

Config Timer0 = Timer , Prescale = 1 : On Timer0 Pwm_prog : Enable Timer0 : Enable Interrupts

Dim Count As Byte , Bright As Byte                          ' переменные счетчика ШИМ и значения яркости

'----------

Bright = 100                                                ' значение яркости

Do

Loop

End

'----------

Pwm_prog:                                                   ' прерывание программной ШИМ на Т0

Incr Count

If Count = 255 Then                                         ' модуль счета ШИМ
Count = 0
End If

If Count < Bright Then                                      ' управление светодиодом

Set Led

Else

Reset Led

End If

Return

Bright = 10

Bright = 100

Bright = 200