$regfile = "M128def.dat"                                    'выбираем тип кристалла
$crystal = 16000000                                         'частота процессора
$baud = 9600                                                'частота обмена с модулем
$hwstack = 128                                              'размер железного стека
$swstack = 128                                              'размер программного стека
$framesize = 128                                            'количество страниц

'-------------------------------------------------------------------------------

Config Adc = Single , Prescaler = Auto , Reference = Internal       'конфигурация АЦП выбираем скорость преобразования
Start Adc
'-------------------------------------------------------------------------------

'Переменные для работы с картой и со звуком-------------------------------------
Dim Btemp1 As Byte                                          'переменная для выбора раздела
'Подключаем файл конфигурации  и библиотеку AVR-DOS
$include "Config_MMC.bas"
$include "Config_AVR-DOS.BAS"
'===============================================================================
Dim Bb As Byte
Dim Curbyte1 As Integer                                     'текущий байт в функции воспроизведения первого буфера
Curbyte1 = 0
Dim Curbyte2 As Integer                                     'текущий байт в функции воспроизведения 2 буфера
Curbyte2 = 0
Dim Buff1_bit As Bit                                        'говорит пуст ли первый буфер 0-пуст 1 - заполнен
Buff1_bit = 0
Dim Buff2_bit As Bit                                        'говорит пуст ли 2 буфер 0-пуст 1 - заполнен
Buff2_bit = 0
Dim Play1_bit As Bit                                        'говорит играется ли первый буфер 0-нет 1 - играется
Play1_bit = 0
Dim Play2_bit As Bit                                        'говорит играется ли 2 буфер 0-нет 1 - играется
Play2_bit = 0
Dim Mmc_data1(512) As Byte                                  '512 байт буфера воспроизведения
Dim Mmc_data2(512) As Byte                                  '512 байт буфера воспроизведения
Dim Files As Byte                                           'общее количество файлов на карте
Dim S As String * 15                                        'строка на 15 символов
S = ""
Dim Index As Integer                                        'текущий номер файла
Dim File As String * 15                                     'строка хранения имени файла
File = ""
Dim File_name As String * 15                                'имя проигрываемого файла
File_name = ""
Dim I As Integer                                            'переменные - счётчики
Dim J As Long
Dim Parolwav_bit As Bit                                     'говорит запрвшивали ли мы пароль 0-нет, 1-да
Parolwav_bit = 0
Dim Parolwav_golos_bit As Bit                               'говорит говорили ли мы о запрвшивании пароля 0-нет, 1-да
Parolwav_golos_bit = 0
Dim Open_file_wav As Bit                                    'открыт ли файл 0-нет, 1-да
Open_file_wav = 0
Dim Eof_bit As Bit                                          'показывает был ли конец файла
Eof_bit = 0
Dim End_play_bit As Bit                                     'показывает был ли конец воспроизведения
End_play_bit = 1
Dim Adc_reg As Integer

Config Portb.7 = Input
Sd_in Alias Pinb.7                                          'определяет вставлена ли SD карта   (1-не вставлена, 0-вставлена)

Dim Sd_in_bit As Bit                                        'показывает проверяли ли мы наличие sd карты 0-не проверяли, 1-проверяли
Sd_in_bit = 0                                               'не проверяли наличие sd карты

Dim Sd_ok As Bit                                            'показывает нормально ли прошла тестирование sd карта 1 - норм, 0-не норм
Sd_ok = 0

Config Timer2 = Timer , Prescale = 8
Timer2 = 200
On Ovf2 Play                                                'включить прерывание по переполнению
Enable Ovf2
Stop Timer2

'-------------------------------------------------------------------------------

'переменные и настройки для работы с sim900-------------------------------------

'===============================================================================
'Настройка силовой части------------------------------------------------
'===============================================================================
Enable Interrupts

Declare Sub Test_mms                                        'тестируем SD
Declare Sub Play_wav                                        'подпрограмма проигрывания звука
Declare Sub Open_pwm                                        'подпрограмма открытия и настройки ШИМа
Declare Sub Close_pwm                                       'подпрограмма закрытия ШИМа
Declare Sub Close_wav                                       'подпрограмма закрытия wav файла
Declare Sub Zagruz_buff                                     'загрузка буфера

If Sd_in = 0 And Sd_in_bit = 0 Then                         'если есть SD карта и не тестировали ее, то
Test_mms                                                    'тестируем SD
Sd_in_bit = 1
End If


Do

Adc_reg = Getadc(0)

If Adc_reg > 100 And End_play_bit = 1 Then                  'если есть питание и никакой файл не востроизводится, то
S = Dir( "NAP.WAV")                                         'ищем файл
   If Len(s) > 0 Then                                       'если есть
   Close_wav
   File_name = S                                            'голос напряжение в норме
   Play_wav
   Else
   Sound Pinb.5 , 200 , 2000                                'сигнал ок
   End If
End If

If Adc_reg <= 100 And End_play_bit = 1 Then                 'если нет питания и никакой файл не воспроизводится, то
S = Dir( "NAP_BAD.WAV")
   If Len(s) > 0 Then
   Close_wav
   File_name = "NAP_BAD.WAV"                                'голос питания нет
   Play_wav
   Else
   Sound Pinb.5 , 200 , 2000                                'сигнал ок
   End If
