'###############################################################################

'Для корректного отображения в компиляторе Bascom, используйте шрифт Consolas!

'###############################################################################

  $regfile = "attiny13a.dat"       ' Используемый контроллер
  $crystal = 9600000       ' 9,6 МГц при CKDIV8 = 0 (смотреть скрин фьюзов)
'  $crystal = 1200000       ' 1,2 МГц при CKDIV8 = 1 (смотреть скрин фьюзов)
  $framesize = 16   'размер области используемой и необходимой для преобразований
  $hwstack = 10     ' Размер аппаратного стека
  $swstack = 10     ' Размер программного стека

' Настройка USART с выходом TxD на выводе Portb.4 (3 ножка МК) и программной реализацией,
' скорость трансляции 9600 бод, при частоте МК 9,6 МГц, фьюз CKDIV8 = 0

  Open "comb.4:9600,8,n,1" For Output As #1
  Print #1 , "Reset МК"

'-------------------------  Настройка Watchdog  --------------------------------
  On Wdt Обработка_прерывания_watchdog       ' Nosave       ' Переход на подпрограмму обработки прерывания после переполнения таймера-счётчика Watchdog
  Config Watchdog = 1024       'время срабатывания ~1сек., при соответствии $crystal и фьюзов МК      ' 16   32   64   128   256   512   1024   2048   4096   8192
'---------------------  Используемые переменные  -------------------------------
  Dim Переменная As Byte
  Dim Флаг_сработал_watchdog As Byte
'--------------  Разрешаем работу необходимых прерываний  ----------------------
  Enable Wdt        ' Разрешаем прерывание от переполнения таймера Watchdog
'------------  Разрешаем работу всех включенных прерываний  --------------------
  Enable Interrupts ' Глобально разрешаем все взадействованные прерывания
'===============================================================================
'                   Г Л А В Н Ы Й         Ц И К Л
'===============================================================================
  Главный_цикл:

    If Флаг_сработал_watchdog <> 0 Then
        Print #1 , Переменная
        Флаг_сработал_watchdog = 0
        Goto Главный_цикл
    End If

   Powerdown
  Goto Главный_цикл
End
'===============================================================================
'                        П О Д П Р О Г Р А М М Ы
'===============================================================================

'===============================================================================
  Обработка_прерывания_watchdog:
'-------------------------------------------------------------------------------
      Incr Переменная
      Флаг_сработал_watchdog = 1

      Print #1 , "Прерывание от Watchdog " ;
'-------------------------------------------------------------------------------
  Return
'===============================================================================