Упаковщик звуковых эффектов + сверка наборов MSDOS и SDLPoP

Эффекты берём из MSDOS/digisnd*.dat: 28 из 31 звука совпадают побайтно с
набором SDLPoP, но три различаются не в пользу последнего — у него
sword_vs_sword короче, sword_moving другой, а spiked вообще пустой
(7 сэмплов против 5 069).

MIDI наоборот: у MSDOS формат 0 (всё слито в одну дорожку), у SDLPoP
формат 1 с 8-9 дорожками — готовое разделение голосов, если дойдём до
пути B (MIDI -> три канала AY).

Упаковщик: 31 эффект -> 10 937,5 Гц, 131 072 Б = 8 EMM-страниц.  Начало
каждого звука выровнено на 128 (блок запроса CBL), а страница кратна 128,
поэтому ни один блок не пересекает границу страницы — проигрывателю не
нужна логика стыка.

applications/PoP/roomtest/pop_sfx.h

@@ -0,0 +1,43 @@
+/*
+ * pop_sfx.h — звуковые ЭФФЕКТЫ PoP через COVOX-Blaster.
+ *
+ * Данные — оригинальная оцифровка игры (`digisnd1..3.dat`), приведённая
+ * упаковщиком к 10 937,5 Гц.  Конвертировать в рантайме нечего: у PoP
+ * сэмплы 8 бит БЕЗЗНАКОВЫЕ МОНО, и это ровно формат CBL (см. <cbl.h> и
+ * ../docs/sound_plan.md).
+ *
+ * ОДИН ГОЛОС.  Оригинал тоже одноголосый: `play_sound` глушит
+ * предыдущий звук (`stop_sounds`, seg009.c), поэтому новый эффект просто
+ * перебивает играющий, и никакого микшера не нужно.
+ *
+ * ПОЧЕМУ ЭТО НЕ ЛОМАЕТ КАДР.  Насос живёт в прерывании CBL и отдаёт 128
+ * байт раз в ~11,7 мс.  Кадровые прерывания при этом теряются (ветка CBL
+ * в трамплине делает приватный RETI), но нам всё равно: темп кадра
+ * считается ПО ЛУЧУ (pop_pace.h), а не по прерываниям.  Если бы пейсинг
+ * остался на них — звук сломал бы игру.
+ */
+#ifndef POP_SFX_H
+#define POP_SFX_H
+
+#include <stdint.h>
+
+/* Поднять звук: занять 8 EMM-страниц, вычитать в них набор, открыть CBL.
+ * 0 — OK, -1 — не получилось (тогда pop_sfx_play молча ничего не делает,
+ * игра идёт без звука).  Звать один раз при старте. */
+int  pop_sfx_init(void) __banked;
+
+/* Закрыть CBL и отпустить страницы; звать на выходе. */
+void pop_sfx_close(void) __banked;
+
+/* Начать эффект с номером id (0..56 — нумерация оригинала, см.
+ * sound_plan.md).  Перебивает играющий.  У звуков без оцифровки (это
+ * музыка) длина 0 — вызов просто глушит текущий.
+ *
+ * НЕ банковая и НЕ __banked: зовётся из горячих мест (play_seq в
+ * pop_kid.c, физика, боёвка), и трамплин на каждый шаг Кида не нужен. */
+void pop_sfx_play(uint8_t id);
+
+/* Оборвать текущий эффект (порт stop_sounds). */
+void pop_sfx_stop(void);
+
+#endif

applications/PoP/roomtest/pop_sound_tbl.h

