Откат оптимизации резидента: перенос данных банка в его страницу ломает картинку

Возврат к состоянию после звуковых правок (c6828c0). Отменяются 3545826 и 9025573 целиком: --bank-data=SRC в sprinter-cc, его включение в PoP и docs/resident_budget.md. Что выяснено и почему откат, а не доводка. Перенос писучих данных банкового модуля в его 16-КБ страницу даёт цветной мусор блоками и уводит DSS. У pop_trob причина найдена: pop_trob_modif() возвращает указатель на room_modif[24][30], и его разыменовывают банки 2/3/7 и резидент — то есть пишут по 0xC000+ в СВОЮ страницу, поверх чужого кода. Def/Ref-анализ такое не ловит: снаружи ссылки на символ нет, есть ссылка на функцию, отдающую его адрес. Но и один pop_room, у которого явной утечки указателя найти не удалось, ломается так же — значит механизм понят не до конца. Пока не понят, включать нельзя. Нулевая инициализация при этом ни при чём: mkexe -p 0 проверен по образу (прогон нулей 14304 Б, самый длинный прогон 0xFF — 14). Место в резиденте искать другими путями: malloc (287 Б, требует раздельных cbl_open для APP и SILENCE) и код pop_tile (5972 Б). Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Откат bank-data для pop_trob: указатель на его статику уходил наружу
2026-08-20 21:26:23 +03:00 · 2026-08-20 21:21:44 +03:00 · 2026-08-20 21:14:02 +03:00 · 2026-08-20 21:03:16 +03:00 · 2026-08-20 16:46:04 +03:00 · 2026-08-20 16:23:06 +03:00
32 changed files with 1498 additions and 107 deletions
@@ -156,6 +156,45 @@ B имеет смысл только если C окажется неподъё
 зеркальные наборы (`pop_vflip_load_all`: 28 Кид + 5 страж + меч = 34
 страницы), останется ~98.  Проверять запас надо ИМЕННО ТАМ.

+## 1г. MSDOS против SDLPoP: чем отличаются наборы (сверено 2026-08-20)
+
+У нас лежат ДВЕ копии звука — оригинальные `.dat` в `MSDOS/` (версия
+1.3/1.4) и распакованные ассеты `SDLPoP/data/` (версия 1.0/1.1).  Разница
+есть, и она влияет на выбор источника.
+
+### Оцифровка: берём MSDOS
+
+Заголовок разный (`digi_new_type` против `digi_type`), но **28 звуков из
+31 совпадают побайтно**.  Различаются три, и все не в пользу SDLPoP:
+
+| id | звук | MSDOS | SDLPoP |
+|---|---|---:|---:|
+| 10 | `sword_vs_sword` | 5 020 сэмплов | 3 504 |
+| 11 | `sword_moving` | 1 172 | 1 172, но **другие байты** |
+| 48 | `spiked` | 5 069 | **7** — то есть звука нет |
+
+`spiked` в наборе SDLPoP фактически пустой.  Поэтому упаковщик читает
+`MSDOS/digisnd*.dat`, а не распакованные ассеты — в отличие от графики,
+где источник наоборот SDLPoP.
+
+### MIDI: если дойдём до музыки — брать SDLPoP
+
+Здесь всё наоборот.  Содержимое музыкально то же (деление 480, те же
+каналы 0..7 плюс ударные), но:
+
+| | MSDOS | SDLPoP |
+|---|---|---|
+| формат MIDI | **0** — всё слито в ОДНУ дорожку | **1** — 8-9 дорожек |
+| размер (звук 24) | 327 Б | 448 Б |
+| размер (звук 56) | 13 587 Б | 12 773 Б |
+
+Формат 1 с отдельной дорожкой на инструмент — это готовое разделение
+голосов.  Для пути B (MIDI -> три канала AY) оно решает половину задачи:
+дорожки можно выбирать напрямую (бас / мелодия / гармония), а не
+разбирать слитый поток и догадываться, что чем было.
+
+**Итог: эффекты из MSDOS, музыка (когда дойдёт) из SDLPoP.**
+
 ## 2. Что лежит в ассетах (замерено, а не по памяти)

 Звук в PoP адресуется как ресурс `10000 + N`, N = 0..56 — 57 звуков
@@ -294,3 +333,311 @@ IBM PC 1989 года: один квадратный голос.  Он у нас
 Если позже захочется богаче — материал уже будет разобран, и можно
 разложить те же мелодии на три канала AY (бас/мелодия/арпеджио), не трогая
 ни данные, ни секвенсор.
+
+---
+
+## 8. Разводка вызовов по коду (сделано 2026-08-20)
+
+Портированы ВСЕ места `play_sound()` SDLPoP, у которых есть оцифровка
+(id 0..23, 44..49, 51 — остальные id это музыка, у них в
+`pop_sound_tbl.h` длина 0, и вызов просто глушит текущий эффект).
+
+| id | что | где у нас | оригинал |
+|----|-----|-----------|----------|
+| 0  | разбился насмерть | `pop_map.c` land | seg005 |
+| 1  | крик падения | `pop_map.c` do_fall | seg005:39 |
+| 2  | плита рухнула | `pop_room.c` (обе ветки посадки) | seg007 |
+| 3  | кнопка нажата | `pop_trob.c` | seg007 |
+| 4/5/6/7 | ворота: закрываются / открываются / рухнули / стоп | `pop_trob.c` | seg007 |
+| 8  | удар о стену | `pop_map.c` bumped_fall/bumped_floor + seqtbl | seg004/seg006 |
+| 9  | зацеп за карниз | `pop_map.c` check_grab | seg006 |
+| 11 | свист клинка мимо | `guards.c` check_hurting | seg002:0DAE |
+| 12/13 | ранен соперник / Кид | `guards.c` hurt_by_sword | seg002:0C1F |
+| 13 | Кид ранен зельем | `pop_map.c` ветка «злого» зелья | seg006:1894 |
+| 14/15 | дверь уровня: закрывается / едет | `pop_trob.c` | seg007 |
+| 16 | средняя посадка; толчок о стража | `pop_map.c` land / bump_into_opponent | seg005/seg003:0654 |
+| 17 | мягкая посадка | `pop_map.c` land | seg005 |
+| 18 | пьёт | seqtbl (SEQ_SOUND) | seg006 |
+| 19 | вынул меч | `pop_ctrl.c` | seg005:945 |
+| 20/21/22 | дрожит плита | `pop_map.c` loose_shake | seg007:0E55 |
+| 23 | шаг | seqtbl (SEQ_SOUND) | seg006 |
+| 44 | скелет оживает | `guards.c` pop_check_skel | seg002:106D |
+| 45 | прыжок в зеркало | `pop_map.c` jump_through_mirror | seg003:0617 |
+| 46 | сожрал чомпер | `pop_map.c` | seg004 |
+| 47 | чомпер щёлкнул | `pop_trob.c` (кадр 2) | seg007 |
+| 48 | напоролся на пики | `pop_map.c` | seg005 |
+| 49 | пики пошли | `pop_map.c` start_anim_spike | seg007:08F6 |
+
+Что осталось не разведено — только МУЗЫКА (25 презентация, 26 объятия,
+27/35/40 заставки, 29 встреча Джафара, 30/33 зелья, 32/41 конец уровня,
+36 время вышло, 37 победа, 43 смерть Джафара, 50/52/53 сюжетные вставки)
+и 51 (дверь принцессы, тоже из заставки).  Их черёд — фаза «музыка».
+
+**Квирк, за которым следить.**  Звук ворот у оригинала звучит не всегда, а
+по условию видимости (`play_door_sound_if_visible`, seg007:1250): либо
+ворота в комнате слева и стоят в 9-й колонке, либо ворота в НАРИСОВАННОЙ
+комнате и колонка не 9-я.  У нас это параметр `audible` у `animate_door`.
+
+**Тряска плиты — свой домен prandom.**  Оригинал берёт номер сэмпла (20/21/22)
+из общего генератора и вдобавок «сжигает» один бросок ради совместимости с
+DOS-версией; у нас последовательности разведены по доменам
+(`impl_diff.md`), поэтому у тряски свой сид, а холостой бросок не делаем —
+на розыгрыши физики и кладки это не влияет.
+
+## 9. Цена звука в тактах (замер 2026-08-20, MAME)
+
+Вопрос был поставлен так: звук идёт по прерываниям, значит размазан по всем
+фазам кадра — и если фазы укладываются, всё хорошо?  Да, но проверять это
+надо не по фазам, а по двум числам, потому что **нагрузка от звука
+постоянная и от сцены не зависит вовсе**.
+
+### 9.1 Одно прерывание CBL
+
+Зонды: `bpset` на входе трамплина (`_irq_tramp`) и на `reti` ветки CBL,
+разница `totalcycles`.  398 замеров в сцене 11/15.
+
+| величина | значение |
+|---|---:|
+| цена одного прерывания | **7 825 тактов ровно**, с разбросом до 8 299 (среднее 8 001) |
+| период между прерываниями | 245 759 тактов (= 128 сэмплов на 10 937,5 Гц) |
+| **доля процессорного времени** | **8 001 / 245 759 = 3,26 %** |
+
+Цена постоянная, потому что работа фиксированная: OTIR ровно 128 байт плюс
+скобка сохранения контекста.  Ветвлений по данным в насосе нет.
+
+### 9.2 Дрожание обслуживания — риск для ЗВУКА, не для кадра
+
+Период плавает 228 804 … 262 734, то есть прерывание опаздывает максимум на
+**~17 000 тактов = 0,8 мс**.  Это самая длинная DI-скобка в коде
+(акселератор режется по 16 строк, memory `sprinter_wait_states_2x`).
+Буфер CBL — 128 сэмплов = **11,7 мс**, запас **14×**.  Недолива быть не
+может; счётчик `cbl_underruns()` это подтверждает косвенно (наш `fill`
+всегда возвращает 1, поэтому он ловит только отсутствие данных, не
+опоздание).
+
+### 9.3 A/B в одном прогоне (Ctrl+S), сцена 11/15
+
+Один и тот же кадр, звук выключается на ходу — сравнение чистое.
+
+| | работа min | работа max | работа avg | прерываний CBL на кадр |
+|---|---:|---:|---:|---:|
+| звук ВКЛ | 453 132 | 572 532 | **498 064** | 1,40 |
+| звук ВЫКЛ | 444 348 | 559 434 | **487 372** | 0,00 |
+| разница | +8 784 | +13 098 | **+10 692 (+2,2 %)** | |
+
+Разница на лёгком кадре (+8 784) — ровно одно прерывание, сходится с §9.1.
+`CBL/кадр = 0` при выключенном звуке подтверждает, что Ctrl+S реально
+ЗАКРЫВАЕТ CBL, а не глушит сэмпл: иначе насос продолжал бы отдавать блоки
+тишины и платить те же 3,26 %.
+
+### 9.4 Укладываемся ли
+
+Логический кадр (`pop_pace.h`): NORMAL = 4 растра вне боя = **1 720 000
+тактов**, FASTEST = 3 растра = **1 290 000**.
+
+| | работа | доля NORMAL | доля FASTEST |
+|---|---:|---:|---:|
+| 11/15, обычная позиция | 498 064 | 29 % | 39 % |
+| 11/15, тяжёлая позиция (Кид на 7 px правее) | 750 066 макс | 44 % | 58 % |
+
+Период кадра за все прогоны: 1 719 936 … 1 720 752 — ровно 4 растра, ни
+одного проскока.  **Звук занимает 1,1 % бюджета NORMAL и 1,5 % FASTEST.**
+
+### 9.5 Где 3,26 % МОГЛИ БЫ стоить дорого
+
+Ответ «всё размазано, если фазы влезли — ок» верен с одной оговоркой.
+Пейсинг квантован растром: работа 1,00 растра и 1,02 растра дают РАЗНЫЙ
+период кадра (3 против 4 интервалов), то есть скачок сразу на 20 мс.
+Значит звук опасен ровно в одной ситуации — когда сцена стоит в пределах
+~8 000 тактов НИЖЕ кратного растру порога.  Сейчас ближайший запас — 540 000
+тактов до порога FASTEST, то есть в 60 раз больше цены звука.  Проверять
+эту оговорку заново стоит только если работа кадра подберётся к 430 000 или
+860 000 вплотную.
+
+## 10. Мусор при включении и щелчок на выходе (разбор 2026-08-20)
+
+Жалоба: «при старте, когда разрешается звук, проходит кусок мусора».
+Разобрано записью выхода MAME в WAV (`-wavwrite`) — по огибающей и
+автокорреляции, а не на слух.
+
+### 10.1 На старте мусора НЕТ; это настоящие звуки
+
+От `cbl_open` до первого эффекта в записи **точная цифровая тишина**
+(размах 1 при разрешении 16 бит).  Дальше — два штатных звука:
+
+| что | когда | длительность |
+|---|---|---|
+| `gate_closing_fast` (6) — решётка в комнате СЛЕВА | +0,30 с после `cbl_open` | обрывается на 80 мс |
+| `soft_land` (17) — Кид приземляется | +0,38 с | 383 мс |
+
+Опознаны корреляцией огибающих с оригинальными сэмплами `digisnd`:
+звук 6 даёт +0,72 с начала записи, звук 17 — +0,32 со сдвигом 80 мс.
+Приземление на старте КОРРЕКТНО: `start_pos` уровня 1 — тайл (0,0), а он
+`space`, то есть Кид падает на ряд ниже, на площадку с факелами.
+
+Обрыв первого звука вторым — тоже поведение оригинала, а не наш дефект:
+`play_digi_sound` (seg009.c:2402) начинается с `stop_digi()`, голос ОДИН.
+Ощущение «мусора» даёт именно 80-мс огрызок скрежещущей решётки.
+
+Звук кнопки (3) при этом не слышен: `pop_sfx_play(3)` случается ДО
+`cbl_open` и глохнет.  С SDLPoP совпадает (там на старте тоже только
+решётка), но держится это на порядке вызовов — если поднимать звук раньше
+`pop_start_level`, щелчок кнопки станет слышен.
+
+### 10.2 Незалитый буфер CBL — дефект есть, но в MAME он немой
+
+Буфер CBL (256 слотов) железо не чистит ни сбросом, ни записью в порт
+управления, а эта запись сразу пускает воспроизведение с нулевого слота.
+Значит первые 256 сэмплов (23,4 мс) — то, что лежало раньше.  Разбор по
+`sprinter.cpp`: `case 0x89` делает `m_cbl_cnt = 0; m_cbl_wa = 0`, а
+прерывание «долей половину» приходит только на 128-м слоте и ставит
+указатель на ПРОТИВОПОЛОЖНУЮ половину — своими данными звук идёт лишь с
+третьей половины.
+
+В MAME это не слышно: эмулируемый буфер стартует нулями, а ЦАП
+двухдополнительный, то есть 0 = середина шкалы.  На ЖЕЛЕЗЕ там
+неинициализированное ОЗУ — ровно тот мусор, который ловился ещё на
+тестовых примерах CBL.  Лечение — `_cbl_prime` в `cbl_open`: сразу после
+включения 256 записей байта тишины в порт данных (заранее нельзя, запись
+проходит только при поднятом bit7).  Стоит 6 400 тактов один раз за
+открытие; за это время таймер уходит на два-три слота.
+
+### 10.3 Щелчок на выходе — ГОЛОДАНИЕ насоса, вылечено
+
+На выходе по ESC в записи было **ровно 11 мс шума на полной громкости**
+(размах 33 671 — громче всего в прогоне), потом мгновенная тишина.  11 мс
+= один блок CBL (128 сэмплов = 11,7 мс), то есть один пропущенный долив:
+`pop_shutdown` звал `closegraph`/`pop_bg_free`/`pop_kid_free` (а это
+ESTEX на каждый атлас) ПРИ ОТКРЫТОМ звуке, насос не успевал, и железо
+доигрывало несвежую половину.
+
+Лечение: `pop_sfx_close()` первым действием `pop_shutdown`.  Проверено
+второй записью — всплеска на выходе больше нет.  Механизм тот же, из-за
+которого звук глушится на время загрузки уровня.
+
+## 11. Приоритеты и перебиваемость: звук у оригинала НЕ «всегда перебивать»
+
+Пользователь услышал расхождение: у нас решётка обрывалась приземлением
+Кида, в SDLPoP — доигрывала до звонкого конца, а приземления не было
+слышно вовсе.  Разбор исходника показал, что мы упустили ЦЕЛЫЙ МЕХАНИЗМ.
+
+### 11.1 Модель оригинала
+
+```
+play_sound(id)          seg000:12C5 — только НОМИНИРУЕТ кандидата на кадр:
+    if next < 0 || prio[id] <= prio[next]:  next = id
+
+play_next_sound()       seg000:1304 — раз в кадр решает, запускать ли:
+    if next >= 0:
+        if !играет_что_то ||
+           (перебиваем[текущий] && prio[next] <= prio[текущий]):
+              текущий = next;  запустить
+    next = -1               // НЕ запустили -> номинант ВЫБРОШЕН, очереди нет
+```
+
+Три следствия, каждое слышно:
+
+- **Неперебиваемый звук доигрывает целиком.**  У `gate_closing_fast` (6)
+  `interruptible = 0`, поэтому приземление Кида (17) в этот момент
+  пропадает совсем — не откладывается, а именно теряется.
+- **Внутри кадра выживает важнейший.**  Меньше `prio` — важнее; при
+  равенстве побеждает ПОСЛЕДНИЙ (сравнение `<=`).
+- **Два источника не «чередуются как получится».**  Челюсти (47, prio
+  0x10) всегда важнее решётки (4, prio 0x32): решётка не может перебить
+  укус, а укус решётку — может.  Отсюда и картина на ур. 9 к. 9, где
+  решётка звучит только в паузах между укусами.
+
+### 11.2 Что сделано у нас
+
+`pop_sfx_play` теперь только номинирует; запуск — в `pop_sfx_tick`,
+который зовётся раз в кадр в конце отрисовки (там же, где оригинал зовёт
+`play_next_sound`, seg000:954).  Таблицы `snd_prio` (57 байт) и битовая
+карта `snd_intr` (8 байт) — в резиденте, значения из SDLPoP С УЧЁТОМ
+`fix_sound_priorities()`: в `config.h` SDLPoP `FIX_SOUND_PRIORITIES`
+определён безусловно, значит сравниваемся мы с исправленным вариантом
+(звук 10 → 0x0D, 48 → 0x15, 49 перебиваем).
+
+Створка двери уровня (15) — единственная запись, которую оригинал правит
+на ходу: перебиваема при закрытии, нет при открытии (seg007:442/464).
+Держим отдельным байтом `pop_sfx_slide_intr`, чтобы таблица осталась в
+ПЗУ.  Там же добавлен пропущенный `stop_sounds()` на завершении открытия
+двери (seg007:455) — без него неперебиваемый съезд (1,6 с) блокировал бы
+очередь.
+
+Звуки без оцифровки (музыка, длина 0) не номинируются вовсе — порт
+проверки `if (NULL == sound_pointers[id]) return;`.  Раньше такой id
+глушил живой эффект.
+
+### 11.3 Проверка
+
+Записью MAME, старт уровня 1:
+
+| | всплески | что это |
+|---|---|---|
+| до | 135 мс + 210 мс | решётка, обрезанная приземлением на 80 мс |
+| после | **один, 455 мс** | решётка целиком, корреляция огибающей со звуком 6 **+0,889** |
+
+Цена: резидент +~250 Б (таблицы + логика), куча ужалась с 347 до 134 Б —
+довод в пользу давно назревшей реорганизации базовой памяти.
+
+## 12. Ворота: гейт слышимости и «решётка встала» (2026-08-20)
+
+Проверка на сцене, которую предложил пользователь — уровень 9, комната 9:
+кнопка (1,8), челюсти (1,2), а ворота **в комнате 4, тайл (1,9)**, то есть
+в комнате СЛЕВА.  Нашлись три расхождения сразу.
+
+### 12.1 Гейт слышимости был неверный
+
+У нас стояло `audible = (room == cur_room)`.  У оригинала
+(`play_door_sound_if_visible`, seg007:1239) правило другое:
+
+- ворота в комнате СЛЕВА и в колонке 9 — СЛЫШНЫ (створка видна в шве);
+- ворота в отрисованной комнате и НЕ в колонке 9 — слышны;
+- особый случай: уровень 3, комната 2 — слышны всегда.
+
+Сцена 9/9 попадает ровно в первый пункт, поэтому спуск решётки у нас
+молчал.  Подъём при этом совпадал с оригиналом — потому что звук открытия
+(5) идёт БЕЗ гейта (seg007:386, прямой `play_sound`).  Эта асимметрия и была
+подсказкой.
+
+Взят вариант под `FIX_GATE_SOUNDS` (условия через ИЛИ): в config.h SDLPoP
+он определён безусловно.
+
+### 12.2 Потерян звук «решётка встала» (7)
+
+`gate_stop()` (seg007:05E3) зовётся из ТРЁХ мест `animate_door` и каждый раз
+играет звук 7 через гейт слышимости: конец закрытия, открытие насовсем и
+ветка «уже 0xFF».  У нас во всех трёх стояло только `*type = -1` без звука.
+Добавлено.  Лязг после ОБЫЧНОГО открытия (seg007:395) остаётся без гейта —
+там оригинал зовёт `play_sound` напрямую.
+
+### 12.3 Кнопка: у оригинала есть параметр playsound
+
+`trigger_button(playsound, ...)` — в трёх местах он нулевой: вход на уровень
+(seg003:170), выход Джаффара (seg002:520) и зелье «открыть» (seg006:1890, у
+нас не портировано).  Мы играли щелчок всегда.  Добавлен параметр `snd`.
+
+### 12.4 Почему щелчок кнопки слышно через раз — это НЕ баг
+
+Бюджет сцены 9/9 (длительности после пересчёта на 10 937,5 Гц):
+
+| звук | длительность | prio |
+|---|---:|---:|
+| челюсти (47) | 465 мс | 0x10 |
+| решётка вниз (4) | 97 мс | 0x32 |
+| решётка вверх (5) | 123 мс | 0x37 |
+| решётка встала (7) | 75 мс | 0x30 |
+| кнопка (3) | 106 мс | 0x66 |
+
+Цикл челюстей — 15 кадров = 1229 мс (замерено брейкпоинтом на номинации:
+25 805 000 тактов между укусами).  Значит укус занимает 465 мс, пауза 764 мс.
+Кнопка (prio 0x66) перебить челюсти не может (0x66 > 0x10), поэтому слышна
+только если нажатие попало в паузу — примерно в 6 случаях из 10.
+Подтверждено пользователем на живой сцене.
+
+### 12.5 Грабли сцены
+
+Если игра стартует ПРЯМО в комнате с челюстями, они не заводятся сами:
+нужно сходить Кидом на левую кнопку и вернуться.  Это поведение оригинала
+(trob челюстей создаётся событием), а не наш дефект — учитывать при
+постановке автотестов.
@@ -893,3 +893,30 @@ Makefile правила нет.

 **Приоритет низкий:** ситуация возникает только когда труп остаётся на
 проваливающемся полу, играбельности не мешает.