End If

'работа с буфером---------------------------------------------------------------
Zagruz_buff                                                 'загружаем буфер для воспроизведения
'-------------------------------------------------------------------------------

If Eof_bit = 1 Then                                         'если был конец файла то сбрасываем
Close_wav
Eof_bit = 0                                                 'говорим, что конца файла не было
End If

'-------------------------------------------------------------------------------

If Parolwav_bit = 1 And Parolwav_golos_bit = 0 Then         'если пароль запросили и не говорили об этом
Parolwav_golos_bit = 1                                      'говорили о том, что запросили пароль
Close_wav
S = Dir( "PAR.WAV")
   If Len(s) > 0 Then
   File_name = "PAR.WAV"                                    'голос пароль
   Play_wav
   Else
   Sound Pinb.5 , 200 , 2000                                'сигнал ок
   End If
End If

'блок тестирования SD///////////////////////////////////////////////////
If Sd_in = 1 Then                                           'если sd карту вытащили
Sd_in_bit = 0                                               'говорим, что не тестировали SD
Sd_ok = 0
End If

If Sd_in = 0 And Sd_in_bit = 0 Then                         'если есть SD карта и не тестировали ее, то
Test_mms                                                    'тестируем SD
Sd_in_bit = 1                                               'говорим, что тестировали SD
End If
'/////////////////////////////////////////////////////////////////////////SD

Loop

End
'//////////////////////////////////////////////////////////////////////////////

'-----------------------------------------------------------------
Sub Test_mms:

'If Gbdriveerror = 0 Then
Btemp1 = Initfilesystem(1)                                  ' инициализируем фат выбор раздела  ( используйте 0 для разделов без загрузочного сектора, 1 с загрузочным)
  If Btemp1 <> 0 Then                                       'если есть ошибки
  Sd_ok = 0                                                 'говорим
  Else
  Sd_ok = 1                                                 'если нет ошибок тоже говорим
  End If

End Sub
'-------------------------------------------------------------------------------

'Подпрограммы воспроизведения---------------------------------------------------
Sub Play_wav:
Open_pwm
End_play_bit = 0
   If Open_file_wav = 0 Then                                'если файл не открывали
   Open File_name For Binary As #10                         'открываем файл
   Open_file_wav = 1                                        'говорим, что открыли
   End If
For Curbyte1 = 1 To 512
   If Eof(#10) = 0 Then Get #10 , Mmc_data1(curbyte1)       'если не конец файла, то копируем в буфер 512 байт
Next
Curbyte1 = 0
Buff1_bit = 1
For Curbyte2 = 1 To 512
   If Eof(#10) = 0 Then Get #10 , Mmc_data2(curbyte2)       'если не конец файла, то копируем в буфер 512 байт
Next
Curbyte2 = 0
Buff2_bit = 1
Play1_bit = 1
Start Timer2                                                'стартуем таймер для востпроизведения
End Sub


Play:

Timer2 = 92
If Buff1_bit = 1 And Play1_bit = 1 And Play2_bit = 0 Then
Incr Curbyte1                                               'увеличиваем текущий байт
Pwm1a = Mmc_data1(curbyte1)
   If Curbyte1 >= 512 Then
   Buff1_bit = 0
   Play1_bit = 0
   Play2_bit = 1
   End If
Elseif Buff2_bit = 1 And Play2_bit = 1 And Play1_bit = 0 Then
Incr Curbyte2                                               'увеличиваем текущий байт
Pwm1a = Mmc_data2(curbyte2)
   If Curbyte2 >= 512 Then
   Buff2_bit = 0
   Play2_bit = 0
   Play1_bit = 1
   End If
End If

If Eof(#10) <> 0 Then Eof_bit = 1                           'если конец файла, то

Return

Sub Open_pwm:
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down       'настраиваем таймер3 на ШИМ
Pwm1a = 128                                                 'устанавливаем среднюю точку
End Sub

Sub Close_pwm:
Config Timer1 = Timer
Config Portb.5 = Input
End Sub
'-------------------------------------------------------------------------------

Sub Close_wav:
Stop Timer2                                                 'останавливаем таймер
Close #10                                                   'закрываем поток
Pwm1a = 1
Close_pwm                                                   'закрываем ШИМ
Eof_bit = 0
End_play_bit = 1
Open_file_wav = 0
Buff1_bit = 0
Buff2_bit = 0
Play1_bit = 0
Play2_bit = 0
End Sub

Sub Zagruz_buff:
If Buff1_bit = 0 And Play1_bit = 0 And Play2_bit = 1 Then   'если буфур 1 пуст, и не проигрывается, и проигрывается второй
For Curbyte1 = 1 To 512                                     'делаем 512 раз
If Eof(#10) = 0 Then Get #10 , Mmc_data1(curbyte1)          'если не конец файла, то копируем в буфер 512 байт
Next
Curbyte1 = 0
Buff1_bit = 1
End If

If Buff2_bit = 0 And Play2_bit = 0 And Play1_bit = 1 Then
For Curbyte2 = 1 To 512
If Eof(#10) = 0 Then Get #10 , Mmc_data2(curbyte2)          'если не конец файла, то копируем в буфер 512 байт
Next
Curbyte2 = 0
Buff2_bit = 1
End If
End Sub