Config PinD.2 = Input
Config Timer2 = Timer , Prescale = 1024
Stop Timer2
Enable Interrupts
Enable Timer2
начинаем цикл
    If PinD.2 = 1 Then
      Bitwait PinD.2 , Set                                   'signal goes high > start timer
      Start Timer2
      Bitwait PinD.2 , Reset                               'signal goes low  > stop timer
      Stop Timer2
      B = Tcnt2                             'store number of ticks per signal in Signaltime byte
      Tcnt2 = 0
    End If
    If B > 200 And B < 360 Then
     Gosub Kodin
     B = 0
    End If
   Здесь контроль выполнения черезь терминал
 '=======================================================================
 Kodin:
   Inputbin Sinhr
   Input Temp_in Noecho
 Return
'========================================================================

  $regfile = "attiny2313a.dat"       ' Используемый контроллер
  $crystal = 8000000       ' 9,6 МГц при CKDIV8 = 0 (смотреть скрин фьюзов)
'  $baud = 4800
'-------------------------  Настройка Watchdog  --------------------------------
  On Wdt Обработка_прерывания_watchdog       ' Nosave       ' Переход на подпрограмму обработки прерывания после переполнения таймера-счётчика Watchdog
  Config Watchdog = 1024     'время срабатывания ~1сек., при соответствии $crystal и фьюзов МК      ' 16   32   64   128   256   512   1024   2048   4096   8192

  Config PORTD.5 = output
  Z alias PORTD.5
  Z = 0
'---------------------  Используемые переменные  -------------------------------
 Dim taim As Byte
 Dim Sinhr As Byte : Sinhr = &B11111111
 Dim Albyte As String * 8
 Dim Sch As Byte
 Dim Id As String * 4 : Id = "1550"
'Переменные 1 датчика 18В20
'============================================================================================================
 Dim Tds1 As Integer                                         'температура получаемая с 1 датчика в 0.1градуса. 10 = 1,0 градус
 Dim Tds1_str As String * 4
 Dim Err_c1 As Bit
'--------------  Разрешаем работу необходимых прерываний  ----------------------
  Enable Wdt        ' Разрешаем прерывание от переполнения таймера Watchdog
'------------  Разрешаем работу всех включенных прерываний  --------------------
  Enable Interrupts ' Глобально разрешаем все взадействованные прерывания
'===============================================================================
'                   Г Л А В Н Ы Й         Ц И К Л
'===============================================================================
  Главный_цикл:

    If taim = 5 Then
      Gosub Temper
   Albyte = Id + Tds1_str
   Config PortD.2 = Output : PORTD.2 = 1
     Z = 1
     Waitms 150

   For Sch = 0 To 3
     PORTD.2 = 0
     Waitms 1
     PORTD.2 = 1
     Waitms 10
     PORTD.2 = 0
    Open "comd.2:4800,8,n,1" For Output As #1
      Printbin # 1 , Sinhr
      Print #1 , Albyte
     Config PortD.2 = Output : PORTD.2 = 1
     Waitms 100
   Next Sch

     Waitms 100
      Z = 0
     taim = 0
    Config Portd.2 = Input       'Для сна. Если оставить выходом, жрать будет
    End If

   Powerdown
  Goto Главный_цикл
 End
'===============================================================================
'                        П О Д П Р О Г Р А М М Ы
'===============================================================================
  Обработка_прерывания_watchdog:
      Incr taim
  Return
'===============================================================================
'Обработка датчика температуры DS18B20
'====================================================================================================
Temper:
    1wreset PinB , 2
   If Err = 1 Then
         Err_c1 = 1                                         'ставим флаг ошибки датчика
         Tds1 = 32767                                       'если при опросе небыло ответа ставим флаг ошибки
      Else
         Err_c1 = 0
         1wwrite &HCC , 1 , PinB , 2                        'пропуск ROM(для всех)
         1wwrite &H44 , 2 , PinB , 2                        'конвертировать температуру(для всех)
   End If

     Waitms 94
                                                            'если небыло ошибки при начале конвертирования
   If Err_c1 = 0 Then
      1wreset PinB , 2
      If Err = 1 Then
            Tds1 = 32767                                    'если при опросе небыло ответа ставим флаг ошибки
          Else                                              'иначе, если ошибки не было, продолжаем опрос датчика
            1wwrite &HCC , 1 , PinB , 2
            1wwrite &HBE , 1 , PinB , 2
            Tds1 = 1wread(2 , PinB , 2)
            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