+
+---
+
+## BUG-SND-FIRSTRUN — при ПЕРВОМ запуске первый эффект слегка искажён
+
+**Симптом** (пользователь, 2026-08-20): после загрузки системы, при первом
+запуске программы, самый первый звуковой эффект идёт с искажением; при
+повторном запуске программы искажения нет.  Наблюдалось ещё на тестовых
+примерах CBL, до PoP.
+
+**Причина, скорее всего, уже устранена.**  Аппаратный буфер CBL (256
+слотов) железо не чистит, а запись в порт управления сразу пускает
+воспроизведение с нулевого слота — то есть первые 23,4 мс играет то, что
+лежало в буфере раньше.  При первом запуске это остатки после загрузки
+системы, при втором — наша же тишина, поэтому и слышно только один раз.
+Разбор — `../docs/sound_plan.md` §10.2.
+
+Лечение сделано в libc: `_cbl_prime` заливает буфер тишиной сразу после
+включения (`cbl_open`).  **В MAME проверить нельзя**: эмулируемый буфер
+стартует нулями при двухдополнительном ЦАП, то есть там этот дефект нем
+изначально — записи до и после фикса совпали побитово по огибающей.
+
+**Что нужно:** проверка на РЕАЛЬНОМ железе, первый запуск после холодной
+загрузки.  Если искажение осталось — значит мусор приходит не из буфера
+CBL, и копать надо в системных буферах DSS.
+
+**Приоритет низкий:** один раз за сеанс, на играбельность не влияет.
@@ -60,8 +60,9 @@ Kid — `kid_data.h` (генерится `pop_extract_kid_data.py`).
 дабл-буфер (в однобуфере видно баги рисования без мерцания-через-кадр);
 **1** — заморозить кадр, **2** — продолжить (разбор позы/окклюзии);
 **ESC** — выход.  Читы (`pop_cheat.h`): **K** — убить стража, **I** —
-бессмертие, **S** — выдать меч, **Shift+L** — следующий уровень,
-**+/−** — обход комнат (`ROOMNAV`).  Уровень грузится по номеру
+бессмертие, **Shift+L** — следующий уровень,
+**+/−** — обход комнат (`ROOMNAV`).  Не чит, а штатная клавиша оригинала:
+**Ctrl+S** — вкл/выкл звук (пурпурная палочка в борте = звука нет).  Уровень грузится по номеру
 (`pop_level_load_num`), на диске лежат все 15.

 ## Модули
@@ -35,7 +35,7 @@ MEMORY      ?= huge        # small-раскладка + банки кода в W
 # ВАЖНО: любое сравнение занятости банков имеет смысл только при ОДНОМ и том
 # же ALLOCS — иначе сравниваются не правки, а уровни оптимизации.
 ALLOCS      ?= 3000
-EXTRA_FLAGS ?= --gfx 256 -I $(CURDIR)/../poc/res/bg --max-allocs $(ALLOCS) --bank 2=pop_bg.c --bank 7=pop_room.c --bank 4=pop_cdraw.c --bank 4=pop_kdraw.c --bank 3=pop_map.c --bank 1=guards.c --bank 5=pop_ctrl.c --bank 6=pop_trob.c --bank 7=pop_redraw.c --bank 8=roomtest_cold.c --bank 8=pop_level_cold.c --bank 8=pop_kboot.c --bank 8=pop_guard_cold.c --bank 8=pop_shadow.c $(PROF_FLAGS)
+EXTRA_FLAGS ?= --gfx 256 -I $(CURDIR)/../poc/res/bg --max-allocs $(ALLOCS) --bank 2=pop_bg.c --bank 7=pop_room.c --bank 4=pop_cdraw.c --bank 4=pop_kdraw.c --bank 3=pop_map.c --bank 1=guards.c --bank 5=pop_ctrl.c --bank 6=pop_trob.c --bank 7=pop_redraw.c --bank 8=roomtest_cold.c --bank 8=pop_level_cold.c --bank 8=pop_kboot.c --bank 8=pop_guard_cold.c --bank 8=pop_shadow.c --bank 8=pop_sfx_cold.c $(PROF_FLAGS)
 # Профилирование полосами бордюра (см. PROF() в roomtest.c) — ВКЛЮЧЕНО по
 # умолчанию, пока идёт работа с производительностью; make PROF=0 выключает.
 # Каждая фаза кадра красит бордюр в свой цвет, высота полосы на скриншоте
@@ -57,7 +57,7 @@ POS         ?= 2
 ifneq ($(strip $(ROOM)),)
 PROF_FLAGS  += -DDBG_START_ROOM=$(ROOM) -DDBG_START_POS=$(POS)
 endif
-EXTRA_SRCS  := pop_vflip.c pop_pace.c pop_state.c pop_draw.c pop_tile.c pop_kid.c pop_level.c pop_geom.c pop_guard.c
+EXTRA_SRCS  := pop_vflip.c pop_pace.c pop_sfx.c pop_state.c pop_draw.c pop_tile.c pop_kid.c pop_level.c pop_geom.c pop_guard.c

 BG_DIR      := $(CURDIR)/../poc/res/bg
 KID_DIR     := $(CURDIR)/../poc/res/kid
@@ -120,8 +120,13 @@ SHADOW_DIR  := $(CURDIR)/../poc/res/shadow
 SHADOW_DATA := $(foreach n,0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27,$(SHADOW_DIR)/sk$(n).atl) \
               $(foreach n,0 1 2 3,$(SHADOW_DIR)/sf$(n).atl)

+# ЗВУКОВЫЕ ЭФФЕКТЫ — оригинальная оцифровка, приведённая к частоте CBL
+# (10 937,5 Гц, 8 бит моно).  8 страниц по 16 КБ; см. ../docs/sound_plan.md.
+SND_DIR     := $(CURDIR)/../poc/res/sound
+SND_DATA    := $(foreach n,0 1 2 3 4 5 6 7,$(SND_DIR)/s$(n).bin)
+
 EXTRA_DATA  := $(BG_DATA) $(KID_DATA) $(KID_BIN) $(GUARD_DATA) $(SKEL_DATA) \
-               $(VIZIER_DATA) $(SHADOW_DATA) $(LVL_DATA)
+               $(VIZIER_DATA) $(SHADOW_DATA) $(SND_DATA) $(LVL_DATA)
 include $(PROJ_ROOT)/app.mk

 # Образ HDD для MAME: ресурсы раскладываются ПО КАТАЛОГАМ (8.3, как в DSS),
@@ -139,6 +144,7 @@ hdd: $(EXAMPLE).exe
 	  $(foreach f,$(SKEL_DATA),SKEL:$(f)) \
 	  $(foreach f,$(VIZIER_DATA),VIZIER:$(f)) \
 	  $(foreach f,$(SHADOW_DATA),SHADOW:$(f)) \
+	  $(foreach f,$(SND_DATA),SND:$(f)) \
 	  $(foreach f,$(LVL_DATA),LEVELS:$(f))

 TC := $(PROJ_ROOT)/applications/PoP/toolchain
@@ -156,6 +162,9 @@ $(VIZIER_DATA): $(TC)/pop_pack_guard.py
 $(SHADOW_DATA) pop_shadow_atlas.h: $(TC)/pop_pack_shadow.py $(TC)/pop_pack_bg.py $(TC)/pop_pack_kid.py
 	cd $(TC) && python3 pop_pack_shadow.py

+$(SND_DATA) pop_sound_tbl.h: $(TC)/pop_pack_sound.py
+	cd $(TC) && python3 pop_pack_sound.py
+
 $(KID_DATA): $(TC)/pop_pack_kid.py $(TC)/pop_pack_bg.py
 	cd $(TC) && python3 pop_pack_kid.py
 kid_data.h $(KID_BIN): $(TC)/pop_extract_kid_data.py
@@ -0,0 +1,26 @@
+/*
+ * _pop_sfx.h — внутренний контракт между половинами звука (НЕ публичный,
+ * публичный — pop_sfx.h).  Горячая половина живёт в резиденте
+ * (pop_sfx.c), холодная в банке (pop_sfx_cold.c); делят они таблицу
+ * звуков, массив физических страниц и насос.
+ */
+#ifndef _POP_SFX_INTERNAL_H
+#define _POP_SFX_INTERNAL_H
+
+#include <stdint.h>
+#include "pop_sound_tbl.h"   /* pop_snd_tbl, POP_SND_* — генерит упаковщик */
+
+/* Физические страницы набора, по индексу из pop_snd_tbl[].page. */
+extern uint8_t pop_snd_page[POP_SND_PAGES];
+/* 1 — набор поднят и CBL открыт; 0 — играем молча. */
+extern uint8_t pop_snd_ok;
+
+/* Насос: отдать n байт в CBL.  Резидентный — его адрес отдаётся в
+ * cbl_open() холодной половиной. */
+int pop_sfx_fill(uint16_t n);
+
+/* Прочитать файл целиком в ФИЗИЧЕСКУЮ страницу (через W3).  Резидентный:
+ * банковый код, переключив W3, вырезал бы сам себя. */
+int pop_page_read(const char *path, uint8_t phys, uint16_t want);
+
+#endif
@@ -16,6 +16,7 @@
 * дальше работает общий pop_control().
 */
 #include "pop_guard.h"
+#include "pop_sfx.h"      /* звуковые эффекты (../docs/sound_plan.md) */
 #include "pop_kid.h"
 #include "pop_ctrl.h"
 #include "pop_map.h"
@@ -189,6 +190,7 @@ void pop_check_skel(void) __banked
    Char.charid    = CHARID_4_SKELETON;
    Char.fall_x    = Char.fall_y = 0;
    pop_char_set_seq(SEQ_88_SKEL_WAKE_UP);
+    pop_sfx_play(44);                          /* seg002:106D — скелет оживает */
    play_seq();
    pop_saveshad();