@@ -0,0 +1,98 @@
+/* pop_sound_tbl.h — раскладка оцифрованных эффектов PoP.
+ * СГЕНЕРЕНО toolchain/pop_pack_sound.py — НЕ править вручную.
+ *
+ * Данные: 8 бит беззнаковые, МОНО, 10937.5 Гц (CBL_FREQ_10K9) — формат
+ * CBL один в один, конвертировать в рантайме нечего.
+ *
+ * Начало каждого звука кратно 128 — размеру блока запроса CBL, а
+ * страница (16384) кратна ему же.  Поэтому НИ ОДИН блок не пересекает
+ * границу страницы, и проигрывателю не нужна логика стыка.
+ *
+ * Смещение хранится РАЗОБРАННЫМ на страницу и адрес в окне: на Z80
+ * 32-битная арифметика дорога, а так всё влезает в 8/16 бит.
+ * Длина округлена вверх до блока — неполных блоков не бывает.
+ */
+#ifndef POP_SOUND_TBL_H
+#define POP_SOUND_TBL_H
+
+#include <stdint.h>
+
+#define POP_SND_PAGES   8
+#define POP_SND_COUNT   57
+#define POP_SND_BLOCK   128
+
+typedef struct { uint8_t page; uint16_t off; uint16_t len; } pop_snd_ent_t;
+
+/* len == 0 — у звука нет оцифровки (это музыка, см. sound_plan.md). */
+static const pop_snd_ent_t pop_snd_tbl[POP_SND_COUNT] = {
+    { 0, 0x0000,  1664 },   /*  0 */
+    { 0, 0x0680, 12032 },   /*  1 */
+    { 0, 0x3580,  6272 },   /*  2 */
+    { 1, 0x0E00,  1280 },   /*  3 */
+    { 1, 0x1300,  1152 },   /*  4 */
+    { 1, 0x1780,  1408 },   /*  5 */
+    { 1, 0x1D00,  5504 },   /*  6 */
+    { 1, 0x3280,   896 },   /*  7 */
+    { 1, 0x3600,  1664 },   /*  8 */
+    { 1, 0x3C80,  2816 },   /*  9 */
+    { 2, 0x0780,  4992 },   /* 10 */
+    { 2, 0x1B00,  1280 },   /* 11 */
+    { 2, 0x2000,  1280 },   /* 12 */
+    { 2, 0x2500,  3840 },   /* 13 */
+    { 2, 0x3400,  7552 },   /* 14 */
+    { 3, 0x1180, 17664 },   /* 15 */
+    { 4, 0x1680,  4736 },   /* 16 */
+    { 4, 0x2900,  4224 },   /* 17 */
+    { 4, 0x3980,  6912 },   /* 18 */
+    { 5, 0x1480,  2816 },   /* 19 */
+    { 5, 0x1F80,  1408 },   /* 20 */
+    { 5, 0x2500,  1152 },   /* 21 */
+    { 5, 0x2980,  1280 },   /* 22 */
+    { 5, 0x2E80,  1408 },   /* 23 */
+    { 0, 0x0000,     0 },   /* 24 */
+    { 0, 0x0000,     0 },   /* 25 */
+    { 0, 0x0000,     0 },   /* 26 */
+    { 0, 0x0000,     0 },   /* 27 */
+    { 0, 0x0000,     0 },   /* 28 */
+    { 0, 0x0000,     0 },   /* 29 */
+    { 0, 0x0000,     0 },   /* 30 */
+    { 0, 0x0000,     0 },   /* 31 */
+    { 0, 0x0000,     0 },   /* 32 */
+    { 0, 0x0000,     0 },   /* 33 */
+    { 0, 0x0000,     0 },   /* 34 */
+    { 0, 0x0000,     0 },   /* 35 */
+    { 0, 0x0000,     0 },   /* 36 */
+    { 0, 0x0000,     0 },   /* 37 */
+    { 0, 0x0000,     0 },   /* 38 */
+    { 0, 0x0000,     0 },   /* 39 */
+    { 0, 0x0000,     0 },   /* 40 */
+    { 0, 0x0000,     0 },   /* 41 */
+    { 0, 0x0000,     0 },   /* 42 */
+    { 0, 0x0000,     0 },   /* 43 */
+    { 5, 0x3400,  2688 },   /* 44 */
+    { 5, 0x3E80,  4224 },   /* 45 */
+    { 6, 0x0F00,  4608 },   /* 46 */
+    { 6, 0x2100,  5120 },   /* 47 */
+    { 6, 0x3500,  5120 },   /* 48 */
+    { 7, 0x0900,  4480 },   /* 49 */
+    { 0, 0x0000,     0 },   /* 50 */
+    { 7, 0x1A80,  4864 },   /* 51 */
+    { 0, 0x0000,     0 },   /* 52 */
+    { 0, 0x0000,     0 },   /* 53 */
+    { 0, 0x0000,     0 },   /* 54 */
+    { 0, 0x0000,     0 },   /* 55 */
+    { 0, 0x0000,     0 },   /* 56 */
+};
+
+static const char *const pop_snd_files[POP_SND_PAGES] = {
+    "SND\\s0.bin",
+    "SND\\s1.bin",
+    "SND\\s2.bin",
+    "SND\\s3.bin",
+    "SND\\s4.bin",
+    "SND\\s5.bin",
+    "SND\\s6.bin",
+    "SND\\s7.bin",
+};
+
+#endif