$regfile = "attiny84.dat"
$crystal = 8000000
$hwstack = 160
$swstack = 160
$framesize = 64
'-------------------------  Настройка Watchdog  --------------------------------
  On Wdt Обработка_прерывания_watchdog                      ' Nosave       ' Переход на подпрограмму обработки прерывания после переполнения таймера-счётчика Watchdog
  Config Watchdog = 1024                                    'время срабатывания ~1сек., при соответствии $crystal и фьюзов МК      ' 16   32   64   128   256   512   1024   2048   4096   8192

'=======Подключаем DHT22===============================================================================
Config Pina.2 = Input
Dht_get1 Alias Pina.2
'===============================================================================
Config Porta.1 = Output
Pitanie Alias Porta.1
'===============================================================================
 Dim Sch As Byte
 Dim Secunda As Word
 Dim Sinhr As Byte : Sinhr = &B10101010
 Dim Albyte As String * 18
 Dim Id As String * 4 : Id = "1550"
 Dim L As Word
 Dim L_str As String * 3
'========Переменные 1 датчика 18В20====================================================================================================
 Dim Tds1 As Integer                                        'температура получаемая с 1 датчика в 0.1градуса. 10 = 1,0 градус
 Dim Tds1_str As String * 4
 Dim Err_c1 As Bit
'======переменные для работы датчиков DHT22=========================================================================
Const Min_time = 3
Dim Count As Byte
Dim D As Byte
Dim Hb(5) As Byte                                           '$337 Overlay                           '$11d Overlay
Dim Kod As Dword At Hb + 1 Overlay                          '$338                                    '$11e
Dim Hu(2) As Word At Kod Overlay
Dim Chs As Byte

Dim Tdht1 As Integer                                        'переменная для хранения температуры С.1
Dim Hdht1 As Integer                                        'переменная для хранения влажности   С.1
Dim Tdht1_str As String * 5                                 'дисплейные
Dim Hdht1_str As String * 4

Declare Sub Dht22
Declare Sub Read_timings1
'========конфигурируем АЦП===========================================================
  Config Adc = Single , Prescaler = Auto , Reference = Internal
'===============================================================================
  Enable Wdt                                                ' Разрешаем прерывание от переполнения таймера Watchdog
  Enable Interrupts
'===============================================================================
 Главный_цикл:

  If Secunda = 300 Then
    Pitanie = 0
  Adcsra.aden = 1                                           'Включаем АЦП
  Open "coma.3:2400,8,n,1" For Output As #1
    Waitms 100
    L = Getadc(0)                                           'считываем третий канал АЦП и записываем в переменную
'    L = L - 1
    L_str = Str(l)
    L_str = Format(l_str , "000")
    Gosub 18b20
    Gosub Dht22
   Albyte = Id + Tds1_str + Tdht1_str + Hdht1_str + L_str

   For Sch = 0 To 3
      Waitms 50
      Printbin #1 , Sinhr
      Print #1 , Albyte
   Next Sch
     Waitms 50
   Config Porta.3 = Output : Porta.3 = 0                    'Перевод порта для понижения энергопотребления
   Adcsra.aden = 0
     Pitanie = 1
     Waitms 10
     Secunda = 0
   End If

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

     Waitms 750
                                                            'если небыло ошибки при начале конвертирования
   If Err_c1 = 0 Then
      1wreset Pina , 5
      If Err = 1 Then
            Tds1 = 32767                                    'если при опросе небыло ответа ставим флаг ошибки
          Else                                              'иначе, если ошибки не было, продолжаем опрос датчика
            1wwrite &HCC , 1 , Pina , 5
            1wwrite &HBE , 1 , Pina , 5
            Tds1 = 1wread(2 , Pina , 5)
            Tds1 = Tds1 * 10
            Tds1 = Tds1 \ 16
      End If
       Tds1_str = Str(tds1)
       Tds1_str = Format(tds1_str , "+000")
      Else
       Tds1 = 32767
       Tds1_str = "8888"
   End If
 Return
'===============================================================================
Sub Dht22:
   Gosub Read_timings1                                      'DHT22 Порт C1
   Chs = Hb(2) + Hb(3)                                      'считаем контрольную сумму
   Chs = Chs + Hb(4)
   Chs = Chs + Hb(5)
     If Chs = Hb(1) And Chs > 0 Then                        'определяем знак температуры
'     If Chs = Hb(1) Then                                    'определяем знак температуры
      Tdht1 = Hu(1)
      Hdht1 = Hu(2)
      If Hu(1).15 = 1 Then
            Tdht1 = 32768 + Tdht1
            Tdht1 = 0 - Tdht1
      End If
      Tdht1_str = Str(tdht1)
      Tdht1_str = Format(tdht1_str , "+000")
      Hdht1_str = Str(hdht1)
      Hdht1_str = Format(hdht1_str , "000")
   Else
      Tdht1 = 32767
      Tdht1_str = "8888"
      Hdht1_str = "888"
   End If
End Sub

Sub Read_timings1:                                          'опрос DHT22 порт C1
   Local Y As Byte
   Count = 1
   Kod = 0
   Hb(1) = 0
   Config Porta.2 = Output : Porta.2 = 0                    ' request data
   Waitms 20                                                ' wait 20 ms
   Config Pina.2 = Input                                    ' wait for data, receive data
   Waitus 40
'    Waitus 30
   If Dht_get1 = 0 Then
      Bitwait Pina.2 , Reset
     While Count < 42                                       '
        Y = Count - 1                                       '
        Y = 40 - Y
         Pulsein D , Pina , 2 , 1
         If D > Min_time Then Toggle Hb(1).y
         Incr Count
      Wend
   End If
   Waitms 50
End Sub

$regfile = "Attiny25.dat"
$crystal = 8000000
'===============================================================================
Open "comb.0:2400,8,n,1" For Input As #1
Open "comb.1:9600,8,n,1" For Output As #2
'===============================================================================
'Config Serialin = Buffered , Size = 60
Led Alias Portb.2 : Config Led = Output
'===============================================================================
'===============================================================================
 Dim Sinhr As Byte
 Dim Dat_in As String * 18
 Dim Id As String * 4
 Dim Temper As String * 4
'===============================================================================

'*******************************************************************************
Do
  Waitms 75

   Strt:
    Gosub Kodin
     Id = Left(dat_in , 4)
  If Id = "1550" Then
     Temper = Mid(dat_in , 5 , 14)
     Print #2 , Temper
   Led = 1
     Waitms 10
   Else
     Waitms 10
     Dat_in = ""
    Goto Strt
  End If
  Led = 0
  Loop
End
'===============================================================================
Kodin:
   Inputbin #1 , Sinhr
   Input #1 , Dat_in Noecho
Return
'=============================================================================