$map       ' Получаем карту распределения памяти в отчёте компиляции
  $regfile = "m328pdef.dat"       ' Используемый контроллер
  $crystal = 8000000       ' Частота работы контроллера
  $framesize = 32       ' Размер области используемой для преобразований
  $hwstack = 40       ' Размер аппаратного стека
  $swstack = 16       ' Размер программного стека

'-------------  Настройка USART  -----------------------------------------------
  $baud = 38400
  Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------  Настройка АЦП  -------------------------------------------------
  Config Adc = Free , Prescaler = 128 , Reference = Avcc       ' Источник опорного напряжения Reference может быть: Aref – внешний источник, Avcc – напряжение питания схемы и Internal – внутренний
  On Adc Обработка_прерывания_ацп_asm Nosave

  Admux.mux0 = 1       ' Используем ADC3
  Admux.mux1 = 1       ' Используем ADC3
  Admux.adlar = 1       ' Берём 8 бит из 10, считываем только ADCH

  Dim Фоторезистор As Byte
  Dim Флаг_данные_ацп As Byte
  Dim Temp_фоторезистор As Byte
  Dim Сумма_измерений_ацп_word As Word
  Dim Счетчик_измерений_ацп As Byte

'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
'--------------  Разрешаем работу необходимых прерываний  ----------------------
  Enable Adc : Start Adc

'------------  Разрешаем работу всех включенных прерываний  --------------------
  Enable Interrupts

'-------------------------------------------------------------------------------
'Ждём первой выборки замеров АЦП
Ждем_первый_замер_ацп:
  Idle
  If Флаг_данные_ацп = 0 Then
      Goto Ждем_первый_замер_ацп
  End If
  Флаг_данные_ацп = 0

'===============================================================================
'                   Г Л А В Н Ы Й         Ц И К Л
  Главный_цикл:
'===============================================================================

   If Флаг_данные_ацп <> 0 Then
       Print Фоторезистор
       Флаг_данные_ацп = 0
       Goto Главный_цикл
   End If

   Idle       ' Отправляем МК на тихий час
'===============================================================================
  Goto Главный_цикл
End
'===============================================================================
'       П О Д К Л Ю Ч Е Н И Е     Р А Б О Ч И Х     М О Д У Л Е Й
'===============================================================================

'===============================================================================
  Обработка_прерывания_ацп_asm:
'-------------------------------------------------------------------------------
   'Сохраняем регистры, которые будем использовать и SREG
    !push R16
    !in R16 , sreg
    !push R16
    !push R30
    !push R31

   'Забираем 8 бит АЦП
    !in R16 , adch

   'Суммируем 128 измерений, для последующего усреднения
    !lds R30 ,{Сумма_измерений_ацп_word}
    !lds R31 ,{Сумма_измерений_ацп_word + 1}
    !add R30 , R16
    !ldi R16 , 0
    !adc R31 , R16
    !sts {Сумма_измерений_ацп_word} , R30
    !sts {Сумма_измерений_ацп_word + 1} , R31
    !lds R16 , {Счетчик_измерений_ацп}
    !inc R16       ' Считаем выборку из 128 измерений
    !cpi R16 , 128
    !BRNE Выход_прерывания_ацп

   'Деление на 128 (сдвиг вправо на 7)
    !ldi R16 , 7
   Сдвиг_вправо:
    !lsr R31
    !ror R30
    !dec R16
    !brne Сдвиг_вправо
   'Забираем готовые усреднённые по 128 выборкам, 8 бит данные
    !sts {Фоторезистор} , R30

   'Поднимаем флаг сигнализирующий о готовности результата измерения АЦП
    !ldi R16 , 1
    !sts {Флаг_данные_ацп} , R16

   'Готовимся к следующей выборке измерений
    !ldi R16 , 0
    !sts {Сумма_измерений_ацп_word} , R16
    !sts {Сумма_измерений_ацп_word + 1} , R16

  Выход_прерывания_ацп:
    !sts {Счетчик_измерений_ацп} , R16

   'Восстанавливаем регистры и SREG
    !pop R31
    !pop R30
    !pop R16
    !out sreg , R16
    !pop R16
'-------------------------------------------------------------------------------
  Return
'===============================================================================

