$regfile = "m328pdef.dat"
$crystal = 16000000                                         'для уменьшения энергопотребления
$hwstack = 160
$swstack = 160
$framesize = 64

'==========================================================================================================
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 8

Config Timer0 = Timer , Prescale = 8                        '
On Timer0 Pila                                              ' обзываем прерывание
'**********************************************************************************************************
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output


'-------  Для генератора 3-х фазной синусоиды, фазы смещены на 120°  -----------

  Dim 1_фаза As Byte
  Dim Цикл_значение_синуса As Word
  Dim Значение_синуса(252) As Byte
  Dim Флаг_позитив_негатив As Byte
'------------------  Запуск и предварительные настройки  -----------------------
'------  Закидываем значения выводимой синусоиды из таблицы в оперативку  ------

  For Цикл_значение_синуса = 1 To 252
      Значение_синуса(цикл_значение_синуса) = Lookup(цикл_значение_синуса , Таблица_синуса_252)
  Next Цикл_значение_синуса
'==========================================================================================================
Dim K As Bit
Dim T As Bit                                                'Формирование треугольника фазы
Dim U As Byte                                               'Пила фазы
Dim Sinu As Single                                          'Формирование Sin фазы
Dim Uout As Byte                                            'Управление ШИМ фазы формы Sin

 Const S = 0.00616                                          'Константа (Пи/2)/255
Dim Hz As Word : Hz = 200
'==========================================================================================================
Enable Interrupts                                           ' разрешаем все прерывания
Enable Timer0
'**********************************************************************************************************
Do

 Loop
End
'==========================================================================================================
 Pila:
    Incr U

    If U > 126 Then
        Флаг_позитив_негатив = 0
      Else
        Флаг_позитив_негатив = 1
    End If

    If U > 252 Then
'        Значение_синуса(U) = 1
        U = 1
    End If

    If Флаг_позитив_негатив = 0 Then
        Ocr1a = Значение_синуса(U)
        Ocr1b = 0
      Else
        Ocr1a = 0
        Ocr1b = Значение_синуса(U)
    End If

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


'===============================================================================
  Таблица_синуса_252:                                       ' 252 значения синусоиды
'-------------------------------------------------------------------------------
    Data &H7E , &H82 , &H85 , &H88 , &H8B , &H8E , &H91 , &H94 , &H97 , &H9B
    Data &H9E , &HA1 , &HA4 , &HA7 , &HAA , &HAD , &HAF , &HB2 , &HB5 , &HB8
    Data &HBB , &HBD , &HC0 , &HC3 , &HC5 , &HC8 , &HCB , &HCD , &HCF , &HD2
    Data &HD4 , &HD6 , &HD9 , &HDB , &HDD , &HDF , &HE1 , &HE3 , &HE5 , &HE7
    Data &HE8 , &HEA , &HEC , &HED , &HEF , &HF0 , &HF1 , &HF3 , &HF4 , &HF5
    Data &HF6 , &HF7 , &HF8 , &HF9 , &HF9 , &HFA , &HFB , &HFB , &HFC , &HFC
    Data &HFC , &HFC , &HFC , &HFC , &HFC , &HFC , &HFC , &HFC , &HFC , &HFB
    Data &HFB , &HFA , &HF9 , &HF9 , &HF8 , &HF7 , &HF6 , &HF5 , &HF4 , &HF3
    Data &HF1 , &HF0 , &HEF , &HED , &HEC , &HEA , &HE8 , &HE7 , &HE5 , &HE3
    Data &HE1 , &HDF , &HDD , &HDB , &HD9 , &HD6 , &HD4 , &HD2 , &HCF , &HCD
    Data &HCB , &HC8 , &HC5 , &HC3 , &HC0 , &HBD , &HBB , &HB8 , &HB5 , &HB2
    Data &HAF , &HAD , &HAA , &HA7 , &HA4 , &HA1 , &H9E , &H9B , &H97 , &H94
    Data &H91 , &H8E , &H8B , &H88 , &H85 , &H82 , &H7E , &H7B , &H78 , &H75
    Data &H72 , &H6F , &H6C , &H69 , &H66 , &H62 , &H5F , &H5C , &H59 , &H56
    Data &H53 , &H50 , &H4E , &H4B , &H48 , &H45 , &H42 , &H40 , &H3D , &H3A
    Data &H38 , &H35 , &H32 , &H30 , &H2E , &H2B , &H29 , &H27 , &H24 , &H22
    Data &H20 , &H1E , &H1C , &H1A , &H18 , &H16 , &H15 , &H13 , &H11 , &H10
    Data &H0E , &H0D , &H0C , &H0A , &H09 , &H08 , &H07 , &H06 , &H05 , &H04
    Data &H04 , &H03 , &H02 , &H02 , &H01 , &H01 , &H01 , &H01 , &H01 , &H00
    Data &H01 , &H01 , &H01 , &H01 , &H01 , &H02 , &H02 , &H03 , &H04 , &H04
    Data &H05 , &H06 , &H07 , &H08 , &H09 , &H0A , &H0C , &H0D , &H0E , &H10
    Data &H11 , &H13 , &H15 , &H16 , &H18 , &H1A , &H1C , &H1E , &H20 , &H22
    Data &H24 , &H27 , &H29 , &H2B , &H2E , &H30 , &H32 , &H35 , &H38 , &H3A
    Data &H3D , &H3F , &H42 , &H45 , &H48 , &H4B , &H4E , &H50 , &H53 , &H56
    Data &H59 , &H5C , &H5F , &H62 , &H66 , &H69 , &H6C , &H6F , &H72 , &H75
    Data &H78 , &H7B , &H7E
'===============================================================================