'===============================================================================

  Const Const_коэффициент_перещета_1_1v = 1100

'===============================================================================

  $regfile = "attiny84.dat"       'Документация на МК http://ww1.microchip.com/downloads/en/D … oc8183.pdf
  $crystal = 8000000
  $framesize = 64
  $hwstack = 64
  $swstack = 64

'-------------------------  Настройка Watchdog  --------------------------------
  On Wdt Обработка_прерывания_watchdog                      'Nosave               ' Переход на подпрограмму обработки прерывания после переполнения таймера-счётчика Watchdog
  Config Watchdog = 1024                                    'время срабатывания ~1сек., при соответствии $crystal и фьюзов МК      ' 16   32   64   128   256   512   1024   2048   4096   8192
'===============================================================================
Config Porta.1 = Output
Pitanie Alias Porta.1
Pitanie = 1
'===============================================================================
Config Porta.2 = Output
Data_ Alias Porta.2
Data_ = 0
'===============================================================================
Dim Sendata(4) As Word                                     'весь блок подлежащий передаче
Dim Sch As Byte
Dim Secunda As Word
Dim L As Word At Sendata(3) Overlay                        '4 байт
'=========Переменные передачи======================================================================
Dim N As Byte : N = 16
Dim Байты As Byte
Dim Номер As Word At Sendata(1) Overlay : Номер = 15       '0 байт
Dim Crc As Word At Sendata(4) Overlay                      '5 байт
Dim Preambula As Byte
Dim Nomer_bita As Byte
Dim Odin As Word : Odin = 1500
Dim Nol As Word : Nol = 500
Dim Pausa As Word : Pausa = 500
'========Переменные 1 датчика 18В20====================================================================================================
Dim Tds1 As Integer At Sendata(2) Overlay                  '1 байт     температура получаемая с 1 датчика в 0.1градуса. 10 = 1,0 градус
Dim Err_c1 As Bit

'===============================================================================
'                 Н А С Т Р О Й К А     программного USART
'===============================================================================

  Config Portb.0 = Output
  Open "comb.0:4800,8,n,1" For Output As #1       ' TXD на Portb.0

'===============================================================================
'                      Н А С Т Р О Й К А     АЦП
'===============================================================================

  Const Channel_temperature = &B_0010_0010
  Const Channel_v_bg = &B_0010_0001
  Const Channel_gnd_0v = &B_0010_0000

'&B_0000_0000
'     || |
'     || |
'     || +------- Bit 3 – SM0: Sleep Mode Select Bit 3
'     |+--------- Bit 4 – SM1: Sleep Mode Select Bit 4
'     +---------- Bit 5 – SE: Sleep Enable

  Const Значение_idle = &B_0010_0000
  Const Значение_adcnoise = &B_0010_1000
  Const Значение_powerdown = &B_0011_0000
  Const Значение_powerstandby = &B_0011_1000

  Config Adc = Single , Prescaler = 128 , Reference = Avcc

  Start Adc

  On Adc Обработка_прерывания_ацп Nosave

'Формула расчёта: 1024 * 0,99...1,21 = 1013,76...1239,04

  Dim Флаг_критический_разряд As Byte

  Dim Temp_ацп_avcc_word As Word : Temp_ацп_avcc_word = 0
  Dim Данные_ацп_avcc_word As Word : Данные_ацп_avcc_word = 0

  Dim Vcc_word As Word
  Dim Vcc_sin As Single

'--------------  Разрешаем работу необходимых прерываний  ----------------------

  Enable Wdt       ' Разрешаем прерывание от переполнения таймера Watchdog

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

'===============================================================================

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

  If Secunda = 300 Then
    Pitanie = 0

'  Adcsra.aden = 1                                           'Включаем АЦП
'    Waitms 100
'    L = Getadc(0)                                           'считываем канал АЦП и записываем в переменную
'    L = L / 2
'    L = L - 14

     Gosub Измерение_avcc

     Print #1 , Vcc_word

    Gosub 18b20

   Crc = Tds1 + Номер
   Crc = Crc + L

   For Sch = 0 To 2
      Waitms 100

    For Preambula = 1 To N
      Data_ = 1
      Waitus Odin
      Data_ = 0
      Waitus Odin
    Next Preambula

      Data_ = 1
      Waitms 4
      Data_ = 0

      Gosub Peredacha_bytov
      N = 8
   Next Sch
     N = 16
     Waitms 50
   Adcsra.aden = 0
     Pitanie = 1
     Waitms 10
     Secunda = 0
   End If

'===============================================================================
   Powerdown
  Goto Главный_цикл
