|
ZX Forum
#04
19 ноября 1997 |
|
Мир звуков Спектрума - приложения 1, 2: листинги звуковых эффектов SUPER SOUND'а, советы по использованию ассемблера.
Приложение 1 Листинги звуковых эффектов SUPER SOUNDа Все эффекты приведены точно в таком ви- де, как в SUPER SOUND v2.2 и снабжены ком- ментариями. Метки, начинающиеся с симво- лов "+","*",":" и "?" являются специальны- ми и отмечают изменяемые значения: + - однобайтовое изменяемое значение * - два однобайтовых изменяемых значения : - двухбайтовое изменяемое значение ? - изменяемая команда Слово, следующее за специальным симво- лом, повторяет название пункта в програм- ме, отвечающего за данный параметр (воз- можно в сокращенном виде). В случае изме- няемой команды в комментарии (в скобках) указаны все возможные варианты. Для нор- мальной компиляции специальные метки необ- ходимо удалить или переименовать. 1415. Input Sound 10 DI ; запрет прерываний 20 LD HL,37000 ; HL=адрес сохранения звука 30 :LENGTH LD DE,27000 ; DE=длительность звука 40 LOOP1 LD B,8 ; B=счетчик битов 50 LOOP2 SLA (HL) ; скроллинг значения в памяти 60 IN A,(254) ; ввести значение из порта 254 70 BIT 6,A ; проверить бит магнитофона 80 JR Z,+INPUT_SPD ; если 0, то перейти на NOSIGN 90 SET 0,(HL) ; установить бит D0 в памяти 100 +INPUT_SPD LD C,3 ; C=задержка 110 PAUSE DEC C ; C=C-1 120 JR NZ,PAUSE ; если C<>0, то цикл 130 DJNZ LOOP2 ; продолжить цикл обработки байта 140 INC HL ; HL=HL+1 150 DEC DE ; DE=DE-1 160 LD A,D ; DE= 170 OR E ; 0 ? 180 JR NZ,LOOP1 ; если нет, то цикл 190 EI ; разрешение прерываний 200 RET ; возврат Play Sound 10 CALL 124 ; по адресу 124 находится RET 20 DEC SP ; поднять указатель стека 30 DEC SP ; на два байта 40 POP HL ; снять со стека адрес строки 20 50 LD DE,47 ; DE=число байт от строки 20 до буфера 60 ADD HL,DE ; HL=адрес буфера 70 :LENGTH LD DE,27000 ; DE=длительность звука 80 ?REVERSE NOP ; резерв для REVERSE (ADD HL, DE) 90 DI ; запрет прерываний 100 LD A,(23624) ; A= 110 RRA ; цвет 120 RRA ; бор- 130 RRA ; дюра 140 LOOP3 LD B,8 ; B=счетчик битов 150 LOOP4 AND 239 ; сброс бита D4 регистра A 160 RLC (HL) ; скроллинг данных через флаг CY 170 JR NC,NOSGN ; если флаг CY=0, то перейти на NOSGN 180 OR 16 ; установка бита D4 регистра A 190 NOSGN OUT (254),A ; вывод A в порт 254 200 +PLAY_SPD LD C,3 ; C=задержка 210 PAUS2 DEC C ; C=C-1 220 JR NZ,PAUS2 ; если C<>0, то цикл 230 DJNZ LOOP4 ; продолжить цикл обработки байта 240 ?REVERSE INC HL ; HL=HL+1 (DEC HL) 250 LD C,A ; сохранение A 260 DEC DE ; DE=DE-1 270 LD A,D ; DE= 280 OR E ; 0 ? 290 LD A,C ; восстановление A 300 JR NZ,LOOP3 ; если DE<>0, то цикл 310 EI ; разрешение прерываний 320 RET ; возврат Double Beep 10 DI ; запрет прерываний 20 *FRQ1,FRQ2 LD DE,13000 ; E=частота 1, D=частота 2 30 +DURATION LD H,100 ; H=длительность 40 LD A,(23624) ; A= 50 RRA ; цвет 60 RRA ; бор- 70 RRA ; дюра 80 LD C,A ; сохранение A 90 EX AF,AF' ; смена регистров A и F на альтернативные 100 LD A,C ; восстановление A 110 LD C,E ; C=счетчик 1 120 LD B,D ; B=счетчик 2 130 BEEP EX AF,AF' ; смена регистров A и F (смена голоса) 140 DEC C ; C=C-1 150 JR NZ,CONT ; если C<>0, топерейти на CONT 160 LD C,E ; восстановить счетчик 1 170 XOR 16 ; инвертировать бит D4 голоса 1 180 CONT OUT (254),A ; вывести A в порт 254 190 EX AF,AF' ; смена регистров A и F (смена голоса) 200 DEC B ; B=B-1 210 JR NZ,CONT2 ; если B<>0, то перейти на CONT2 220 LD B,D ; восстановить счетчик 2 230 XOR 16 ; инвертировать бит D4 голоса 2 240 CONT2 OUT (254),A ; вывести A в порт 254 250 INC L ; L=L+1 260 JR NZ,BEEP ; если L<>0, то перейти на BEEP 270 DEC H ; H=H-1 280 JR NZ,BEEP ; если H<>0, то перейти на BEEP 290 EI ; разрешение прерываний 300 RET ; возврат Exploding 1 10 :GROUP LD HL,0 ; HL=адрес ПЗУ 20 LD A,(23624) ; A= 30 RRA ; цвет 40 RRA ; бор- 50 RRA ; дюра 60 LD D,A ; D=A 70 *FRQ,LEN LD BC,38401 ; C=частота,B=длина 80 LOOP1 PUSH BC ; сохранение BC 90 +DURATION LD B,20 ; B=длительность 100 LOOP2 LD A,(HL) ; A=содержимое ячейки ПЗУ 110 AND 248 ; сброс битов бордюра 120 OR D ; установка битов бордюра 130 OUT (254),A ; вывод A в порт 254 140 PUSH BC ; сохранение BC 150 LD B,C ; B=частота 160 LOOP3 DJNZ LOOP3 ; задержка 170 INC HL ; HL=HL+1 180 POP BC ; восстановление BC 190 DJNZ LOOP2 ; цикл 200 POP BC ; восстановление BC 210 ?INCREASE INC C ; увеличение задержки (DEC C) 220 DJNZ LOOP1 ; цикл 230 RET ; возврат Exploding 2 10 LD A,(23624) ; A= 20 RRA ; цвет 30 RRA ; бор- 40 RRA ; дюра 50 LD L,A ; L=A 60 *FRQ,LEN LD DE,12801 ; E=частота,D=длина 70 LOOP1 PUSH DE ; сохранить DE 80 LOOP2 LD B,E ; B=E 90 PAUSE DJNZ PAUSE ; задержка 100 LD A,(BC) ; A=содержимое ячейки ПЗУ 110 AND 248 ; сбросить биты бордюра 120 OR L ; установить цвет бордюра 130 OUT (254),A ; вывод A в порт 254 140 INC C ; увеличение адреса ПЗУ 150 INC D ; D=D+1 160 JR NZ,LOOP2 ; если D<>0, то цикл 170 POP DE ; восстановить DE 180 ?INCREASE INC E ; увеличение задержки (DEC E) 190 DEC D ; D=D-1 200 JR NZ,LOOP1 ; если D<>0, то цикл 210 RET ; возврат Volume FX 10 DI ; запрет прерываний 20 *FRQ,VOL LD BC,12900 ; C=частота,B=громкость 30 *LEN,DUR LD DE,25650 ; E=длина,D=длительность 40 LD A,(23624) ; A= 50 RRA ; цвет 60 RRA ; бор- 70 RRA ; дюра 80 LOOP1 PUSH DE ; сохранение DE 90 LOOP2 PUSH BC ; сохранение BC 100 XOR 16 ; инвертирование бита D4 110 OUT (254),A ; вывод A в порт 254 120 LOOP3 DJNZ LOOP3 ; задержка (громкость) 130 XOR 16 ; инвертирование бита D4 140 OUT (254),A ; вывод A в порт 254 150 LD B,C ; B=C 160 LOOP4 DJNZ LOOP4 ; задержка (частота) 170 POP BC ; восстановление BC 180 DEC D ; D=D-1 190 JR NZ,LOOP2 ; если D<>0, то цикл 200 POP DE ; восстановление DE 210 ?DR:INC INC D ; увеличение длительности (DEC D,NOP) 220 ?VL:DEC DEC B ; уменьшение громкости (INC B,NOP) 230 ?FQ:INC INC C ; увеличение частоты (DEC C,NOP) 240 DEC E ; E=E-1 250 JR NZ,LOOP1 ; если E<>0, то цикл 260 EI ; разрешение прерываний 270 RET ; возврат Flowing 1 10 DI ; запрет прерываний 20 LD A,(23624) ; A= 30 RRA ; цвет 40 RRA ; бор- 50 RRA ; дюра 60 *FRQ,LEN LD BC,65281 ; C=частота,B=длина 70 LOOP1 PUSH BC ; сохранение BC 80 +DURATION LD B,20 ; B=длительность 90 LOOP2 XOR 16 ; инвертирование бита D4 100 OUT (254),A ; вывод A в порт 254 110 PUSH BC ; сохранение BC 120 LD B,C ; B=C 130 LOOP3 DJNZ LOOP3 ; задержка 140 POP BC ; восстановление BC 150 DJNZ LOOP2 ; цикл 160 POP BC ; восстановление BC 170 ?DECREASE DEC C ; уменьшение частоты (INC C) 180 DJNZ LOOP1 ; цикл 190 EI ; разрешение прерываний 200 RET ; возврат Flowing 2 10 DI ; запрет прерываний 20 *FRQ1,FRQ2 LD DE,2660 ; E=частота 1,D=частота 2 30 +DURATION LD C,255 ; C=длительность 40 LD A,(23624) ; A= 50 RRA ; цвет 60 RRA ; бор- 70 RRA ; дюра 80 LOOP1 XOR 16 ; инвертирование бита D4 90 OUT (254),A ; вывод A в порт 254 100 LD B,D ; B=D 110 LOOP2 DJNZ LOOP2 ; задержка 1 120 XOR 16 ; инвертирование бита D4 130 OUT (254),A ; вывод A в порт 254 140 LD B,E ; B=E 150 LOOP3 DJNZ LOOP3 ; задержка 160 ?F1:INC INC D ; увеличение задержки 1 (DEC D,NOP) 170 ?F2:DEC DEC E ; увеличение задержки 2 (INC E,NOP) 180 DEC C ; C=C-1 190 JR NZ,LOOP1 ; если C<>0, то цикл 200 EI ; разрешение прерываний 210 RET ; возврат Cycle 1 10 +QUANTITY LD B,24 ; B=количество нот 20 :FREQUENCY LD HL,200 ; HL=начальная частота 30 :DURATION LD DE,1 ; DE=длительность 40 PUSH HL ; сохранение HL 50 PUSH BC ; сохранение BC 60 CALL 949 ; вызов подпрограммы ПЗУ 70 POP BC ; восстановление BC 80 POP HL ; восстановление HL 90 :STEP LD DE,30 ; DE=шаг изменения частоты 100 ?INCREASE ADC HL,DE ; увеличение HL (SBC HL,DE) 110 DJNZ :DURATION ; цикл 120 RET ; возврат Cycle 2 10 *STP,QUANT LD BC,12870 ; C=шаг,B=количество нот 20 :FREQUENCY LD HL,512 ; HL=начальная частота 30 :DURATION LD DE,20 ; DE=длительность 40 PUSH HL ; сохранение HL 50 PUSH BC ; сохранение BC 60 CALL 949 ; вызов подпрограммы ПЗУ 70 POP BC ; восстановление BC 80 POP HL ; восстановление HL 90 LD A,L ; умень- 100 ?DECREASE SUB C ; шение (ADD A,C) 110 LD L,A ; L 120 DJNZ :DURATION ; цикл 130 RET ; возврат Noise 1 10 :GROUP LD HL,0 ; HL=адрес ПЗУ 20 LD A,(23624) ; A= 30 RRA ; цвет 40 RRA ; бор- 50 RRA ; дюра 60 LD D,A ; D=A 70 :LENGTH LD BC,2560 ; BC=длительность 80 BEGIN PUSH BC ; сохранение BC 90 LD A,(HL) ; A=содержимое ячейки ПЗУ 100 AND 248 ; сброс битов бордюра 110 OR D ; установка цвета бордюра 120 OUT (254),A ; вывод A в порт 254 130 +FREQUENCY LD B,40 ; B=частота 140 LOOP DJNZ LOOP ; задержка 150 ?BOUNDS INC HL ; HL=HL+1 (INC L) 160 POP BC ; восстановление BC 170 DEC BC ; BC=BC-1 180 LD A,B ; BC= 190 OR C ; 0 ? 200 JR NZ,BEGIN ; если нет, то цикл 210 RET ; возврат Noise 2 10 :GROUP LD HL,0 ; HL=адрес ПЗУ 20 *FRQ1,FRQ2 LD DE,2660 ; E=задержка 1,D=задержка 2 30 +DURATION LD C,255 ; C=длительность 40 LD A,(23624) ; A= 50 RRA ; цвет 60 RRA ; бор- 70 RRA ; дюра 80 BEGIN XOR 16 ; инвертирование бита D4 90 OUT (254),A ; вывод A в порт 254 100 LD B,(HL) ; B=содержимое ячейки ПЗУ 110 LOOP1 DJNZ LOOP1 ; задержка 1 120 LD B,D ; B=D 130 LOOP2 DJNZ LOOP2 ; задержка 2 140 XOR 16 ; инвертирование бита D4 150 OUT (254),A ; вывод A в порт 254 160 LD B,(HL) ; B=содержимое ячейки ПЗУ 170 LOOP3 DJNZ LOOP3 ; задержка 3 180 LD B,E ; B=E 190 LOOP4 DJNZ LOOP4 ; задержка 4 200 INC HL ; HL=HL+1 210 ?F1:INC INC D ; увеличение D (DEC D,NOP) 220 ?F2:DEC DEC E ; уменьшение E (INC E,NOP) 230 DEC C ; C=C-1 240 JR NZ,BEGIN ; если C<>0, то цикл 250 RET ; возврат 2 Приложение 2 Советы по использованию ассемблера Чтобы испытать эффекты в машинных ко- дах, приведенные в этой книге, Вам придет- ся использовать специальную программу - ассемблер. В настоящее время существует множество различных ассемблеров, но в Рос- сии наиболее популярен и распространен GENS4. Это составная часть пакета DEVPAC4 фирмы Hisoft. Вторая часть этого пакета (монитор - отладчик MONS4) нас сейчас не интересует. Я не буду подробно описывать GENS4, это отлично сделано в [1], но некоторые ключе- вые моменты я объясню. Существует несколько различных версий этой программы (в т.ч. и дисковых), поэ- тому ничего конкретного по загрузке посо- ветовать не могу кроме того, что для безо- пасности Вы можете пропустить бейсик-заг- рузчик и грузить сразу кодовую часть. Для ее загрузки с кассеты введите следующие команды: CLEAR 24999: LOAD "" CODE 25000 а с диска - такие: CLEAR 24999: RANDOMIZE USR 15619: REM: LOAD "GENS4D" CODE 25000 Для запуска загруженного таким образом GENS4 введите команду RANDOMIZE USR 25000. Практически все эффекты, приведенные в этой книге, можно ввести и ассемблировать без изменений. Исключение составляют лис- тинги эффектов SUPER SOUNDа, в которых необходимо специальные метки заменить на более приемлемые (они должны начинаться с латинской буквы, быть несколько короче и не содержать пробелов). Перед любым эффектом необходимо вста- вить директиву ассемблера ORG, указываю- щую, с какого адреса разместить оттрансли- рованный код. В данном случае этот адрес должен быть не меньше 37000. Например: 10 ORG 40000 ... ... Если Вы хотите вызывать созданный эф- фект прямо из ассемблера, то необходимо вставить директиву ENT: 20 ENT $ ... ... Теперь немного о командах строчного ре- дактора GENS4 (полный их список Вы можете найти в [1]): I[N][,M] - Автоматическая нумерация строк начиная со строки N и с шагом M. Отмена - клавиша Edit (CS/1). По умолчанию N и M равны 10. L[N][,M] - Вывод на экран листинга программы со строки N по строку M включи- тельно. По умолчанию выводится листинг всей программы. D N,M - Удалить строки от N до M включительно. G[,,S] - Загрузить с магнитного носи- теля программу с именем S. P[N][,M][,S] - Записать на магнитный носитель программу со строки N по строку M включительно под именем S. По умолчанию используются параметры, установленные пре- дыдущей командой G или P. O[,,S] - Записать на магнитный носи- тель откомпилированную программу под име- нем S. R - Запустить откомпилированную прог- рамму. Возврат в GENS4 осуществляется по команде RET. B - Вернуться в бейсик. Перезапустить GENS4 в нашем случае можно командой RANDO- MIZE USR 25000. Z - Удалить текст программы. H - Вывести на экран список команд ре- дактора. A - Ассемблировать программу. Формат этой команды довольно сложен. Подробно он описан в [1]. Здесь же Вам достаточно просто ввести букву A без параметров. Список литературы 1. Ларченко А.А., Родионов Н.Ю. ZX-Spec- trum и TR-DOS для пользователей и прог- раммистов - 3-е изд. СПб.: Питер, 1994. 2. Диалекты Бейсика для ZX-Spectrum. Под редакцией Ларченко А.А., Родионова Н.Ю. СПб.: Питер, 1992. 3. АН СССР, ин-т проблем информатики. Лу- щихина И.Ю. и др. Организация цифрового музыкального интерфейса MIDI. Москва: Препринт, 1988. 4. MIDI Musical Instrument Digital Inter- face Specification 1.0 North Hollywood: International MIDI Association (IMA), 1983. 5. Schulze, Hans-Jochen/Engel, Georg. Mo- derne Musikelektronik, Praxisorientiere Elektroakustik und Gerate zur elektro- nischen Klangerzeugung. Berlin: Mili- tarverlag der DDR (VEB), 1989. * * *
Другие статьи номера:
Похожие статьи:
В этот день... 25 апреля