@@ -404,7 +406,8 @@ void pop_jaffar_exit(void) __banked
    m = pop_trob_modif(JAFFAR_EXIT_ROOM);
    pop_trigger_button(JAFFAR_EXIT_ROOM, JAFFAR_EXIT_TILEPOS,
                       pop_level_tile(JAFFAR_EXIT_ROOM, JAFFAR_EXIT_TILEPOS),
-                       m ? m[JAFFAR_EXIT_TILEPOS] : 0);
+                       m ? m[JAFFAR_EXIT_TILEPOS] : 0,
+                       0 /* seg002:520 — playsound=0 */);
 }

 /* on_guard_killed (seg006:1927) — соперник только что потерял последнее HP.
@@ -989,7 +992,9 @@ static void hurt_by_sword(void)
    }
    Char.y = (uint8_t)pop_y_land[Char.curr_row + 1];
    Char.fall_y = 0;
-    play_seq();                                      /* TODO: звук 12/13 */
+    /* seg002:0C1F: у Кида свой звук боли, у соперника свой. */
+    pop_sfx_play((uint8_t)(Char.charid == CHARID_0_KID ? 13 : 12));
+    play_seq();
 }

 /* check_hurting (seg002:0D56): достал ли АКТИВНЫЙ персонаж соперника.
@@ -1010,6 +1015,8 @@ static void check_hurting(void)
        (of != FRAME_161_PARRY && of != FRAME_150_PARRY)) {
        /* Соперник НЕ парирует. */
        if (cf == FRAME_154_POKING) {
+            /* seg002:0DAE — свист клинка мимо цели. */
+            pop_sfx_play(11);
            min_range = (uint8_t)(Opp.sword < SWORD_2_DRAWN ? 8 : 12);
            distance = pop_char_opp_dist();
            if (distance >= (int16_t)min_range && distance < 29)
@@ -22,7 +22,9 @@ extern uint8_t pop_cheats;      /* 0 = выключены, иначе включ
 #define KBD_CHEAT_IMMO 0x43     /* I (PS/2 set 2) — бессмертие Кида по кругу
                                 * 0 -> 1 (только бой) -> 2 (и мелкий урон) -> 0;
                                 * уровни расписаны в pop_state.h */
-#define KBD_CHEAT_SWORD 0x1B    /* S (PS/2 set 2) — выдать Киду меч          */
+/* Ctrl+S (PS/2 set 2: S = 0x1B) — вкл/выкл звук; порт Ctrl+S из SDLPoP
+ * (seg000:657).  С Ctrl, а не голая S: у оригинала клавиша именно такая. */
+#define KBD_SOUND_TOGGLE 0x1B
 #define KBD_CHEAT_NEXTLVL 0x4B  /* Shift+L (PS/2 set 2) — следующий уровень  */
 #define KBD_CHEAT_XDEC 0x54     /* [ (PS/2 set 2) — сдвинуть Кида на 1 px влево  */
 #define KBD_CHEAT_XINC 0x5B     /* ] (PS/2 set 2) — сдвинуть Кида на 1 px вправо */
@@ -20,6 +20,7 @@
 #include "pop_state.h"
 #include "pop_ctrl.h"         /* свой API (__banked) + объявления шины control_* */
 #include "pop_kid.h"
+#include "pop_sfx.h"      /* звуковые эффекты (../docs/sound_plan.md) */
 #include "pop_map.h"
 #include "pop_guard.h"        /* charid, состояние меча, seq стража */

@@ -405,7 +406,8 @@ static void draw_sword(void)
    uint8_t seq_id = SEQ_55_DRAW_SWORD;
    control_forward = control_shift2 = release_arrows();
    if (Char.charid == CHARID_0_KID) {
-        offguard = 0;              /* TODO: play_sound(19) — звука пока нет */
+        offguard = 0;
+        pop_sfx_play(19);          /* seg005:945 — меч из ножен */
    } else if (Char.charid != CHARID_1_SHADOW) {
        seq_id = SEQ_90_EN_GARDE;  /* соперник встаёт сразу в стойку */
    }
@@ -10,6 +10,7 @@
 #include <gfx.h>
 #include <sprite.h>
 #include "pop_kid.h"
+#include "pop_sfx.h"     /* звуковые эффекты: опкод SOUND в play_seq */
 #include "pop_trob.h"   /* pop_start_chompers — смена ряда будит чомперы */
 #include "pop_guard.h"   /* Guard/pop_gframe/CHARID_* — интерпретатор общий */
 #include "pop_bg.h"           /* POP_YOFF — вертикальное центрирование */
@@ -323,14 +324,26 @@ void play_seq(void)
        case 0xF4: /* KNOCK_DOWN: приземление трясёт loose В СВОЁМ РЯДУ */
            knock = -1;
            break;
-        case 0xF2: /* SOUND (seg006:0611): звука у нас нет, но опкод несёт
-                    * ВТОРОЙ смысл — «Кид нашумел», и его терять нельзя.
-                    * Шумом считаются id 0..2 (SILENT/FOOTSTEP/BUMP); id 0
-                    * назван silent потому, что НЕ звучит, а стражи его всё
-                    * равно замечают (стоит, например, в seq доставания меча).
-                    * DRINK(3)/LEVEL(4) — не шум.  См. BUG-GUARD-DEAF-1. */
-            if (SEQ(Char.curr_seq) < 3) is_guard_notice = 1;
-            Char.curr_seq++;
+        case 0xF2: /* SOUND (seg006:0627).  Аргумент — НЕ номер звука игры, а
+                    * одно из пяти событий; отображение взято оттуда же:
+                    *   0 SILENT   — не звучит, но стражи Кида ЗАМЕЧАЮТ
+                    *                (стоит, например, в seq доставания меча);
+                    *   1 FOOTSTEP — звук 23, и шум;
+                    *   2 BUMP     — звук 8, и шум;
+                    *   3 DRINK    — звук 18, не шум;
+                    *   4 LEVEL    — МУЗЫКА конца уровня (32 на 4-м, иначе 41,
+                    *                на 13/15 молчок).  Оцифровки у неё нет,
+                    *                это путь A на AY — пока тишина.
+                    * Второй смысл опкода («Кид нашумел») терять нельзя даже
+                    * без звука, см. BUG-GUARD-DEAF-1. */
+            {
+                uint8_t ev = SEQ(Char.curr_seq);
+                Char.curr_seq++;
+                if (ev < 3) is_guard_notice = 1;
+                if (ev == 1)      pop_sfx_play(23);
+                else if (ev == 2) pop_sfx_play(8);
+                else if (ev == 3) pop_sfx_play(18);
+            }
            break;
        case 0xF1: /* END_LEVEL: seq_70 доиграл — уровень пройден.
                    * В оригинале это `++next_level`, а главный цикл
@@ -21,6 +21,7 @@
 #include "pop_map.h"
 #include "pop_pace.h"    /* pop_beam_sample — счёт кадров по лучу */
 #include "pop_ctrl.h"          /* pop_ctrl_shift_held() — для check_grab */
+#include "pop_sfx.h"           /* звуковые эффекты (sound_plan.md) */
 #include "pop_geom.h"          /* общая геометрия (x_bump/y_land/y_to_row) */
 #include "pop_tile.h"          /* POP_TILE_DIV/MOD — деление на ширину тайла таблицей */
 #include "pop_redraw.h"        /* пометки перерисовки (порт set_redraw_*) */
@@ -143,6 +144,11 @@ uint8_t pop_leave_timer;         /* exit_room_timer (seg002): >0 = leave заб
 uint8_t pop_loose_fell;          /* 0=нет; иначе tilepos+1 упавшего loose (кусок улетел вниз) */
 uint8_t pop_kid_dead;            /* 1 = Kid мёртв (напоролся на пики и т.п.) */
 uint8_t pop_kid_hurt;            /* 1 = в этом кадре убавилось HP → «брызги» */
+
+/* is_screaming (seg005:38): крик падения звучит ОДИН раз за полёт, а не
+ * каждый кадр.  Сбрасывается там же, где у оригинала: приземление (land),
+ * зацеп за карниз (check_grab) и постановка на старт (set_start_pos). */
+static uint8_t is_screaming;
 uint8_t hitp_curr;               /* текущее HP (0 = мёртв); pop_kid_hp_reset ставит старт */
 uint8_t hitp_max;                /* стартовое HP Кида (для индикатора)        */
 /* hitp_beg_lev (seg003 init_game/play_level_2): HP, с которым НАЧАТ уровень.
@@ -666,6 +672,7 @@ static void land(void)
     * control_crouched(), а при `sword == sword_2_drawn` управление уходит в
     * control_with_sword и до него не доходит — Кид садится в присед
     * НАВСЕГДА (BUG-LAND-SWORD-1). */
+    is_screaming = 0;                      /* seg005:116 */
    if (Char.fall_y < 22) {
    soft_land:
        if (Char.charid >= CHARID_2_GUARD || Char.sword == SWORD_2_DRAWN) {
@@ -674,8 +681,8 @@ static void land(void)
        } else {
            seq = SEQ_17_SOFT_LAND;
        }
-        /* seg005:185 — мягкое приземление слышно (звука нет, флаг есть). */
-        if (Char.charid == CHARID_0_KID) is_guard_notice = 1;
+        /* seg005:185 — мягкое приземление слышно И стражам, и игроку. */
+        if (Char.charid == CHARID_0_KID) { pop_sfx_play(17); is_guard_notice = 1; }
    } else {
        uint8_t deadly = (uint8_t)(Char.fall_y >= 33);   /* СНЯТЬ до обнуления */
        if (!deadly && Char.charid == CHARID_1_SHADOW) goto soft_land;  /* seg005:189 */
@@ -683,13 +690,14 @@ static void land(void)
        Char.fall_x = Char.fall_y = 0;
        if (deadly || pop_take_hp(1)) {             /* 3+ этажа или последнее HP */
            pop_take_hp(100);
+            if (Char.charid == CHARID_0_KID) pop_sfx_play(0);   /* разбился */
            pop_char_set_seq(SEQ_22_CRUSHED);
            play_seq();
            determine_col();
            if (Char.charid == CHARID_0_KID) pop_kid_dead = 1;
            return;
        }
-        if (Char.charid == CHARID_0_KID) is_guard_notice = 1;   /* seg005:195 */
+        if (Char.charid == CHARID_0_KID) { pop_sfx_play(16); is_guard_notice = 1; }  /* seg005:195 */
        seq = SEQ_20_MEDIUM_LAND;
    }
    Char.fall_x = Char.fall_y = 0;
@@ -811,7 +819,9 @@ static void check_grab(void)
        pop_char_set_seq(SEQ_15_GRAB_LEDGE_MIDAIR);
        play_seq();
        determine_col();
-        grab_timer = 12;                               /* (TODO: sound grab)   */
+        grab_timer = 12;
+        pop_sfx_play(9);                               /* seg006 check_grab    */
+        is_screaming = 0;                              /* seg006:1219          */
    }
 }

@@ -870,7 +880,7 @@ static uint8_t check_grab_run_jump(void)
    if (grab_col >= 0 && grab_col <= 9 && grab_row >= 0 && grab_row <= 2) {
        uint8_t tp = (uint8_t)(grab_row * 10 + grab_col);
        if (grab_tile == TILE_OPENER || grab_tile == TILE_CLOSER)
-            pop_trigger_button(g_room, tp, grab_tile, pop_trob_modif(g_room)[tp]);
+            pop_trigger_button(g_room, tp, grab_tile, pop_trob_modif(g_room)[tp], 1);
        else if (grab_tile == TILE_LOOSE) {
            is_guard_notice = 1;
            make_loose_fall(tp, 1);
@@ -882,6 +892,10 @@ static uint8_t check_grab_run_jump(void)
 static void do_fall(void)
 {
    uint8_t nrow = (uint8_t)(Char.curr_row + 1);
+    if (!is_screaming && Char.fall_y >= 31) {
+        pop_sfx_play(1);                      /* seg005:39 — крик падения */
+        is_screaming = 1;
+    }
    if (nrow > 4) nrow = 4;                   /* защита pop_y_land[] от выхода */
    if ((uint16_t)pop_y_land[nrow] > (uint16_t)Char.y) {
        check_grab();                         /* ещё летит — попытка зацепа */
@@ -1355,6 +1369,8 @@ void pop_proc_get_object(void) __banked
             * ставили вспышку руками, то есть красили экран дважды.
             * Спецсобытие уровня зелий: там синие склянки забирают ПОЛОВИНУ
             * запаса, а не одну единицу. */
+            pop_sfx_stop();             /* seg006:1893 — stop_sounds */
+            pop_sfx_play(13);
            if (pop_current_level == POP_POTIONS_LEVEL)
                hitp_delta = (int8_t)(-((hitp_max + 1) >> 1));
            else
@@ -1508,8 +1524,9 @@ static void bumped_fall(void)
        play_seq();
    }
    /* bumped_sound (seg004:05F1) — ВНЕ ветвления, как в оригинале: удар о
-     * стену слышен и в свободном падении.  Звука у нас нет, но «Кид нашумел»
-     * взводить обязаны — см. BUG-GUARD-DEAF-1. */
+     * стену слышен и в свободном падении.  Флаг «Кид нашумел» взводится
+     * вместе со звуком — см. BUG-GUARD-DEAF-1. */
+    pop_sfx_play(8);
    is_guard_notice = 1;
 }

@@ -1560,7 +1577,8 @@ static void bumped_floor(void)
    else
        pop_char_set_seq(SEQ_47_BUMP);
    play_seq();
-    is_guard_notice = 1;                   /* bumped_sound (seg004:05F1) */
+    pop_sfx_play(8);                       /* bumped_sound (seg004:05F1) */
+    is_guard_notice = 1;
 }

 /* bump_into_opponent (seg003:08AA).  Зовётся из play_kid_frame (seg000:1238)
@@ -1593,6 +1611,7 @@ static void bump_into_opponent(void)
    if (distance > 15) return;
    Char.y = (uint8_t)pop_y_land[Char.curr_row + 1];
    Char.fall_y = 0;
+    pop_sfx_play(16);                       /* seg003:0654 — толчок о стража */
    pop_char_set_seq(SEQ_47_BUMP);
    play_seq();
 }
@@ -2299,7 +2318,7 @@ static void died_on_button(uint8_t room, uint8_t tp, uint8_t code)
        if (tp % 10 < 9)
            pop_set_redraw((uint8_t)(tp + 1), POP_RD_FLOOR, 2);
    }
-    pop_trigger_button(room, tp, button_type, modifier);
+    pop_trigger_button(room, tp, button_type, modifier, 1);
 }

 /* check_press (seg006:0EC8, упрощ.): Kid стоит на loose → make_loose_fall;
@@ -2354,7 +2373,7 @@ static void check_press(void)
            /* seg006:1707 — ЖИВОЙ жмёт кнопку на 5 кадров, МЁРТВЫЙ ломает её
             * насовсем.  `alive < 0` = жив (соглашение оригинала). */
            if (Char.alive < 0)
-                pop_trigger_button(btn_room, tp, t, pop_trob_modif(btn_room)[tp]);
+                pop_trigger_button(btn_room, tp, t, pop_trob_modif(btn_room)[tp], 1);
            else
                died_on_button(btn_room, tp, t);
        }
@@ -2367,6 +2386,28 @@ static void check_press(void)
    }
 }

+/* ---- Звук дрожащей плиты (loose_shake, seg007:0E55) ------------------ *
+ * Три сэмпла 20/21/22 вперемешку, но НЕ на каждый кадр фазы: гейт-таблица
+ * loose_sound (data:2734) даёт звук на фазах 1,2,3,5,8, а на остальных
+ * молчит — иначе тряска трещит без пауз.  Повтор подряд одного и того же
+ * сэмпла оригинал запрещает (цикл do/while), иначе слышно «заедание».
+ *
+ * Сид СВОЙ, а не общий с trob/боёвкой: домены prandom у нас разведены
+ * (../docs/impl_diff.md), и звук не должен сдвигать чужие розыгрыши. */
+static const uint8_t loose_sound[12] = { 0,1,1,1,0,1,0,0,1,0,0,0 };
+static pop_rnd_t loose_seed;
+static uint8_t   last_loose_snd;
+
+static void loose_shake(uint8_t force, uint8_t modif)
+{
+    uint8_t id;
+    if (!force && !loose_sound[modif & 0x7F]) return;
+    do { id = (uint8_t)(pop_prandom(&loose_seed, 2) + 20); }
+    while (id == last_loose_snd);
+    last_loose_snd = id;
+    pop_sfx_play(id);
+}
+
 /* do_knock (seg007:0FE0) + loose_make_shake (seg007:0FB4): сотрясение от
 * приземления/удара трясёт ВСЕ loose-полы в ряду tile_row (не роняя их —
 * modif 0x80..0x83 = чистая тряска, сбрасывается в pop_loose_tick).  Трясём
@@ -2718,11 +2759,13 @@ void pop_loose_tick(void) __banked
                        /* ждём молча */
                    } else if (m >= 0x84) {         /* конец тряски: сброс + покой */
                        *lm = 0;
+                        loose_shake(1, 0);          /* последний удар — без гейта */
                        /* modif уже 0 → кадр покоя обоих тайлов (col и col+1:
                         * правая грань loose живёт в соседе).  ОБЕ страницы —
                         * иначе на одной застывает дрожащий кадр → мерцание. */
                        pop_set_redraw(pos, POP_RD_LOOSE, 2);
                    } else {
+                        loose_shake(0, m);
                        pop_set_redraw(pos, POP_RD_LOOSE, 1);   /* дрожащий кадр */
                    }
                } else if (m >= 11 && pop_loose_fell) {
@@ -2753,6 +2796,7 @@ void pop_loose_tick(void) __banked
                    pop_loose_mob_spawn(row, col);              /* отрыв падающего куска */
                    pop_loose_fell = (uint8_t)(pos + 1);        /* сигнал приложению */
                } else {                            /* отсчёт 1..10 — дрожащий кадр */
+                    loose_shake(0, m);
                    pop_set_redraw(pos, POP_RD_LOOSE, 1);
                }
                if (*lm) found = 1;                 /* фаза ещё жива — гейт держим */