End
'===============================================================================

'===============================================================================
  Измерение_avcc:
'-------------------------------------------------------------------------------
    Enable Adc
    Adcsra.aden = 1       'Включаем АЦП
    Waitms 250       'Ждём, пока запустится источник внутреннего опорного напряжения 1.1V, от частоты МК не зависит

    Admux = Channel_gnd_0v       'Готовимся разряжать внутреннюю ёмкость МК
    Waitus 70       'Ждём, пока разрядится ёмкость, рекомендовано Atmel  стр.9., п.п.3.4 Band gap measurement (http://www.atmel.com/images/doc8444.pdf)

    !ldi R16 , Значение_adcnoise       'Выставляем, как будем спать
    !sts MCUCR , R16       'Пишем в региср
    !sleep       'Отправляемся спать

    !nop

    Admux = Channel_v_bg       'Готовимся измерять Avcc (VBG) стр.145   http://ww1.microchip.com/downloads/en/D … oc8183.pdf

    Waitus 70       'Время ожидания заряда ёмкости, рекомендовано Atmel  стр.9., п.п.3.4 Band gap measurement (http://www.atmel.com/images/doc8444.pdf)

    !ldi R16 , Значение_adcnoise       'Выставляем, как будем спать
    !sts MCUCR , R16       'Пишем в региср
    !sleep       'Отправляемся спать

    !nop
    Disable Adc
   'Выключаем АЦП, слишком много потребляет   'Bit 7 – ADEN: ADC Enable / Disable
    Adcsra.aden = 0
   'Выключаем компаратор    Bit 7 – ACD: Analog Comparator Disable
    Acsr.acd = 0

    Vcc_sin = Const_коэффициент_перещета_1_1v / Данные_ацп_avcc_word
    Vcc_word = Vcc_sin * 100

'-------------------------------------------------------------------------------
  Return
'===============================================================================

'===============================================================================
  Обработка_прерывания_ацп:
'-------------------------------------------------------------------------------
    !push R16

    !lds R16 , adcl
    !sts {Данные_ацп_avcc_word} , R16

    !lds R16 , adch
    !sts {Данные_ацп_avcc_word + 1} , R16

    !pop R16
    !reti
'-------------------------------------------------------------------------------
  Return
'===============================================================================

'===============================================================================
  Обработка_прерывания_watchdog:
      Incr Secunda
  Return
'===============================================================================
'======Обработка датчика температуры DS18B20====================================
18b20:
   1wreset Pina , 3
   If Err = 1 Then
         Err_c1 = 1                                         'ставим флаг ошибки датчика
         Tds1 = 32767                                       'если при опросе небыло ответа ставим флаг ошибки
      Else
         Err_c1 = 0
         1wwrite &HCC , 1 , Pina , 3                        'пропуск ROM(для всех)
         1wwrite &H44 , 1 , Pina , 3                        'конвертировать температуру(для всех)
   End If

     Waitms 750
                                                            'если небыло ошибки при начале конвертирования
   If Err_c1 = 0 Then
      1wreset Pina , 3
      If Err = 1 Then
            Tds1 = 32767                                    'если при опросе небыло ответа ставим флаг ошибки
          Else                                              'иначе, если ошибки не было, продолжаем опрос датчика
            1wwrite &HCC , 1 , Pina , 3
            1wwrite &HBE , 1 , Pina , 3
            Tds1 = 1wread(2 , Pina , 3)
            Tds1 = Tds1 * 10
            Tds1 = Tds1 \ 16
      End If
   End If
Return
'------------------------------------------------------------------------------------------
Peredacha_bytov:

       Waitus Pausa
       Waitus Pausa
    For Байты = 1 To 4
          For Nomer_bita = 15 To 0 Step - 1                 'Старшим битом вперед
             If Sendata(байты).nomer_bita = 1 Then
                Data_ = 1                                   'Передний фронт импульса передачи
                Waitus Odin                                 'Длительность 1 1500мкС
                Data_ = 0                                   'Задний фронт импульса передачи
                Waitus Pausa                                'Пауза 500мкС. Общая длительность передачи 1 (1500+500=2000мкС)
              Else
                Data_ = 1
                Waitus Nol                                  'Длительность 0 500мкС
                Data_ = 0
                Waitus Pausa                                'Общая длительность передачи 0 (500+500=1000мкС)
            End If
          Next Nomer_bita
    Next Байты
                Data_ = 1                                   'Передний фронт для измерения последнего бита
                Waitus Nol                                  '------
                Data_ = 0                                   '------
Return