SprPoP: автономное приложение, выделенное из roomtest

Порт PoP переехал в applications/SprPoP — приложение, которое собирается само: код, оригинальные данные, конверторы ресурсов и сборка внутри одной папки. Наружу знает единственный путь — корень тулчейна (SPRINTER_ROOT, по умолчанию ../..). applications/PoP/roomtest ЗАМОРОЖЕНА и остаётся архивом закрытых задач, багов и исполненных планов. Скопировано из applications/PoP/roomtest@4b74478. Перенос проверен побайтово: собранный sprpop.exe совпал с roomtest.exe того же коммита, все 39 дисковых ресурсов и все 16 генерируемых заголовков — тоже, host- тесты зелёные (15/15). Раскладка: src/ рукописный C (roomtest.c -> sprpop.c) gen/ генерируемые заголовки, в репозитории assets/orig/ оригинальные данные игры, вне репозитория (копирайт) assets/packed/ то, что ложится на диск, в раскладке диска tools/ конверторы; все пути — в одном tools/paths.py build/ выход: exe, каталоги ресурсов, hdd/, промежуточные atl/ Сборка ресурсов: assets/packed и gen — версионируемые ВХОДЫ, а не то, что пересчитывается каждым make. Автоматика построена на ОТСУТСТВИИ файла, а не на таймстемпах: git не хранит времена, и в свежем клоне сравнение по времени превращалось бы в лотерею. Недостающий ресурс или заголовок чинится сам, рекурсивным вызовом в ветку генерации. Музыка собирается из любого из четырёх наборов записей (make music-mp3, music-mt32, ...); набор входит в имя stamp'а, поэтому смена набора сама делает музыку устаревшей. Длины реплик больше не захардкожены: упаковщик печатает их в gen/pop_music_ticks.h, и шкала сцены выражена через них — иначе mt32 (реплики на 6% длиннее) молча ломал катсцену. Тулчейн: в app.mk два обратносовместимых крючка (SRC_DIR/BUILD_DIR), HDD_IMG стал ?=; команда сборки roomtest не изменилась. Корневой make host-tests переключён на SprPoP. Подгонка тайминга катсцены с принцессой (PV_MAGIC_LEAD): сцена render-bound и идёт ~49 тиков/с вместо 60, из-за чего кода реплики приходила раньше молнии. Это обход, а не лечение; разбор с замерами — docs/BUGS_OPEN.md, записи SND-PACE-DEAD, PV-RENDER-BOUND, MUS-LEFT-TEAR. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
2026-08-27 12:12:28 +03:00
parent 4b74478d19
commit 31b82661eb
235 changed files with 51293 additions and 10 deletions
@@ -0,0 +1,114 @@
+/*
+ * pop_sfx_cold.c — ХОЛОДНАЯ половина звука: поднять набор и открыть CBL.
+ * Отрабатывает один раз за запуск, поэтому живёт в банке 8; горячая
+ * половина (насос, запуск эффекта) — в резиденте, см. pop_sfx.c.
+ */
+
+#include <stdint.h>
+#include <sprinter_mem.h>
+#include <cbl.h>
+#include "pop_sfx.h"
+#include "pop_arc.h"
+#define POP_SND_FILES      /* имена файлов нужны ТОЛЬКО здесь, см. pop_sound_tbl.h */
+#include "_pop_sfx.h"
+
+static uint8_t snd_blk;              /* блок EMM под весь набор */
+
+int pop_sfx_init(void) __banked
+{
+    uint8_t i, blk;
+
+    if (pop_snd_ok) return 0;
+
+    /* Одним блоком: страницы блока идут подряд по логическому индексу, и
+     * таблица звуков адресует их именно так (page = смещение >> 14).
+     *
+     * Из АРХИВА, а не десятью файлами: `open` стоит 51,4 мс против 32,6 мс
+     * на чтение 16 КБ (замер 2026-08-25), то есть девять лишних открытий —
+     * это почти полсекунды на ровном месте.  Таблица живёт на стеке, см.
+     * pop_arc.h. */
+    {
+        pop_arc_t arc;
+        uint8_t tbl[POP_SND_PAGES * POP_ARC_REC];
+
+        if (pop_arc_open_id(&arc, POP_ARC_SND, tbl, POP_SND_PAGES) !=
+            POP_SND_PAGES)
+            return -1;
+        blk = mem_alloc_pages(POP_SND_PAGES);
+        if (!blk) { pop_arc_close(&arc); return -1; }
+        for (i = 0; i < POP_SND_PAGES; i++) {
+            pop_snd_page[i] = mem_get_page(blk, i);
+            if (!pop_snd_page[i] ||
+                pop_arc_read(&arc, tbl, i, 0, pop_snd_page[i], 0, 0) != 16384) {
+                pop_arc_close(&arc);
+                mem_free_block(blk);
+                return -1;
+            }
+        }
+        pop_arc_close(&arc);
+    }
+    snd_blk = blk;
+    pop_snd_want = 1;                    /* набор есть — звук по умолчанию включён */
+    return 0;
+}
+
+/* ЗАПУСТИТЬ ВЫВОД — ОТДЕЛЬНО ОТ ЗАГРУЗКИ, и это не косметика.
+ *
+ * Пока идёт чтение файлов, CBL держать открытым НЕЛЬЗЯ: ESTEX уходит в
+ * диск надолго, насос не успевает долить очередные 128 байт, и железо
+ * крутит по кругу хвост своего 256-байтового буфера.  На слух это
+ * сплошной скрежет (поймано пользователем на старте, 2026-08-20).
+ * Поэтому загрузка страниц и открытие CBL разведены: грузим молча,
+ * включаем звук последним действием, а на время загрузки уровня глушим
+ * (pop_sfx_pause).
+ *
+ * Параметры: 10 937,5 Гц, 8 бит моно — формат данных один в один
+ * (sound_plan.md).  OTIR, а не акселератор: тот нужен только для 16 бит.
+ * cbl_open, а не cbl_open_silence: тишину насос льёт СВОЮ (первый блок
+ * набора), и просить у libc буфер через malloc не надо — куча в резиденте
+ * W2 тесная, и её отказ ронял бы весь звук.  Заодно так malloc вообще не
+ * приезжает в резидент (275 Б, см. libc/cbl/_cbl_open_raw.c). */
+int pop_sfx_start(void) __banked
+{
+    if (pop_snd_ok)   return 0;
+    if (!pop_snd_want) return 0;            /* выключено пользователем (Ctrl+S) */
+    if (!snd_blk)      return -1;           /* набор не загружен */
+    if (cbl_open(CBL_FREQ_10K9, CBL_FMT_MONO8, CBL_PUMP_OTIR,
+                 pop_sfx_fill) != 0)
+        return -1;
+    pop_snd_ok = 1;
+    return 0;
+}
+
+void pop_sfx_pause(void) __banked
+{
+    if (!pop_snd_ok) return;
+    pop_sfx_stop();
+    cbl_close();
+    pop_snd_ok = 0;
+}
+
+void pop_sfx_close(void) __banked
+{
+    pop_sfx_pause();
+    if (snd_blk) { mem_free_block(snd_blk); snd_blk = 0; }
+}
+
+/* Ctrl+S — порт `turn_sound_on_off((!is_sound_on) * 15)` из SDLPoP
+ * (seg000:657).  Выключение реально ЗАКРЫВАЕТ CBL, а не глушит сэмпл:
+ * иначе насос продолжал бы отдавать блоки тишины 85 раз в секунду, а это
+ * 3,3 % процессорного времени ни за что (замер: 8 001 такт на прерывание
+ * при периоде 245 759).  Открытие обратно дешёвое — cbl_open только
+ * настраивает железо, страницы набора никуда не девались. */
+void pop_sfx_toggle(void) __banked
+{
+    if (pop_snd_want) {
+        pop_sfx_pause();                 /* pause сам не трогает want... */
+        pop_snd_want = 0;                /* ...поэтому гасим его следом   */
+    } else {
+        pop_snd_want = 1;
+        /* Набора может не быть вовсе (файлы не прочитались, страницы не
+         * дались) — тогда откатываем флаг, чтобы индикация не врала. */
+        if (pop_sfx_start() != 0) pop_snd_want = 0;
+    }
+}