'Считаем 4096, 2 байтовых счётчика, так быстрее
   Считаем_256:
    !lds R26 , {Счетчик_256}
    !inc R26
    !sts {Счетчик_256} , R26
   'Если = 256
    !cpi R26 , 0
    !BREQ Считаем_4096
    !rjmp Выход_прерывания

   Считаем_4096:
    !lds R26 , {Счетчик_4096}
    !inc R26
    !sts {Счетчик_4096} , R26
   'Если =16, почему 16 (16 * 256 = 4096)
    !cpi R26 , 16
    !BREQ Реакция_на_совпадение_счетчика
    !rjmp Выход_прерывания

   Реакция_на_совпадение_счетчика:
    '......
    '......
    '......

   Выход_прерывания:
    '......
    '......
    '......

   'Считаем 65536, 2 байтовых счётчика, так быстрее
   Считаем_256:
    !lds R26 , {Счетчик_256}
    !inc R26
    !sts {Счетчик_256} , R26
   'Если =256
    !cpi R26 , 0
    !BREQ Считаем_65536
    !rjmp Выход_прерывания

   Считаем_65536:
    !lds R26 , {Счетчик_65536}
    !inc R26
    !sts {Счетчик_65536} , R26
   'Если = 256, почему 256 (256 * 256 = 65536)
    !cpi R26 , 0
    !BREQ Реакция_на_совпадение_счетчика
    !rjmp Выход_прерывания

   Реакция_на_совпадение_счетчика:
    '......
    '......
    '......

   Выход_прерывания:
    '......
    '......
    '......

Select Case Переменная_byte
      Case 0:
      Case 1:
      Case 2:
      Case 3:
      Case 4:
      Case 5:
  End Select

Аналог на Bascom:

  On Переменная_byte Goto Обработка_0 , Обработка_1 , Обработка_2 , Обработка_3 , Обработка_4 , Обработка_5

  Обработка_0:
   '.....
   '.....
   Goto Выход

  Обработка_1:
   '.....
   '.....
   Goto Выход

  Обработка_2:
   '.....
   '.....
   Goto Выход

  Обработка_3:
   '.....
   '.....
   Goto Выход

  Обработка_4:
   '.....
   '.....
   Goto Выход

  Выход:

Аналог на ASM:

   !lds R16 , {Переменная_byte}

   !cpi R16 , 0
   !BREQ Обработка_0       ' Перейти если равно

   !cpi R16 , 1
   !BREQ Обработка_1       ' Перейти если равно

   !cpi R16 , 2
   !BREQ Обработка_2       ' Перейти если равно

   !cpi R16 , 3
   !BREQ Обработка_3       ' Перейти если равно

   !cpi R16 , 4
   !BREQ Обработка_4       ' Перейти если равно

   !cpi R16 , 5
   !BREQ Обработка_5       ' Перейти если равно

  Обработка_0:
   '.....
   '.....
   !rjmp Выход

  Обработка_1:
   '.....
   '.....
   !rjmp Выход

  Обработка_2:
   '.....
   '.....
   !rjmp Выход

  Обработка_3:
   '.....
   '.....
   !rjmp Выход

  Обработка_4:
   '.....
   '.....
   !rjmp Выход

  Выход:

$map       ' Получаем карту распределения памяти компилятором Bascom
  $regfile = "m328pdef.dat"     
  $crystal = 1000000
  $framesize = 128       ' Размер области используемой и необходимой для преобразований
  $hwstack = 128       ' Размер аппаратного стека
  $swstack = 128       ' Размер программного стека

  Dim Переход As Byte

Do

    Incr Переход

    If Переход > 7 Then Переход = 0

   
   '11 тактов МК
    !lds R26 , {Переход}
    !clr R27
    !ldi R30 , low(s_0)
    !ldi R31 , high(s_0)
    !add R30 , R26
    !adc R31 , R27
    !ijmp   'Для МК < 128 kb
    !eijmp   'Для МК => 128 kb

    S_0:
        !rjmp Save_0
    S_1:
        !rjmp Save_1
    S_2:
        !rjmp Save_2
    S_3:
        !rjmp Save_3
    S_4:
        !rjmp Save_4
    S_5:
        !rjmp Save_5
    S_6:
        !rjmp Save_6
    S_7:
        !rjmp Save_7

    Save_0:
     'Делаем, что надо
     !rjmp Save_end

    Save_1:
    'Делаем, что надо
     !rjmp Save_end

    Save_2:
    'Делаем, что надо
     rjmp Save_end

    Save_3:
    'Делаем, что надо
     rjmp Save_end

    Save_4:
    'Делаем, что надо
     rjmp Save_end

    Save_5:
    'Делаем, что надо
     !rjmp Save_end

    Save_6:
    'Делаем, что надо
     !rjmp Save_end

    Save_7:
    'Делаем, что надо
     rjmp Save_end

    Save_end:

  Loop
End

'===============================================================================
  Interrupt_compare0a:
'-------------------------------------------------------------------------------
'Время выполнения 149 тактов (romsize < 128 kb), с заходом и выходом из прерывания
'Время выполнения 160 тактов (romsize = 128 kb), с заходом и выходом из прерывания
'Время выполнения 163 такта  (romsize = 256 kb), с заходом и выходом из прерывания
'     If Count_ms > 0 Then
'         Decr Count_ms
'     End If

