Мир звуков Спектрума - глава 6.2: Программирование эффектов и музыки под музыкальный сопроцессор AY- 3-8910 (AY-3-8912).


          6.2. Программирование

   Все звуковые эффекты и музыка  програм-
мируются путем постоянной  смены  значений
регистров с необходимыми задержками.  Осу-
ществить это  может, например, такая  под-
программа:
1415.
 10            LD      HL,60000   ; HL=адрес данных
 20  LOOP      LD      A,(HL)     ; A=байт данных
 30            INC     HL         ; HL=HL+1
 40            CP      255        ; A=255 ?
 50            RET     Z          ; если да, то возврат
 60            CP      16         ; A=16 ?
 70            JR      NZ,REG     ; если нет, то перейти на REG
 80            LD      B,(HL)     ; B=длительность паузы
 90  PAUSE     HALT               ; ожидание прерывания
100            DJNZ    PAUSE      ; цикл
110            JR      CONT       ; перейти на CONT
120  REG       LD      BC,65533   ; BC=адрес порта регистра
130            OUT     (C),A      ; записать номер регистра
140            LD      B,191      ; BC=адрес порта данных
150            LD      A,(HL)     ; A=значение регистра
160            OUT     (C),A      ; записать данные в регистр
170  CONT      INC     HL         ; HL=HL+1
180            JR      LOOP       ; переход к началу
2
   Эта  программа  довольно  примитивна, и
для воспроизведения музыки не очень подхо-
дит, но для создания  простых эффектов - в
самый раз. Перед ее запуском  не  забудьте
подготовить блок данных по  адресу  60000,
состоящий из пар данных и  заканчивающийся
числом 255. Первым значением в каждой  па-
ре  должен быть номер регистра, а вторым -
число, которое нужно записать в  этот  ре-
гистр.  Кроме того, если  первое  значение
равно 16, то второе  интерпретируется  как
задержка (в пятидесятых долях секунды).
   Для воспроизведения музыки  используют-
ся гораздо более сложные подпрограммы, как
правило, работающие во втором режиме  пре-
рываний. Данные для этих подпрограмм обыч-
но хранятся в  значительно  более  удобной
форме, раздельно для каждого из трех кана-
лов. Привести полностью хотя  бы  простей-
ший пример такой подпрограммы в этой  кни-
ге не представляется возможным  из-за  его
сложности, но, если Вы умеете обращаться с
ассемблером, Вам ничего не стоит  сочинить
такую подпрограмму, а я  могу  подсказать,
как это сделать.
   Сначала разберемся с форматом данных. Я
предлагаю следующую систему:  мелодия  бу-
дет задаваться тремя  (по  числу  голосов)
основными блоками данных. Так как  практи-
чески любая мелодия состоит из  одинаковых
фрагментов, повторяющихся в разном  поряд-
ке, логично было бы в главных блоках зада-
вать не саму мелодию, а адреса таких фраг-
ментов. Эти фрагменты обычно называют пат-
тернами (pattern - трафарет, шаблон).
   Итак, в  главных  блоках  могут  содер-
