(C) PSB/Halloween
Прямое программирование
General Sound.
Всем привет! Решил я написать немно-
го о кульной спектрумовской звуковой кар-
точке, а также о ее программировании. Но
только не думайте, что это очередная ста-
тья о том, как играть MOD'ы и эффекты или
озвучивать игры... Подобной литературы в
Спектрумовской прессе не было (или я про-
сто не видел :-! ).
Начну с самых истоков. Году в 1997 я
приобрел GS (кстати, спасибо за это Hell-
Raiser/Halloween), и как, наверное, мно-
гие, стал учиться его программить, играл
те же MOD и FX, озвучивал геймы, написал
свой player MOD (который понимал и TR-DOS
и MS-DOS ). Но все это потихоньку подна-
доело, ведь разнообразие-то небольшое. А
ведь когда GS еще только рекламировали,
писали, что это - еще один комп, со своим
процом, памятью и частотой раза в 3 выше.
Так оно и есть. А главное, проц-то - ува-
жаемый всеми нами Z80!!!
Многие, наверное, до сих пор думают,
как можно программировать GS напрямую,
если в описании нет таких команд? Где лю-
ди берут информацию по недокументирован-
ным командам и вообще, как устроен GS?
Думаете есть какие-нить доки по этому по-
воду? Сейчас - ДА! Сейчас уже даже схему
GS по кусочкам разобрали, а раньше всего
этого не было, но узнать все равно было
можно и даже просто. Опишу как это сделал
я (по-любому, кому-то это будет интерес-
но).
В старые добрые времена была тради-
ция (можно и так сказать) драть отовсюду
AY'шные музоны. Ну меня и прибило дернуть
MOD из Target Renegade и Xecutor. Дерну-
ть-то дернул, а вот в Xecutor в загрузчи-
ке нашел тест GS. Он помимо стандартной
информации еще выдавал и копирайты из
прошивки. Рассмотрев повнимательней про-
гу, которая все это достает из карточки
(там несколько разных кусочков достава-
лось), прикинул, где может задаваться ад-
рес, из которого это все берется... ну
взял и набрал похожую прогу в MASM, толь-
ко она у меня тянула с адреса #0000 пер-
вые 32кб. А потом, посмотрев через STS
(Z80 ведь!), что получилось, увидел прог-
рамму! Все правильно, это было ПЗУ. Ну а
дальше понятно: стал потихоньку разби-
рать, что и как, нашел главный цикл, ко-
торый обрабатывает поступающие команды,
посмотрел, как работают документированные
команды, из них узнал о некоторых портах,
как выводится звук и так далее. Несколько
экспериментов, и я знал уже практически
все, задолго до появления подобной инфор-
мации. И это все благодаря 3-м(!!!) кома-
ндам из загрузчика Xecutor !
Хорошо, предположим, знаем мы Gene-
ral Sound "изнутри", а что нам это дает?
Да очень многое, точнее - использование
платы нестандартным образом. Это может
быть все, что угодно, начиная от дописы-
вания процедур, которых не хватает в ста-
ндартной прошивке, до своих программ, ко-
торые, может быть, и к музыке-то не отно-
сятся.
Вот так. А сейчас, собственно, о
программировании.
Интерфейс со стороны Speccy
1. Command register (#BB=187, запись).
2. Status register (#BB=187, чтение).
Биты: 7 - Data bit*
0 - Command bit*
3. Data register (#B3=179, запись).
4. Output register (#B3=179, чтение).
*) Вообще, не помню точно, как описыва-
лись значения этих битов после определен-
ных операций в стандартной инструкции
(типа, когда в какой-то порт что-то пишем
или из него читаем, биты как-то меняют-
ся), но могу сказать проще - БИТ УСТАНОВ-
ЛЕН В 1, ЕСЛИ ОН _НЕ_ОБСЛУЖЕН_. То есть,
если мы что-нить кинем в Data register,
то Data bit будет в 1, пока GS из него не
прочитает. То же самое будет и внутри GS
- пока ZX не прочтет порт, в Data bit бу-
дет 1.
Особенности описания команд
SC @$%&%$ - Послать код команды @$%&%$ в регистр команд
WC - Ожидание принятия/выполнения команды
(сброса Command bit)
SD @$%&%$ - Послать данные @$%&%$ в регистр данных
WD - Ожидание принятия данных (сброса Data bit)
GD @$%&%$ - Принять данные @$%&%$ из регистра данных
WN - Ожидание новых данных от GS (установки Data bit)
Команды
#18 - LD DE,nnnn
SD nnnn_LOW
SC #18:WC
SD nnnn_HIGH
Заносит в рег. пару DE значение nnnn
(внутри GS!). nnnn_LOW и nnnn_HIGH - ста-
рший и младший байты значения nnnn.
#1A - Get data from (DE)
SC #1A:WC
GD Value
Читает байт из ячейки, адресуемой
DE.
#1B - INC DE
SC #1B:WC
Увеличивает значение DE на 1.
Таким образом, уже используя только
эти 3 команды, вы можете прочитать память
GS и узнать все, что надо:
LD HL,#0000; адрес в GS, откуда хотим что-то прочитать
LD A,L:CALL SD; делаем LD DE,nnnn в GS
LD A,#18:CALL SC
LD A,H:CALL SD
LD HL,#8000; адрес в ZX, куда все будем складывать
LD DE,#8000; длина блока
LOOP LD A,#1A:CALL SC; берем значение из GS
IN A,(#B3)
LD (HL),A
LD A,#1B:CALL SC; увеличиваем адрес в GS
INC HL:DEC DE
LD A,D:OR E:JR NZ,LOOP
RET
SC OUT (#BB),A
WC IN A,(#BB):RRCA:JR C,WC
RET
SD OUT (#B3),A:RET
WD IN A,(#BB):RLCA:JR C,WD
RET
WN IN A,(#BB):RLCA:JR NZ,WN
RET
Но есть и ряд других полезных (прос-
то необходимых) команд.
#14 - Put datablock to GS
SD LENG_LOW
SC #14:WC
SD LENG_HIGH:WD
SD GS_ADR_LOW:WD
SD GS_ADR_HIGH:WD
SD DataByte:WD ; столько раз подряд, сколько указано в LENG
Засылает блок данных в GS по адресу
GS_ADR и длиной LENG. Этой командой очень
удобно загружать свои программы в GS.
#13 - Jump to ADR
SD ADR_LOW
SC #13:WC
SD ADR_HIGH
Переходит по адресу ADR в GS. Подхо-
дит для запуска загруженной программы.
#10 - OUT (PORT),A
SD PORT
SC #10:WC
SD Value
#11 - IN A,(PORT)
SD PORT
SC #11:WC
GD Value
Эти две команды позволяют прочитать
или записать значение в порт/из порта GS.
Есть еще куча всяких полезных и бес-
полезных команд (аля всякие ковоксы и
т.п.), но для прямого программинга они
нам не потребуются.
Интерфейс со стороны General Sound
Внутренние порты:
#00, запись - открыть нужную страничку памяти
#01, чтение - прочитать содержимое регистра команд
#02, чтение - прочитать содержимое регистра данных
#03, запись - заслать данные для Speccy
#04, чтение - прочитать содержимое регистра состояния
#05, запись - сброс бита Command bit в регистре состояния
#06, запись - громкость канала A
#07, запись - громкость канала B
#08, запись - громкость канала C
#09, запись - громкость канала D
Есть еще порты #0A и #0B, но они
вообще нафиг не нужны и не используются
(хотя, кто хочет, по схеме может посмот-
реть, что они делают ;).
А теперь подробнее...
1. OUT (#00),Page (открыть нужную страни-
чку памяти) В General Sound расположение
памяти такое:
#0000-#3FFF - первые 16к ПЗУ
#4000-#7FFF - 16к ОЗУ
#8000-#FFFF - страницы ОЗУ
Т.е. странички в GS по 32 килобайта
и располагаются с адреса #8000. В нулевой
странице лежит ПЗУ целиком (т.е. по адре-
сам #8000-#BFFF тоже, что и с
#0000-#3FFF, а с #C000 - продолжение). В
первой странице вторые 16к - копия памяти
с #4000-#7FFF, а первые 16к - обычные.
Вторая, третья и т.д. страницы - обычные
страницы, которые можно свободно исполь-
зовать. В базовом варианте GS (128к) 3
странички: 2, 3 и 4, а у GS512 - 14 стра-
ниц (не учитывая 1-ю и 0-ю). Короче, чем
больше памяти, тем больше страниц. В
GS_ROM есть программа тестирования памяти
(после reset), так вот там вроде задано
аж 64 страницы...
И еще по поводу памяти. На 512-ти
килобайтной версии есть такой аппаратный
"глюк": при включении одной из страниц,
включаются сразу две, т.е. 32к пропадают.
Поэтому всего у GS доступной памяти
51232=480к!
2. IN A,(#01) (прочитать содержимое реги-
стра команд) Т.е. прочитать, что было по-
слано Спеком в регистр команд (#BB).
3. IN A,(#02) (прочитать содержимое реги-
стра данных) Т.е. прочитать, что было по-
слано Спеком в регистр данных (#B3).
4. OUT (#03),Data (заслать данные для
Speccy) По сути, передать данные для Спе-
ктрума, т.е. их можно будет прочитать на
ZX из регистра данных (#B3).
5. IN A,(#04) (прочитать содержимое реги-
стра состояния)
Биты: 0 - Command bit
7 - Data bit
Назначение их такое же, как и у Sta-
tus register со стороны Speccy. Например,
если Command bit равен 1, значит поступи-
ла команда и надо бы ее выполнить.
Примечание: при работе с регистром данных
(чтение/запись), Data bit _автоматически_
изменяется, в отличие от Command bit! Ес-
ли со Спектрума послали число в регистр
команд, то Command bit, как и положено,
установится в 1, но он не сбросится при
чтении его GS'ом.
6. OUT (#05),A (сброс бита Command bit в
регистре состояния) Обычно этим дается
знать компу, что команда в GS выполнена
(или принята к обслуживанию). Число засы-
лаемое в порт может быть любым.
Примерчик (алгоритмик) работы со всем этим:
> Ждем пока Command bit не установится в
1. Этим мы дожидаемся когда со Спека пос-
тупит команда.
> Берем значение из регистра команд (но-
мер команды). В зависимости от этого пры-
гаем куда надо.
>...прыгнули, допустим, сюда... Необходи-
мо дать понять Спеку, что команда приня-
та, чтобы он не повисал в ожидании. Т.е.
делаем OUT (#05), а затем выполняем нуж-
ную прогу. Либо можно сделать иначе, если
что-то нужно выполнить, а затем передать
результаты компу: сначала все выполняем,
запихиваем данные с помощью OUT (#03), a
затем делаем OUT (#05). На Speccy надо
будет дать номер команды, дождаться ее
выполнения и смело брать данные из Output
register. Вообще, здесь необходимо дейст-
вовать логично, и если вы сделаете OUT
(#05) раньше, чем OUT (#03), то рискуете
взять на Спектруме не те данные. Ну да
мне кажется, что такие моменты и так дол-
жны быть ясны...
7. OUT (#06),Volume (громкость канала A)
OUT (#07),Volume (громкость канала B)
OUT (#08),Volume (громкость канала C)
OUT (#09),Volume (громкость канала D)
Громкости задаются числом от 0 до
63(#3F).
Вывод в ЦАП:
Он сделан весьма оригинально: по
чтению из памяти. Так, сначала надо запи-
сать нужное число в ячейку, а затем про-
читать его оттуда. Канал (точнее сказать
ЦАП), зависит от адреса:
#6000-#60FF - для канала A
#6100-#61FF - для канала B
#6200-#62FF - для канала C
#6300-#63FF - для канала D
#6400-#64FF - для канала A
#6500-#65FF - для канала B
#6600-#66FF - для канала C
#6700-#67FF - для канала D
И т.д. до #7FFF.
Эта область памяти удобно может быть
использована под буфер, т.е. вы сначала
быстро кидаете в нее данные, а потом в
нужное время воспроизводите.
Прерывания:
Частота сигнала INT - 37500Гц, т.е.
прерывания приходят 37,5 тыс. раз в секу-
нду. На них обычно и вешают проигрывалку
музы, точнее, прогу, которая кидает дан-
ные в ЦАП'ы.
Прикинем, 12000000/37500=320 тактов
на прерывание. Это не так много, поэтому
надо рассчитывать, чтобы то, что висит на
прерываниях, не было слишком долгим, ина-
че основная прога будет сильно тормозить.
Практика
Здесь будут рассмотрены конкретные
примеры по программированию GS на ASM'е.
1. Определение наличия GS.
;CY=1, если GS отсутствует
GS_DET LD A,#7F:IN A,(#FE):CPL; самый удачный вариант -
RRCA:RET C; принудительное отключение user'ом.
LD A,#F3:OUT (#BB),A; restart GS
LD B,200; время (ZX_INTs), в течение которого ждем
; ответа от GS - 4 сек.
GS_DET1 EI:HALT:DI
IN A,(#BB):RRCA; смотрим, взял ли GS команду
IN A,(#7B):JR NC,GS_DET2
;in a,(#7b) нужен для того, чтобы прога не вылетала на Penta-
;gon'ах со включенным ZX-LPRINT3, т.к. если GS нет,то включит-
;ся ПЗУ ZX-LPRINT3!
DJNZ GS_DET1
SCF:RET; GS так и не ответил
GS_DET2 XOR A:OUT (#BB),A; след. этап - команда Reset Flags.
GS_DET3 EI:HALT:DI
IN A,(#BB):CP #7E; проверяем, сбросились ли флаги...
IN A,(#7B):RET Z
DJNZ GS_DET3
SCF:RET; время вышло, а флаги не сбросились
;Хотя... если вдруг из (#BB) всегда читается 0 (платы нет), то
;тест ошибется... Тогда надо бы (а надо ли вообще?) добавить
;тестов, например, заставить GS вернуть заданное вами значение
;(команда #10, порт 3).
2. Загрузчик программ в GS.
INITgs CALL DEINIT; restart GS, если еще не делали
LD HL,SUBPRG; адрес нашего вспомогательного загрузчика
LD BC,#0080; длина блока
LD A,C:CALL SD
LD A,#14:CALL SC; загрузить блок в GS
LD A,B:CALL SD:CALL WD
XOR A:CALL SD:CALL WD; адрес загрузки #4000
LD A,#40:CALL SD:CALL WD
LOOPiGS LD A,(HL):CALL SD:CALL WD; засылаем блок
INC HL:DEC BC
LD A,B:OR C:JR NZ,LOOPiGS
XOR A:CALL SD; запускаем программу с адреса #4000
LD A,#13:CALL SC
LD A,#40:CALL SD
;А дальше работает наш загрузчик, который подготовит все для
;загрузки нашей программы. Зачем такой изврат? Сначала, когда
;работало внутреннее ПО карты, стек был в районе #4400, а с
;#4000 шли всякие системные переменные этого ПО. А наш ма-
;ленький загрузчик переставит стек и, если надо, включит нуж-
;ную нам страницу и т.п.
LD HL,PROG; адрес и длина самой программы
LD BC,EPRG-PROG_
LOOpiGS LD A,(HL):CALL SD:CALL WD; засылаем блок
INC HL:DEC BC
LD A,B:OR C:JR NZ,LOOpiGS
RET
;А вот и сам загрузчик. Учитываем, что он должен работать по
;адресу #4000, поэтому либо ассемблируем его соответственно,
;либо не используем прямых адресаций (JP, CALL)
SUBPRG DI
LD SP,#407F
LD HL,#4080:PUSH HL; адрес загрузки в GS
LD C,2; порт
LD DE,EPRG-PROG_
SUBPRG1 IN A,(4):BIT 7,A:JR Z,SUBPRG1; ждем прихода байта
INI:DEC DE; кидаем его в память
LD A,D:OR E:JR NZ,SUBPRG1
RET
;Далее запускается наша прога. Шаблон такой:
PROG
ORG #4080,$
PROG_ .....
.....
EPRG
;org #4080,$ - это синтаксис STORM'а, а как это делается в
;других ассемблерах, вам лучше знать. Смысл такой, что прог-
;рамма физически располагается следом за основной, а ассембли-
;рована под адрес #4080.
3. Поиск свободной памяти в GS.
LD HL,#FFFF
LD A,#0F; максимум 15 страниц...
LPP0 OUT (0),A:LD (HL),A; в страницу записываем ее номер
DEC A:CP 1:JR NZ,LPP0; все страницы кроме 1-й и 0-й
;Можно, конечно, и 1-ю посчитать, но работать с ней не очень
;удобно (аля 5-й банк в Speccy).
INC A
LD DE,PAGETAB; таблица номеров страниц
LD IX,0; будем считать количество страниц
LPP1 OUT (0),A
CP (HL):JR NZ,LPP2
LD (DE),A; если номер страницы совпадает с числом,
INC DE,HX; записанным в ней, то заносим ее в таблицу
LPP2 INC A:BIT 6,A:JR Z,LPP1; 15-я - последняя
;Дальше, если надо, можем очистить страницы. Но желательно
;учесть, что страниц может быть много, и лучше бы (если память
;позволяет) очищать через PUSH.
.....
;Можно передать информацию о количестве страниц Спеку.
LPP3_ LD A,HX:OUT (3),A
OR A:JP Z,0; если страниц нет, то RESET
IN A,(4):RLCA:JR C,$-3; ждем пока он их возьмет
.....
PAGETAB DS 14
4. Основной цикл и процедуры.
;Вариантов построения программы несколько. Если предполагается
;наличие небольшого количества команд, то можно просто поль-
;зоваться условиями CP #XX:JR Z,NNNN. Если же команд много, то
;лучше составить табличку с адресами.
GSMAIN1 IN A,(4):RRCA:JR NC,GSMAIN1; ждем команду
IN A,(1); берем ее номер
LD HL,GSMAIN1:PUSH HL; по RET вернемся в цикл
OR A:JR Z,PROG0; команда 0
CP 1:JR Z,PROG1; команда 1
CP 2:JP Z,PROG2; команда 2
CP #F3:JP Z,0; стандартные RESET'ы
CP #F4:JP Z,0
;если команда отсутствует, то ничего не делаем, а просто дадим
;Спектруму знать, что команда принята, а то он повиснет в
;ожидании
OUT (5),A
RET
;Вариант программы, когда сначала сигналим Спектруму, что все
;ОК, а затем исполняем прогу.
PROG0 OUT (5),A
.....
RET
;Вариант программы, когда сначала что-то исполняем, получаем,
;затем посылаем результат Спектруму, а потом уже сигналим, что
;прога выполнилась.
PROG1 .....
OUT (5),A
RET
;А можно и так выпендриться.
PROG2 OUT (5),A
.....
IN A,(4):RRCA:JR NC,$-3; ждем прихода любой команды
.....
OUT (5),A
RET
;Т.е. здесь будет так: вы посылаете со Спектрума команду #2,
;GS говорит, что команда принята, что-то исполняет и ждет при-
;хода любой команды. Потом опять что-то исполняет, и говорит,
;что все готово. Получается некий триггер.
5. Загрузка/выгрузка блоков данных.
а) Вариант 1 - коротко и ясно.
;Загрузка данных (GS side):
LD HL,#8000; адрес в GS
LD BC,#4000; длина блока
WAITD IN A,(4):RLCA:JR NC,WAITD; ждем байт
IN A,(2):LD (HL),A:INC HL; принимаем
DEC C:JR NZ,WAITD; повторяем
DEC B:JR NZ,WAITD
;Выгрузка (GS side):
LD HL,#8000; адрес в GS
LD BC,#4000; длина блока
WAITD_1 LD A,(HL):OUT (3),A; высылаем байт
WAITD_ IN A,(4):RLCA:JR C,WAITD_; ждем принятия
INC HL
DEC C:JR NZ,WAITD_1; повторяем
DEC B:JR NZ,WAITD_1
;Загрузка данных в GS (ZX side):
LD HL,#8000
LD BC,0-#4000; (0 минус длина блока)
GS1 LD A,(HL):OUT (#B3),A; кидаем
IN A,(#BB):RLCA:JR C,$-3; ждем принятия
INC C:JR NZ,GS1
INC B:JR NZ,GS1
;Выгрузка данных из GS (ZX side):
LD HL,#8000
LD BC,0-#4000
GS2 IN A,(#BB):RLCA:JR NC,$-3; ждем поступления
IN A,(#B3):LD (HL),A; принимаем
INC C:JR NZ,GS2
INC B:JR NZ,GS2
б) Вариант 2 - ускоренный за счет раскры-
тия циклов, но при этом должна быть фик-
сированная длина блока.
;Загрузка данных (GS side):
LD HL,#8000; адрес в GS
LD E,8; количество циклов
LD C,2; порт
LOAD_2
.0 IN A,(4):RLCA:JP NC,$-3:INI; повторяем 256 (0) раз
DEC E:JP NZ,LOAD_2; 256*8=2048 байт примем
;Загрузка данных в GS (ZX side):
LD HL,#8000
LD C,#B3; порт данных
LD E,8; количество циклов
LOAD_2_
.0 OUTI:IN A,(#BB):RLCA:JP C,$-3; повторяем 256 (0) раз
DEC E:JP NZ,LOAD_2_; 2048 байт передадим
;Смысл понятен - раскрываем циклы, тем самым жрем память, но
;немного повышаем быстродействие. Остальные процедуры, надо
;будет, сами напишете... Кстати, цикл ожидания тоже можно не-
;много развернуть:
;было
IN A,(#BB):RLCA:JP C,$-3; 11+4+10=25 тактов
;стало
LOOOP
IN A,(#BB):RLCA:JR NC,LOOOPE; 11+4+7=22 такта
IN A,(#BB):RLCA:JR NC,LOOOPE
IN A,(#BB):RLCA:JR C,LOOOP
LOOOPE
;Т.к. jr при невыполнении условия длится 7 тактов, то мы эко-
;номим по 3 такта на цикл. Т.е. опрос происходит чаще.
в) И еще один не менее интересный спо-
соб:
;Загрузка данных (GS side):
LD HL,#8000; адрес
LD C,1; порт
IN A,(4):RLCA:JP NC,$-3;
INI; +повторяем нужное кол. раз
IN A,(2):LD (HL),A:INC HL; /
OUT (5),A;чтобы потом GS не подумал,что пришла команда
;Таким образом, прием идет через 2 порта. Т.е. через порт 1
;(#BB на ZX) идет первый байт, а через порт 2 (#B3) - второй.
;Загрузка данных в GS (ZX side):
LD HL,#8000; адрес
LD C,#BB; порт
OUTI;
LD A,(HL):OUT (#B3),A:INC HL; +повт. нужное кол. раз
IN A,(#BB):RLCA:JP C,$-3; /
;Воспользоваться данным методом для передачи данных из GS не-
;возможно, т.к. в этом направлении порт только один.
6. Вывод звука.
а) Проигрывание сэмпла из памяти без пре-
рываний.
LD HL,#8000; адрес сэмпла в GS
LD BC,#8000; длина сэмпла
LD DE,#6000; адрес ячейки ЦАП (#61XX, #62XX, #63XX)
LOOP LD A,(HL); берем байт
LD (DE),A; заносим в память
LD A,(DE); кидаем в ЦАП
.....; некоторая задержка (EI:HALT или NOP'ы ?!?)
INC HL:DEC BC
LD A,B:OR C:JR NZ,LOOP
б) Проигрывание сэмпла из памяти, с испо-
льзованием прерываний.
;программа, висящая на прерываниях, может выглядеть так:
;DE=SMP_ADR
INT PUSH HL,AF
LD HL,#6000; адрес ЦАП'а
LD A,(DE):INC DE; берем очередной байт сэмпла
LD (HL),A:LD A,(HL):INC H; ЦАП A
LD (HL),A:LD A,(HL):INC H; ЦАП B
LD (HL),A:LD A,(HL):INC H; ЦАП C
LD (HL),A:LD A,(HL); ЦАП D
POP AF,HL
EI:RET
;Естественно, что проигрывание не будет остановлено - нет та-
;кого условия, т.к. это только пример. Причем плохой. Прерыва-
;ние не должно быть слишком длинным, поэтому желательно убрать
;оттуда лишние команды, да и вообще, организовать работу по-д-
;ругому. Сделать область памяти #6000-#60FF и т.д. буфером, в
;который мы быстро напихаем данные, а потом они будут играться
;со своей скоростью. А когда закончатся, снова напихаем!
;HL'=#6000
INT EXX:EXA; EXA=EX AF,AF'
LD A,(HL); кидаем в ЦАП
INC L:JR Z,FILLBUF; если буфер кончился...
EXA:EXX
EI:RET
FILLBUF EXX:EXA
EI
FB1 LD HL,#8000; адрес сэмпла
LD BC,256; длина буфера
LD DE,#6000; адрес буфера
LDIR
LD (FB1+1),HL; сохраняем след. адрес
RET
;Несмотря на то, что FILLBUF вызывается из прерываний и раз;-
;решает их, ничего страшного не произойдет, если успеть все
;сделать, пока буфер не закончился опять. Также надо успеть
;закинуть первый байт до того, как придет прерывание, иначе
;проиграется не то и будет щелчок. Выходом из этого положения
;является создание 2-го буфера, таким образом, пока один иг-
;рается, заполняем второй.
;Кстати, частота дискретизации в этом случае будет 37500Гц,
;поэтому, если вам надо меньше, то придется изменить алгоритм
;поставить делители частоты (в FILLBUF), которые заставят один
;и тот же байт повторяться несколько раз.
7. Отладка.
В связи с отсутствием отладчика под
GS, написанные программы нелегко отлажи-
вать. Но можно воспользоваться тем, что
GS умеет воспроизводить звук, отследив
тем самым этап, на котором прога глючит.
Напишем пищалку:
GSBEEP LD BC,#0010,DE,#6000
GSBEEP1 LD A,120:LD (DE),A,A,(DE)
DJNZ $
LD A,128:LD (DE),A,A,(DE)
DJNZ $
DEC C:JR NZ,GSBEEP1
;сюда можно вставить паузу, на случай, если 2 бипа пойдут че-
;рез небольшое время
RET
Теперь можно навставлять в программу
обращений к GSBEEP и слушать, сколько би-
пов будет до сбоя...
Найти ошибку в алгоритме можно с по-
мощью STS. Просто нужно программу для GS
поместить в память ZX-Spectrum (по тем же
адресам) и пошагово исполнять, только ко-
манды in a,(xx) пропускать, а в аккумуля-
тор заносить нужные значения вручную (out
(xx),a можно просто пропускать).
Кстати, на данный момент уже появи-
лась низкоуровневая эмуляция GS в
Z80Stealth, там же есть и отладчик, так
что можно пользоваться им, правда, вот,
только не очень удобно...
Ну вот пока и все. Надеюсь, я ясно
все об'яснил и показал. Теперь любой че-
ловек, знающий ассемблер Z80, может легко
разобраться с прямым программированием
GS. Кто знает, может скоро появится куча
хороших программ под GS ? Никто не хочет
сделать дебагер для Speccy с ядром в GS?
;-)))
