Код:

$regfile = "xm32a4udef.dat"
$crystal = 32000000
$hwstack = 180
$swstack = 180
$framesize = 180

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1
Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled , Hi = Enabled



Config Portb.2 = Output                                     'Выход звука
Config Porta.4 = Input                                      'Вход звука
Config Porta.3 = Input                                      'Вход управления тональностью
Config Adca = Single , Convmode = Unsigned , Resolution = 8bit , Dma = Off , Reference = Intvcc , Bandgap = Enabled , _
Event_mode = None , Prescaler = 32 , Sweep = Ch0 , _
Ch0_gain = 1 , Ch0_inp = Single_ended , _


Config Dacb = Enabled , Io0 = Enabled , Channel = Single , Reference = Avcc , Interval = 1 , Refresh = 256
Dim Eho As Bit
Dim Dlbuf As Word

'----- Приемлемый бас
Tcc1_per = 100                                              'Частота оцифровки   (АЦП)
Tcd1_per = 5000                                             'частота вывода буфера (ЦАП) (от 30)

Const Dlbuf_mas = 1000                                      'Длина буфера
Eho = 0


Const Vol = 1                                               'Сдвиг байта АЦП

Const Srez = 1000                                           'Значение АЦП для уменьшения громкости
Const Porog = 2                                             'убавление громкости при срезе

Const Filter = &B0000_1111_1111_1111                        'Логическая операция с АЦП &AND
Const Filter_zagl = &B0000_0000_0000_1111                   'Заглушка шумных разрядов (бит на ЦАП)

'(
'----- Приемлемый бас
Tcc1_per = 400                                              'Частота оцифровки
Tcd1_per = 500                                              'частота вывода буфера
Const Dlbuf = 100                                           'Длина буфера


'====== Эхо
Tcc1_per = 50                                               'Частота оцифровки
Tcd1_per = 400                                              'частота вывода буфера
Const Dlbuf = 1500                                          'Длина буфера
')
Config Tcc1 = Normal , Prescale = 8 , Event_action = Restart
Config Tcd1 = Normal , Prescale = 8 , Event_action = Restart

Dim S(dlbuf_mas) As Byte                                    'Воспроизводимый Буфер
Dim B As Byte
Dim W As Word
Dim W1 As Word
Dim W2 As Word
Dim Tm As Word
Dim Tm2 As Word


Tm2 = Dlbuf_mas



On Tcc1_cca Adcinput
Enable Tcc1_cca , Lo

On Tcd1_cca Dacout:
Enable Tcd1_cca
Enable Interrupts




Do



Loop




Adcinput:

   'Disable Interrupts

   W1 = Getadc(adca , 0 , &B00_100_0_00 )                   '&B00_100_0_00
   'Enable Interrupts

   W1 = W1 And Filter
   Shift W1 , Left , Vol                                    'Усиление

   Incr Tm
   If Tm > Dlbuf Then Tm = 1
   S(tm) = W1
   'If Tcc1_per => Tcd1_per Then

      'If Tm = Dlbuf Then Tm2 = 0
      'Elseif Eho = 0 Then
         'Tm2 = Tm
   'End If

Return

Dacout:
   Incr Tm2
   If Tm2 > Dlbuf Then Tm2 = 1
   W2 = S(tm2)

   If W2 > Srezthen
     'Shift W2 , Right , Porog
   End If
   W2 = W2 Or Filter_zagl

   Dacb0 = W2


 '(  Disable Interrupts

 W = Getadc(adca , 0 , &B00_011_0_00 )                      '&B00_100_0_00

Enable Interrupts
W = W * 2
W = W + 360
'Tcd1_per = W
W = W - 360
W = W / 5
W = W + 10
If Dlbuf < Dlbuf_mas Then Dlbuf = W
W = 0
')



Return