@@ -2774,9 +2818,10 @@ void pop_loose_tick(void) __banked
                     * цикл, а не соседний. */
                    if (pop_current_level == POP_LOOSE_TILES_LEVEL) {
                        /* ждём молча */
-                    } else if (m >= 0x84) { *lm = 0;
+                    } else if (m >= 0x84) { *lm = 0; loose_shake(1, 0);
                                     pop_set_redraw_above(col, POP_RDA_CEIL, 2); }
-                    else             pop_set_redraw_above(col, POP_RDA_CEIL, 1);
+                    else           { loose_shake(0, m);
+                                     pop_set_redraw_above(col, POP_RDA_CEIL, 1); }
                } else if (m >= 11 && pop_ceil_fell) {
                    *lm = 10;                      /* сигнал занят — кадр подождём */
                } else if (m >= 11) {              /* loose_floor_delay — плита рушится */
@@ -2786,6 +2831,7 @@ void pop_loose_tick(void) __banked
                    pop_loose_mob_spawn(-1, col);             /* кусок отрывается от потолка */
                    pop_ceil_fell = (uint8_t)(col + 1);       /* сигнал приложению */
                } else {
+                    loose_shake(0, m);
                    pop_set_redraw_above(col, POP_RDA_CEIL, 1);  /* отсчёт 1..10 */
                }
                if (*lm) found = 1;                 /* фаза ещё жива — гейт держим */
@@ -2815,7 +2861,7 @@ void pop_loose_tick(void) __banked
        if (tt == TILE_OPENER || tt == TILE_CLOSER)
            pop_trigger_button(g_room, pos,
                               (uint8_t)(tt == TILE_OPENER ? TILE_DEBRIS : tt),
-                               pop_trob_modif(g_room)[pos]);
+                               pop_trob_modif(g_room)[pos], 1);
        /* На факеле — отдельный тайл «факел с щебнем» (seg007:1067). */
        g_fg[pos] = (uint8_t)((tt == TILE_TORCH || tt == TILE_TORCH_DEBRIS)
                              ? TILE_TORCH_DEBRIS : TILE_DEBRIS);
@@ -3005,9 +3051,10 @@ static void start_anim_spike(uint8_t tilepos)
    if (!mod) return;
    old = (int8_t)mod[tilepos];
    if (old <= 0) {
-        if (old == 0)
-            pop_add_trob(g_room, tilepos, 1);          /* (TODO: sound_49_spikes) */
-        else if ((uint8_t)old != 0xFF)
+        if (old == 0) {
+            pop_add_trob(g_room, tilepos, 1);
+            pop_sfx_play(49);                      /* seg007:08F6 — пики пошли */
+        } else if ((uint8_t)old != 0xFF)
            mod[tilepos] = 0x8F;
    }
 }
@@ -3032,7 +3079,8 @@ static void spiked(uint8_t tilepos)
    Char.x = (uint8_t)(pop_x_bump[Char.curr_col + FIRST_ONSCREEN_COLUMN] + 10);
    Char.x = (uint8_t)char_dx_forward(8);
    Char.fall_y = 0;
-    pop_take_hp(100);                                       /* (TODO: sound_48_spiked) */
+    pop_sfx_play(48);
+    pop_take_hp(100);
    pop_char_set_seq(SEQ_51_SPIKED);
    play_seq();
    determine_col();
@@ -3104,7 +3152,8 @@ static void chomped(uint8_t tilepos, int8_t col)
    Char.x = (uint8_t)(pop_x_bump[col + FIRST_ONSCREEN_COLUMN] + TILE_MIDX);
    Char.x = (uint8_t)char_dx_forward(7 - !Char.direction);
    Char.y = (uint8_t)pop_y_land[Char.curr_row + 1];
-    pop_take_hp(100);                                   /* (TODO: sound_46_chomped) */
+    pop_sfx_play(46);
+    pop_take_hp(100);
    pop_char_set_seq(SEQ_54_CHOMPED);
    play_seq();
    if (Char.charid == CHARID_0_KID) pop_kid_dead = 1;
@@ -3312,7 +3361,7 @@ static void jump_through_mirror(void)
    (void)mirror_image();
    pop_jumped_mirror = 0;
    Char.charid = CHARID_1_SHADOW;
-    /* play_sound(45) — звука в порте пока нет */
+    pop_sfx_play(45);                      /* seg003:0617 — прыжок в зеркало */
    pop_saveshad();
    guardhp_max = guardhp_curr = hitp_max;
    hitp_curr = 1;
@@ -17,6 +17,7 @@
 #include <fcntl.h>
 #include <unistd.h>
 #include "pop_bg.h"
+#include "pop_sfx.h"      /* звуковые эффекты (../docs/sound_plan.md) */
 #include "pop_pace.h"    /* pop_beam_sample — счёт кадров по лучу */
 #include "_pop_bg.h"    /* контракт с горячей половиной (pop_bg.c, банк 2) */
 #include "pop_tile.h"   /* общие листья слоя фона (резидент): блит, тайлы, таблица */
@@ -1493,6 +1494,7 @@ static void mob_tick_one(mob_t *m, uint8_t pg)
             * КНОПКА под куском обязаны сработать — сигналим главному циклу
             * комнатой и тайлом (loose_land, seg007:11E8, работает с
             * curmob.room, а не с отрисованной). */