жаться следующие двухбайтовые значения:

 65535 (#FFFF) - конец мелодии
 0     (#0000) - начало цикла
 addr  (#XXXX) - адрес следующего паттерна

   Код "начало цикла" (0) отмечает  место,
с которого начнет  воспроизводиться  мело-
дия при повторении.
   Теперь  займемся  паттернами.  Не  вда-
ваясь в теорию, приведу разработанный мной
формат:

 128           (#80)           - конец паттерна
 129,n         (#81,#XX)       - установить длительность n
 130,n         (#82,#XX)       - шум с частотой n (0...31)
 131,n1,n2     (#83,#XX,#XX)   - шум с частотой n (0...31) +
                                 нота (0...100)
 132,n1,n2     (#84,#XX,#XX)   - прямое задание частоты тона
                                 (0...4095)
 133,addr      (#85,#XXXX)     - задание блока изменения частоты
                                 тона
 134,addr      (#86,#XXXX)     - задание блока изменения частоты
                                 шума
 135,addr      (#87,#XXXX)     - задание блока изменения
                                 громкости
 136,n1,n2,n3  (#88,#XX,#XXXX) - управление генератором
                                 огибающей
 0...100       (#00...#64)     - ноты от ЛЯ субконтроктавы

   Поясню некоторые коды:

129 - Как Вы, наверное, заметили, при  за-
      дании ноты ее длительность не указы-
      вается. Дело в том, что  использует-
      ся длительность, установленная зара-
      нее с  помощью  этой  команды.  Дли-
      тельность измеряется  в  пятидесятых
      долях секунды.
131 - С помощью этого кода Вы  можете  од-
      новременно воспроизводить тон и шум.
133,134,135 -  Эти  коды  задают  дополни-
      тельные  блоки  данных,  указывающие
      способ изменения  частоты тона, час-
      тоты шума и громкости на  протяжении
      звучания ноты. Если после кодов  133
      или 134 вместо адреса блока находит-
      ся 0, то изменение частот отключает-
      ся.  Число от 0 до 15 после кода 135
      указывает на необходимость поддержа-
      ния  постоянного  уровня  громкости,
      соответствующего этому числу.
136 - Этот код управляет генератором  оги-
      бающей.  После  него  должно   нахо-
      диться однобайтовое число от 0 до 7,
      указывающее  на  форму  огибающей  в
      соответствии с таблицей 5 и двухбай-
      товое число, задающее период измене-
      ния огибающей.
0...100 - Эти  коды  задают  ноты.  Код  0
      соответствует ноте ЛЯ  субконтрокта-
      вы, 1 - ЛЯ#, 2 - СИ и т.д.

   В блоке, описывающем изменение  частоты
тона, используются следующие значения:

 128        (#80)       - конец блока
-127...127  (#81...#79) - смещения частоты

   Блок изменения частоты шума будет зада-
ваться в следующем формате:

 128        (#80)       - конец блока
-31...31    (#E1...#1F) - смещения частоты

   А блок изменения громкости пусть  зада-
ется так:

 128      (#80)       - конец блока
 0...15   (#00...#0F) - значения громкости

   Вполне логично было бы сделать эту про-
цедуру работающей во втором режиме  преры-
ваний. Исходя из этого, а также из предло-
женного формата данных, можно  понять, что
для каждого из каналов понадобится  массив
переменных. Я предлагаю следующий его фор-
мат:

  смещение  размер  значение

      0       2     начальный адрес основного блока данных
      2       2     текущий адрес в основном блоке данных
      4       2     начальный адрес блока изменения частоты тона
      6       2     текущий адрес в блоке изменения частоты тона
      8       2     начальный адрес блока изменения частоты шума
     10       2     текущий адрес в блоке изменения частоты шума
     12       2     начальный адрес блока изменения громкости
     14       2     текущий адрес в блоке изменения громкости
     16       2     текущий адрес в текущем паттерне
     18       1     значение текущей длительности
     19       1     счетчик длительности
     20       1     число оставшихся повторений

   Кроме того, понадобится еще по три бай-
та на каждый  канал  для  хранения  темпа,
счетчика темпа и флага разрешения звука.
   В этот пакет  будут  входить  следующие
процедуры:

SINIT - Инициализация  таблиц, подключение
        второго режима прерываний.
SSTOP - Выключение сопроцессора, восстано-
        вление стандартного режима  преры-
        ваний.
SNEW  - Запуск всех трех каналов. При  вы-
        зове этой  подпрограммы  в  регис-
        трах HL, DE и BC должны быть адре-
        са главных блоков данных для кана-
        лов A, B и C соответственно. В ре-
        гистре A должно  находиться  число
        повторений мелодии от 1 до 254 или
        255, если  Вы хотите, чтобы  мело-
        дия повторялась бесконечно.
SNEWA - Запуск канала  A.  В  регистре  HL
        должен быть  адрес блока данных, а
        в регистре A  -  число  повторений
        (аналогично SNEW). Работу  каналов
        B и C эта процедура  не затрагива-
        ет.
SNEWB - Запуск канала  B.  Все  аналогично
        SNEWA.
SNEWC - Запуск канала  C.  Все  аналогично
        SNEWA.
MUTE  - Запрет/разрешение работы. В регис-
        тре A должен быть номер канала  от
        0 до 2 или 3, если Вы  обращаетесь
        ко всем каналам. В регистре B дол-
        жен быть код режима  работы:  0  -
        остановка, 1 - беззвучная  работа,
        2 - воспроизведение.
STATUS - Получение состояния канала. В ре-
        гистре A должен быть номер  канала
        от 0 до 2. По возвращению из  про-
        цедуры STATUS регистр  A  содержит
        код режима работы выбранного кана-
        ла (аналогично B в MUTE).
TEMPO - Установка темпа. В регистре A дол-
        жен быть номер канала от  0  до  2
        или 3, если Вы обращаетесь ко всем
        каналам. В регистре B должно нахо-
        диться значение темпа.

  Итак, начало пакета может выглядеть так:
1415.
  10           ORG     60000
  20           JP      SINIT
  30           JP      SSTOP
  40           JP      SNEW
  50           JP      SNEWA
  60           JP      SNEWB
  70           JP      SNEWC
  80           JP      MUTE
  90           JP      STATUS
2
   Процедура TEMPO может выглядеть так:
1415.
 100  TEMPO    DI
 110           PUSH    HL
 120           PUSH    AF
 130           LD      HL,TEMPS   ; HL=указатель на темпы
 140           CP      A,3
 150           JR      Z,TEMP3
 160           ADD     A,L
 170           LD      L,A
 180           JR      NC,TEMP1
 190           INC     H
 200  TEMP1    LD      (HL),B
 210           INC     HL
 220           INC     HL
 230           INC     HL
 240           LD      (HL),B
 250  TEMP2    POP     AF
 260           POP     HL
 270           EI
 280           RET
 290  TEMP3    PUSH    DE
 300           LD      D,6
 310  TEMP4    LD      (HL),B
 320           INC     HL
 330           DEC     D
 340           JR      NZ,TEMP4
 350           POP     DE
 360           JR      TEMP2
2
   Раз уж пошли обращения к  данным,  надо
привести строки с их описанием:
1415.
 370  CHAN_A   DEFS    21       ; массив переменных для канала A
 380  CHAN_B   DEFS    21       ; массив переменных для канала B
 390  CHAN_C   DEFS    21       ; массив переменных для канала C
 400  MUTS     DEFS    3        ; флаги разрешения звука
 410  TEMPS    DEFS    3        ; темпы
 420  CURTS    DEFS    3        ; счетчики темпов
 430  AYREGS   DEFS    14       ; копии регистров сопроцессора
 440  ENVS     DEFB    0,4,11,13,8,12,14,10    ; формы огибающей
 450  SVOLS    DEFW    #8000,#8001,#8002       ; таблицы измене-
 460           DEFW    #8003,#8004,#8005       ; ния громкости
 470           DEFW    #8006,#8007,#8008       ; для стандартных
 480           DEFW    #8009,#800A,#800B       ; значений
 490           DEFW    #800C,#800D,#800E
 500           DEFW    #800F
 510  NOTES    DEFW    ... ; сюда необходимо записать все значе-
                           ; ния из таблицы 9 от левого верхнего
                           ; угла в порядке сверху - вниз, спра-
                           ; ва - налево
2
   Строка 430 содержит область данных, ко-
торая используется для вывода звука.  Сна-
чала в ней формируются значения  всех  ре-
гистров сопроцессора с  помощью  следующей
подпрограммы:
1415.
 520  SETAY    PUSH    HL
 530           PUSH    AF
 540           LD      AL,AYREGS
 550           ADD     A,L
 560           LD      L,A
 570           JR      NC,SETAY1
 580           INC     HL
 590  SETAY1   LD      (HL),B
 600           POP     AF
 610           POP     HL
 620           RET
2
   Ей надо передать номер регистра в  A  и
его значение в B.
   Затем содержимое этой области копирует-
ся в реальные регистры сопроцессора другой
подпрограммой:
1415.
 630  AYOUT    PUSH    HL
 640           PUSH    DE
 650           PUSH    BC
 660           LD      HL,AYREGS+13
 670           LD      D,13
 680  AYOUT1   LD      BC,65533
 690           OUT     (C),D
 700           LD      B,191
 710           LD      E,(HL)
 720           OUT     (C),E
 730           DEC     HL
 740           DEC     D
 750           JP      P,AYOUT1   ; если D>=0, то перейти на
                                    AYOUT1
 760           POP     BC
 770           POP     DE
 780           POP     HL
 790           RET
2
   Любой из регистров в этой области можно
также прочитать:
1415.
 800  GETAY    PUSH    HL
 810           PUSH    AF
 820           LD      HL,AYREGS
 830           ADD     A,L
 840           LD      L,A
 850           JR      NC,GETAY1
 860           INC     H
 870  GETAY1   LD      B,(HL)
 880           POP     AF
 890           POP     HL
 900           RET
2
   Этой подпрограмме нужно передать  номер
требуемого регистра в A и она  вернет  его
значение в B.

   Строка 440 понадобится  для  дешифрации
кода огибающей. Если любое число из табли-
цы 5 прибавить к метке ENVS и по  получен-
ному адресу прочитать один байт, Вы  полу-
чите значение, которое надо записать в R13.
   Строка 450 будет нужна  для  дешифрации
стандартных уровней громкости.  Для  этого
надо число от 0 до 15 умножить на 2  (мож-
но использовать команду SLA) и прибавить к
метке SVOLS. Полученное значение нужно ис-
пользовать в качестве адреса блока измене-
ния громкости.
   Строка 510 будет полезна  для  дешифра-
ции нот. Если код ноты (от 0 до 100) умно-
жить на 2 (команда SLA) и прибавить к мет-
ке NOTES, а по полученному адресу  считать
двухбайтовое число, Вы  получите  значения
младшего и старшего регистров частоты.
   Теперь займемся основными процедурами:
1415.
 910  STATUS   PUSH    HL
 920           LD      HL,MUTS
 930           ADD     A,L
 940           LD      L,A
 950           JR      NC,STAT1
 960           INC     H
 970  STAT1    LD      A,(HL)
 980           POP     HL
 990           RET
2
   Эта  маленькая, но  полезная  процедура
поможет программисту узнать, в каком  сос-
тоянии находится тот или иной канал.  Нап-
ример, чтобы найти, какой из них свободен.
   Следующая процедура - MUTE:
1415.
1000  MUTE     DI
1010           PUSH    HL
1020           PUSH    AF
1030           LD      HL,MUTS
1040           CP      A,3
1050           JR      Z,MUT2
1060           ADD     A,L
1070           LD      L,A
1080           JR      NC,MUT1
1090           INC     H
1100  MUT1     LD      (HL),B
1110           POP     AF
1120           POP     HL
1130           EI
1140           RET
1150  MUT2     LD      (HL),B
1160           INC     HL
1170           LD      (HL),B
1180           INC     HL
1190           JR      MUT1
2
   Эта  процедура  понадобится,  например,
для временной остановки работы  одного  из
каналов.
   Теперь - процедуры инициализации  кана-
лов:
1415.
1200  SNEWC    PUSH    IX
1210           LD      IX,CHAN_C
1220           PUSH    BC
1230           LD      B,2
1240           JR      SNEW1

1250  SNEWB    PUSH    IX
1260           LD      IX,CHAN_B
1270           PUSH    BC
1280           LD      B,1
1290           JR      SNEW1

1300  SNEWA    PUSH    IX
1310           LD      IX,CHAN_A
1320           PUSH    BC
1330           LD      B,0
1340  SNEW1    DI
1350           PUSH    BC
1360           PUSH    DE
1370           PUSH    HL
1380           PUSH    IX
1390           POP     HL
1400           PUSH    HL
1410           POP     DE
1420           INC     DE
1430           LD      BC,20
1440           LD      (HL),B
1450           LDIR
1460           POP     HL
1470           PUSH    HL
1480           LD      (IX+20),A
1490           LD      (IX+0),L
1500           LD      (IX+1),H
1510           LD      (IX+19),0
1520           LD      E,(HL)
1530           INC     HL
1540           LD      D,(HL)
1550           INC     HL
1560           LD      (IX+2),L
1570           LD      (IX+3),H
1580           LD      (IX+16),E
1590           LD      (IX+17),D
1600           LD      HL,SVOLS+30
1610           LD      (IX+12),L
1620           LD      (IX+13),H
1630           LD      (IX+14),L
1640           LD      (IX+15),H
1650           LD      (IX+18),13   ; длительность по умолчанию
                                      = 1/4
1660           POP     HL
1670           POP     DE
1680           POP     BC
1690           LD      A,B
1700           LD      B,2
1710           CALL    MUTE
1720           LD      B,1
1730           CALL    TEMPO
1740           POP     BC
1750           POP     IX
1760           EI
1770           RET
2
   И, наконец, инициализация всех трех ка-
налов:
1415.
1780  SNEW     PUSH    HL
1790           CALL    SNEWA
1800           PUSH    DE
1810           POP     HL
1820           CALL    SNEWB
1830           PUSH    BC
1840           POP     HL
1850           CALL    SNEWC
1860           POP     HL
1870           RET
2
   Подпрограммы инициализации  подготавли-
вают в массивах переменных  все  необходи-
мые для работы данные.  Они  устанавливают
адреса блоков изменения частоты тона и шу-
ма в положение "не используется"  (заносят
в  них  0).  Выбирают  постоянный  уровень
громкости (15). А также устанавливают дли-
тельность нот по умолчанию равной 1/4  се-
кунды.
   Вот  подпрограмма  подключения  второго
режима прерываний:
1415.
1880  SINIT    LD      A,24
1890           LD      (65535),A
1900           LD      A,195
1910           LD      (65524),A
1920           LD      HL,INTR    ; HL=адрес обработчика
1930           LD      (65525),HL
1940           LD      HL,65024
1950           LD      DE,65025
1960           LD      BC,256
1970           LD      (HL),255
1980           LD      A,H
1990           LDIR
2000           DI
2010           LD      I,A
2020           IM      2
2030           LD      HL,MUTS    ; запрет
2040           XOR     A
2050           LD      (HL),A     ;  работы
2060           INC     HL
2070           LD      (HL),A     ;   всех
2080           INC     HL
2090           LD      (HL),A     ;    каналов
2100           EI
2110           RET
2
   А это подпрограмма, возвращающая  стан-
дартный  режим  прерываний  и  выключающая
сопроцессор:
1415.
2120  SSTOP    DI
2130           LD      A,63
2140           LD      I,A
2150           IM      1
2160           EI
2170           LD      HL,AYREGS
2180           LD      DE,AYREGS+1
2190           LD      BC,13
2200           LD      (HL),B    ; B=0
2210           LDIR              ; очистка области регистров
2220           LD      A,7
2230           DEC     B         ; B=255
2240           CALL    SETAY     ; R7=255 (выключение микшера)
2250           JP      AYOUT     ; вывод регистров в сопроцессор
2
   Теперь займемся  обработчиком  прерыва-
ний. Так как он должен обслуживать три ка-
нала, а массивы переменных легче всего ад-
ресовать  регистром  IX, можно  предложить
такую подпрограмму:
1415.
2260  INTR     PUSH    AF         ; сохранение регистров
2270           PUSH    HL
2280           PUSH    DE
2290           PUSH    BC
2300           PUSH    IX
2310           LD      IX,CHAN_A  ; подготовка регистров
2320           XOR     A
2330           CALL    DISPAT     ;  сопроцессора
2340           LD      IX,CHAN_B
2350           LD      A,1        ;   для всех каналов
2360           CALL    DISPAT
2370           LD      IX,CHAN_C
2380           LD      A,2
2390           CALL    DISPAT
2400           CALL    AYOUT    ; вывод регистров в сопроцессор
2410           POP     IX       ; восстановление регистров
2420           POP     BC
2430           POP     DE
2440           POP     HL
2450           POP     AF
2460           RST     56       ; вызов стандартного обработчика
2470           RET
2
   Этот обработчик для каждого из  каналов
вызывает процедуру-диспетчер (DISPAT), за-
нося в регистр A номер канала, а в регистр
IX - адрес массива его переменных.
   Роль процедуры DISPAT заключается в об-
работке переменных TEMPS, CURTS и MUTS для
указанного канала, а также в вызове основ-
ной подпрограммы создания звука - GETSND.
   Вот текст процедуры DISPAT:
1415.
2480  DISPAT   PUSH    AF
2490           LD      E,A
2500           LD      D,0
2510           CALL    STATUS
2520           OR      A          ; канал остановлен ?
2530           JR      NZ,DISP1
2540           POP     AF
2550           LD      B,A
2560           JR      DISP3
2570  DISP1    LD      HL,CURTS
2580           ADD     HL,DE
2590           LD      A,(HL)
2600           OR      A
2610           JR      Z,DISP2
2620           DEC     (HL)       ; уменьшение счетчика темпа
2630           POP     AF
2640           RET
2650  DISP2    DEC     HL         ; обновление
2660           DEC     HL
2670           DEC     HL         ;  счетчика
2680           LD      A,(HL)
2690           INC     HL         ;   темпа
2700           INC     HL
2710           INC     HL
2720           LD      (HL),A
2730           POP     AF
2740           CALL    GETSND     ; вызов основной процедуры
2750           LD      B,A
2760           CALL    STATUS
2770           CP      1          ; надо "заглушать" ?
2780           RET     NZ
2790  DISP3    LD      C,B        ; "заглушение"
2800           LD      HL,AYREGS+6
2810           LD      A,9        ; канала
2820  DISP4    SLA     A
2830           DJNZ    DISP4
2840           OR      (HL)
2850           LD      (HL),A
2860           INC     HL
2870           ADD     HL,BC
2880           LD      (HL),0
2890           RET
2
   Итак, все сервисные процедуры  приведе-
ны. Осталась только одна - GETSND:
1415.
2900  GETSND   ...
2
   Вот ее-то написание я и предлагаю  Вам.
Но не пугайтесь - я все подробно объясню.
   Скорее  всего, процедура  GETSND  будет
достаточно велика. Может быть, даже больше
всех приведенных процедур, вместе  взятых.
Но ничего трудного в ней нет, а  ее  объем
обусловлен  достаточно  сложным   форматом
данных.
   Задача процедуры GETSND сводится к фор-
мированию в определенных  ячейках  области
AYREGS данных одного из каналов для после-
дующего копирования их в  регистры  сопро-
цессора.
   В качестве  параметров  этой  процедуре
передается номер канала в регистре A (что-
бы она знала, в  каких  ячейках  размещать
данные для частоты, громкости  и  т.п.)  и
адрес массива переменных  в  регистре  IX.
Обратите внимание, что она обязана  сохра-
нить  значение регистра  A!  Возможно, Вам
придется даже завести дополнительную пере-
менную для его хранения.
   Итак,  порядок  действий  в   процедуре
GETSND следующий:

 1. Проверить, не равен  ли  нулю  счетчик
    длительности (IX+19).
 2. Если нет, то продолжить  воспроизведе-
    ние текущей ноты.
 3. Если равен, то выбрать  новую  ноту  и
    начать ее воспроизведение.

   В понятие  "продолжить  воспроизведение
текущей ноты" входит следующее:

 1. Уменьшить счетчик длительности.
 2. Если адрес  одного  из  дополнительных
    блоков равен 0, то  пункты  3...5  для
    этого блока выполнять не надо.
 3. Выбрать очередные значения  из  блоков
    изменения частот и  громкости, исполь-
    зуя переменные  IX+6/IX+7, IX+10/IX+11
    и IX+14/IX+15.
 4. В соответствии с выбранными  значения-
    ми и номером  канала  обновить  с  по-
    мощью процедур GETAY и  SETAY  область
    AYREGS (обратите внимание, что  смеще-
    ния частот могут быть и  отрицательны-
    ми).
 5. Обновить переменные  по адресам  IX+6/
    IX+7, IX+10/IX+11 и IX+14/IX+15 в  со-
    ответствии с пунктом 3.

   "Начать воспроизведение ноты"  включает
в себя только один пункт:

 1. Переписать переменные по адресам IX+4/
    IX+5, IX+8/IX+9, IX+12/IX+13 и IX+18 в
    их счетчики - дубли (IX+6/IX+7, IX+10/
    IX+11, IX+14/IX+15 и IX+19).

   А вот пункт "выбрать новую ноту" - пос-
ложнее:

 1. Выбрать  очередной  байт  из  текущего
    паттерна (адрес - IX+16/IX+17).
 2. Если он не равен  0...100, 130, 131  и
    132 - обработать  как  соответствующий
    управляющий код и перейти к пункту 1.
 3. Соответственно с байтом или его  пара-
    метрами и номером канала обновить  об-
    ласть AYREGS и переменную IX+16/IX+17.

   Теперь об обработке управляющих кодов:

   Код 128:

 1. Выбрать адрес следующего  паттерна  из
    основного блока (адрес в основном бло-
    ке содержится в IX+2/IX+3).
 2. Обновить переменную IX+2/IX+3.
 3. Если адрес паттерна равен нулю, скопи-
    ровать переменную IX+2/IX+3 в IX+0/IX+
    1 и перейти к пункту 1.
 4. Если  адрес  равен  65535, скопировать
    переменную  IX+0/IX+1  в  IX+2/IX+3  и
    уменьшить счетчик повторений  (IX+20).
    Если счетчик  повторений  равен  нулю,
    установить канал в состояние "останов-
    лен" с помощью процедуры MUTE. Перейти
    к пункту 1.
 5. Записать выбранный адрес в IX+16/IX+17
    и "выбрать новую ноту".

   Код 129:

 1. Взять байт, следующий за этим кодом, и
    занести в IX+18. "Выбрать новую ноту".

   Код 133 (134):

 1. Взять адрес, следующий за этим  кодом,
    и поместить его  в IX+4/IX+5 (IX+8/IX+
    9). "Выбрать новую ноту".

   Код 135:

 1. Взять адрес, следующий за этим кодом.
 2. Если он меньше 16, вычислить  соответ-
    ствующий адрес в таблице SVOLS.
 3. Поместить полученный адрес в IX+12/IX+
    13.
 4. "Выбрать новую ноту".

   Код 136:

 1. Установить в регистре громкости задан-
    ного канала значение 16.

 2. Записать в IX+14/IX+15 ноль.
 3. Взять байт, следующий за этим кодом.
 4. Вычислить по таблице ENVS значение R13
    и обновить область AYREGS.
 5. Взять  два байта, следующие  за  кодом
    формы, и занести их в ячейки 11  и  12
    области AYREGS.
 6. "Выбрать новую ноту".

   Теперь о том, как можно рассчитать  но-
мера регистров для заданного канала.  Что-
бы рассчитать номер регистра частоты, дос-
таточно номер канала умножить  на  2  (ADD
A,A). Полученное число будет  номером  ре-
гистра младшего байта частоты. Чтобы полу-
чить номер регистра старшего байта  часто-
ты, полученное значение надо увеличить  на
1 (INC A).
   Чтобы вычислить номер регистра громкос-
ти, надо к номеру канала прибавить 8  (ADD
A,8).
   Если Вы  напишете  процедуру  GETSND, в
Ваших руках окажется довольно мощная прог-
рамма, пригодная для написания как музыки,
так и эффектов.
   И в конце описания этой программы - со-
веты по составлению для нее блоков данных.
   Чтобы ноту повысить или понизить на ок-
таву, необходимо ее значение соответствен-
но увеличить или уменьшить на 12. Ноте  ДО
первой октавы соответствует число 39.
   Значения длительностей Вы можете  взять
из таблицы 11.
   Теперь несколько советов по  программи-
рованию сопроцессора. Для формирования но-
вых тембров можно  использовать  генератор
огибающей, настроенный на периодически из-
меняющуюся громкость  и  большую  частоту.
Особенно  хороших  результатов  можно  до-
биться, настроив его  на  частоту, кратную
частоте основного сигнала.
   Для заглушения музыкального сопроцессо-
ра довольно часто используется  запрещение
всех функций микшера (вывод  байта  255  в
R7), но такой  способ  не  очень  надежен.
Если генератор огибающей настроен  на  пе-
риодически изменяющуюся громкость, то этот
трюк не пройдет:  останется  слышным  щел-
канье. Для полного заглушения  сопроцессо-
ра могу посоветовать такую подпрограмму:
1415.
 10            LD      HL,DATA    ; HL=адрес данных
 20            LD      E,10       ; E=номер первого регистра
 30  LOOP      LD      BC,65533   ; BC=адрес порта регистров
 40            OUT     (C),E      ; вывод E в порт BC
 50            LD      A,(HL)     ; A=значение очередного
                                    регистра
 60            LD      B,191      ; BC=адрес порта данных
 70            OUT     (C),A      ; вывод A в порт BC
 80            INC     HL         ; HL=HL+1
 90            DEC     E          ; E=E-1
100            LD      A,E        ; E=
110            CP      6          ;   6 ?
120            JR      NZ,LOOP    ; если нет, то цикл
130            RET                ; возврат
140  DATA      DEFB    0,0,0,255  ; данные для регистров AY
2
   Во многих случаях требуется определить,
присутствует ли сопроцессор в данном  ком-
пьютере. Некоторые делают это проверяя тип
компьютера (48K/128K), но этот  способ  не
совсем справедлив, ведь AY может стоять  и
на старом добром Спектруме.  Вот  подпрог-
рамма, определяющая присутствие  сопроцес-
сора более достоверно:
1415.
 10            LD      BC,65533   ; BC=адрес порта регистров
 20            XOR     A          ; A=0
 30            OUT     (C),A      ; выбор регистра 0
 40            LD      B,191      ; BC=адрес порта данных
 50            OUT     (C),A      ; вывод 0 в выбранный регистр
 60            LD      B,255      ; BC=адрес порта регистров
 70            IN      A,(C)      ; ввод значения из выбранного
                                    регистра
 80            OR      A          ; A=0 ?
 90            RET                ; возврат
2
   Если  после  вызова  этой  подпрограммы
флаг Z  сброшен,  то  сопроцессор  присут-
ствует. В противном случае - нет.
   И напоследок хочу рассказать  об  одном
довольно интересном приеме. Он очень  час-
то используется во многих программах.  Чи-
тая данные из регистров громкости и преоб-
разовывая  их  соответствующим  образом  в
графическую информацию одновременно с вос-
произведением музыки, можно сделать цвето-
музыку или пиковые индикаторы уровня  сиг-
нала.