'Время выполнения 46 тактов (romsize < 128 kb), с заходом и выходом из прерывания
'Время выполнения 55 тактов (romsize = 128 kb), с заходом и выходом из прерывания
'Время выполнения 56 такта  (romsize = 256 kb), с заходом и выходом из прерывания

    !Push R16
    !In R16 , Sreg
    !Push R16

    #if _romsize > 65535
        !in R16 , RAMPZ
        !Push R16
        !clr R16
        !out RAMPZ , R16
    #endif

    !push R30
    !push R31

    !clr R17
    !lds R30 , {Count_ms}
    !lds R31 , {Count_ms + 1}

    !cpi R31 , 0
    !cpc R30 , R16
    !brcs Exit_interrupt_compare0a
    !breq Exit_interrupt_compare0a
    !rjmp Decr_count_ms
    !rjmp Exit_interrupt_compare0a

   Decr_count_ms:
    !SBIW R30 , 1

   Save_count_ms:
    !sts {Count_ms} , R30
    !sts {Count_ms + 1} , R31

   Exit_interrupt_compare0a:
    !pop R31
    !pop R30

    #if _romsize > 65535
        !pop R16
        !out RAMPZ  , R16
    #endif

    !pop R16
    !Out Sreg , R16
    !Pop R16

    !reti
'-------------------------------------------------------------------------------
  Return
'===============================================================================

Dim A As Integer : A = -32767
  Dim B As Integer : B = 32767
  Dim Results As Long

Do

  Gosub 16_muls_16_32

Loop
End

'=====================================
  16_muls_16_32:       '509 тактов
'-------------------------------------
    !lds R16 , {A}
    !lds R17 , {A + 1}

    !bst R17 , 7       'Проверка на "-"
    !brtc 16_muls_16_32_1       'BRTC k Перейти если флаг T очищен

    !ldi R18 , 255       '$ff
    !ldi R19 , 255       '$ff
    !rjmp 16_muls_16_32_2

   16_muls_16_32_1:
    !clr R18
    !clr R19

   16_muls_16_32_2:
    !lds R20 , {B}
    !lds R21 , {B + 1}

    !bst R21 , 7       'Проверка на "-"
    !brtc 16_muls_16_32_4

   16_muls_16_32_3:
    !ldi R22 , 255       '$ff
    !ldi R23 , 255       '$ff
    !rjmp 16_muls_16_32_5

   16_muls_16_32_4:
    !clr R22
    !clr R23

   16_muls_16_32_5:
    !rcall 16_muls_16_32_6

    !sts {Results} , R16
    !sts {Results + 1} , R17
    !sts {Results + 2} , R18
    !sts {Results + 3} , R19

   !ret
'=====================================
   16_muls_16_32_6:
    !rcall 16_muls_16_32_12
    !rcall 16_muls_16_32_8
    !sbrc  R0 , 0       '$00
    !rcall 16_muls_16_32_7
   !ret

   16_muls_16_32_7:
    !rcall 16_muls_16_32_14
    !rcall 16_muls_16_32_16
   !ret

   16_muls_16_32_8:
    !mov R24 , R20
    !mov R25 , R21
    !mov R26 , R22
    !mov R27 , R23

    !clr R20
    !clr R21
    !clr R22
    !clr R23

    !ldi R31 , 33       '$21
    !clc
    !rjmp 16_muls_16_32_11

   16_muls_16_32_9:
    !brcc 16_muls_16_32_10

    !add R20 , R24
    !adc R21 , R25
    !adc R22 , R26
    !adc R23 , R27

   16_muls_16_32_10:
    !lsr R23
    !ror R22
    !ror R21
    !ror R20
    !ror R19
    !ror R18
    !ror R17
    !ror R16

    !dec R31
    !brne 16_muls_16_32_9

   !ret

   16_muls_16_32_11:
    !ror R19
    !ror R18
    !ror R17
    !ror R16

    !dec R31
    !brne 16_muls_16_32_9
   !ret

   16_muls_16_32_12:
    !clr R0
    !clt
    !sbrs R23 , 7       '$07
    !rjmp 16_muls_16_32_13
    !rcall 16_muls_16_32_14
    !set

   16_muls_16_32_13:
    !bld R0 , 0
    !rcall 16_muls_16_32_15
    !bld R1 , 0
    !eor R0 , R1
   !ret

   16_muls_16_32_14:
    !rcall 16_muls_16_32_17
    !subi R20 , 255       '$ff
    !sbci R21 , 255       '$ff
    !sbci R22 , 255       '$ff
    !sbci R23 , 255       '$ff
   !ret

   16_muls_16_32_15:
    !clt
    !sbrs R19 , 7       '$07
   !ret

   16_muls_16_32_16:
    !com R16
    !com R17
    !com R18
    !com R19
    !subi R16 , 255       '$ff
    !sbci R17 , 255       '$ff
    !sbci R18 , 255       '$ff
    !sbci R19 , 255       '$ff
    !set
   !ret

   16_muls_16_32_17:
    !com R20
    !com R21
    !com R22
    !com R23
   !ret
'==========================================================