+            pop_sfx_play(2);                    /* tile crashing, seg007:1041 */
            pop_loose_exit_room = mt_m->room;
            pop_loose_exit = (uint8_t)(mt_m->row * 10 + mt_m->col + 1);
            /* clean = 2 даже для чужой комнаты: пока кусок летел, он мог
@@ -1504,6 +1506,7 @@ static void mob_tick_one(mob_t *m, uint8_t pg)
             * подержим кусок на границе и приземлим следующим кадром */
            mt_m->y = MOB_Y_BOUND[mt_m->row + 1];
        } else {
+            pop_sfx_play(2);                    /* tile crashing, seg007:1041 */
            mt_m->y = MOB_Y_BOUND[mt_m->row + 1];
            pop_loose_landed = (uint8_t)(mt_m->row * 10 + mt_m->col + 1);
            mt_m->active = 0; mt_m->clean = 2;     /* кусок исчез — на его месте debris */
@@ -0,0 +1,218 @@
+/*
+ * pop_sfx.c — ГОРЯЧАЯ часть звуковых эффектов: насос в прерывании CBL,
+ * запуск/останов и таблица звуков.  Зачем всё это и в каком виде лежат
+ * данные — в шапке pop_sfx.h и ../docs/sound_plan.md.
+ *
+ * ПОЧЕМУ МОДУЛЬ РЕЗИДЕНТНЫЙ (в EXTRA_SRCS, а не в банке).  Три причины,
+ * и каждой хватило бы одной:
+ *   - callback насоса зовётся ИЗ ПРЕРЫВАНИЯ; трамплин перед вызовом
+ *     ставит базовую страницу W1, значит хендлер обязан быть в базе;
+ *   - pop_sfx_play дёргается из горячих мест (play_seq на каждый шаг
+ *     Кида, физика, боёвка) — трамплин там был бы чистой потерей;
+ *   - pop_page_read маппит W3 на время чтения, а банковый код сам живёт
+ *     в W3 и вырезал бы себя из-под ног (та же причина, по которой
+ *     резидентен pop_level_read_file, см. _pop_level.h).
+ * Холодная половина (аллокация страниц, cbl_open) — в pop_sfx_cold.c.
+ */
+
+#include <stdint.h>
+#include <fcntl.h>
+#include <unistd.h>
+#include <sprinter.h>
+#include <cbl.h>
+#include <irq.h>        /* IRQ_DISABLE/IRQ_ENABLE вокруг курсора */
+#include "pop_sfx.h"
+#include "_pop_sfx.h"
+
+/* Физические страницы набора; заполняет холодная половина. */
+uint8_t pop_snd_page[POP_SND_PAGES];
+uint8_t pop_snd_ok;
+
+/* ХОЧЕТ ЛИ ЗВУКА ПОЛЬЗОВАТЕЛЬ (Ctrl+S) — отдельно от pop_snd_ok.
+ *
+ * Разделять обязательно: pop_snd_ok значит «CBL сейчас открыт», и его
+ * гасит служебная пауза на время загрузки уровня.  Если бы Ctrl+S правил
+ * только его, то первая же смена уровня позвала бы pop_sfx_start() и
+ * вернула звук, который пользователь выключил.  Поэтому start уважает
+ * этот флаг, а pause его не трогает.
+ *
+ * Живёт в резиденте, а не в банке: метку в борте рисует отладочный ярлык
+ * каждый кадр, и тащить ради одного байта трамплин незачем. */
+uint8_t pop_snd_want;
+
+/* Курсор проигрывания.  volatile: пишет главный цикл, читает прерывание.
+ * Всё в 8/16 бит — 32-битной арифметики на Z80 избегаем (см. memory
+ * avoid_32bit_arith_z80); поэтому и в таблице смещение уже разобрано на
+ * страницу и адрес в окне. */
+static volatile uint8_t  sfx_pg;    /* индекс в pop_snd_page[]          */
+static volatile uint16_t sfx_ptr;   /* адрес в окне W0: 0x0000..0x3FFF  */
+static volatile uint16_t sfx_left;  /* сколько байт осталось (кратно 128) */
+
+/* ---- насос ---------------------------------------------------------- *
+ * Зовётся из ISR CBL раз в ~11,7 мс за очередными 128 байтами.
+ *
+ * ОКНО W0 БЕРЁМ ВЗАЙМЫ.  Фон в этот момент может держать в W0 страницу
+ * атласа (pop_blit_b делает map ... blit ... unmap), поэтому сохраняем
+ * порт, подставляем свою страницу и возвращаем как было.  Для фона
+ * подмена невидима: прерывание для него атомарно.  Тот же приём, что у
+ * трамплина с W1 (_irq_tramp.c).
+ *
+ * Заплатки ISR-стаба в 0x38/0x66 нашим страницам НЕ нужны (в отличие от
+ * страницы уровня, pop_level_read_file): пока страница замаплена, мы
+ * внутри прерывания и IFF сброшен — прерваться некому.
+ *
+ * ТИШИНУ ЛЬЁМ СВОЮ.  Когда эффект кончился, отдавать в CBL всё равно надо:
+ * иначе железо крутит по кругу хвост своего буфера и это слышно как
+ * жужжание.  Готовый блок 0x80 лежит первым в наборе (упаковщик), поэтому
+ * libc-шный CBL_UNDERRUN_SILENCE с его malloc нам не нужен — а куча в
+ * тесном резиденте W2 отказала бы и уронила весь звук. */
+int pop_sfx_fill(uint16_t n)
+{
+    uint8_t saved, pg;
+    uint16_t ptr;
+    if (sfx_left) { pg = sfx_pg;                  ptr = sfx_ptr; }
+    else          { pg = POP_SND_SILENCE_PAGE;    ptr = POP_SND_SILENCE_OFF; }
+    saved = _io_page_w0;
+    _io_page_w0 = pop_snd_page[pg];
+    cbl_push_otir((const void *)ptr, n);
+    _io_page_w0 = saved;
+    if (!sfx_left) return 1;              /* играли тишину — курсор не двигаем */
+
+    sfx_ptr += n;
+    if (sfx_ptr >= 0x4000) {              /* граница страницы — ровно по блоку */
+        sfx_ptr = 0;
+        sfx_pg++;
+    }
+    sfx_left -= n;
+    return 1;
+}
+
+/* ---- ОЧЕРЕДЬ И ПРИОРИТЕТЫ (порт seg000:12C5 + seg000:1304) ------------ *
+ *
+ * Оригинал НЕ перебивает играющий звук чем попало, и это слышно.  Модель
+ * ровно такая:
+ *
+ *   play_sound(id)      — только НОМИНИРУЕТ кандидата на кадр; из нескольких
+ *                         за кадр остаётся ВАЖНЕЙШИЙ (меньше prio = важнее,
+ *                         при равенстве побеждает последний — сравнение <=);
+ *   play_next_sound()    — раз в кадр решает, запускать ли: можно, если ничего
+ *                         не играет, ЛИБО текущий звук помечен «перебиваемым»
+ *                         И новый не менее важен.  Иначе номинант ВЫБРАСЫВАЕТСЯ
+ *                         (next_sound = -1 безусловно), а не встаёт в очередь.
+ *
+ * Отсюда то, что слышно в игре: `gate_closing_fast` (6) неперебиваем и
+ * доигрывает до звонкого конца, а приземление Кида в этот момент пропадает
+ * совсем; челюсти (47, prio 0x10) всегда важнее решётки (4, prio 0x32), и
+ * решётка звучит только в паузах между укусами.
+ *
+ * Таблицы — из SDLPoP (sound_prio_table seg000:1528, sound_interruptible
+ * data.h:433) с правками fix_sound_priorities(): в config.h SDLPoP
+ * FIX_SOUND_PRIORITIES определён безусловно, то есть сравниваем мы себя
+ * именно с исправленным вариантом (10 -> 0x0D, 48 -> 0x15, 49 перебиваем).
+ */
+
+/* Приоритет: МЕНЬШЕ значит ВАЖНЕЕ.  Музыкальные id тут тоже есть — они
+ * никогда не номинируются (нет оцифровки), но индексация должна совпадать
+ * с оригиналом, иначе таблицу не сверить глазами. */
+static const uint8_t snd_prio[POP_SND_COUNT] = {
+    0x14, 0x1E, 0x23, 0x66, 0x32, 0x37, 0x30, 0x30, 0x4B, 0x50,  /*  0.. 9 */
+    0x0D, 0x12, 0x0C, 0x0B, 0x69, 0x6E, 0x73, 0x78, 0x7D, 0x82,  /* 10..19 */
+    0x91, 0x96, 0x9B, 0xA0, 0x01, 0x01, 0x01, 0x01, 0x01, 0x13,  /* 20..29 */
+    0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x00,  /* 30..39 */
+    0x01, 0x01, 0x01, 0x01, 0x87, 0x8C, 0x0F, 0x10, 0x15, 0x16,  /* 40..49 */
+    0x01, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01                     /* 50..56 */
+};
+
+/* «Играющий звук можно перебить» — битовая карта (бит id&7 байта id>>3):
+ * 57 флагов уложены в 8 байт, потому что в резиденте W1/W2 каждая сотня
+ * байт на счету, а читаем мы их раз в кадр. */
+static const uint8_t snd_intr[8] = {
+    /* 0.. 7 */ (uint8_t)(0<<0 | 1<<1 | 1<<2 | 1<<3 | 1<<4 | 1<<5 | 0<<6 | 1<<7),
+    /* 8..15 */ (uint8_t)(1<<0 | 1<<1 | 1<<2 | 1<<3 | 1<<4 | 1<<5 | 0<<6 | 0<<7),
+    /*16..23 */ (uint8_t)(1<<0 | 1<<1 | 0<<2 | 1<<3 | 1<<4 | 1<<5 | 1<<6 | 1<<7),
+    /*24..31 */ (uint8_t)(0<<0 | 0<<1 | 0<<2 | 0<<3 | 0<<4 | 1<<5 | 0<<6 | 0<<7),
+    /*32..39 */ 0,
+    /*40..47 */ (uint8_t)(0<<0 | 0<<1 | 0<<2 | 0<<3 | 0<<4 | 0<<5 | 0<<6 | 1<<7),
+    /*48..55 */ 0,
+    /*56..   */ 0
+};
+
+/* Створка двери уровня (15) — единственная запись, которую оригинал правит
+ * НА ХОДУ (seg007:442/464): при закрытии её перебивать можно, при открытии
+ * нельзя (иначе съезд створки обрывается и «конца» не слышно).  Держим
+ * отдельным байтом, чтобы таблица осталась в ПЗУ. */
+uint8_t pop_sfx_slide_intr;
+
+/* Номинант кадра, ЗАПИСАННЫЙ КАК id+1: ноль значит «никого».  Так сделано
+ * ради crt0 — он зануляет _DATA, а «нет номинанта» у оригинала это -1;
+ * со смещением на единицу начальное состояние получается даром. */
+static uint8_t snd_next1;
+static uint8_t snd_curr;                  /* что играет — для prio/intr */
+
+static uint8_t snd_interruptible(uint8_t id)
+{
+    if (id == 15) return pop_sfx_slide_intr;
+    return (uint8_t)(snd_intr[id >> 3] & (uint8_t)(1 << (id & 7)));
+}
+
+/* ---- запуск / останов ------------------------------------------------ */
+
+void pop_sfx_play(uint8_t id)
+{
+    if (!pop_snd_ok || id >= POP_SND_COUNT) return;
+    /* Нет оцифровки (музыка) — не номинируем вовсе: порт проверки
+     * `if (NULL == sound_pointers[id]) return;`.  Иначе музыкальный id
+     * выигрывал бы конкурс и глушил живой эффект. */
+    if (pop_snd_tbl[id].len == 0) return;
+    if (!snd_next1 || snd_prio[id] <= snd_prio[snd_next1 - 1])
+        snd_next1 = (uint8_t)(id + 1);
+}
+
+void pop_sfx_tick(void)
+{
+    uint8_t id, pg;
+    uint16_t off, len;
+    if (!snd_next1) return;
+    id = (uint8_t)(snd_next1 - 1);
+    snd_next1 = 0;                        /* номинант живёт ровно кадр */
+    if (sfx_left != 0 &&                  /* что-то играет... */
+        (!snd_interruptible(snd_curr) || snd_prio[id] > snd_prio[snd_curr]))
+        return;                           /* ...и уступать не обязано */
+    snd_curr = id;
+    pg  = pop_snd_tbl[id].page;
+    off = pop_snd_tbl[id].off;
+    len = pop_snd_tbl[id].len;
+    /* Курсор из трёх полей, а читает его прерывание — обновляем под DI,
+     * иначе насос может застать наполовину обновлённое состояние и уехать
+     * в чужие данные. */
+    IRQ_DISABLE();
+    sfx_pg  = pg;
+    sfx_ptr = off;
+    sfx_left = len;
+    IRQ_ENABLE();
+}
+
+void pop_sfx_stop(void)
+{
+    IRQ_DISABLE();
+    sfx_left = 0;
+    IRQ_ENABLE();
+}
+
+/* ---- чтение файла в ФИЗИЧЕСКУЮ страницу ------------------------------ *
+ * Резидентно по причине из шапки: маппим W3, читаем, возвращаем окно.
+ * Ровно то же делает atlas_load, поэтому вызов из банка безопасен.
+ * 0 — прочитано ожидаемое число байт, -1 — нет. */
+int pop_page_read(const char *path, uint8_t phys, uint16_t want)
+{
+    uint8_t saved_w3;
+    int fd, n;
+    fd = open(path, O_RDONLY);
+    if (fd < 0) return -1;
+    saved_w3 = _io_page_w3;
+    sprinter_page_w3(phys);
+    n = read(fd, (uint8_t *)0xC000, want);
+    _io_page_w3 = saved_w3;
+    close(fd);
+    return (n == (int)want) ? 0 : -1;
+}
@@ -0,0 +1,76 @@
+/*
+ * 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-страниц и вычитать в них данные.  ВЫВОД НЕ
+ * ВКЛЮЧАЕТ — см. pop_sfx_start.  0 — OK, -1 — не получилось (тогда всё
+ * дальнейшее молча ничего не делает, игра идёт без звука). */
+int  pop_sfx_init(void) __banked;
+
+/* Включить вывод (открыть CBL).  Звать ПОСЛЕ всей загрузки: пока идёт
+ * чтение файлов, ESTEX уходит в диск надолго, насос не успевает долить
+ * блок, и железо крутит хвост своего буфера — на слух сплошной скрежет.
+ * Идемпотентно. */
+int  pop_sfx_start(void) __banked;
+
+/* Заглушить вывод на время загрузки (закрывает CBL).  Парная к start. */
+void pop_sfx_pause(void) __banked;
+
+/* Закрыть CBL и отпустить страницы; звать на выходе. */
+void pop_sfx_close(void) __banked;
+
+/* Вкл/выкл звук по воле пользователя (Ctrl+S, порт SDLPoP seg000:657).
+ * Правит pop_snd_want и приводит вывод в соответствие. */
+void pop_sfx_toggle(void) __banked;
+
+/* ХОЧЕТ ЛИ ЗВУКА ПОЛЬЗОВАТЕЛЬ.  Не то же самое, что «CBL открыт»: вывод
+ * ещё гасит служебная пауза на время загрузки уровня.  Читать для
+ * индикации; писать — только через pop_sfx_toggle.  0 и в случае, когда
+ * набор вообще не поднялся (нет файлов, нет страниц) — то есть флаг
+ * честно means «звука не будет». */
+extern uint8_t pop_snd_want;
+
+/* Заявить эффект с номером id (0..56 — нумерация оригинала, см.
+ * sound_plan.md).  НЕ запускает его немедленно и НЕ перебивает играющий:
+ * это порт play_sound (seg000:12C5), который лишь НОМИНИРУЕТ кандидата на
+ * текущий кадр.  Из нескольких заявок за кадр выживает важнейшая, а решение
+ * «запускать или нет» принимает pop_sfx_tick.  Звуки без оцифровки (музыка)
+ * игнорируются.
+ *
+ * НЕ банковая и НЕ __banked: зовётся из горячих мест (play_seq в
+ * pop_kid.c, физика, боёвка), и трамплин на каждый шаг Кида не нужен. */
+void pop_sfx_play(uint8_t id);
+
+/* Раз в кадр: запустить номинанта, если можно (порт play_next_sound,
+ * seg000:1304).  Оригинал зовёт его в конце отрисовки кадра — зовём там же.
+ * Не запустили — номинант ВЫБРАСЫВАЕТСЯ, очереди у оригинала нет. */
+void pop_sfx_tick(void);
+
+/* Перебиваемость съезжающей створки двери уровня (звук 15) — единственная
+ * запись таблицы, которую оригинал правит на ходу (seg007:442/464):
+ * 1 при закрытии двери, 0 при открытии. */
+extern uint8_t pop_sfx_slide_intr;
+
+/* Оборвать текущий эффект (порт stop_sounds). */
+void pop_sfx_stop(void);
+
+#endif
@@ -0,0 +1,97 @@
+/*
+ * pop_sfx_cold.c — ХОЛОДНАЯ половина звука: поднять набор и открыть CBL.
+ * Отрабатывает один раз за запуск, поэтому живёт в банке 8; горячая
+ * половина (насос, запуск эффекта) — в резиденте, см. pop_sfx.c.
+ */
+
+#include <stdint.h>
+#include <sprinter_mem.h>
+#include <cbl.h>
+#include "pop_sfx.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). */
+    blk = mem_alloc_pages(POP_SND_PAGES);
+    if (!blk) 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_page_read(pop_snd_files[i], pop_snd_page[i], 16384) != 0) {
+            mem_free_block(blk);
+            return -1;
+        }
+    }
+    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 бит.
+ * UNDERRUN_APP, а не SILENCE: тишину насос льёт СВОЮ (первый блок
+ * набора), и просить у libc буфер через malloc не надо — куча в
+ * резиденте W2 тесная, и её отказ ронял бы весь звук. */
+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,
+                 CBL_UNDERRUN_APP, 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;
+    }
+}
@@ -0,0 +1,107 @@
+/* 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
+/* Первый блок страницы 0 — тишина для насоса (см. упаковщик). */
+#define POP_SND_SILENCE_PAGE 0
+#define POP_SND_SILENCE_OFF  0x0000
+
+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, 0x0080,  1664 },   /*  0 */
+    { 0, 0x0700, 12032 },   /*  1 */
+    { 0, 0x3600,  6272 },   /*  2 */
+    { 1, 0x0E80,  1280 },   /*  3 */
+    { 1, 0x1380,  1152 },   /*  4 */
+    { 1, 0x1800,  1408 },   /*  5 */
+    { 1, 0x1D80,  5504 },   /*  6 */
+    { 1, 0x3300,   896 },   /*  7 */
+    { 1, 0x3680,  1664 },   /*  8 */
+    { 1, 0x3D00,  2816 },   /*  9 */
+    { 2, 0x0800,  4992 },   /* 10 */
+    { 2, 0x1B80,  1280 },   /* 11 */
+    { 2, 0x2080,  1280 },   /* 12 */
+    { 2, 0x2580,  3840 },   /* 13 */
+    { 2, 0x3480,  7552 },   /* 14 */
+    { 3, 0x1200, 17664 },   /* 15 */
+    { 4, 0x1700,  4736 },   /* 16 */
+    { 4, 0x2980,  4224 },   /* 17 */
+    { 4, 0x3A00,  6912 },   /* 18 */
+    { 5, 0x1500,  2816 },   /* 19 */
+    { 5, 0x2000,  1408 },   /* 20 */
+    { 5, 0x2580,  1152 },   /* 21 */
+    { 5, 0x2A00,  1280 },   /* 22 */
+    { 5, 0x2F00,  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, 0x3480,  2688 },   /* 44 */
+    { 5, 0x3F00,  4224 },   /* 45 */
+    { 6, 0x0F80,  4608 },   /* 46 */
+    { 6, 0x2180,  5120 },   /* 47 */
+    { 6, 0x3580,  5120 },   /* 48 */
+    { 7, 0x0980,  4480 },   /* 49 */
+    { 0, 0x0000,     0 },   /* 50 */
+    { 7, 0x1B00,  4864 },   /* 51 */
+    { 0, 0x0000,     0 },   /* 52 */
+    { 0, 0x0000,     0 },   /* 53 */
+    { 0, 0x0000,     0 },   /* 54 */
+    { 0, 0x0000,     0 },   /* 55 */
+    { 0, 0x0000,     0 },   /* 56 */
+};
+
+/* Имена файлов видит ТОЛЬКО тот, кто попросил POP_SND_FILES (холодная
+ * половина): иначе копия строк уезжает в каждый включивший заголовок
+ * модуль, а в резиденте W1/W2 каждая сотня байт на счету.  Тот же
+ * приём, что у POP_BG_ATLAS_NAMES в pop_bg_atlas.h. */
+#ifdef POP_SND_FILES
+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
+
+#endif
@@ -4,6 +4,7 @@
 * См. pop_trob.h.
 */
 #include "pop_trob.h"
+#include "pop_sfx.h"      /* звуковые эффекты (../docs/sound_plan.md) */
 #include "pop_state.h"   /* pop_leveldoor_open */
 #include "pop_level.h"
 #include "pop_geom.h"