'===============================================================================

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

  Config PORTb.1 = output
  Z alias PORTb.1
  Z = 1
'---------------------  Используемые переменные  -------------------------------
 Dim taim As Word
 Dim Sinhr As Byte : Sinhr = &B10101010
 Dim Albyte As String * 16
 Dim Sch As Byte
 Dim Id As String * 4 : Id = "1550"
'Переменные 1 датчика 18В20
'============================================================================================================
 Dim Tds1 As Integer                                         'температура получаемая с 1 датчика в 0.1градуса. 10 = 1,0 градус
 Dim Tds1_str As String * 4
 Dim Err_c1 As Bit
'--------------  Разрешаем работу необходимых прерываний  ----------------------
  Enable Wdt        ' Разрешаем прерывание от переполнения таймера Watchdog
'------------  Разрешаем работу всех включенных прерываний  --------------------
  Enable Interrupts ' Глобально разрешаем все взадействованные прерывания
'===============================================================================
'                   Г Л А В Н Ы Й         Ц И К Л
'===============================================================================
 Главный_цикл:

   If taim = 300 Then
      Z = 0
   Open "comd.0:2400,8,n,1" For Output As #1
      Waitms 100
      Gosub Temper
   Albyte = Id + Tds1_str

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

   Powerdown
  Goto Главный_цикл
 End
'===============================================================================
'                        П О Д П Р О Г Р А М М Ы
'===============================================================================
  Обработка_прерывания_watchdog:
      Incr taim
  Return
'===============================================================================
'Обработка датчика температуры DS18B20
'====================================================================================================
Temper:
   1wreset Pinb , 2
   If Err = 1 Then
         Err_c1 = 1                                         'ставим флаг ошибки датчика
         Tds1 = 32767                                       'если при опросе небыло ответа ставим флаг ошибки
      Else
         Err_c1 = 0
         1wwrite &HCC , 1 , Pinb , 2                        'пропуск ROM(для всех)
         1wwrite &H44 , 1 , Pinb , 2                        'конвертировать температуру(для всех)
   End If

     Waitms 750
                                                            'если небыло ошибки при начале конвертирования
   If Err_c1 = 0 Then
      1wreset Pinb , 2
      If Err = 1 Then
            Tds1 = 32767                                    'если при опросе небыло ответа ставим флаг ошибки
          Else                                              'иначе, если ошибки не было, продолжаем опрос датчика
            1wwrite &HCC , 1 , Pinb , 2
            1wwrite &HBE , 1 , Pinb , 2
            Tds1 = 1wread(2 , Pinb , 2)
            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
'===============================================================================

$regfile = "Attiny13a.dat"
$crystal = 9600000
'===============================================================================
Open "comb.0:2400,8,n,1" For Input As #1
Open "comb.4:4800,8,n,1" For Output As #2
'===============================================================================
'Led Alias PortB.1 : Config Led = Output
'===============================================================================
'===============================================================================
 Dim Sinhr As Byte
 Dim Albt As String * 8
 Dim Dat_in As String * 8
 Dim Id As String * 4
 Dim Temper As String * 4
'===============================================================================

'*******************************************************************************
Do
  Waitms 100
   Strt:
    Gosub Kodin
     Albt = Dat_in
     Id = Left(Albt , 4)
  If Id = "1550" Then
     Temper = Mid(Albt , 5 , 4)
     Print #2 , Temper
     Waitms 35
   Else
     Waitms 35
     Dat_in = ""
    Goto Strt
  End If

  Loop
End
'===============================================================================
Kodin:
   Inputbin #1 , Sinhr
   Input #1 , Dat_in Noecho
Return
'=============================================================================

'=====Включаем прерывание по USART==========================================================================
'===============================================================================
  On URXC Reads
   Enable URXC
  Dim Прием_USART As String * 6
  Dim Id As String * 2
'-----------------------------------------------------------------------------
'======Если пришло по USART==============================================================
Reads:
 $timeout = 4000                                         'ждем
 Input Прием_USART Noecho
 Id = Left(Прием_USART , 1)
 If Id = "-" Or Id = "+" Then Tds2_str = Прием_USART
Return