@@ -265,6 +266,7 @@ static void animate_chomper(uint8_t *m, int8_t *type,
        frame = (uint8_t)((*m & 0x7F) + 1);
        if (frame > POP_CHOMPER_SPEED) frame = 1;
        *m = (uint8_t)(blood | frame);
+        if (frame == 2) pop_sfx_play(47);          /* щелчок челюстей, seg007:297 */
        if ((room != drawn_room || (int8_t)TP_ROW[tp] != Kid.curr_row ||
             (Kid.alive >= 0 && blood == 0)) && frame >= 6)
            *type = -1;
@@ -453,7 +455,8 @@ static void do_trigger_list(uint8_t index, uint8_t button_type)
 }

 void pop_trigger_button(uint8_t room, uint8_t tilepos,
-                        uint8_t button_type, uint8_t modifier) __banked
+                        uint8_t button_type, uint8_t modifier,
+                        uint8_t snd) __banked
 {
    uint8_t link_timer = get_doorlink_timer(modifier);
    if (link_timer != 0x1F) {                          /* не заклинено */
@@ -463,8 +466,15 @@ void pop_trigger_button(uint8_t room, uint8_t tilepos,
        set_doorlink_timer(modifier, POP_DBG_GATE_HOLD);
        if (link_timer < 2) {
            pop_add_trob(room, tilepos, 1);            /* кнопка нажимается */
-            /* seg007:766: щелчок кнопки — шум, страж оборачивается.  Звука у
-             * нас нет, флаг обязан быть (BUG-GUARD-DEAF-1). */
+            /* seg007:766: щелчок кнопки — шум, и страж оборачивается
+             * (флаг обязателен даже без звука, BUG-GUARD-DEAF-1).
+             *
+             * Звук НЕ у всех вызовов: у оригинала первый параметр playsound,
+             * и в трёх местах он нулевой — вход на уровень (seg003:170),
+             * выход Джаффара (seg002:520) и зелье «открыть» (seg006:1890,
+             * у нас пока не портировано).  Там кнопка нажимается служебно,
+             * щёлкать нечему. */
+            if (snd) pop_sfx_play(3);
            is_guard_notice = 1;
        }
        do_trigger_list(modifier, button_type);
@@ -523,12 +533,21 @@ static void animate_leveldoor(uint8_t *m, int8_t *type, uint8_t cur_room)
        uint8_t sp;
        if (*type < 7) (*type)++;
        sp = leveldoor_close_speeds[*type - 3];
-        if (sp >= *m) { *m = 0; *type = -1; }
-        else           *m = (uint8_t)(*m - sp);
+        if (sp >= *m) { *m = 0; *type = -1; pop_sfx_play(14); }  /* seg007:437 */
+        else {
+            *m = (uint8_t)(*m - sp);
+            /* seg007:442: створку НА ЗАКРЫТИИ перебивать можно. */
+            if (*type == 4) { pop_sfx_slide_intr = 1; pop_sfx_play(15); }
+        }
    } else {
-        if (*m < 43) (*m)++;
+        /* seg007:464: на ОТКРЫТИИ створка неперебиваема — иначе съезд
+         * обрывается посреди и «конца» не слышно. */
+        if (*m < 43) { (*m)++; pop_sfx_slide_intr = 0; pop_sfx_play(15); }
        if (*m >= 43) {
            *m = 43; *type = -1;
+            /* seg007:455: дверь открылась — оригинал глушит всё.  Без этого
+             * неперебиваемый съезд (1,6 с) продолжал бы блокировать очередь. */
+            pop_sfx_stop();
            /* Условие оригинала — переход ИЗ 0 или 2, то есть ровно один раз
             * за открытие; иначе зеркало ставилось бы заново каждый кадр,
             * пока дверь стоит открытой. */
@@ -546,7 +565,31 @@ static void animate_leveldoor(uint8_t *m, int8_t *type, uint8_t cur_room)
 static const uint8_t gate_close_speeds[9] = {0, 0, 0, 20, 40, 60, 80, 100, 120};
 static const int8_t  door_delta[3] = {-1, 4, 4};

-static void animate_door(uint8_t *m, int8_t *type)
+/* play_door_sound_if_visible (seg007:1239): СЛЫШНА ли решётка.
+ *
+ * Правило не «решётка в текущей комнате», как можно подумать, а такое:
+ *   - решётка в комнате СЛЕВА и стоит в колонке 9 — слышна (это тайл вплотную
+ *     к левому краю экрана, игрок фактически видит её створку в шве);
+ *   - решётка в ОТРИСОВАННОЙ комнате и НЕ в колонке 9 — слышна (колонка 9
+ *     уезжает за правый край);
+ *   - особый случай оригинала: уровень 3, комната 2 — слышна всегда.
+ * Всё остальное молчит, иначе на 13-м уровне скрипели бы решётки со всей
+ * карты.
+ *
+ * Берём вариант ПОД FIX_GATE_SOUNDS (условия через ИЛИ, а не тернарником):
+ * в SDLPoP этот фикс включён по умолчанию, а сравниваемся мы именно с ним.
+ * Отличие только в вырожденном случае room_L == cur_room. */
+static uint8_t door_audible(uint8_t room, uint8_t tp,
+                            uint8_t room_L, uint8_t cur_room)
+{
+    uint8_t col = TP_COL[tp];
+    if (pop_current_level == 3 && room == 2) return 1;
+    if (room == room_L  && col == 9) return 1;
+    if (room == cur_room && col != 9) return 1;
+    return 0;
+}
+
+static void animate_door(uint8_t *m, int8_t *type, uint8_t audible)
 {
    int8_t anim_type = *type;
    uint8_t mod = *m;
@@ -555,21 +598,36 @@ static void animate_door(uint8_t *m, int8_t *type)
            if (anim_type < 8) { anim_type++; *type = anim_type; }
            {
                int new_mod = (int)mod - gate_close_speeds[anim_type];
-                if (new_mod < 0) { mod = 0; *type = -1; }
+                if (new_mod < 0) { mod = 0; *type = -1; pop_sfx_play(6); }
                else mod = (uint8_t)new_mod;
            }
        } else if (mod != 0xFF) {
            mod = (uint8_t)(mod + door_delta[anim_type]);
            if (anim_type == 0) {                      /* закрытие */
-                if (mod == 0) *type = -1;              /* gate_stop */
+                /* seg007:376: скрип закрывающейся решётки — раз в четыре шага
+                 * модификатора; лязг «встала» (7) — в конце.  Оба через
+                 * гейт слышимости (gate_stop, seg007:05E3, тоже через него). */
+                if (mod != 0) {
+                    if (mod < 188 && (mod & 3) == 3 && audible) pop_sfx_play(4);
+                } else {
+                    *type = -1;
+                    if (audible) pop_sfx_play(7);      /* gate_stop */
+                }
            } else {                                    /* открытие */
                if (mod >= 188) {
-                    if (anim_type < 2) { mod = 238; *type = 0; }  /* открыт → потом закрывать */
-                    else { mod = 0xFF; *type = -1; }              /* насовсем */
-                }
+                    /* Лязг после ОБЫЧНОГО открытия оригинал даёт без гейта
+                     * (seg007:395 — прямой play_sound), а после открытия
+                     * насовсем — через gate_stop, то есть с гейтом. */
+                    if (anim_type < 2) { mod = 238; *type = 0; pop_sfx_play(7); }
+                    else {
+                        mod = 0xFF; *type = -1;
+                        if (audible) pop_sfx_play(7);
+                    }
+                } else if ((mod & 7) == 0) pop_sfx_play(5);       /* seg007:386 */
            }
        } else {
            *type = -1;
+            if (audible) pop_sfx_play(7);              /* gate_stop, seg007:404 */
        }
    }
    *m = mod;
@@ -651,6 +709,10 @@ void pop_process_trobs(uint8_t cur_room) __banked
    {
    uint8_t  mod_room = 0;             /* 0 = «ещё не брали» (комнаты 1..24) */
    uint8_t *mod = 0;
+    /* Сосед СЛЕВА нужен гейту слышимости решёток (door_audible).  Берём один
+     * раз на проход: pop_room_link маппит страницу уровня, а решёток в
+     * списке может быть несколько. */
+    uint8_t  room_L = pop_room_link(cur_room, 0 /* L */);

    for (i = 0; i < trobs_count; i++) {
        uint8_t room = trobs[i].room;
@@ -672,7 +734,7 @@ void pop_process_trobs(uint8_t cur_room) __banked
            animate_button(mod[tp], &type);   /* mod[tp] = индекс LINKLOC кнопки */
            break;
        case TILE_GATE:
-            animate_door(&mod[tp], &type);
+            animate_door(&mod[tp], &type, door_audible(room, tp, room_L, cur_room));
            break;
        case TILE_LOOSE:
            animate_loose(&mod[tp], &type, room, tp, cur_room);
@@ -47,7 +47,8 @@ void pop_process_trobs(uint8_t cur_room) __banked;
 * room/tilepos — кнопка; button_type — её тайл-код; modifier — её modif
 * (= индекс в LINKLOC).  Звать из check_press (pop_map). */
 void pop_trigger_button(uint8_t room, uint8_t tilepos,
-                        uint8_t button_type, uint8_t modifier) __banked;
+                        uint8_t button_type, uint8_t modifier,
+                        uint8_t snd) __banked;

 /* Есть ли активные trob в комнате room?  Для перерисовки ворот соседа через
 * шов (roomtest не дёргает шов, пока сосед не анимируется). */
@@ -18,6 +18,7 @@
 #include "pop_trob.h"
 #include "pop_redraw.h"
 #include "pop_geom.h"    /* pop_y_to_row, TILE_SIZEX — тайл объекта */
+#include "pop_sfx.h"     /* pop_sfx_tick — решение о запуске звука за кадр */
 #include "pop_guard.h"
 #include "pop_cdraw.h"    /* общая отрисовка персонажей (слоты Кид/соперник) */
 #include "pop_cheat.h"
@@ -282,59 +283,9 @@ int main(void)
         * стоит, можно спокойно разбирать позу Kid и окклюзию. */
        if (kbd_raw_down(0x16)) frozen = 1;
        if (kbd_raw_down(0x1E)) frozen = 0;
-        {   /* Читы (seg000: switch под if (cheats_enabled)).  Все — по
-             * ФРОНТУ нажатия, иначе срабатывали бы каждый кадр.
-             *   K — убить стража;
-             *   I — бессмертие Кида (наш отладочный, в оригинале его нет:
-             *       иначе боёвку проверять получается ровно три раза);
-             *   S — выдать меч, не бегая за ним в комнату 15.  Штатно меч
-             *       берётся с пола (pop_have_sword ставит подбор);
-             *   Shift+L — следующий уровень (seg000:698, ветка next_level =
-             *       current_level + 1).  Единственный вменяемый способ
-             *       тестировать уровни 2..15.  NB: L без Shift — отладочный
-             *       «осторожный шаг вправо» (pop_ctrl KBD_DBG_STEPR); с
-             *       Shift шаг тоже пройдёт, но уровень тут же сменится, так
-             *       что конфликта на практике нет;
-             *   [ / ] — подвинуть Кида на ПИКСЕЛЬ влево/вправо (seg000:1828,
-             *       `--Char.x` / `++Char.x`).  Нужен потому, что мост MAME
-             *       теряет нажатия при быстрой отправке, и подогнать Кида в
-             *       нужную позу скриптом нельзя (на это упёрлись BUG-LOOSE-2
-             *       и BUG-GATE-PASS-1).  Пишем прямо в Kid.x: геометрию
-             *       персонажа в этом порте задаёт не диспетчер (грабли
-             *       L1-EXIT).  Колонку не трогаем — её пересчитает физика
-             *       следующего кадра. */
-            uint8_t k = kbd_raw_down(KBD_CHEAT_KILL);
-            uint8_t i = kbd_raw_down(KBD_CHEAT_IMMO);
-            uint8_t s = kbd_raw_down(KBD_CHEAT_SWORD);
-            uint8_t nl = (uint8_t)(kbd_raw_down(KBD_CHEAT_NEXTLVL) &&
-                                   (kbd_raw_down(KBD_LSHIFT) || kbd_raw_down(KBD_RSHIFT)));
-            uint8_t up = kbd_raw_down(KBD_CHEAT_UPSIDE);
-            uint8_t xd = kbd_raw_down(KBD_CHEAT_XDEC);
-            uint8_t xi = kbd_raw_down(KBD_CHEAT_XINC);
-            if (pop_cheats && k && !cheat_prev)  pop_guard_kill();
-            /* Бессмертие по кругу: 0 выкл -> 1 «только бой» -> 2 «бой и
-             * мелкий урон» -> 0.  Что означают уровни — pop_state.h. */
-            if (pop_cheats && i && !immo_prev)
-                pop_immortal = (uint8_t)(pop_immortal >= 2 ? 0 : pop_immortal + 1);
-            if (pop_cheats && s && !sword_prev)  pop_have_sword = 1;
-            if (pop_cheats && nl && !nlvl_prev && pop_current_level < POP_LAST_LEVEL)
-                pop_next_level = (uint8_t)(pop_current_level + 1);
-            /* U — переворот экрана (seg000:0793 — чит и в оригинале).
-             * Тот же путь, что у зелья типа 4: флаг + пометка «перевернулись». */
-            if (pop_cheats && up && !upsd_prev) {   /* тот же путь, что у зелья */
-                pop_upside_want = (uint8_t)!pop_upside_want;
-                pop_upside_dirty = 1;
-            }
-            if (pop_cheats && xd && !xdec_prev)  Kid.x = (uint8_t)(Kid.x - 1);
-            if (pop_cheats && xi && !xinc_prev)  Kid.x = (uint8_t)(Kid.x + 1);
-            cheat_prev = k;
-            immo_prev  = i;
-            sword_prev = s;
-            nlvl_prev  = nl;
-            upsd_prev  = up;
-            xdec_prev  = xd;
-            xinc_prev  = xi;
-        }
+        /* Читы — В БАНКЕ (roomtest_cold.c): они дёргаются раз в кадр, а места
+         * в резиденте W1/W2 нет (см. TASKS_OPEN, MEM). */
+        pop_cheat_tick();
        if (frozen) {
 	    PROF(0);                              /* чёрный: ждём vsync    */
            /* Заморозка — тоже полноценный логический кадр: иначе якорь
@@ -611,7 +562,7 @@ int main(void)
            if (tt == TILE_OPENER || tt == TILE_CLOSER)
                pop_trigger_button(lroom, lpos,
                    (uint8_t)(tt == TILE_OPENER ? TILE_DEBRIS : tt),
-                    pop_trob_modif(lroom)[lpos]);
+                    pop_trob_modif(lroom)[lpos], 1);
            /* На факеле остаётся отдельный тайл «факел с щебнем»
             * (seg007:1067), а не обычный щебень. */
            pop_level_set_tile(lroom, lpos,
@@ -754,6 +705,12 @@ int main(void)

        PROF(0);                              /* чёрный: ждём vsync    */

+        /* Звук: решить, запускать ли заявленный за кадр эффект (порт
+         * play_next_sound).  Место то же, что у оригинала — конец отрисовки
+         * кадра, seg000:954: все заявки кадра уже поданы, и из них выбирается
+         * важнейшая.  Раньше по кадру нельзя — потеряются поздние заявки. */
+        pop_sfx_tick();
+
        /* Отладка: номер отрисованной комнаты в верхнем борте — рисуем ТОЛЬКО
         * при её смене (change-driven, счётчик 2 = обе страницы дабл-буфера),
         * а не каждый кадр (обход sdcc_z80_cmp_store_a_bug: сначала сохранить). */
@@ -24,6 +24,7 @@
 #include "pop_tune.h"
 #include "pop_ctrl.h"     /* pop_ctrl_init/close — ввод поднимает и закрывает boot */
 #include "pop_shadow.h"   /* запечённый набор Тени */
+#include "pop_sfx.h"      /* звуковые эффекты через CBL */
 #include "pop_vflip.h"    /* сброс зеркальных страниц на смене уровня */
 #include "pop_cheat.h"   /* pop_cheats — режим разработки включает pop_boot */
 #include "pop_pace.h"    /* pop_speed_mode — режим скорости в отладочной метке */
@@ -162,7 +163,8 @@ void pop_start_level(void) __banked
         * col2, row0 её же типом и модификатором (в оригинале и то и другое
         * берётся из curr_* после get_tile). */
        uint8_t tp = 2;                /* row0*10 + col2 */
-        pop_trigger_button(5, tp, pop_level_tile(5, tp), pop_trob_modif(5)[tp]);
+        pop_trigger_button(5, tp, pop_level_tile(5, tp), pop_trob_modif(5)[tp],
+                           0 /* seg003:170 — playsound=0 */);
        seq = SEQ_FALL;
    } else if (entry_pose == ENTRY_POSE_RUN) {
        seq = SEQ_RUN;
@@ -308,6 +310,77 @@ uint8_t pop_dbg_roomnav(uint8_t dir) __banked
    return 1;
 }

+
+/* ---- ЧИТЫ (seg000: switch под if (cheats_enabled)) -------------------- *
+ * Переехали из главного цикла в банк 8: дёргаются раз в кадр, то есть
+ * один трамплин на кадр, а места в резиденте W1/W2 не осталось (звук,
+ * атлас Тени и пейсинг съели остаток; см. TASKS_OPEN, MEM).
+ *
+ * Флаги «фронта» стали статиками модуля — раньше они были локалями main.
+ * Смысл прежний: одно нажатие = одно срабатывание.
+ */
+static uint8_t cheat_prev, immo_prev, sound_prev, nlvl_prev;
+static uint8_t upsd_prev, xdec_prev, xinc_prev;
+
+void pop_cheat_tick(void) __banked
+{
+            /* Читы (seg000: switch под if (cheats_enabled)).  Все — по
+             * ФРОНТУ нажатия, иначе срабатывали бы каждый кадр.
+             *   K — убить стража;
+             *   I — бессмертие Кида (наш отладочный, в оригинале его нет:
+             *       иначе боёвку проверять получается ровно три раза);
+             *   Ctrl+S — вкл/выкл звук (порт Ctrl+S из SDLPoP, seg000:657).
+             *       НЕ чит: работает и без pop_cheats, как в оригинале.
+             *       Ctrl обязателен — голая S у нас свободна, но менять
+             *       пользовательскую раскладку оригинала незачем;
+             *   Shift+L — следующий уровень (seg000:698, ветка next_level =
+             *       current_level + 1).  Единственный вменяемый способ
+             *       тестировать уровни 2..15.  NB: L без Shift — отладочный
+             *       «осторожный шаг вправо» (pop_ctrl KBD_DBG_STEPR); с
+             *       Shift шаг тоже пройдёт, но уровень тут же сменится, так
+             *       что конфликта на практике нет;
+             *   [ / ] — подвинуть Кида на ПИКСЕЛЬ влево/вправо (seg000:1828,
+             *       `--Char.x` / `++Char.x`).  Нужен потому, что мост MAME
+             *       теряет нажатия при быстрой отправке, и подогнать Кида в
+             *       нужную позу скриптом нельзя (на это упёрлись BUG-LOOSE-2
+             *       и BUG-GATE-PASS-1).  Пишем прямо в Kid.x: геометрию
+             *       персонажа в этом порте задаёт не диспетчер (грабли
+             *       L1-EXIT).  Колонку не трогаем — её пересчитает физика
+             *       следующего кадра. */
+            uint8_t k = kbd_raw_down(KBD_CHEAT_KILL);
+            uint8_t i = kbd_raw_down(KBD_CHEAT_IMMO);
+            uint8_t s = (uint8_t)(kbd_raw_down(KBD_SOUND_TOGGLE) &&
+                                   (kbd_raw_down(KBD_LCTRL) || kbd_raw_down(KBD_RCTRL)));
+            uint8_t nl = (uint8_t)(kbd_raw_down(KBD_CHEAT_NEXTLVL) &&
+                                   (kbd_raw_down(KBD_LSHIFT) || kbd_raw_down(KBD_RSHIFT)));
+            uint8_t up = kbd_raw_down(KBD_CHEAT_UPSIDE);
+            uint8_t xd = kbd_raw_down(KBD_CHEAT_XDEC);
+            uint8_t xi = kbd_raw_down(KBD_CHEAT_XINC);
+            if (pop_cheats && k && !cheat_prev)  pop_guard_kill();
+            /* Бессмертие по кругу: 0 выкл -> 1 «только бой» -> 2 «бой и
+             * мелкий урон» -> 0.  Что означают уровни — pop_state.h. */
+            if (pop_cheats && i && !immo_prev)
+                pop_immortal = (uint8_t)(pop_immortal >= 2 ? 0 : pop_immortal + 1);
+            if (s && !sound_prev) pop_sfx_toggle();   /* не под pop_cheats */
+            if (pop_cheats && nl && !nlvl_prev && pop_current_level < POP_LAST_LEVEL)
+                pop_next_level = (uint8_t)(pop_current_level + 1);
+            /* U — переворот экрана (seg000:0793 — чит и в оригинале).
+             * Тот же путь, что у зелья типа 4: флаг + пометка «перевернулись». */
+            if (pop_cheats && up && !upsd_prev) {   /* тот же путь, что у зелья */
+                pop_upside_want = (uint8_t)!pop_upside_want;
+                pop_upside_dirty = 1;
+            }
+            if (pop_cheats && xd && !xdec_prev)  Kid.x = (uint8_t)(Kid.x - 1);
+            if (pop_cheats && xi && !xinc_prev)  Kid.x = (uint8_t)(Kid.x + 1);
+            cheat_prev = k;
+            immo_prev  = i;
+            sound_prev = s;
+            nlvl_prev  = nl;
+            upsd_prev  = up;
+            xdec_prev  = xd;
+            xinc_prev  = xi;
+}
+
 /* ---- ОТЛАДКА: состояние прогона в верхнем борте ---------------------- *
 *
 * Четыре блока ПАЛОЧКАМИ, каждый своим цветом (outtextxy не годится: текст
@@ -319,6 +392,11 @@ uint8_t pop_dbg_roomnav(uint8_t dir) __banked
 *   белый   x 100..175  комната   (1..24)
 *   голубой x 190..205  скорость  (1 палочка NORMAL, 2 FAST, 3 FASTEST)
 *   красный x 220..230  бессмертие (1 палочка = только бой, 2 = и мелкий урон)
+ *   пурпурный x 245     звук ВЫКЛЮЧЕН (Ctrl+S) либо не поднялся вовсе
+
+ * Звук показан «от противного» — палочка есть, когда звука НЕТ.  Иначе
+ * индикатор ничего не сообщает: включённый звук слышно и так, а вот
+ * молчание неотличимо от «в этот момент нечему звучать».
 *
 * ЦВЕТА — индексы ИГРОВОЙ палитры, и выбраны они не по вкусу, а по двум
 * ограничениям.
@@ -344,6 +422,7 @@ static uint8_t room_label_sig = 0xFF;   /* последняя показанна
 static uint8_t lvl_label_sig  = 0xFF;   /* ...уровень                     */
 static uint8_t spd_label_sig  = 0xFF;   /* ...режим скорости              */
 static uint8_t imm_label_sig  = 0xFF;   /* ...бессмертие                  */
+static uint8_t snd_label_sig  = 0xFF;   /* ...звук (pop_snd_want)         */
 static uint8_t room_label_redraw;       /* остаток кадров (2 = обе страницы) */

 /* Группа палочек: n штук от x вправо, шаг 5, ширина 2. */
@@ -359,17 +438,21 @@ void pop_dbg_room_label(uint8_t room) __banked
     * (`if (n != g) g = n;` пишет разность вместо значения). */
    uint8_t prev_room = room_label_sig, prev_lvl = lvl_label_sig;
    uint8_t prev_spd  = spd_label_sig,  prev_imm = imm_label_sig;
+    uint8_t prev_snd  = snd_label_sig;
    uint8_t lvl = pop_current_level, spd = pop_speed_mode, imm = pop_immortal;
+    uint8_t snd = pop_snd_want;
    room_label_sig = room;
    lvl_label_sig  = lvl;
    spd_label_sig  = spd;
    imm_label_sig  = imm;
-    if (room != prev_room || lvl != prev_lvl || spd != prev_spd || imm != prev_imm)
+    snd_label_sig  = snd;
+    if (room != prev_room || lvl != prev_lvl || spd != prev_spd ||
+        imm != prev_imm  || snd != prev_snd)
        room_label_redraw = 2;
    if (!room_label_redraw) return;

    setfillstyle(SOLID_FILL, BLACK);
-    bar(10, 0, 230, 5);
+    bar(10, 0, 250, 5);

    setfillstyle(SOLID_FILL, 0x3E);            /* уровень — жёлтый */
    label_bars(10, (uint8_t)(lvl / 10));
@@ -388,6 +471,10 @@ void pop_dbg_room_label(uint8_t room) __banked
        setfillstyle(SOLID_FILL, 0x3C);
        label_bars(220, imm);                  /* палочек = уровень (1 или 2) */
    }
+    if (!snd) {                                /* звука НЕТ — пурпурный */
+        setfillstyle(SOLID_FILL, 0x3D);
+        label_bars(245, 1);
+    }
    room_label_redraw--;
 }

@@ -766,6 +853,7 @@ int pop_boot(void) __banked
    pop_sword_load();                  /* меч в руке (без него кадры 229+ без клинка) */
    pop_guard_load();                  /* атласы стража (GUARD\\g0..g4) */
    pop_shadow_load();                 /* запечённый набор Тени — один раз на запуск */
+    pop_sfx_init();                    /* звук: 8 страниц оцифровки (вывод пока молчит) */
    if (pop_kid_load(28) != 0) {       /* ВСЕ страницы: бег+стоп+разворот+присед+прыжок */
        puts("kid atlas load failed");
        return -1;
@@ -810,6 +898,11 @@ int pop_boot(void) __banked
    gfx_set_draw_page(0);
    pop_char_draw(POP_CH_KID);
    pop_char_fore(POP_CH_KID);
+    /* Звук включаем ПОСЛЕДНИМ действием инициализации — когда все атласы,
+     * уровень и палитры уже прочитаны.  Раньше нельзя: ESTEX уходит в диск
+     * надолго, насос не успевает долить блок, и на слух это скрежет
+     * (pop_sfx.h).  Парная к pop_sfx_pause в pop_level_switch. */
+    pop_sfx_start();
    return 0;
 }

@@ -830,6 +923,7 @@ int pop_level_switch(void) __banked
             * дальше, а урон — нет (do_startpos дольёт до потолка). */
            hitp_beg_lev = hitp_max;
            pop_checkpoint = 0;           /* уровень пройден (seg003:413) */
+            pop_sfx_pause();          /* загрузка уровня — ESTEX надолго, звук глушим */
            if (pop_level_load_num(pop_next_level) != 0) {
                pop_next_level = pop_current_level;   /* файла нет — остаёмся */
            } else {
@@ -861,6 +955,7 @@ int pop_level_switch(void) __banked
                 * и делать это в момент глотка нельзя.  Звать можно откуда
                 * угодно — функция идемпотентна. */
                if (pop_current_level == POP_UPSIDE_LEVEL) pop_vflip_load_all();
+                pop_sfx_start();          /* ...и обратно, когда всё прочитано */
            }
    return 0;
 }
@@ -868,6 +963,14 @@ int pop_level_switch(void) __banked
 void pop_shutdown(void) __banked
 {
    gfx_set_idle_hook(0);              /* снять хук ДО закрытия raw-канала */
+    /* ЗВУК ГАСИМ ПЕРВЫМ, до closegraph и освобождения страниц.  Дальше идут
+     * ESTEX-вызовы (mem_free_block на каждый атлас), а они уходят надолго —
+     * насос не успевает долить очередной блок, и железо доигрывает по кругу
+     * несвежую половину буфера.  Замер записи MAME: на выходе по ESC ровно
+     * 11 мс шума на полной громкости, то есть ОДИН пропущенный блок (128
+     * сэмплов = 11,7 мс).  Та же причина, по которой звук глушится на время
+     * загрузки уровня (pop_sfx.h). */
+    pop_sfx_close();
    pop_ctrl_close();
    closegraph();
    pop_bg_free();
@@ -66,6 +66,10 @@ uint8_t pop_dbg_roomnav(uint8_t dir) __banked;
 * звать можно каждый кадр. */
 void pop_dbg_room_label(uint8_t room) __banked;

+/* Читы по фронту нажатия (K/I/S/Shift+L/U/[/]).  В банке: раз в кадр,
+ * а резидент W1/W2 переполнен — см. шапку функции. */
+void pop_cheat_tick(void) __banked;
+
 /* Кто рисуется ПОЗЖЕ — Кид или соперник (порядок обхода тайлов оригинала,
 * set_objtile_at_char + sort_curr_objs).  1 = соперник поверх.  Зовётся раз
 * в кадр, поэтому живёт в банке: трамплин на кадр дешевле полукилобайта
@@ -0,0 +1,199 @@
+#!/usr/bin/env python3
+"""
+pop_pack_sound.py — упаковщик ЗВУКОВЫХ ЭФФЕКТОВ (оцифровка, chtab нет).
+
+ИСТОЧНИК.  `MSDOS/digisnd1..3.dat` — оригинальные контейнеры.  Разбор:
+индекс по 8 байт (id, offset, size), **первый байт ресурса — контрольная
+сумма**, тело за ней (спецификация `docs/POP-DAT-FormatSpecifications`,
+§3.1.2).  Тело — один из двух вариантов заголовка:
+
+    digi_type     (1.0/1.1): word rate, word count, word unk, byte size=8
+    digi_new_type (1.3/1.4): word rate, byte size=8, word count, word, word
+
+Различаем по позиции байта размера: у нового он на смещении 3, у старого
+на 7.  Сэмплы — 8 бит БЕЗЗНАКОВЫЕ, МОНО (проверено по `convert_digi_sound`,
+seg009.c:2358: один байт на кадр, `(b | b<<8) - 32768`; стерео в данных
+нет вовсе, каналы размножаются уже на выходе).  Это ровно формат нашего
+CBL — конвертировать нечего.
+
+ЧАСТОТА.  Приводим ВСЁ к 10 937,5 Гц — это `CBL_FREQ_10K9`, то есть
+частота железа.  Не к 11 000: проигрывание 11 000-данных на 10 937,5 дало
+бы сдвиг тона −9,9 цента, а пересчитывать три файла (2 750, 8 200,
+14 000 Гц) всё равно надо.  Взамен CBL открывается ОДИН раз и частота не
+меняется никогда — ни между эффектами, ни при переходе на музыку.
+
+РАСКЛАДКА.  Всё склеивается в EMM-страницы по 16 384 Б, и начало каждого
+звука ВЫРАВНИВАЕТСЯ НА 128.  Это не косметика: блок запроса CBL — ровно
+128 байт, а 16 384 кратно 128, поэтому при таком выравнивании ни один
+блок не пересекает границу страницы.  Проигрыватель за счёт этого не
+знает слова «стык»: замапил страницу, отдал 128 байт, сдвинул указатель.
+Плата — до 127 байт на звук, всего ~2 КБ.
+
+Выход: poc/res/sound/s0..sN.bin (по 16 384 Б) + roomtest/pop_sound_tbl.h
+"""
+import os
+import struct
+import sys
+
+HERE    = os.path.dirname(os.path.abspath(__file__))
+DAT_DIR = os.path.join(HERE, "..", "MSDOS")
+OUT_DIR = os.path.join(HERE, "..", "poc", "res", "sound")
+HDR     = os.path.join(HERE, "..", "roomtest", "pop_sound_tbl.h")
+
+PAGE   = 16384
+BLOCK  = 128           # блок запроса CBL при 8 бит (см. cbl.h)
+RATE   = 10937.5       # CBL_FREQ_10K9
+NSOUND = 57            # id 0..56; у музыки оцифровки нет — длина 0
+
+
+def dat_resources(path):
+    """id -> тело ресурса (без байта контрольной суммы)."""
+    d = open(path, "rb").read()
+    off, _ = struct.unpack("<IH", d[0:6])
+    n = struct.unpack("<H", d[off:off + 2])[0]
+    out = {}
+    for i in range(n):
+        e = off + 2 + i * 8
+        rid  = struct.unpack("<H", d[e:e + 2])[0]
+        roff = struct.unpack("<I", d[e + 2:e + 6])[0]
+        rsz  = struct.unpack("<H", d[e + 6:e + 8])[0]
+        out[rid - 10000] = d[roff + 1:roff + 1 + rsz]
+    return out
+
+
+def digi(body):
+    """(rate, samples) или None, если ресурс не оцифровка."""
+    if not body or (body[0] & 7) != 1:
+        return None
+    if len(body) > 4 and body[3] == 8:            # digi_new_type
+        rate = struct.unpack("<H", body[1:3])[0]
+        cnt  = struct.unpack("<H", body[4:6])[0]
+        head = 10
+    elif len(body) > 7 and body[7] == 8:          # digi_type
+        rate, cnt = struct.unpack("<HH", body[1:5])
+        head = 8
+    else:
+        return None
+    return rate, body[head:head + cnt]
+
+
+def resample(src, src_rate, dst_rate):
+    """Линейная интерполяция.  Данные 8 бит беззнаковые, поэтому и работаем
+    в беззнаковых — никаких знаковых промежуточных представлений."""
+    if src_rate == dst_rate or not src:
+        return bytes(src)
+    n = int(round(len(src) * dst_rate / src_rate))
+    out = bytearray(n)
+    step = src_rate / dst_rate
+    for i in range(n):
+        x = i * step
+        i0 = int(x)
+        if i0 >= len(src) - 1:
+            out[i] = src[-1]
+        else:
+            a = x - i0
+            out[i] = int(round(src[i0] * (1.0 - a) + src[i0 + 1] * a))
+    return bytes(out)
+
+
+def main():
+    res = {}
+    for i in (1, 2, 3):
+        p = os.path.join(DAT_DIR, f"digisnd{i}.dat")
+        if not os.path.exists(p):
+            sys.exit(f"нет файла {p}")
+        res.update(dat_resources(p))
+
+    sounds = {}
+    for sid, body in sorted(res.items()):
+        g = digi(body)
+        if g is None:
+            print(f"  звук {sid}: не оцифровка, пропуск")
+            continue
+        rate, samples = g
+        pcm = resample(samples, rate, RATE)
+        sounds[sid] = pcm
+        if rate != 11000:
+            print(f"  звук {sid}: {rate} Гц -> {RATE:g} Гц, {len(samples)} -> {len(pcm)} сэмплов")
+
+    # Раскладка: начало каждого звука кратно BLOCK, страницы по PAGE.
+    # ПЕРВЫЙ БЛОК — ТИШИНА.  Он нужен насосу: когда эффект кончился, в CBL
+    # всё равно надо что-то отдавать, иначе железо доигрывает по кругу хвост
+    # своего буфера (жужжание).  Держим тишину СВОЮ, а не просим у libc
+    # (CBL_UNDERRUN_SILENCE делает malloc), потому что куча в резиденте W2
+    # тесная и её отказ ронял бы весь звук.
+    blob = bytearray([0x80] * BLOCK)
+    table = {}
+    for sid in sorted(sounds):
+        pad = (-len(blob)) % BLOCK
+        blob += bytes([0x80]) * pad          # 0x80 — тишина в беззнаковом 8-бит
+        # Длину округляем ВВЕРХ до блока: хвост последнего блока — это
+        # выравнивающая тишина следующего звука, и проигрыватель за счёт
+        # этого не знает слова «неполный блок».
+        table[sid] = (len(blob), (len(sounds[sid]) + BLOCK - 1) // BLOCK * BLOCK)
+        blob += sounds[sid]
+    blob += bytes([0x80]) * ((-len(blob)) % PAGE)
+
+    os.makedirs(OUT_DIR, exist_ok=True)
+    npages = len(blob) // PAGE
+    for i in range(npages):
+        with open(os.path.join(OUT_DIR, f"s{i}.bin"), "wb") as f:
+            f.write(blob[i * PAGE:(i + 1) * PAGE])
+
+    lines = [
+        "/* pop_sound_tbl.h — раскладка оцифрованных эффектов PoP.",
+        " * СГЕНЕРЕНО toolchain/pop_pack_sound.py — НЕ править вручную.",
+        " *",
+        " * Данные: 8 бит беззнаковые, МОНО, %g Гц (CBL_FREQ_10K9) — формат" % RATE,
+        " * CBL один в один, конвертировать в рантайме нечего.",
+        " *",
+        " * Начало каждого звука кратно %d — размеру блока запроса CBL, а" % BLOCK,
+        " * страница (%d) кратна ему же.  Поэтому НИ ОДИН блок не пересекает" % PAGE,
+        " * границу страницы, и проигрывателю не нужна логика стыка.",
+        " *",
+        " * Смещение хранится РАЗОБРАННЫМ на страницу и адрес в окне: на Z80",
+        " * 32-битная арифметика дорога, а так всё влезает в 8/16 бит.",
+        " * Длина округлена вверх до блока — неполных блоков не бывает.",
+        " */",
+        "#ifndef POP_SOUND_TBL_H",
+        "#define POP_SOUND_TBL_H",
+        "",
+        "#include <stdint.h>",
+        "",
+        "#define POP_SND_PAGES   %d" % npages,
+        "#define POP_SND_COUNT   %d" % NSOUND,
+        "#define POP_SND_BLOCK   %d" % BLOCK,
+        "/* Первый блок страницы 0 — тишина для насоса (см. упаковщик). */",
+        "#define POP_SND_SILENCE_PAGE 0",
+        "#define POP_SND_SILENCE_OFF  0x0000",
+        "",
+        "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] = {",
+    ]
+    for sid in range(NSOUND):
+        off, ln = table.get(sid, (0, 0))
+        lines.append("    { %d, 0x%04X, %5d },   /* %2d */" % (off >> 14, off & 0x3FFF, ln, sid))
+    lines += [
+        "};",
+        "",
+        "/* Имена файлов видит ТОЛЬКО тот, кто попросил POP_SND_FILES (холодная",
+        " * половина): иначе копия строк уезжает в каждый включивший заголовок",
+        " * модуль, а в резиденте W1/W2 каждая сотня байт на счету.  Тот же",
+        " * приём, что у POP_BG_ATLAS_NAMES в pop_bg_atlas.h. */",
+        "#ifdef POP_SND_FILES",
+        "static const char *const pop_snd_files[POP_SND_PAGES] = {",
+    ]
+    lines += ['    "SND\\\\s%d.bin",' % i for i in range(npages)]
+    lines += ["};", "#endif", "", "#endif", ""]
+    with open(HDR, "w") as f:
+        f.write("\n".join(lines))
+
+    have = sum(1 for s in sounds.values() if s)
+    print(f"ИТОГО: {have} эффектов, {len(blob)} Б = {npages} EMM-страниц -> {OUT_DIR}")
+    print(f"       заголовок -> {HDR}")
+
+
+if __name__ == "__main__":
+    main()
@@ -55,6 +55,11 @@ extern uint8_t      _cbl_port_refs;      /* держатели bit7 помимо
 /* Запись в 16-битный порт управления 0x004E. */
 void _cbl_ctrl(uint8_t v);

+/* Залить весь аппаратный буфер (256 слотов) байтом тишины сразу после
+ * включения — иначе первые 23 мс играет то, что лежало в буфере раньше.
+ * Подробный разбор — в шапке _cbl_prime.c. */
+void _cbl_prime(uint8_t silence);
+
 /* ISR-насосы: вызвать fill(), при недоливе — тишина по режиму (один
 * регистрируется в _irq_cbl_hook при cbl_open — по выбору CBL_PUMP_*). */
 void _cbl_pump_otir(void);
@@ -0,0 +1,54 @@
+/*
+ * _cbl_prime — залить аппаратный буфер CBL тишиной СРАЗУ после включения.
+ *
+ * ЗАЧЕМ.  Буфер CBL (256 слотов, две половины по 128) железо НЕ чистит ни
+ * при сбросе, ни при записи в порт управления — там остаётся то, что лежало
+ * раньше: хвост прошлой сессии, а на холодном старте вообще неинициализи-
+ * рованное содержимое.  Между тем запись в порт управления взводит счётчик
+ * воспроизведения в 0 и тут же пускает таймер, поэтому первое, что уходит в
+ * ЦАП, — эти самые 256 слотов.  На слух это кусок мусора в момент включения
+ * звука (поймано пользователем на старте PoP, 2026-08-20).
+ *
+ * Разбор по MAME (src/mame/sinclair/sprinter.cpp, единственная доступная нам
+ * модель железа):
+ *   - case 0x89 (порт управления): `m_cbl_cnt = 0; m_cbl_wa = 0;` и завод
+ *     таймера — буфер при этом не трогается;
+ *   - cbl_tick: играет `m_cbl_data[m_cbl_cnt++]`, а прерывание «долей
+ *     половину» поднимает только на `!(m_cbl_cnt & 0x7f)`, ставя указатель
+ *     записи на ПРОТИВОПОЛОЖНУЮ половину (`m_cbl_wa = m_cbl_cnt ^ 0x80`).
+ * Отсюда ровно: первое прерывание приходит, когда сыграна половина 0..127,
+ * и приложение заполняет её же, пока играет половина 128..255.  Своими
+ * данными звук пойдёт только с третьей половины, то есть НЕЗАПОЛНЕННЫМИ
+ * уходят все 256 слотов — 23,4 мс на 10 937,5 Гц.
+ *
+ * ПОЧЕМУ ИМЕННО ТАК ЛЕЧИТСЯ.  Заранее, до включения, залить нельзя: запись
+ * в порт данных попадает в буфер только при уже поднятом bit7 (`case 0x88:
+ * if (cbl_mode())`).  Значит заливаем сразу ПОСЛЕ включения — за 256 OUT'ов
+ * (~6 400 тактов, 0,3 мс) таймер успевает продвинуться на два-три слота, и
+ * наружу проскакивает пара сэмплов вместо 23 мс.  Гонки с насосом нет:
+ * первое прерывание будет только на 128-м слоте, а зовут нас под DI.
+ *
+ * Слотов ровно 256 НЕЗАВИСИМО от формата (в 16-бит слот держит целый
+ * сэмпл), поэтому и записей всегда 256 — байт тишины разный: 0x80 для
+ * 8-бит беззнакового, 0x00 для 16-бит.
+ */
+
+#include "_cbl.h"
+
+void _cbl_prime(uint8_t silence) __naked
+{
+    (void)silence;
+    __asm
+        ;; __sdcccall(1): uint8_t-аргумент уже в A.
+        ;; C = порт данных, B = счётчик (B=0 значит 256 итераций).  Пишем
+        ;; через `out (c),a`, а не `out (n),a`: у OTIR в этот порт старший
+        ;; байт адреса тоже задаёт B и меняется по ходу — повторяем ровно
+        ;; ту же картину на шине, чтобы не зависеть от декодирования.
+        ld    c, #_CBL_DATA_PORT
+        ld    b, #0
+    00001$:
+        out   (c), a
+        djnz  00001$
+        ret
+    __endasm;
+}
@@ -78,6 +78,12 @@ int cbl_open(uint8_t freq_code, uint8_t fmt, uint8_t pump_mode,
    IRQ_DISABLE();
    _irq_cbl_hook = (pump_mode == CBL_PUMP_ACCEL) ? _cbl_pump_accel : _cbl_pump_otir;
    _cbl_ctrl((uint8_t)(0x90 | fmt | freq_code));  /* on + int + формат + частота */
+    /* ...и НЕМЕДЛЕННО забить буфер тишиной: железо пускает воспроизведение
+     * с нулевого слота той же записью в порт управления, а буфер хранит
+     * старое содержимое — без этого первые 23 мс уходит мусор.  Заливка
+     * обязана быть внутри той же DI-скобки и сразу за включением (разбор —
+     * _cbl_prime.c). */
+    _cbl_prime((uint8_t)((fmt & CBL_FMT_MONO16) ? 0x00 : 0x80));
    IRQ_ENABLE();
    return 0;
 }
Author	SHA1	Message	Date
snark13	63e426cc0d	Откат оптимизации резидента: перенос данных банка в его страницу ломает картинку Возврат к состоянию после звуковых правок (`c6828c0`). Отменяются `3545826` и `9025573` целиком: --bank-data=SRC в sprinter-cc, его включение в PoP и docs/resident_budget.md. Что выяснено и почему откат, а не доводка. Перенос писучих данных банкового модуля в его 16-КБ страницу даёт цветной мусор блоками и уводит DSS. У pop_trob причина найдена: pop_trob_modif() возвращает указатель на room_modif[24][30], и его разыменовывают банки 2/3/7 и резидент — то есть пишут по 0xC000+ в СВОЮ страницу, поверх чужого кода. Def/Ref-анализ такое не ловит: снаружи ссылки на символ нет, есть ссылка на функцию, отдающую его адрес. Но и один pop_room, у которого явной утечки указателя найти не удалось, ломается так же — значит механизм понят не до конца. Пока не понят, включать нельзя. Нулевая инициализация при этом ни при чём: mkexe -p 0 проверен по образу (прогон нулей 14304 Б, самый длинный прогон 0xFF — 14). Место в резиденте искать другими путями: malloc (287 Б, требует раздельных cbl_open для APP и SILENCE) и код pop_tile (5972 Б). Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>	2026-08-20 21:26:23 +03:00
snark13	90255737c2	Откат bank-data для pop_trob: указатель на его статику уходил наружу Симптом: через несколько комнат живого прохода перезагружался DSS. pop_trob_modif() возвращает указатель на room_modif[24][30], а зовут её из банков 2, 3, 7 и резидента. После переноса массив лежит по 0xC000+ в странице банка 6, но разыменовывает указатель ЧУЖОЙ код — когда замаплена его собственная страница. Значит чтение и запись идут поверх кода соседнего банка. Анализ Def/Ref такое не ловит: снаружи нет ссылки на символ, есть ссылка на функцию, которая отдаёт его адрес. Условий для кандидата два, и второе проверяется только чтением кода — ни один указатель на статику не должен уходить наружу. pop_room оба условия проходит (_mobs не читает никто; bake_copy статическая; atlas_load(&pop_env[i]) берёт адрес глобала из резидентного pop_tile.c). Остаётся −1620 Б: данные в W2 6774 -> 5157, свободно 129 -> 1746 Б. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>	2026-08-20 21:21:44 +03:00
snark13	354582662c	Резидент W1/W2: данные pop_room и pop_trob — в свои банки (−2546 Б) sprinter-cc: новый повторяемый --bank-data=SRC — писучие данные ОДНОГО банкового модуля в его же страницу. Прежний --bank-data был всё-или-ничего и потому неприменим: у большинства банковых модулей часть глобалов читают соседние банки и резидент (hitp_*, pop_upside, pop_loose_modif, pop_cd), и такие данные обязаны остаться замапленными всегда. Кандидаты отобраны по объектным файлам, а не на глаз: символ должен быть Def только в своём .rel и нигде не Ref. Прошли ровно двое — pop_room (_mobs не читает никто) и pop_trob (экспортируемых данных нет вовсе). При любом --bank-data sprinter-cc сам добавляет mkexe -p 0: crt0 зануляет только резидентный _DATA, а mkexe по умолчанию бьёт пустоты 0xFF — иначе вся банковая статика поднялась бы мусором. Итог: данные в W2 6774 -> 4228, свободно до стека 129 -> 2675 Б. BANK7 87 %, BANK6 31 %. Проверено в MAME: уровень 1, комнаты 1-2, фон, факелы, решётки, проваливающиеся полы, переход между комнатами. Метод замера и оставшиеся кандидаты — docs/resident_budget.md. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>	2026-08-20 21:14:02 +03:00
snark13	c6828c0ad1	Ворота PoP: правильный гейт слышимости, звук «решётка встала», playsound кнопки Проверка на сцене 9/9 (кнопка 1,8; челюсти 1,2; ворота — в комнате 4, тайл 1,9) вскрыла три расхождения. 1. Гейт слышимости стоял как «ворота в текущей комнате», а у оригинала (play_door_sound_if_visible, seg007:1239) слышны ещё и ворота в комнате СЛЕВА, если они в колонке 9; и НЕ слышны в колонке 9 своей комнаты; плюс особый случай «уровень 3, комната 2». Сцена 9/9 — ровно первый пункт, поэтому спуск решётки молчал. Подъём совпадал, потому что звук открытия идёт без гейта — эта асимметрия и была подсказкой. 2. Потерян звук 7 «решётка встала»: gate_stop (seg007:05E3) зовётся из трёх мест animate_door и каждый раз играет его через гейт. У нас во всех трёх стояло только type = -1. 3. У trigger_button оригинала есть параметр playsound, нулевой в трёх местах (вход на уровень, выход Джаффара, зелье «открыть»). Добавлен. Щелчок кнопки слышен через раз — это НЕ баг: prio 0x66 против 0x10 у челюстей, а укус занимает 465 мс из цикла 1229 мс (замерено). Разбор с цифрами — sound_plan.md §12. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>	2026-08-20 21:03:16 +03:00
snark13	a630568a8b	Звук PoP: приоритеты и перебиваемость вместо «всегда перебивать» Пользователь услышал расхождение с SDLPoP: у нас решётка обрывалась приземлением Кида, в оригинале доигрывает до конца, а приземления не слышно. Оказалось, упущен целый механизм. play_sound (seg000:12C5) НЕ играет, а только номинирует кандидата на кадр — из нескольких выживает важнейший (меньше prio = важнее, при равенстве последний). play_next_sound (seg000:1304) раз в кадр решает, запускать ли: можно, только если ничего не играет ЛИБО текущий помечен перебиваемым и новый не менее важен. Иначе номинант выбрасывается — очереди в оригинале нет. Отсюда всё, что слышно: gate_closing_fast неперебиваем и доигрывает целиком; челюсти (prio 0x10) всегда важнее решётки (0x32), поэтому решётка звучит только в паузах между укусами. Таблицы из SDLPoP с учётом fix_sound_priorities (в его config.h он определён безусловно). Створка двери уровня — единственная запись, правимая на ходу, вынесена в отдельный байт. Добавлен пропущенный stop_sounds на завершении открытия двери (seg007:455). Проверено записью MAME: старт уровня 1 был 135+210 мс (решётка, обрезанная на 80 мс), стал один всплеск 455 мс с корреляцией огибающей +0,889 со звуком 6. Заведён BUG-SND-FIRSTRUN: искажение первого эффекта при первом запуске после загрузки системы — вероятно, лечится _cbl_prime, но проверить можно только на железе. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>	2026-08-20 16:46:04 +03:00
snark13	f159aa47e1	CBL: заливка буфера тишиной при открытии + щелчок на выходе из PoP Две разные болячки, обе разобраны записью звука MAME в WAV. libc: буфер CBL железо не чистит, а запись в порт управления сразу пускает воспроизведение с нулевого слота — первые 256 сэмплов (23,4 мс) уходит то, что лежало раньше. Своими данными звук идёт лишь с третьей половины: прерывание приходит на 128-м слоте и ставит указатель на противоположную половину. _cbl_prime заливает буфер тишиной сразу после включения (раньше нельзя — запись проходит только при поднятом bit7). В MAME это немо (эмулируемый буфер стартует нулями при двухдополнительном ЦАП), на железе это ровно тот мусор, что ловился на тестовых примерах CBL. PoP: на выходе по ESC звучало ровно 11 мс шума на полной громкости — один пропущенный блок (128 сэмплов). Причина: pop_shutdown освобождал атласы и графику через ESTEX при открытом звуке, насос не успевал долить. Звук гасим первым действием. Проверено записью — всплеска больше нет. Заодно записан разбор стартового всплеска (sound_plan.md §10): это не мусор, а gate_closing_fast из левой комнаты, обрываемый soft_land. Обрыв одноголосьем — поведение оригинала (play_digi_sound начинается с stop_digi, seg009.c:2402). Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>	2026-08-20 16:23:06 +03:00
snark13	e0c86a96ef	Ctrl+S — вкл/выкл звук; чит «выдать меч» убран Порт Ctrl+S из SDLPoP (seg000:657). Выключение реально закрывает CBL, а не глушит сэмпл: иначе насос продолжал бы отдавать блоки тишины и платить те же 3,26 % процессорного времени. Флаг намерения pop_snd_want отдельно от pop_snd_ok: последний гасит служебная пауза на время загрузки уровня, и правь Ctrl+S только его — первая же смена уровня вернула бы выключенный звук. Индикация: пурпурная палочка в борте, когда звука НЕТ (включённый слышно и так, а молчание неотличимо от «нечему звучать»). Чит S «выдать меч» был отладочным и больше не нужен — снят, клавиша ушла под звук. Замер цены звука — sound_plan.md §9: 8 001 такт на прерывание при периоде 245 759 (3,26 % времени), +2,2 % к работе кадра в сцене 11/15, период кадра не сдвинулся ни разу. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>	2026-08-20 15:49:33 +03:00
snark13	7e2e7fbb37	Тишина на первом уровне: звук включался только после смены уровня При разделении загрузки набора (pop_sfx_init) и открытия CBL (pop_sfx_start) парный вызов start попал только в pop_level_switch. На стартовом пути его не было — игра шла молча до первого перехода. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>	2026-08-20 15:25:09 +03:00
snark13	8ea4c32e51	Звуковые эффекты PoP: оцифровка оригинала через CBL Набор digisnd1..3.dat приведён упаковщиком к 10 937,5 Гц (частота железа), склеен в 8 EMM-страниц с выравниванием каждого звука на 128 — размер блока запроса CBL, поэтому ни один блок не пересекает границу страницы и проигрыватель не знает слова «стык». Насос (pop_sfx.c) резидентный: его зовут из прерывания CBL, из горячих мест физики и из play_seq. Тишину льём свою (первый блок набора), а не через CBL_UNDERRUN_SILENCE с его malloc — куча в резиденте W2 тесная. Открытие CBL разведено с загрузкой (pop_sfx_start отдельно от pop_sfx_init): пока ESTEX читает файлы, насос не успевает долить блок и железо крутит хвост буфера — на слух скрежет. Разведены все места play_sound() SDLPoP, у которых есть оцифровка (id 0..23, 44..49): посадки, падение, удары о стену, зацеп, тряска и провал плит, ворота, дверь уровня, пики, чомпер, кнопки, боёвка, меч, зеркало, скелет, зелье. Таблица соответствий — docs/sound_plan.md §8. Музыкальные id остаются с нулевой длиной до фазы музыки. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>	2026-08-20 15:16:43 +03:00
snark13	24ced6058f	Упаковщик звуковых эффектов + сверка наборов 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, поэтому ни один блок не пересекает границу страницы — проигрывателю не нужна логика стыка.	2026-08-20 12:42:19 +03:00