SprPoP: в CLAUDE.md — игра на образе лежит в D:\GAMES\SPRPOP

С обобщения HDD-сборки (ea8efdb) один образ рассчитан на несколько приложений, и EXE переехал в подкаталог. В инструкции по запуску это не отразили, поэтому старая последовательность (`d:` + `sprpop`) отвечает `Bad command or file name`, а `dir D:\` показывает только каталог GAMES — на это можно потратить время впустую. Записаны и сам путь, и исправленная цепочка клавиш для моста. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_018T2k4VZrSyERwk6H97Sfi1
SprPoP: кнопка под Кидом больше не заливается кладкой (палас)
2026-09-02 17:41:40 +03:00 · 2026-09-02 17:41:29 +03:00 · 2026-09-02 17:41:07 +03:00 · 2026-09-02 17:40:45 +03:00 · 2026-09-02 17:40:23 +03:00 · 2026-09-02 15:00:42 +03:00
63 changed files with 1218 additions and 212 deletions
@@ -92,11 +92,19 @@ RUNTIME_DEPS := $(wildcard $(PROJ_ROOT)/runtime/*.s)
 # bankN_*.asm; обычным небанковым программам ничего не стоит.
 BANK_CHECK := $(PROJ_ROOT)/toolchain/check_bank_calls.py

+# ПРОВЕРКА ISR-СТАБА W0-СТРАНИЦ — там же, по свежей карте.  Ловит стаб
+# _gfx_w0_isr, оставшийся в W1: программа, кладущая свои страницы в W0
+# (атласы спрайтов, gfx_w0_map), получает недетерминированные зависания,
+# когда прерывание приходит во время вызова DSS и W1 перемаплен.  Только
+# предупреждение: страницы в W0 кладут не все.  Разбор — в шапке скрипта.
+W0ISR_CHECK := $(PROJ_ROOT)/toolchain/check_w0_isr.py
+
 $(EXE): $(SOURCES) $(MKEXE) $(LIB) $(RUNTIME_DEPS)
 	$(if $(strip $(BUILD_DIR)),@mkdir -p $(dir $@))
 	$(SPRINTER_CC) $(CC_FLAGS) -o $@ $(SOURCES)
 	@d=$(dir $@).sprinter-cc-$(EXAMPLE); \
-	 if ls $$d/bank*_*.asm >/dev/null 2>&1; then python3 $(BANK_CHECK) $$d; fi
+	 if ls $$d/bank*_*.asm >/dev/null 2>&1; then python3 $(BANK_CHECK) $$d; fi; \
+	 if ls $$d/*.map >/dev/null 2>&1; then python3 $(W0ISR_CHECK) $$d; fi

 $(MKEXE):
 	$(MAKE) -C $(PROJ_ROOT)/toolchain/mkexe
@@ -133,9 +133,15 @@ Makefile склеивает архивы прямо в `assets/packed/<КАТА
 (memory `mame_autotest`, `mame_mcp_bridge`, `mame_hdd_test_disk`).
 Пересобрал образ → MAME ОБЯЗАН полный рестарт (`mame_hdd_rebuild_restart`).

+**Игра лежит на образе в `D:\GAMES\SPRPOP\`**, а НЕ в корне диска (так с
+обобщения HDD-сборки, коммит ea8efdb — один образ рассчитан на несколько
+приложений).  `dir D:\` показывает только каталог `GAMES`; запуск из корня
+отвечает `Bad command or file name`.
+
 **Тайминги моста** (не ждать дольше, см. `docs/mame-autotest.md` §10):
 старт `run_bridge.sh` → 6 с → `go` → 8 с → `keyseq d:{ENTER}` +
-`keyseq sprpop{ENTER}` → 5 с → программа работает.
+`keyseq cd games\sprpop{ENTER}` + `keyseq sprpop{ENTER}` → 5 с →
+программа работает.

 Отладочные тумблеры в живой сессии (`src/sprpop.c`): **1** — заморозить
 кадр, **2** — продолжить (разбор позы/окклюзии); **ESC** — выход.  Читы
@@ -47,7 +47,7 @@ MEMORY      ?= huge
 #
 # ВАЖНО: сравнивать занятость банков можно только при ОДНОМ ALLOCS — иначе
 # сравниваются не правки, а уровни оптимизации.
-ALLOCS      ?= 6000
+ALLOCS      ?= 10000
 # Build info не хранится в C: ID и дата извлекаются из текущего commit.
 BUILD_ID    ?= $(shell git rev-parse --short HEAD 2>/dev/null || echo dev)
 BUILD_DATE  ?= $(shell git log -1 --format=%cs 2>/dev/null || echo unknown)
@@ -38,7 +38,7 @@
 | [SND-PACE-DEAD](#snd-pace-dead) | пейсинг сцен по насосу CBL не включается: признак «часы идут» вычисляется двумя чтениями подряд | **тайминг/звук** | **снят 2026-08-28**: ветка удалена, сцена на единых часах по лучу |
 | [PV-RENDER-BOUND](#pv-render-bound) | сцена с принцессой рисуется дороже бюджета: ~49 тиков/с вместо 60, музыка уезжает от картинки | производительность | **исправлено 2026-08-28**: кадр разложен на блоки по интервалу, удешевлять не понадобилось |
 | [MUS-LEFT-TEAR](#mus-left-tear) | `pop_mus_left` (16 бит, пишет прерывание) читается из главного цикла неатомарно — возможен ложный «трек кончился» | **потенциальный** | открыт: хазард показан рассуждением, в прогоне не проявился |
-| [CLIMB-VS-GUARD](#climb-vs-guard) | Кид подтягивается к стражу этажом выше: у нас удар засчитывается и убивает, в оригинале Кид просто срывается без урона; страж при этом способен провалиться сквозь пол вслед за Кидом | бой/физика | открыт: цепочка удара сверена — совпадает, расходятся входные данные (2026-08-31) |
+| [CLIMB-VS-GUARD](#climb-vs-guard) | Кид подтягивается к стражу этажом выше: у нас удар засчитывается и убивает, в оригинале Кид просто срывается без урона; страж при этом способен провалиться сквозь пол вслед за Кидом | бой/физика | открыт: цепочка удара сверена — совпадает, расходятся входные данные; толкование звука ИСПРАВЛЕНО 2026-09-02 (звук 11 = промах, а не «любой укол») — главный подозреваемый снова ПОРОГ ДИСТАНЦИИ |
 | [HP-BAR-RESTART](#hp-bar-restart) | после гибели и Ctrl+A на ОДНОЙ из двух страниц остаётся полоса HP по результатам боя | дабл-буфер/UI | КОРЕНЬ НАЙДЕН, фикс есть, ждёт проверки (2026-08-31) |

 ---
@@ -1374,23 +1374,63 @@ uint16_t pop_music_left(void) { uint16_t a, b;
 В той же сцене оригинал играет ВЗМАХ (звук 11, «клинок движется»), а у нас
 слышен звук, похожий на упор Кида в стену (звук 8, `bumped`).

-Почему это важно.  Звук 11 оригинал играет в `check_hurting` СРАЗУ на
-кадре укола — ДО проверки расстояния и до отметки «ранен».  То есть он
-звучит при ЛЮБОМ уколе, попал тот или нет.  Значит его отсутствие
-означает не «промахнулись», а «до укола дело вообще не дошло»: страж не в
-кадре укола, либо разбор вышел раньше (меч не вынут / ряды не совпали).
-А звучащий вместо него упор в стену говорит, что у нас сработало
-СТОЛКНОВЕНИЕ, а не атака.
-
 Набор звуков проверен и НЕ виноват: в `assets/packed/SND/snd.idx` слот 11
 на месте и содержит собственный короткий сэмпл (1280 Б), слот 8 — другой
 (1664 Б).  Раскладка не сдвинута.

-Отсюда рабочая версия: в этой связке оригинал ведёт стража по ветке
-«атака с промахом», а мы — по ветке «столкновение с персонажем»
-(`bump_into_opponent` / `check_bumped`).  Это же объясняет и провалившегося
-сквозь пол стража: столкновение двигает его координату, а не атака.
-Проверять надо ветку выбора действия стража, а не только дистанцию.
+**ПОПРАВКА 2026-09-02 — прежнее толкование звука было ОШИБОЧНЫМ.**
+
+Здесь стояло, будто оригинал играет звук 11 «сразу на кадре укола, ДО
+проверки расстояния», то есть при ЛЮБОМ уколе, попал тот или нет.  Это
+описание НАШЕГО кода, а не оригинала: ровно так звук стоял у нас, внутри
+ветки «не парировано» и до присвоения `Opp.action = 99_hurt`.  В SDLPoP
+(seg002:1039..1044) он стоит в ХВОСТЕ `check_hurting` и защищён условием
+`Opp.action != actions_99_hurt`:
+
+    if (Char.direction == dir_56_none) return; // Fix looping "sword moving" sound.
+    if (Char.frame == frame_154_poking && Opp.frame != frame_161_parry &&
+        Opp.action != actions_99_hurt)
+        play_sound(sound_11_sword_moving);
+
+То есть звук 11 в оригинале — это индикатор **ПРОМАХА**, а не укола: на
+попадании его нет (играет боль), на парировании нет (`Opp.frame` уже 161).
+Расхождение найдено и исправлено 2026-09-02 по симптому «непрерывный взмах
+клинка у безоружного Кида на подъёме» (звук опознан в живой сессии по
+`snd_curr == 11`; указатели насоса при этом сошлись с `snd.idx` байт в
+байт, то есть тракт звука был исправен).  Заодно приехал и пропущенный
+ранний выход по `dir_56_none` — тот самый, что автор SDLPoP подписал
+«Fix looping sword moving sound».
+
+**Что из прежних выводов уцелело, а что нет.**
+
+* УЦЕЛЕЛО: наблюдение «в оригинале слышен 11, у нас 8» — это данные, и они
+  остаются.  Арифметика приоритетов их подкрепляет: `snd_prio[11] = 0x12`
+  (18) против `snd_prio[8] = 0x4B` (75), меньше значит важнее, поэтому
+  взмах не мог быть заглушён упором в стену.  При ТОГДАШНЕМ коде звук 11
+  звучал на любом уколе, значит его отсутствие действительно означало, что
+  до кадра укола дело не дошло.
+* ОТПАЛО: вывод «оригинал ведёт стража атакой с промахом, а мы —
+  столкновением» опирался на неверную посылку и больше не следует из звука
+  сам по себе.
+* УСИЛИЛОСЬ: то, что в оригинале в этой сцене слышен ИМЕННО 11, теперь
+  доказывает, что укол у стража СОСТОЯЛСЯ и ПРОМАЗАЛ.  А это ровно версия
+  про ПОРОГ ДИСТАНЦИИ (см. выше про пару пикселей и нижний порог 8), а не
+  про потерянную ветку.  Прежняя «версия про столкновение» её вытеснила
+  зря — возвращаем дистанцию в главные подозреваемые.
+
+**ВНИМАНИЕ тому, кто вернётся к этому багу: диагностика по звуку с
+2026-09-02 ЗНАЧИТ ДРУГОЕ.**  Старые заметки прогона будут вводить в
+заблуждение — переснимать сцену заново.  Новая таблица:
+
+| слышно | что это значит |
+|---|---|
+| 11 (взмах) | укол состоялся и ПРОМАЗАЛ — поведение оригинала в этой сцене |
+| 13 (боль Кида) | укол ПОПАЛ, `Opp.action = 99_hurt` |
+| 8 (упор в стену) | укола не было вовсе, сработало столкновение |
+| тишина | `check_hurting` вышел раньше: меч не вынут / ряды не совпали / кадр не 153-154 |
+
+На саму механику урона правка 2026-09-02 НЕ влияет (тронут только звук),
+поэтому расхождение «удар убивает» остаётся открытым как было.

 **Решение пользователя:** отложено на будущее (2026-08-31) — поведение в
 этой связке расходится широко, чинить нужно целиком, а не по одному
@@ -1102,8 +1102,6 @@ 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)
@@ -1116,6 +1114,29 @@ static void check_hurting(void)
        pop_char_set_seq(SEQ_69_ATTACK_WAS_PARRIED);
        play_seq();
    }
+
+    /* СВИСТ КЛИНКА МИМО ЦЕЛИ (seg002:1039..1044) — в оригинале он стоит в
+     * ХВОСТЕ функции, после ОБЕИХ веток, а не внутри ветки «не парировано».
+     * Мы его туда и переносим; раньше он звучал раньше времени и без двух
+     * условий оригинала, отчего на подъёме Кида шёл непрерывный взмах
+     * клинка у безоружного (наблюдение пользователя 2026-09-02, звук
+     * опознан по snd_curr == 11 в живой сессии).
+     *
+     * Три отличия от прежнего кода, все из оригинала:
+     *
+     * 1. Ранний выход по dir_56_none — это ИМЕННО анти-зацикливание, автор
+     *    SDLPoP так его и подписал («Fix looping sword moving sound»).
+     *    Направление dir_56_none означает «персонаж выключен» (clear_char),
+     *    и махать клинком ему нечем.
+     * 2. Условие `Opp.action != ACTION_99_HURT`: попали — играет звук боли,
+     *    а не свист мимо.  Поэтому звук обязан идти ПОСЛЕ присвоения выше.
+     * 3. Кадры перечитываются у персонажей, а не берутся из cf/of: ветка
+     *    парирования только что записала Opp.frame, а play_seq в ней —
+     *    Char.frame, и снимки выше уже устарели. */
+    if (Char.direction == DIR_56_NONE) return;
+    if (Char.frame == FRAME_154_POKING && Opp.frame != FRAME_161_PARRY &&
+        Opp.action != ACTION_99_HURT)
+        pop_sfx_play(11);
 }

 /* check_sword_hurting (seg002:0D1A): прогнать проверку с ОБЕИХ сторон. */
@@ -771,15 +771,26 @@ static void overlay_mid_tile(int row, int col)
        pop_env_b(42, x, pop_tile_table[1].right_y + dmy);
    {   /* draw_tile_base (seg008:0A8E) — ЦЕЛИКОМ, вместе с подстановками id:
         * у loose верх плиты берётся из loose_fram_left (в pop_tile_table base_id=0),
-         * у opener'а без пола слева — 148.  Раньше здесь стоял голый base_id, и
+         * у opener'а без пола слева — 148, НО только в ПОДЗЕМЕЛЬЕ.  Условие
+         * `tbl_level_type[current_level] == 0` в оригинале стоит третьим
+         * (seg008:628) и у нас было потеряно ИМЕННО ЗДЕСЬ: статическая
+         * отрисовка (pop_room.c, draw_tile_base) его имеет, а оверлей — нет.
+         * Отсюда симптом «кнопка, на которую лезет Кид, залита кирпичом»:
+         * пока тайл рисует статика, кнопка правильная, но как только Kid
+         * встаёт под кромку, оверлей перерисовывает её поверх него уже
+         * спрайтом 148, а во дворце это другая картинка (кладку палас
+         * вообще рисует заливками, а не спрайтами).  Уровень 4, комната 18,
+         * кнопка (0,4) — найдено пользователем 2026-09-02.
+         *
+         * Раньше здесь стоял голый base_id, и
         * верх loose-плиты в оверлей не попадал: передняя грань ложилась поверх
         * Kid (foretable), а сама плита — нет, и подтягивающийся Kid рисовался
         * поверх её верхней плоскости (комната 12). */
        uint8_t base_id = t->base_id;
        if (code == 11 && row >= 0)
            base_id = POP_LOOSE_FRAM_LEFT[pop_loose_frame(pop_loose_modif[row * 10 + col])];
-        else if (code == 0x0F && lcode == 0)
-            base_id = 148;
+        else if (code == 0x0F && lcode == 0 && !pop_palace)
+            base_id = 148;                 /* ТОЛЬКО ПОДЗЕМЕЛЬЕ (seg008:628) */
        if (base_id)
            pop_env_b(base_id, x, t->base_y + dmy);
    }
@@ -555,11 +555,6 @@ void pop_determine_col(void) __banked { determine_col(); }
 * Обе давно работают от Char, а не от Kid; не хватало только объявлений
 * (docs/sdlpop_audit.md, находка 12). */
 uint8_t pop_tile_behind_char(void) __banked { return get_tile_behind_char(); }
-int8_t  pop_dist_to_edge_weight(void) __banked
-{
-    int d = distance_to_edge_weight();
-    return (int8_t)(d > 127 ? 127 : (d < -128 ? -128 : d));
-}

 /* расстояние до края тайла (для in_wall). */
 static int distance_to_edge(int xpos)
@@ -570,8 +565,15 @@ static int distance_to_edge(int xpos)
    if (Char.direction == 0) d = TILE_RIGHTX - d;   /* dir_0_right */
    return d;
 }
+
 static int distance_to_edge_weight(void) { return distance_to_edge(dx_weight()); }

+int8_t  pop_dist_to_edge_weight(void) __banked
+{
+    int d = distance_to_edge_weight();
+    return (int8_t)(d > 127 ? 127 : (d < -128 ? -128 : d));
+}
+
 /* ---- ТОЧНАЯ коллизия со стеной (seg004) --------------------------- *
 * Передний край персонажа = char_x_right (взгляд вправо) / char_x_left
 * (влево) из set_char_collision (seg006:0723): obj_x/2 + 58, где obj_x =
@@ -837,30 +839,35 @@ static uint8_t can_grab_front_above(void)
 /* check_grab (seg006:0A28): в падении при зажатом Shift — зацепиться за
 * уступ спереди-сверху (seq_15), если скорость падения ещё мала и высота
 * подходящая.  Выравнивает передний край по кромке, гасит fall_y, взводит
- * grab_timer (блок climb-up на несколько кадров). */
-static void check_grab(void)
+ * grab_timer (блок climb-up на несколько кадров).
+ *
+ * ВОЗВРАТ: 1 — зацеп СОСТОЯЛСЯ на этом кадре.  Нужен вызывающему (do_fall):
+ * дальше по кадру идёт glide_through_wall_guard, и ему нельзя трогать
+ * персонажа, которого мы только что повесили на кромку (см. там же). */
+static uint8_t check_grab(void)
 {
    uint8_t old_x;
-    if (!pop_ctrl_shift_held()) return;                /* Shift не зажат       */
-    if ((uint8_t)Char.fall_y >= 32) return;             /* падает слишком быстро */
-    if ((uint16_t)pop_y_land[Char.curr_row + 1] > (uint16_t)(Char.y + 25)) return;
+    if (!pop_ctrl_shift_held()) return 0;              /* Shift не зажат       */
+    if ((uint8_t)Char.fall_y >= 32) return 0;           /* падает слишком быстро */
+    if ((uint16_t)pop_y_land[Char.curr_row + 1] > (uint16_t)(Char.y + 25)) return 0;
    old_x = Char.x;
    Char.x = (uint8_t)char_dx_forward(-8);
    determine_col();
    if (!can_grab_front_above()) {
        Char.x = old_x;                                 /* не за что — назад     */
        determine_col();
-    } else {
-        Char.x = (uint8_t)char_dx_forward((int8_t)distance_to_edge_weight());
-        Char.y = (uint8_t)pop_y_land[Char.curr_row + 1];
-        Char.fall_y = 0;
-        pop_char_set_seq(SEQ_15_GRAB_LEDGE_MIDAIR);
-        play_seq();
-        determine_col();
-        grab_timer = 12;
-        pop_sfx_play(9);                               /* seg006 check_grab    */
-        is_screaming = 0;                              /* seg006:1219          */
+        return 0;
    }
+    Char.x = (uint8_t)char_dx_forward((int8_t)distance_to_edge_weight());
+    Char.y = (uint8_t)pop_y_land[Char.curr_row + 1];
+    Char.fall_y = 0;
+    pop_char_set_seq(SEQ_15_GRAB_LEDGE_MIDAIR);
+    play_seq();
+    determine_col();
+    grab_timer = 12;
+    pop_sfx_play(9);                                   /* seg006 check_grab    */
+    is_screaming = 0;                                  /* seg006:1219          */
+    return 1;
 }

 static void make_loose_fall(int pos, uint8_t modifier);
@@ -970,8 +977,16 @@ static void do_fall(void)
    }
    if (nrow > 4) nrow = 4;                   /* защита pop_y_land[] от выхода */
    if ((uint16_t)pop_y_land[nrow] > (uint16_t)Char.y) {
-        check_grab();                         /* ещё летит — попытка зацепа */
-        glide_through_wall_guard();           /* и не сквозь кладку (см. выше) */
+        /* ЗАЦЕП ОТМЕНЯЕТ GUARD.  seq_15 — «grab ledge MIDAIR», то есть после
+         * удачного зацепа Char.action == 3, персонаж уже подтянут вплотную к
+         * кромке, а под кромкой в оригинальных комнатах стоит КЛАДКА.  Guard,
+         * позванный следом, видел ровно её (t == TILE_WALL, d == 10), считал
+         * это «пролётом сквозь стену», отбрасывал Кида на 5 пикселей назад и
+         * гасил fall_x — зацеп рисовался и тут же срывался.  Ловилось на
+         * длинном прыжке уровня 3 (комната 7 -> кромка комнаты 2) и в
+         * attract-демо; регресс-набор — tests/host/t_glide.c. */
+        if (!check_grab())                    /* ещё летит — попытка зацепа */
+            glide_through_wall_guard();       /* и не сквозь кладку (см. выше) */
    } else if (Char.curr_row <= 2) {
        if (get_tile_at_char() == TILE_WALL)
            in_wall();
@@ -17,6 +17,7 @@
 #include <sprite.h>      /* gfx_w0_map/unmap — доступ к странице индекса */
 #include "pop_music.h"
 #include "pop_sfx.h"
+#include "_pop_sfx.h"   /* pop_snd_ok — открыт ли вывод (см. pop_music_busy) */
 #include "pop_app.h"   /* POP_APP_DEMO — в демке музыки нет */
 #include "_pop_file.h"

@@ -454,7 +455,15 @@ void pop_music_service(void) __banked

 uint8_t pop_music_busy(void) __banked
 {
-    return (uint8_t)(pop_mus_left != 0);
+    /* «ЗВУЧИТ», А НЕ «ЕСТЬ КУРСОР».  Курсор трека двигает насос CBL, и пока
+     * вывод закрыт (pop_sfx_pause на загрузке уровня, Ctrl+S, показ заставки
+     * после Restart Game) pop_mus_left не убывает НИКОГДА.  Вызывающий,
+     * который ждёт конца мелодии, в этом состоянии висит вечно — ровно так
+     * заставка после Restart Game вставала на экране Prince of Persia
+     * (поймано пользователем 2026-09-02).  Корень того случая был в другом
+     * (CBL не открывался заново, см. pop_boot_sound), но ждать неиграющую
+     * музыку нельзя в принципе, поэтому признак спрашивает и про вывод. */
+    return (uint8_t)(pop_snd_ok && pop_mus_left != 0);
 }

 /* ТРЕК В РАБОТЕ — заявка лежит, идёт загрузка или он звучит.
@@ -263,6 +263,13 @@ void pop_sfx_play(uint8_t id)
        if (pop_mus_want && id >= 24 && id <= 43) pop_mus_req = id;
        return;
    }
+    /* НАБОР ЕЩЁ ДОЧИТЫВАЕТСЯ.  На старте программы звук открывается после
+     * ОДНОЙ страницы (в ней блок тишины), чтобы музыка заставки заиграла
+     * почти сразу; остальные приезжают позже (pop_sfx_init_begin/finish).
+     * Страницы под них уже выделены, но не прочитаны — эффект из такой
+     * страницы был бы шумом из чужих данных.  Заявку на МУЗЫКУ выше это
+     * не трогает: её данные лежат отдельно. */
+    if (!pop_snd_pages) return;
    if (!snd_next1 || snd_prio[id] <= snd_prio[snd_next1 - 1])
        snd_next1 = (uint8_t)(id + 1);
 }
@@ -21,10 +21,28 @@

 #include <stdint.h>

-/* Поднять набор: занять 8 EMM-страниц и вычитать в них данные.  ВЫВОД НЕ
- * ВКЛЮЧАЕТ — см. pop_sfx_start.  0 — OK, -1 — не получилось (тогда всё
- * дальнейшее молча ничего не делает, игра идёт без звука). */
-int  pop_sfx_init(void) __banked;
+/* ПОДЪЁМ НАБОРА РАЗБИТ НАДВОЕ — ради быстрого старта программы.
+ *
+ * Насосу, чтобы открыть CBL и заиграть МУЗЫКУ, нужен из всего набора
+ * ровно один блок — тишина, и упаковщик обязан класть её первым блоком
+ * СТРАНИЦЫ 0 (tools/pop_idx.py, проверка `_check_entry`).  Поэтому:
+ *
+ *   pop_sfx_init_begin()  — индекс (snd.idx) + ОДНА страница (33 мс).
+ *                           После него можно звать pop_sfx_start() и
+ *                           играть музыку; эффектов ещё нет.
+ *   pop_sfx_init_finish() — остальные страницы (~230 мс) и публикация
+ *                           pop_snd_pages: с этого момента есть эффекты.
+ *
+ * Пока набор неполон, pop_sfx_play() молча игнорирует эффекты (заявку на
+ * музыку принимает по-прежнему): страницы под них выделены, но ещё не
+ * прочитаны, и играть из них — это шум из чужих данных.
+ *
+ * ВЫВОД НИ ТА, НИ ДРУГАЯ НЕ ВКЛЮЧАЕТ — см. pop_sfx_start.  0 — OK, -1 —
+ * не получилось (тогда всё дальнейшее молча ничего не делает, игра идёт
+ * без звука; begin при отсутствии индекса поднимает набор из одной
+ * страницы тишины, чтобы не встала музыка). */
+int  pop_sfx_init_begin(void) __banked;
+int  pop_sfx_init_finish(void) __banked;

 /* Включить вывод (открыть CBL).  Звать ПОСЛЕ всей загрузки: пока идёт
 * чтение файлов, ESTEX уходит в диск надолго, насос не успевает долить
@@ -18,6 +18,11 @@
 #include <sprite.h>              /* gfx_w0_map — залить блок тишины */

 static uint8_t snd_blk;              /* блок EMM под весь набор */
+/* Раздельная загрузка (см. шапку pop_sfx.h): сколько страниц обещал индекс
+ * и сколько уже прочитано.  0 в want — begin не проходил либо поднялась
+ * только страница тишины (набора нет), и дочитывать нечего. */
+static uint8_t snd_want_pages;
+static uint8_t snd_done_pages;

 /* --- ИНДЕКС НАБОРА (SND/snd.idx, формат PSI1) ----------------------- *
 *
@@ -142,11 +147,13 @@ static int8_t snd_silence_only(void)
    return 0;
 }

-int pop_sfx_init(void) __banked
+/* ПЕРВАЯ ПОЛОВИНА: индекс + страница 0 (в ней блок тишины).  После неё
+ * звук можно открывать, и музыка играет; эффекты — после finish. */
+int pop_sfx_init_begin(void) __banked
 {
-    uint8_t i, blk, pages;
+    uint8_t blk, pages;

-    if (pop_snd_ok) return 0;
+    if (snd_blk) return 0;                 /* набор уже поднимали */

    /* СНАЧАЛА ИНДЕКС, ПОТОМ ДАННЫЕ: сколько страниц читать и куда какой
     * эффект лёг — знает только он.  Набора без индекса не бывает:
@@ -179,24 +186,58 @@ int pop_sfx_init(void) __banked
        if (pop_arc_open_id(&arc, POP_ARC_SND, tbl, POP_SND_MAX_PAGES) !=
            (int8_t)pages)
            return -1;
+        /* Блок выделяем СРАЗУ на весь набор: номера страниц отдаёт
+         * mem_get_page по индексу, и finish дочитает в те же самые. */
        blk = mem_alloc_pages(pages);
        if (!blk) { pop_arc_close(&arc); return -1; }
-        for (i = 0; i < pages; i++) {
-            pop_snd_page[i] = mem_get_page(blk, i);
-            if (!pop_snd_page[i] ||
-                pop_arc_read(&arc, tbl, i, 0, pop_snd_page[i], 0, 0) != 16384) {
-                pop_arc_close(&arc);
-                mem_free_block(blk);
-                return -1;
-            }
+        pop_snd_page[POP_SND_SILENCE_PAGE] = mem_get_page(blk, 0);
+        if (!pop_snd_page[POP_SND_SILENCE_PAGE] ||
+            pop_arc_read(&arc, tbl, 0, 0,
+                         pop_snd_page[POP_SND_SILENCE_PAGE], 0, 0) != 16384) {
+            pop_arc_close(&arc);
+            mem_free_block(blk);
+            return -1;
        }
        pop_arc_close(&arc);
    }
    snd_blk = blk;
+    snd_want_pages = pages;
+    snd_done_pages = 1;
+    /* pop_snd_pages НЕ ставим: набор ещё неполон, и до finish эффекты
+     * запускать нельзя (страницы выделены, но не прочитаны). */
+    pop_snd_want = 1;                    /* набор есть — звук по умолчанию включён */
+    return 0;
+}
+
+/* ВТОРАЯ ПОЛОВИНА: дочитать остальные страницы и разрешить эффекты.
+ * Идемпотентна; архив открывается второй раз (51 мс) — это дешевле, чем
+ * держать открытый манипулятор через всю заставку при лимите в восемь. */
+int pop_sfx_init_finish(void) __banked
+{
+    pop_arc_t arc;
+    uint8_t tbl[POP_SND_MAX_PAGES * POP_ARC_REC];
+    uint8_t i;
+
+    if (pop_snd_pages) return 0;           /* набор уже полный */
+    if (!snd_want_pages) return -1;        /* begin не проходил либо только тишина */
+    if (snd_done_pages < snd_want_pages) {
+        if (pop_arc_open_id(&arc, POP_ARC_SND, tbl, POP_SND_MAX_PAGES) !=
+            (int8_t)snd_want_pages)
+            return -1;
+        for (i = snd_done_pages; i < snd_want_pages; i++) {
+            pop_snd_page[i] = mem_get_page(snd_blk, i);
+            if (!pop_snd_page[i] ||
+                pop_arc_read(&arc, tbl, i, 0, pop_snd_page[i], 0, 0) != 16384) {
+                pop_arc_close(&arc);
+                return -1;                 /* страницы не отдаём: тишина в стр.0 жива */
+            }
+            snd_done_pages = (uint8_t)(i + 1);
+        }
+        pop_arc_close(&arc);
+    }
    /* Число страниц ставим ПОСЛЕДНИМ: до этого момента насос обязан
     * видеть 0 и не пытаться ходить по полузаполненной таблице. */
-    pop_snd_pages = pages;
-    pop_snd_want = 1;                    /* набор есть — звук по умолчанию включён */
+    pop_snd_pages = snd_want_pages;
    return 0;
 }

@@ -21,6 +21,7 @@
 #include "pop_pal.h"
 #include "pop_title.h"
 #include "pop_ui.h"
+#include "sprpop_cold.h"   /* pop_boot_sound/pop_boot_rest — фазы старта */

 #define TITLE_W       320
 #define TITLE_H       200
@@ -110,10 +111,14 @@ int pop_title_logo_ltr(void) __banked
    return pop_screen_present_ltr() ? 1 : 0;
 }

+/* Ждать ticks кадров луча, доливая трек.  Тема заставки играет с ПЕРВОЙ
+ * страницы (pop_music_stream), остальные обязаны приезжать по ходу — шаг
+ * стоит 16 мс и укладывается в кадровый интервал. */
 static uint8_t title_wait(uint16_t ticks)
 {
    while (ticks--) {
        if (title_skip_pressed()) return 1;
+        if (pop_music_loading()) (void)pop_music_load_step();
        gfx_wait_vsync();
    }
    return 0;
@@ -130,7 +135,8 @@ static void title_load_palette_dimmed(void)
 uint8_t pop_title_show(void) __banked
 {
    uint8_t step;
-    uint8_t skipped = 0, music_ok = 0;
+    uint8_t skipped = 0;
+    uint16_t first_wait = 0;           /* такт 0 за вычетом времени загрузки */
    int prepared;
    uint8_t cold_start = (uint8_t)(!title_shown &&
                                   !pop_settings.show_build_info);
@@ -154,22 +160,50 @@ uint8_t pop_title_show(void) __banked
    pop_screen_present((uint8_t)prepared);
    title_shown = 1;

-    /* Тему читаем с диска ЗАРАНЕЕ (пока экран ещё тёмный), а пускаем ниже —
-     * после fade_in, ровно как show_title: fade_in_2, затем
-     * play_sound(sound_54). */
-    music_ok = (uint8_t)(pop_music_load(POP_MUS_INTRO) == 0);
-
+    /* ЗДЕСЬ ЖЕ ДОГРУЖАЕТСЯ ВСЯ ИГРА — и это не случайное место.
+     *
+     * До 2026-09-02 pop_boot читал ВСЕ ресурсы перед первым пикселем: от
+     * запуска до проявления титула проходило несколько секунд чёрного
+     * экрана в тишине, потому что перед fade_in ещё и вычитывался целиком
+     * трек заставки (248 КБ).  Теперь порядок обратный и совпадает с
+     * оригиналом (init_game_main грузит до заставки только мелочь,
+     * seg000.c:156):
+     *   1) картинка титула и fade_in — первое, что происходит;
+     *   2) звук: индекс + ОДНА страница набора, CBL (pop_boot_sound);
+     *   3) тема — с первой же страницы (pop_music_stream), не дожидаясь
+     *      всех шестнадцати;
+     *   4) остальные ресурсы — под стоящим титулом и звучащей темой.
+     *
+     * Порядок «fade_in, потом тема» сохранён как у show_title (fade_in_2,
+     * затем play_sound(sound_54)). */
    for (step = 0; step < sizeof(title_scene); step++) {
        if (step && title_draw(title_scene[step], 1) < 0)
            break;
        if (step == 0) {
+            uint8_t t0;
+
            if (pop_pal_fade_in_skip(TITLE_FADE)) { skipped = 1; break; }
-            if (music_ok) {
-                (void)pop_sfx_start();
-                pop_music_play();
+            (void)pop_boot_sound();
+            (void)pop_music_stream(POP_MUS_INTRO);
+            /* ЧЕМ ЗАПЛАЧЕН ПЕРВЫЙ ТАКТ.  Загрузка занимает около секунды, и
+             * без поправки титул простоял бы на первом кадре дольше
+             * оригинала, а сцена уехала бы относительно темы.  Считаем
+             * потраченное часами насоса (85,4 Гц, идут от расхода буфера
+             * CBL — единственные, кому не мешает диск) и переводим в кадры
+             * луча сдвигами: 48,83/85,4 = 0,572 ~ 1/2 + 1/16.  Без звука
+             * часы стоят, поправка выходит нулевой — и правильно, тогда и
+             * синхронизировать не с чем. */
+            t0 = pop_snd_tick;
+            (void)pop_boot_rest();
+            {
+                uint16_t spent = (uint8_t)(pop_snd_tick - t0);
+
+                spent = (uint16_t)((spent >> 1) + (spent >> 4));
+                first_wait = (spent >= title_wait_ticks[0])
+                             ? 0 : (uint16_t)(title_wait_ticks[0] - spent);
            }
        }
-        if (title_wait(title_wait_ticks[step])) {
+        if (title_wait(step ? title_wait_ticks[step] : first_wait)) {
            skipped = 1;
            break;
        }
@@ -25,6 +25,7 @@
 #include "pop_ctrl.h"     /* pop_ctrl_init/close — ввод поднимает и закрывает boot */
 #include "pop_shadow.h"   /* запечённый набор Тени */
 #include "pop_sfx.h"      /* звуковые эффекты через CBL */
+#include <cbl.h>        /* cbl_shutdown — погасить железо звука на выходе */
 #include "pop_music.h"    /* pop_music_busy/free — ждём трек заставки */
 #include "pop_vflip.h"    /* сброс зеркальных страниц на смене уровня */
 #include "pop_cheat.h"   /* pop_cheats — режим разработки включает pop_boot */
@@ -1114,6 +1115,36 @@ void pop_flip_screen(void) __banked
 * уровень).  В резиденте от них оставались только вызовы — сам код здесь.
 */

+/* Фазы старта (см. шапку pop_boot): обе половины идемпотентны, а
+ * boot_rest_fail нужен, чтобы повторный вызов не пытался читать заново
+ * то, что уже не прочиталось. */
+static uint8_t boot_sound_done;
+static uint8_t boot_rest_done;
+static uint8_t boot_rest_fail;
+
+/* СТАРТ РАЗБИТ НА ТРИ ФАЗЫ — чтобы игрок увидел заставку и услышал музыку
+ * сразу, а не через несколько секунд чёрного экрана в тишине.
+ *
+ *   pop_boot()       — только настройки и графика: чёрный экран за ~0,1 с.
+ *   pop_boot_sound() — индекс+первая страница звука, индекс музыки, CBL:
+ *                      после него титул уже показан, и тема заставки может
+ *                      начать играть, не дожидаясь остальных ресурсов.
+ *   pop_boot_rest()  — всё тяжёлое (эффекты, Кид, Тень, шрифт) ПОД стоящим
+ *                      титулом и звучащей темой; идемпотентно.
+ *
+ * ЧЕТЫРЕ ЗАГРУЗКИ ОТСЮДА ПРОСТО УБРАНЫ, а не отложены: атлас фона, страж,
+ * уровень 1 и игровая палитра — это дубликаты того, что и так делает
+ * pop_level_switch() на входе в ЛЮБОЙ уровень (а pop_new_game_load ещё и
+ * pop_pal_game_load перед ним).  Оба маршрута в игру, LEVEL_LOAD и DEMO,
+ * упираются в pop_level_switch, так что второй раз читать их до заставки
+ * незачем — это ~0,77 с на ровном месте.  Так же устроен и оригинал: у
+ * SDLPoP chtab_5/6/7 грузит load_lev_spr() на старте уровня, а init_game_main
+ * до заставки читает только меч, пламя, звуки и палитры (seg000.c:156).
+ *
+ * ПАЛИТРУ ТРОГАТЬ НЕЛЬЗЯ, пока на экране титул: и kid.pal (все 256 записей),
+ * и палитра тайлсета пишутся прямо в железо и перекрасили бы заставку.
+ * Поэтому в отложенной части нет ни одной палитровой операции — они все
+ * живут на маршруте входа в уровень, за чёрным экраном. */
 int pop_boot(void) __banked
 {
    /* Настройки: дефолты, затем POP.CFG, если он есть и корректен. */
@@ -1141,77 +1172,114 @@ int pop_boot(void) __banked
    gfx_set_visible_page(0);
    pop_pal_black();

-    /* Набор фона — по типу СТАРТОВОГО уровня; atlas_load безопасен и после
-     * initgraph: при первом вызове он сохраняет страницу DSS W0. Уровень к
-     * этому моменту ещё не прочитан, поэтому тип берём напрямую от номера. */
-    pop_current_level = FIRST_LEVEL;
-    if (pop_bg_load(pop_level_type()) != 0) {
-        puts("pop_bg_load failed");
-        return -1;
-    }
-    /* pop_bg_load установил только свои слоты палитры. До конца загрузки
-     * всё равно держим экран чёрным. */
-    pop_pal_black();
-    pop_cd_init();                     /* метка «фон трогали» — пустые диапазоны */
-    /* pop_cheats/speed применит pop_settings_apply после pop_sfx_init. */
-    pop_guard_reset();
-    if (pop_kid_data_load("KID\\kid.ani") != 0) {   /* кадры+seqtbl в EMM-странице */
-        puts("kid.ani load failed\n");
-        return -1;
-    }
-    pop_guard_load();                  /* атласы стража (GUARD\\g0..g4) */
-    pop_shadow_load();                 /* запечённый набор Тени — один раз на запуск */
-    pop_sfx_init();                    /* звук: 8 страниц оцифровки (вывод пока молчит) */
-    /* Индекс музыкального набора — одна страница EMM.  Без него музыки не
-     * будет (pop_music_info вернёт -1 на любой трек), но игра работает:
-     * это необязательный ресурс, как и сами треки. */
-    (void)pop_music_index_load();
-    pop_settings_apply(1);             /* CFG -> speed/cheats/CBL */
-    if (pop_kid_load(KID_PAGES) != 0) { /* ВСЕ страницы: бег+стоп+разворот+присед+прыжок */
-        puts("kid atlas load failed");
-        return -1;
-    }
-    if (pop_level_load_num(FIRST_LEVEL) != 0) {  /* сырой уровень в EMM-страницу */
-        puts("level load failed");
-        return -1;
-    }
-    pop_next_level = pop_current_level;   /* current_level = next_level (load_lev_spr) */
-    pop_kid_hp_newgame();                 /* init_game: hitp_beg_lev = start_hitp */
-    pop_checkpoint = 0;                   /* init_game (seg003:37) */
-
-    /* FONT.ATL нужен palette snapshot/dim; загрузка идёт ещё на чёрной
-     * палитре и поэтому не открывает игроку старое содержимое VRAM. */
+    /* FONT.ATL — В МИНИМАЛЬНОЙ ФАЗЕ, И ОТКЛАДЫВАТЬ ЕГО НЕЛЬЗЯ.
+     *
+     * Дело не в шрифте: СНИМОК ПАЛИТРЫ физически живёт в хвосте страницы
+     * шрифта (pop_ui.c, POP_FONT_SNAPSHOT_OFF — в W2 килобайта нет), и вся
+     * машинерия яркости начинается с `if (!font_ready) return`.  Без него
+     * pop_pal_apply(DIM_BLACK) не гасит, а fade_in нечего проявлять —
+     * заставка возникает разом на полной яркости (поймано пользователем
+     * сразу после первой версии этой перестановки, 2026-09-02).
+     * Цена вопроса — 12 КБ, около 75 мс. */
    if (pop_menu_init() != 0) {
        puts("menu font atlas load failed");
        return -1;
    }
-    /* kid.pal + динамические slots tileset/Shadow — один логический
-     * источник. pop_pal_game_load делает снимок ПОСЛЕ всех доплат. */
-    pop_pal_game_load();
-    /* Сохраняем ИМЕННО игровую палитру: после стартового title/intro она
-     * понадобится как источник обычного fade-in. Для build-info экран
-     * остаётся штатный яркий игровой фон. */
-    if (!pop_settings.show_build_info) {
-        pop_pal_apply(POP_PAL_DIM_BLACK);
-    }

-    /* Стартовая комната до title НЕ НУЖНА: LEVEL_LOAD всё равно заново
-     * выполняет pop_level_switch. Если нарисовать её сейчас в обе страницы,
-     * она становится сохранённой VRAM и может мелькнуть перед первым title
-     * при следующем запуске приложения. Единственное исключение — явно
-     * включённый build-info: его фон по контракту является игровой сценой. */
+    pop_current_level = FIRST_LEVEL;
+    pop_cd_init();                     /* метка «фон трогали» — пустые диапазоны */
+    pop_guard_reset();
+    pop_next_level = pop_current_level;   /* current_level = next_level (load_lev_spr) */
+    pop_kid_hp_newgame();                 /* init_game: hitp_beg_lev = start_hitp */
+    pop_checkpoint = 0;                   /* init_game (seg003:37) */
+    if (!pop_settings.show_build_info) pop_pal_apply(POP_PAL_DIM_BLACK);
+    return 0;
+}
+
+/* ЗВУК ВПЕРЁД ОСТАЛЬНЫХ РЕСУРСОВ.  Насосу для тишины (а значит и для того,
+ * чтобы CBL вообще открылся) нужен ровно ОДИН блок набора, и упаковщик
+ * обязан класть его первым блоком страницы 0 — поэтому здесь читается одна
+ * страница вместо восьми (33 мс против 440).  Остальные приезжают в
+ * pop_boot_rest, а до тех пор pop_sfx_play молча пропускает эффекты.
+ *
+ * Звать ПОСЛЕ того, как титул уже проявлен: чтение всё равно занимает
+ * полсекунды, и лучше, чтобы она прошла под картинкой. */
+int pop_boot_sound(void) __banked
+{
+    if (!boot_sound_done) {
+        boot_sound_done = 1;
+        (void)pop_sfx_init_begin();    /* эффектов может и не быть — не фатально */
+        /* Индекс музыкального набора — одна страница EMM.  Без него музыки не
+         * будет (pop_music_info вернёт -1 на любой трек), но игра работает:
+         * это необязательный ресурс, как и сами треки. */
+        (void)pop_music_index_load();
+        pop_settings_apply(1);         /* CFG -> speed/cheats/CBL */
+    }
+    /* ОТКРЫТИЕ CBL — ВНЕ РАЗОВОГО ГАРДА, и это не мелочь.  Загрузка нужна
+     * один раз за запуск, а вот вывод к моменту следующего показа заставки
+     * почти наверняка закрыт: pop_title_show начинается с pop_sfx_pause, да
+     * и уровень оставляет CBL закрытым.  Пока start стоял под флагом,
+     * Restart Game приводил к заставке БЕЗ музыки (поймано пользователем
+     * 2026-09-02), а заодно подвешивал ожидания «дослушать тему»: с
+     * выключенным насосом pop_mus_left не убывает, и pop_music_busy()
+     * истинен вечно.  Идемпотентно и уважает Ctrl+S (pop_snd_want). */
+    (void)pop_sfx_start();
+    return 0;
+}
+
+/* Шаг подкачки трека между кусками загрузки: заставочная тема играет уже
+ * с первой страницы (pop_music_stream), остальные обязаны приезжать по
+ * ходу — иначе насос уйдёт в ещё не прочитанную страницу.  Запас после
+ * шага — 0,75 с звучания на каждые 8 КБ, куски загрузки короче. */
+static void boot_music_step(void)
+{
+    if (pop_music_loading()) (void)pop_music_load_step();
+}
+
+int pop_boot_rest(void) __banked
+{
+    if (boot_rest_done) return boot_rest_fail ? -1 : 0;
+    boot_rest_done = 1;
+    /* Заставку могли пропустить в первую же секунду — тогда звук ещё не
+     * поднимался.  Идемпотентно. */
+    (void)pop_boot_sound();
+
+    (void)pop_sfx_init_finish();       /* дочитать эффекты (музыка уже играет) */
+    boot_music_step();
+    if (pop_kid_data_load("KID\\kid.ani") != 0) {   /* кадры+seqtbl в EMM-странице */
+        puts("kid.ani load failed\n");
+        boot_rest_fail = 1;
+        return -1;
+    }
+    boot_music_step();
+    pop_shadow_load();                 /* запечённый набор Тени — один раз на запуск */
+    boot_music_step();
+    if (pop_kid_load(KID_PAGES) != 0) { /* ВСЕ страницы: бег+стоп+разворот+присед+прыжок */
+        puts("kid atlas load failed");
+        boot_rest_fail = 1;
+        return -1;
+    }
+    boot_music_step();
+
+    /* Стартовая комната до title НЕ НУЖНА: LEVEL_LOAD всё равно выполняет
+     * pop_level_switch. Единственное исключение — явно включённый
+     * build-info: его фон по контракту является игровой сценой, поэтому
+     * только здесь читаются фон с уровнем и применяется игровая палитра. */
    if (pop_settings.show_build_info) {
+        if (pop_bg_load(pop_level_type()) != 0 ||
+            pop_level_load_num(FIRST_LEVEL) != 0) {
+            puts("build-info scene load failed");
+            boot_rest_fail = 1;
+            return -1;
+        }
+        pop_guard_load();
+        pop_pal_game_load();
        pop_start_level();
        if (pop_current_level == POP_UPSIDE_LEVEL) pop_vflip_load_all();
        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;
 }

@@ -1224,6 +1292,11 @@ int pop_level_switch(void) __banked
    uint8_t old_page;
    gfx_rect_t full;

+    /* РЕСУРСЫ МОГУТ БЫТЬ ЕЩЁ НЕ ПРОЧИТАНЫ.  Кид, Тень и шрифт грузятся под
+     * заставкой (см. шапку pop_boot), а её можно пропустить клавишей в
+     * первую же секунду.  Идемпотентно: со второго раза это проверка байта. */
+    if (pop_boot_rest() != 0) return -1;
+
    /* Граница FG0: повреждённый snapshot или старый внешний вызов не должен
     * даже пытаться открыть res2015.bin. Финальный маршрут 14 -> ENDING
     * добавит автомат приложения (FG11); пока просто оставляем уровень. */
@@ -1368,6 +1441,10 @@ int pop_new_game_load(void) __banked
        gfx_wait_vsync();
    }

+    /* ДО pop_pal_game_load: она доплачивает слоты палитры по загруженным
+     * наборам (Тень, страж, тайлсет), и звать её раньше их чтения нельзя. */
+    if (pop_boot_rest() != 0) return -1;
+
    pop_kid_hp_newgame();
    hitp_max = POP_START_HITP;
    pop_timer_new_game();
@@ -1414,4 +1491,14 @@ void pop_shutdown(void) __banked
    pop_guard_free();
    pop_kid_data_free();
    pop_level_free();
+    /* ЖЕЛЕЗО ЗВУКА ГАСИМ ПОСЛЕДНИМ ДЕЙСТВИЕМ, и pop_sfx_close выше для этого
+     * НЕ ДОСТАТОЧНО: он закрывает сессию, а bit7 порта CBL остаётся включён,
+     * пока его держит gfx_wait_vsync ради бита луча.  Дальше main просто
+     * возвращается, а crt0 при возврате уходит прямо в ESTEX EXIT, минуя
+     * цепочку atexit (runtime/crt0_banked.s) — то есть vsync-ссылку снять
+     * уже некому.  В результате мы уходили в шелл с включённым CBL, и он
+     * крутил свои 256 слотов: тихо до первой чужой записи в порт данных, а
+     * дальше она зацикливалась (поймано пользователем на железе 2026-09-02;
+     * в MAME не воспроизводится). */
+    cbl_shutdown();
 }
@@ -83,9 +83,21 @@ void pop_flip_screen(void) __banked;
 * Три куска главного цикла с частотой «раз за игру» или «раз на уровень».
 * В резиденте от них остались только вызовы. */

-/* Загрузить ресурсы, поднять графику и палитру, поставить Кида на старт и
- * нарисовать первый экран.  0 — OK, -1 — фатально (сообщение уже выведено). */
+/* СТАРТ В ТРИ ФАЗЫ — ради быстрого появления заставки; подробности и
+ * причины (в том числе почему часть загрузок убрана совсем) — в шапке
+ * pop_boot в sprpop_cold.c.  0 — OK, -1 — фатально (сообщение выведено).
+ *
+ *   pop_boot()       настройки + графика, чёрный экран;
+ *   pop_boot_sound() индекс+первая страница звука, индекс музыки, CBL —
+ *                    звать, когда титул уже на экране: после него можно
+ *                    пускать тему заставки;
+ *   pop_boot_rest()  всё тяжёлое (эффекты, Кид, Тень, шрифт) под стоящим
+ *                    титулом; идемпотентно, страхуется вызовом из
+ *                    pop_new_game_load/pop_level_switch на случай, если
+ *                    заставку пропустили сразу. */
 int  pop_boot(void) __banked;
+int  pop_boot_sound(void) __banked;
+int  pop_boot_rest(void) __banked;

 /* Перейти на pop_next_level: файл уровня, спрайты соперника, тайлсет,
 * старт. На время I/O закрывает CBL и оставляет его закрытым: caller обязан
@@ -49,6 +49,8 @@ OBJS_phys := build/eng_pop_geom.rel  build/eng_pop_kid.rel \
 OBJS_grab := $(OBJS_phys)
 # t_wall — удар о стену в воздухе (BUG-JUMPWALL-1), состав тот же.
 OBJS_wall := $(OBJS_phys)
+# t_hang — зацеп обязан ДЕРЖАТЬСЯ (регресс glide_through_wall_guard).
+OBJS_hang := $(OBJS_phys)
 # t_gate — открытая решётка не должна считаться стеной у осторожного шага
 # (нужны pop_map + физика, то есть тот же состав).
 OBJS_gate := $(OBJS_phys)
@@ -0,0 +1,95 @@
+/*
+ * t_hang.c — ЗАЦЕП ОБЯЗАН ДЕРЖАТЬСЯ, а не срываться на следующем кадре.
+ *
+ * Регресс 2026-09-02.  glide_through_wall_guard() (порт fix_glide_through_wall,
+ * взят в билд 2026-08-31) звался в do_fall СРАЗУ ПОСЛЕ check_grab.  Беда в
+ * том, что seq_15 называется grab_ledge_MIDAIR: после удачного зацепа
+ * Char.action == 3 (в воздухе), персонаж уже подтянут вплотную к кромке — а
+ * под кромкой в комнатах оригинала стоит КЛАДКА.  Guard видел ровно её
+ * (t == TILE_WALL, d == 10), считал это «пролётом сквозь стену», отбрасывал
+ * персонажа на 5 пикселей назад и гасил fall_x.  Зацеп РИСОВАЛСЯ и тут же
+ * срывался — уровень 3 (комната 7, длинный прыжок через четыре пролёта) и
+ * attract-демо (комната 2, прыжок с места).
+ *
+ * ПОЧЕМУ ПРЕЖНИЕ НАБОРЫ ЭТОГО НЕ ПОЙМАЛИ.  t_grab судит по «действие стало
+ * вис» — а вис-то наступал, он просто не жил.  Отсюда мера здесь другая:
+ * вис обязан ДЕРЖАТЬСЯ подряд несколько кадров.  Разница между «зацепился»
+ * и «зацепился и держится» — это и есть разница между багом и нормой.
+ *
+ * СЦЕНА (геометрия уровня 3, комната 7, приведённая внутрь одной комнаты,
+ * чтобы шов не примешивался): кромка на (0,0), под ней кладка (1,0), четыре
+ * пролёта (0,1..4), толчок с плиты (0,5), разбег справа.
+ */
+#include <stdint.h>
+#include "tcheck.h"
+#include "scene.h"
+#include "stubs.h"
+#include "pop_kid.h"
+#include "pop_map.h"
+
+#define E 0x00
+#define F 0x01
+#define G 0x04
+#define L 0x0B
+#define T 0x13
+#define W 0x14
+
+static uint8_t room[30] = {
+    F, E, E, E, E, L, F, T, F, T,
+    W, E, E, E, E, W, W, W, W, W,
+    W, E, E, E, E, W, W, W, W, W,
+};
+
+#define ACT_HANG_CLIMB    2
+#define ACT_HANG_STRAIGHT 6
+#define HOLD_FRAMES       3
+
+/* Вис ДЕРЖИТСЯ: действие «вис» стоит HOLD_FRAMES кадров подряд. */
+static uint8_t hang_holds(uint8_t ledge, uint8_t nrun)
+{
+    uint8_t i, run = 0;
+    room[0] = ledge;
+    sc_room(room, 7);
+    sc_kid_at(9, 0, -1);              /* лицом влево, у правого края */
+    sc_run(SC_L, nrun);               /* разбег */
+    sc_run(SC_L | SC_U, 6);           /* толчок в прыжок */
+    sc_trace_clear();
+    sc_run(SC_SHIFT, 30);             /* полёт, зацеп и жизнь после него */
+    for (i = 0; i < sc_len; i++) {
+        uint8_t a = sc_trace[i].action;
+        if (a == ACT_HANG_CLIMB || a == ACT_HANG_STRAIGHT) {
+            if (++run >= HOLD_FRAMES) return 1;
+        } else run = 0;
+    }
+    return 0;
+}
+
+/* Сколько фаз разбега из 41 дают ЖИВОЙ вис.  До регресса — все, кроме
+ * первой (слишком близкий толчок), то есть 34; при сорванном зацепе — ноль. */
+static uint8_t window(uint8_t ledge)
+{
+    uint8_t k, n = 0;
+    for (k = 6; k <= 46; k++) if (hang_holds(ledge, k)) n++;
+    return n;
+}
+
+TC_TEST(long_jump_hang_survives_wall_under_ledge)
+{
+    /* Кромка-пол: под ней кладка — та самая, на которую срабатывал guard. */
+    TC_TRUE(window(F) >= 30);
+}
+
+TC_TEST(long_jump_hang_survives_on_gate)
+{
+    /* Кромка-решётка: тайл другой, кладка под ним та же.  Проверяется
+     * отдельно, потому что зацеп за решётку идёт своей веткой can_grab. */
+    TC_TRUE(window(G) >= 30);
+}
+
+int main(void)
+{
+    sc_init();
+    TC_RUN(long_jump_hang_survives_wall_under_ledge);
+    TC_RUN(long_jump_hang_survives_on_gate);
+    return 0;
+}
@@ -125,6 +125,8 @@ def find_ci(directory, name):
 ATL = APP / "build" / "atl"          # промежуточные атласы, по набору в папке
 PACKED = APP / "assets" / "packed"   # раскладка диска игры
 GEN = APP / "gen"                    # генерируемые заголовки
+DIST = APP / "dist"                  # ручное содержимое дистрибутива (README и
+                                     # производные наборы, напр. тихий звук)


 def atl(name):
@@ -139,3 +141,10 @@ def packed(name):
    p = PACKED / name
    p.mkdir(parents=True, exist_ok=True)
    return p
+
+
+def dist(name):
+    """Каталог внутри dist/ в раскладке диска; создаётся при обращении."""
+    p = DIST / name
+    p.mkdir(parents=True, exist_ok=True)
+    return p
@@ -0,0 +1,163 @@
+#!/usr/bin/env python3
+"""pop_quiet.py — тише в N раз: пережать ГОТОВЫЕ наборы звука и музыки.
+
+Берёт то, что уже лежит в assets/packed (SND/snd.arc + MUS/m*.bin), делает
+тише и кладёт в dist/ в той же раскладке диска, ПЕРЕЗАПИСЫВАЯ то, что там
+было.  Оригиналы в assets/packed не трогаются никогда — значит скрипт
+идемпотентен: сколько раз ни запусти, громкость упадёт ровно один раз.
+
+ФОРМУЛА.  PCM у нас 8 бит БЕЗ ЗНАКА, тишина = 0x80 (см. cbl.h и
+docs/sound_plan.md), то есть байт — это знаковое отклонение от 0x80.
+Тише вдвое:
+
+    out = 0x80 + (in - 0x80) / 2  =  in / 2 + 0x40
+
+Правая форма — та самая, что делается на Z80 двумя командами
+(`srl a` / `add a,#0x40`), поэтому таблицу строим floor-делением: тогда
+результат совпадает с ней БАЙТ В БАЙТ и его можно сверять с железной
+реализацией.  Тишина остаётся тишиной (0x80 -> 0x80) при любом gain, а
+клиппинга не бывает по построению: |отклонение| только уменьшается.
+
+ЧТО ИМЕННО ПЕРЕСЧИТЫВАЕТСЯ.
+
+  MUS/m*.bin   — файл целиком: это чистый PCM без заголовка, загрузчик
+                 читает его страницами с нулевого смещения (pop_music.c).
+  SND/snd.arc  — ТОЛЬКО тела записей архива PBA1.  Заголовок (512 Б) и
+                 выравнивающий хвост между записями остаются как есть:
+                 там нули упаковщика, а не звук, и пересчёт превратил бы
+                 их в 0x40 — мусор на месте служебных байт.
+  *.idx        — копируются без изменений: длины и смещения не поменялись,
+                 меняются только сами отсчёты.  Магию всё же проверяем,
+                 чтобы молча не скопировать файл чужого формата.
+
+Запуск:
+
+    python3 tools/pop_quiet.py                # вдвое тише, packed -> dist
+    python3 tools/pop_quiet.py --gain 0.25    # вчетверо тише
+    python3 tools/pop_quiet.py --src DIR --out DIR
+"""
+import argparse
+import shutil
+import struct
+import sys
+from pathlib import Path
+
+sys.path.insert(0, str(Path(__file__).resolve().parent))
+import paths
+
+SILENCE = 0x80          # центр 8-битного беззнакового PCM
+ARC_MAGIC = b"PBA1"     # архив ресурсов, см. src/pop_arc.h
+ARC_HEADER = 512
+ARC_SECTOR = 512
+SND_IDX_MAGIC = b"PSI1"
+MUS_IDX_MAGIC = b"PMI1"
+
+
+def gain_table(gain: float) -> bytes:
+    """Таблица перекодировки байта: 256 значений, готовые для bytes.translate.
+
+    floor, а не округление к ближайшему: при gain = 1/2 это ровно
+    `in >> 1 + 0x40`, то есть побайтово то же, что сделал бы Z80.
+    """
+    if not 0.0 <= gain <= 1.0:
+        raise SystemExit("gain обязан лежать в [0, 1]; громче делать нечем — "
+                         "запас по амплитуде в исходнике уже выбран")
+    out = bytearray(256)
+    for v in range(256):
+        dev = v - SILENCE                       # знаковое отклонение
+        out[v] = max(0, min(255, SILENCE + _floor_div(dev, gain)))
+    return bytes(out)
+
+
+def _floor_div(dev: int, gain: float) -> int:
+    """dev * gain, округлённое ВНИЗ (к минус бесконечности)."""
+    scaled = dev * gain
+    i = int(scaled)
+    return i - 1 if scaled < i else i           # int() режет к нулю
+
+
+def quiet_raw(src: Path, dst: Path, table: bytes) -> int:
+    """Файл целиком — PCM (музыкальный трек).  Возвращает размер."""
+    data = src.read_bytes()
+    dst.write_bytes(data.translate(table))
+    return len(data)
+
+
+def quiet_arc(src: Path, dst: Path, table: bytes) -> int:
+    """Архив PBA1: пересчитываем только тела записей."""
+    raw = bytearray(src.read_bytes())
+    if raw[0:4] != ARC_MAGIC:
+        raise SystemExit(f"{src}: не {ARC_MAGIC.decode()} — это не наш архив")
+    count = raw[4]
+    if not 1 <= count <= (ARC_HEADER - 8) // 4:
+        raise SystemExit(f"{src}: count = {count}, вне 1..126")
+    for i in range(count):
+        off_sec, size = struct.unpack_from("<HH", raw, 8 + i * 4)
+        off = off_sec * ARC_SECTOR
+        if off + size > len(raw):
+            raise SystemExit(f"{src}: запись {i} выходит за файл "
+                             f"({off} + {size} > {len(raw)})")
+        raw[off:off + size] = bytes(raw[off:off + size]).translate(table)
+    dst.write_bytes(bytes(raw))
+    return count
+
+
+def copy_idx(src: Path, dst: Path, magic: bytes) -> None:
+    """Индекс переносим как есть — но убеждаемся, что он наш."""
+    head = src.read_bytes()[:4]
+    if head != magic:
+        raise SystemExit(f"{src}: магия {head!r}, ожидалась {magic!r}")
+    shutil.copyfile(src, dst)
+
+
+def peak(data: bytes) -> int:
+    """Максимальное отклонение от тишины — для отчёта «стало тише»."""
+    return max(abs(b - SILENCE) for b in data) if data else 0
+
+
+def main() -> int:
+    ap = argparse.ArgumentParser(description=__doc__.splitlines()[0])
+    ap.add_argument("--gain", type=float, default=0.5,
+                    help="множитель амплитуды (по умолчанию 0.5 — вдвое тише)")
+    ap.add_argument("--src", type=Path, default=paths.PACKED,
+                    help="откуда брать готовые наборы (умолчание assets/packed)")
+    ap.add_argument("--out", type=Path, default=paths.DIST,
+                    help="куда класть (умолчание dist/)")
+    args = ap.parse_args()
+
+    table = gain_table(args.gain)
+    src_snd, src_mus = args.src / "SND", args.src / "MUS"
+    out_snd, out_mus = args.out / "SND", args.out / "MUS"
+    if not src_snd.is_dir() or not src_mus.is_dir():
+        raise SystemExit(f"{args.src}: нет SND/ или MUS/ — сначала "
+                         "`make resources`")
+    out_snd.mkdir(parents=True, exist_ok=True)
+    out_mus.mkdir(parents=True, exist_ok=True)
+
+    print(f"тише в {1 / args.gain:g} раз(а): {args.src} -> {args.out}")
+
+    arc = src_snd / "snd.arc"
+    before = peak(arc.read_bytes()[ARC_HEADER:])
+    n = quiet_arc(arc, out_snd / "snd.arc", table)
+    after = peak((out_snd / "snd.arc").read_bytes()[ARC_HEADER:])
+    copy_idx(src_snd / "snd.idx", out_snd / "snd.idx", SND_IDX_MAGIC)
+    print(f"  SND/snd.arc  {n} записей, пик {before} -> {after}")
+
+    tracks = sorted(src_mus.glob("m*.bin"))
+    if not tracks:
+        raise SystemExit(f"{src_mus}: нет ни одного m*.bin")
+    total = 0
+    worst_before = worst_after = 0
+    for t in tracks:
+        total += quiet_raw(t, out_mus / t.name, table)
+        worst_before = max(worst_before, peak(t.read_bytes()))
+        worst_after = max(worst_after, peak((out_mus / t.name).read_bytes()))
+    copy_idx(src_mus / "mus.idx", out_mus / "mus.idx", MUS_IDX_MAGIC)
+    print(f"  MUS/         {len(tracks)} треков, {total // 1024} КБ, "
+          f"пик {worst_before} -> {worst_after}")
+    print("индексы (snd.idx, mus.idx) скопированы без изменений — длины те же")
+    return 0
+
+
+if __name__ == "__main__":
+    sys.exit(main())
@@ -0,0 +1,108 @@
+"""test_pop_quiet — правило громкости и неприкосновенность служебных байт.
+
+Скрипт трогает данные, которые потом играет насос на Z80, поэтому тест
+закрепляет ровно две вещи: формулу (она обязана совпадать с беззнаковым
+`A/2 + 0x40`, чтобы результат можно было сверять с железной реализацией) и
+то, что заголовок архива с выравнивающим хвостом остаются как были.
+
+Запуск: make test-tools  (либо python3 -m unittest discover tools/tests)
+"""
+import os
+import struct
+import sys
+import tempfile
+import unittest
+from pathlib import Path
+
+sys.path.insert(0, os.path.dirname(os.path.dirname(os.path.abspath(__file__))))
+import pop_quiet as X
+
+
+class Formula(unittest.TestCase):
+    """Таблица громкости: то же, что сделал бы Z80."""
+
+    def test_half_is_shift_plus_40(self):
+        t = X.gain_table(0.5)
+        for v in range(256):
+            self.assertEqual(t[v], (v >> 1) + 0x40, f"байт {v:#04x}")
+
+    def test_silence_stays_silence(self):
+        for gain in (0.5, 0.25, 0.1, 1.0):
+            self.assertEqual(X.gain_table(gain)[X.SILENCE], X.SILENCE)
+
+    def test_no_clipping_and_range_shrinks(self):
+        t = X.gain_table(0.5)
+        self.assertEqual(t[0x00], 0x40)
+        self.assertEqual(t[0xFF], 0xBF)
+        for v in range(256):
+            self.assertLessEqual(abs(t[v] - X.SILENCE), abs(v - X.SILENCE))
+
+    def test_gain_one_is_identity(self):
+        self.assertEqual(X.gain_table(1.0), bytes(range(256)))
+
+    def test_gain_out_of_range_rejected(self):
+        for bad in (-0.1, 1.5):
+            with self.assertRaises(SystemExit):
+                X.gain_table(bad)
+
+
+def make_arc(bodies):
+    """Собрать PBA1 ровно так, как это делает tools/pop_pack_arc.py."""
+    raw = bytearray(X.ARC_HEADER)
+    raw[0:4] = X.ARC_MAGIC
+    raw[4] = len(bodies)
+    blob = bytearray()
+    for i, body in enumerate(bodies):
+        off = X.ARC_HEADER + len(blob)
+        struct.pack_into("<HH", raw, 8 + i * 4, off // X.ARC_SECTOR, len(body))
+        blob += body
+        blob += bytes(-len(blob) % X.ARC_SECTOR)     # хвост выравнивания — нули
+    return bytes(raw + blob)
+
+
+class Archive(unittest.TestCase):
+    """PBA1: тела пересчитаны, служебные байты — нет."""
+
+    def setUp(self):
+        self.dir = Path(tempfile.mkdtemp())
+        self.bodies = [bytes([0x80, 0xFF, 0x00, 0x81, 0x7F]), bytes([0xC0] * 3)]
+        self.src = self.dir / "in.arc"
+        self.dst = self.dir / "out.arc"
+        self.src.write_bytes(make_arc(self.bodies))
+
+    def test_bodies_scaled(self):
+        X.quiet_arc(self.src, self.dst, X.gain_table(0.5))
+        raw = self.dst.read_bytes()
+        off = X.ARC_HEADER
+        got = raw[off:off + len(self.bodies[0])]
+        self.assertEqual(got, bytes([0x80, 0xBF, 0x40, 0x80, 0x7F]))
+
+    def test_header_and_padding_untouched(self):
+        X.quiet_arc(self.src, self.dst, X.gain_table(0.5))
+        src, dst = self.src.read_bytes(), self.dst.read_bytes()
+        self.assertEqual(len(src), len(dst))
+        self.assertEqual(src[:X.ARC_HEADER], dst[:X.ARC_HEADER])
+        pad_at = X.ARC_HEADER + len(self.bodies[0])
+        pad_len = -len(self.bodies[0]) % X.ARC_SECTOR
+        self.assertEqual(dst[pad_at:pad_at + pad_len], bytes(pad_len))
+
+    def test_foreign_magic_rejected(self):
+        self.src.write_bytes(b"NOPE" + bytes(X.ARC_HEADER))
+        with self.assertRaises(SystemExit):
+            X.quiet_arc(self.src, self.dst, X.gain_table(0.5))
+
+
+class Track(unittest.TestCase):
+    """Музыкальный трек — чистый PCM, пересчитывается целиком."""
+
+    def test_whole_file(self):
+        d = Path(tempfile.mkdtemp())
+        src, dst = d / "m54.bin", d / "out.bin"
+        src.write_bytes(bytes([0x00, 0x80, 0xFF] * 4))
+        n = X.quiet_raw(src, dst, X.gain_table(0.5))
+        self.assertEqual(n, 12)
+        self.assertEqual(dst.read_bytes(), bytes([0x40, 0x80, 0xBF] * 4))
+
+
+if __name__ == "__main__":
+    unittest.main()
@@ -33,9 +33,16 @@
 #   --data-loc 0xN   override SDCC --data-loc (default: derived from --memory)
 #   -Wl FLAG         extra linker flag (repeatable)
 #   --bank N=FILE.c  compile FILE.c as bank N; repeatable; pulls crt0_banked
-#   --bank-data      put bank modules' writable data INTO the bank page
+#   --bank-data [N]  put bank modules' writable data INTO the bank page
 #                    (default: it goes to the shared _DATA in W1/W2, which
-#                    stays mapped and is visible from everywhere)
+#                    stays mapped and is visible from everywhere).
+#                    Without an argument — for ALL banks (old behaviour).
+#                    With a bank number — only for that bank; repeatable:
+#                      --bank-data 5 --bank-data 6
+#                    Per-bank matters because bank-local data is NOT visible
+#                    from outside the bank: a module with an exported global
+#                    must stay on the shared _DATA while its neighbour keeps
+#                    a big private buffer off the resident budget.
 #                    automatically and adds -Wl-b_BANKN=0x{N}C000
 #   --w3 FILE.c      place FILE.c resident in window 3 (0xC000), called
 #                    DIRECTLY (no trampoline).  Repeatable.  Defaults to
@@ -111,7 +118,8 @@ MKEXE_EXTRA=()
 BANK_SPECS=()    # entries like "1=engine.c"
 W3_SPECS=()      # entries like "mod.c" — резидентные модули окна W3 (--w3)
 USER_DEFS=()     # -DFOO / -DFOO=bar — пробрасываются в sdcc как есть
-BANK_LOCAL_DATA=0   # 1 (--bank-data): писучие данные банков — В СТРАНИЦУ банка
+BANK_LOCAL_DATA=0   # 1 (--bank-data без аргумента): данные ВСЕХ банков — в страницу
+BANK_LOCAL_LIST=()  # номера банков из --bank-data N (по одному на банк)
 W3_RELS=()       # заполняется при компиляции W3-модулей
 W3_LD_FLAGS=()   # -Wl-b_W3CODE=0xC000, если есть --w3
 USER_SET_MEMORY=""  # непусто, если --memory задан явно (для --w3 авто-small)
@@ -147,7 +155,14 @@ while [[ $# -gt 0 ]]; do
        -Wl)           LD_EXTRA+=("$2");  shift 2;;
        -D*)           USER_DEFS+=("$1"); shift;;
        --bank)        BANK_SPECS+=("$2"); shift 2;;
-        --bank-data)   BANK_LOCAL_DATA=1; shift;;
+        --bank-data)
+            # Аргумент необязателен: «--bank-data» = все банки (как было),
+            # «--bank-data N» = только банк N, флаг повторяемый.
+            if [[ -n "${2:-}" && "$2" =~ ^[0-9]+$ ]]; then
+                BANK_LOCAL_LIST+=("$2"); shift 2
+            else
+                BANK_LOCAL_DATA=1; shift
+            fi;;
        --mkexe)       MKEXE_EXTRA+=("$2"); shift 2;;
        --max-allocs)  MAX_ALLOCS="$2";   shift 2;;
        --gfx)         GFX_MODE="$2";     shift 2;;
@@ -464,7 +479,11 @@ if [[ "$CRT0_TYPE" == "banked" ]]; then
            # W1/W2, но требует ручного контроля видимости, поэтому
            # включается явно через --bank-data.
            bank_data_flags=()
-            [[ $BANK_LOCAL_DATA -eq 1 ]] && bank_data_flags=(--dataseg "BANK${bank_n}")
+            bank_local=$BANK_LOCAL_DATA
+            for bl in "${BANK_LOCAL_LIST[@]}"; do
+                [[ "$bl" == "$bank_n" ]] && bank_local=1
+            done
+            [[ $bank_local -eq 1 ]] && bank_data_flags=(--dataseg "BANK${bank_n}")
            run "$SDCC" "${CC_FLAGS[@]}" \
                --codeseg "BANK${bank_n}" --constseg "BANK${bank_n}" \
                "${bank_data_flags[@]}" \
@@ -1,67 +1,67 @@
 # Эталон размеров _CODE (байт); обновление: python3 toolchain/size_check.py --update
-accfill	3783
+accfill	3797
 accop	7067
-argv	3431
-assrtest	3847
-atlas	9193
-attrprob	4087
-banked	1056
-bankedbg	1067
-banklocl	4683
-banktest	3767
-bgi_img	8677
-bgitest	3748
-bios_text	4461
+argv	3445
+assrtest	3861
+atlas	9627
+attrprob	4101
+banked	1070
+bankedbg	1081
+banklocl	4697
+banktest	3781
+bgi_img	8691
+bgitest	3762
+bios_text	4475
 blitperf	5860
 blitw	4939
-cat	913
-cblstream	5860
-cbltest	6006
-cblwav	6099
-conio	4605
-conio2	3929
+cat	927
+cblstream	5944
+cbltest	6090
+cblwav	6183
+conio	4619
+conio2	3943
 convbench	3508
-dec_test	860
-errno	5966
-fbench	8085
-fdmax	6023
-filetest	10547
+dec_test	874
+errno	5980
+fbench	8149
+fdmax	6087
+filetest	10611
 fpsdiv	4870
-gets	509
-gfx_dbuf	5131
-gfx_demo	4114
+gets	523
+gfx_dbuf	5207
+gfx_demo	4128
 gfxbanks	6044
-hello	4167
-hello2	4244
-irqtest	6690
+hello	4181
+hello2	4258
+irqtest	6754
 kbdpoll	1282
 kbdraw	4911
-ls	4835
-malloc	4461
-mem_test	4555
-mouse	4382
-openenv	6124
+ls	4849
+malloc	4475
+mem_test	4569
+mouse	4396
+openenv	6138
 pageflip	6334
 palfile	5406
-ptime	5744
-rt_test	5197
+ptime	5758
+rt_test	5216
 scroll	6744
-seek	4188
-simple	955
-solidt	11531
+seek	4202
+simple	969
+solidt	11595
 spranim	9431
 spriteclip	4119
 sprites	6791
-stattest	7549
-stdlib	6643
-stest2	3644
-strtest	1340
-text_palette	5024
-timedir	5454
+stattest	7563
+stdlib	6657
+stest2	3658
+strtest	1354
+text_palette	5038
+timedir	5468
 w0page	8831
 w3bgfx	5243
 w3big	3673
 w3huge	3700
 w3probe	3556
 w3tiny	3471
-winrest	4459
+winrest	4473
@@ -26,12 +26,29 @@
 *
 * _cbl_port_ref/_cbl_port_unref (_cbl_port.c) — общий счётчик желающих
 * держать bit7 порта 0x004E включённым НЕЗАВИСИМО от полноценной CBL-
- * сессии.  Нужно gfx_wait_vsync() (см. libc/gfx/gfx_wait_vsync.c): бит
- * 5 порта 0xFE отражает позицию луча (см. MAME sprinter.cpp kbd_fe_r),
- * но доступен ТОЛЬКО пока включён cbl_mode().  Если реальный CBL уже
- * открыт — портом владеет он, ref/unref его не трогают; иначе включают
- * bit7 "немым" кодом частоты _CBL_VSYNC_FREQ (таймер CBL не заводится
- * — divs[2]=0 в MAME — ни звука, ни прерываний, только синхро-бит).
+ * сессии.  Нужно gfx_wait_vsync() (см. libbgi/common/gfx_wait_vsync.c):
+ * бит 5 порта 0xFE отражает позицию луча (см. MAME sprinter.cpp
+ * kbd_fe_r), но доступен ТОЛЬКО пока включён cbl_mode().  Если реальный
+ * CBL уже открыт — портом владеет он, ref/unref его не трогают; иначе
+ * включают bit7 "немым" кодом частоты _CBL_VSYNC_FREQ и заливают
+ * аппаратный буфер тишиной — БЕЗ ЗАЛИВКИ ЖЕЛЕЗО ПОЁТ (см. ниже).
+ *
+ * ЖЕЛЕЗО ПОЁТ ТО, ЧТО ЛЕЖИТ В БУФЕРЕ.  Буфер CBL — 256 слотов, которые
+ * при включённом bit7 крутятся ПО КРУГУ и которые никто не чистит;
+ * фирменный пример Sprinter Team (docs/converted/Forum.txt, "Самый
+ * простой пример") на этом и построен: залил 256 отсчётов — "должен
+ * пищать одну ноту".  Значит любое состояние "bit7 включён, а насос не
+ * работает" — это бесконечная нота из хвоста последнего сэмпла.
+ *
+ * В MAME этого не видно: там код частоты 2 не заводил таймер вовсе
+ * (divs[2]=0, sprinter.cpp:822), поэтому "немой" режим был тих даром.
+ * На железе код 2 — reserved (Forum.txt:704), поведение не определено, и
+ * ЦАП тактируется: пользователь поймал бесконечную ноту после Ctrl+S и
+ * после пропуска заставки (2026-09-02).  Поэтому теперь: (1) частота —
+ * документированная, самая медленная; (2) буфер ВСЕГДА оставляем залитым
+ * тишиной — и на входе в "немой" режим, и при полном выключении (там те
+ * же записи центруют ЦАП обычного COVOX, bit7=0 → порт данных идёт прямо
+ * в ЦАП).  Цена — 256 OUT'ов (~0,3 мс) на редкое событие.
 */
 #ifndef _CBL_INTERNAL_H
 #define _CBL_INTERNAL_H
@@ -42,7 +59,10 @@
 #define _CBL_CTRL_PORT   0x004E
 #define _CBL_DATA_PORT   0x4F
 #define _CBL_ACCEL_PAGE  0xFD    /* спец-страница EMM: запись на W3@0xC000 идёт в CBL */
-#define _CBL_VSYNC_FREQ  0x02    /* "немой" код частоты — divs[2]=0 в MAME, таймер не идёт */
+#define _CBL_VSYNC_FREQ  0x08    /* "немой" режим: самый медленный ДОКУМЕНТИРОВАННЫЙ
+                                  * код (7,8125 кГц).  Тишина обеспечена не
+                                  * остановкой таймера (это свойство MAME, не
+                                  * железа), а залитым тишиной буфером. */

 extern uint16_t     _cbl_block;          /* размер блока: 128 или 256 (по формату) */
 extern uint16_t     _cbl_reqs;           /* блоков-запросов обслужено */
@@ -62,8 +82,10 @@ int _cbl_open_raw(uint8_t freq_code, uint8_t fmt, uint8_t pump_mode,
                  uint8_t underrun_mode, cbl_fill_fn fill);

 /* Залить весь аппаратный буфер (256 слотов) байтом тишины сразу после
- * включения — иначе первые 23 мс играет то, что лежало в буфере раньше.
- * Подробный разбор — в шапке _cbl_prime.c. */
+ * ЛЮБОЙ записи в порт управления: при включении — иначе первые 23 мс
+ * играет то, что лежало в буфере раньше; при выключении — иначе железо
+ * крутит хвост последнего сэмпла бесконечной нотой.  Подробный разбор —
+ * в шапке _cbl_prime.c. */
 void _cbl_prime(uint8_t silence);

 /* ISR-насосы: вызвать fill(), при недоливе — тишина по режиму (один
@@ -61,7 +61,12 @@ int _cbl_open_raw(uint8_t freq_code, uint8_t fmt, uint8_t pump_mode,
    static uint8_t atexit_armed;
    if (!atexit_armed) {
        atexit_armed = 1;
-        atexit(cbl_close);         /* CBL обязан умолкнуть до шелла */
+        /* ИМЕННО shutdown, а не close: close оставляет bit7 включённым,
+         * пока его держит gfx_wait_vsync, и железо крутит буфер уже под
+         * шеллом.  Подстраховка неполная — цепочку atexit разматывает
+         * только exit(), а crt0 при возврате из main уходит прямо в ESTEX
+         * EXIT, — поэтому программа обязана звать cbl_shutdown() сама. */
+        atexit(cbl_shutdown);      /* CBL обязан умолкнуть до шелла */
    }

    IRQ_DISABLE();
@@ -7,9 +7,23 @@
 *
 * Если реальный CBL уже открыт (_irq_cbl_hook != 0) — портом владеет
 * он, ref/unref его не трогают вообще (это уже нужное состояние).
- * Иначе включаем/выключаем bit7 "немым" кодом частоты _CBL_VSYNC_FREQ
- * — таймер CBL при этом коде не заводится (divs[2]=0 в MAME), значит
- * ни звука, ни прерываний, только доступ к синхро-биту.
+ * Иначе включаем/выключаем bit7 "немым" кодом частоты _CBL_VSYNC_FREQ.
+ *
+ * ТИШИНУ ДАЁТ ЗАЛИТЫЙ БУФЕР, А НЕ ОСТАНОВЛЕННЫЙ ТАЙМЕР.  Раньше здесь
+ * стоял reserved-код частоты 2 — ровно потому, что в MAME при нём не
+ * заводится таймер (divs[2]=0).  На железе поведение reserved-кодов не
+ * определено, ЦАП тактируется, и включённый bit7 поверх старого буфера
+ * даёт бесконечную ноту из хвоста последнего сэмпла (пойман Ctrl+S во
+ * время музыки, 2026-09-02; разбор — в шапке _cbl.h).  Поэтому после
+ * КАЖДОЙ записи в порт управления заливаем все 256 слотов тишиной:
+ *   - bit7 включён  — крутится тишина (беззвучно на любом железе);
+ *   - bit7 выключен — те же записи уходят в ЦАП обычного COVOX и
+ *     центруют его на 0x80, снимая щелчок/постоянное смещение.
+ * Оба состояния редкие (старт пейсинга, пауза звука, выход), 256 OUT'ов
+ * — около 0,3 мс.
+ *
+ * Цена для ГРАФИЧЕСКОЙ программы без звука: _cbl_prime (~10 Б кода)
+ * приезжает следом за gfx_wait_vsync.  Дешевле, чем гудящее железо.
 */

 #include "_cbl.h"
@@ -19,6 +33,9 @@ void _cbl_port_sync(void)
 {
    if (_irq_cbl_hook) return;      /* реальный CBL сам владеет портом */
    _cbl_ctrl(_cbl_port_refs ? (uint8_t)(0x80 | _CBL_VSYNC_FREQ) : 0);
+    /* Формат "немого" режима всегда 8-битный (bit5 не выставлен), поэтому
+     * тишина здесь — 0x80 независимо от того, каким был закрытый сеанс. */
+    _cbl_prime(0x80);
 }

 void _cbl_port_ref(void)
@@ -1,5 +1,6 @@
 /*
- * _cbl_prime — залить аппаратный буфер CBL тишиной СРАЗУ после включения.
+ * _cbl_prime — залить аппаратный буфер CBL тишиной СРАЗУ после записи в
+ * порт управления: и при включении, и при выключении.
 *
 * ЗАЧЕМ.  Буфер CBL (256 слотов, две половины по 128) железо НЕ чистит ни
 * при сбросе, ни при записи в порт управления — там остаётся то, что лежало
@@ -31,6 +32,19 @@
 * Слотов ровно 256 НЕЗАВИСИМО от формата (в 16-бит слот держит целый
 * сэмпл), поэтому и записей всегда 256 — байт тишины разный: 0x80 для
 * 8-бит беззнакового, 0x00 для 16-бит.
+ *
+ * ВТОРАЯ РОЛЬ — ГАШЕНИЕ (добавлена 2026-09-02, _cbl_port_sync).  Запись
+ * в порт управления НЕ чистит буфер и в обратную сторону: пока bit7
+ * включён (а его держит gfx_wait_vsync ради бита луча), железо крутит
+ * оставшиеся 256 байт по кругу — это ровно "одна нота" из фирменного
+ * примера Forum.txt, только незваная.  Поэтому после каждой записи в
+ * порт управления зовём эту же функцию:
+ *   - bit7 остался включён — по кругу крутится тишина;
+ *   - bit7 снят — те же 256 записей идут прямо в ЦАП обычного COVOX
+ *     (MAME sprinter.cpp, `case 0x88` без cbl_mode()) и оставляют его в
+ *     нуле 0x80, а не на последнем сэмпле.
+ * Гонки с насосом нет и здесь: при гашении хук уже снят, при включении
+ * первое прерывание будет только на 128-м слоте.
 */

 #include "_cbl.h"
@@ -10,7 +10,16 @@
 * Порт 0x004E не гасится напрямую — вместо этого _cbl_port_sync()
 * пересчитывает нужное значение: если gfx_wait_vsync() ещё держит
 * ссылку (_cbl_port_refs > 0), останется "немой" режим ради бита
- * синхронизации; иначе порт гасится полностью.
+ * синхронизации; иначе порт гасится полностью.  Он же заливает
+ * аппаратный буфер тишиной — БЕЗ ЭТОГО ЗАКРЫТИЕ CBL НЕ ЗАКРЫВАЕТ ЗВУК:
+ * пока bit7 держит vsync-ссылка, железо крутит по кругу оставшиеся в
+ * буфере 256 байт последнего сэмпла и поёт ноту до следующего
+ * cbl_open() (пойман Ctrl+S во время музыки, 2026-09-02; полный разбор
+ * — в шапке _cbl.h).  В MAME это не воспроизводится.
+ *
+ * Порядок обязателен: сначала снять хук (иначе насос долил бы буфер уже
+ * после заливки), и только потом _cbl_port_sync с заливкой — вся
+ * скобка под DI, чтобы между снятием хука и тишиной ничего не влезло.
 */

 #include "_cbl.h"
@@ -21,7 +30,7 @@ void cbl_close(void)
    if (!_irq_cbl_hook) return;
    IRQ_DISABLE();
    _irq_cbl_hook = 0;
+    _cbl_port_sync();          /* режим порта + заливка буфера тишиной */
    IRQ_ENABLE();
-    _cbl_port_sync();
    _irq_table_unref();
 }
@@ -0,0 +1,38 @@
+/*
+ * cbl_shutdown — ЖЁСТКО погасить звук перед возвратом в шелл.
+ *
+ * ЧЕМ ОТЛИЧАЕТСЯ ОТ cbl_close().  Тот закрывает СЕССИЮ: снимает насос и
+ * пересчитывает порт по текущим держателям.  А держатель обычно есть —
+ * gfx_wait_vsync() занимает bit7 навсегда ради бита луча (см. _cbl_port.c),
+ * — и порт остаётся включённым в "немом" режиме.  Для работающей программы
+ * это правильно, но при выходе означает, что железо продолжает крутить свои
+ * 256 слотов уже под шеллом: тихо ровно до первой чужой записи в порт
+ * данных, а дальше эта запись зацикливается навсегда.
+ *
+ * ПОЧЕМУ НЕЛЬЗЯ ПОЛОЖИТЬСЯ НА atexit.  Цепочку atexit разматывает только
+ * exit() (libc/sys/exit.c), а crt0 при ВОЗВРАТЕ ИЗ main уходит прямо в
+ * ESTEX EXIT (runtime/crt0_banked.s) — ни один хендлер не выполняется.
+ * Значит и снятие vsync-ссылки, и cbl_close из atexit при обычном
+ * `return 0;` из main не происходят.  Поэтому выключение должно быть
+ * ЯВНЫМ действием программы, а не следствием чужой уборки.
+ *
+ * Что делает: закрывает сессию (если была), обнуляет счётчик держателей —
+ * программа уходит, держать порт больше некому, — гасит bit7 и центрует
+ * ЦАП обычного COVOX (при выключенном CBL записи в порт данных идут прямо
+ * в него, см. _cbl_prime.c), чтобы вместо щелчка осталась ровная тишина.
+ *
+ * Идемпотентно; звать последним действием завершения.
+ */
+
+#include "_cbl.h"
+#include "../irq/_irq.h"   /* IRQ_DISABLE/IRQ_ENABLE */
+
+void cbl_shutdown(void)
+{
+    cbl_close();                 /* снять насос и отпустить IM2-таблицу */
+    IRQ_DISABLE();
+    _cbl_port_refs = 0;          /* держателей больше нет: программа уходит */
+    _cbl_ctrl(0);                /* bit7 = 0 — CBL выключен целиком */
+    _cbl_prime(0x80);            /* ...и ЦАП COVOX в центре, без щелчка */
+    IRQ_ENABLE();
+}
@@ -55,9 +55,14 @@
 * cbl_underruns() считает недоливы в ОБОИХ режимах — это диагностика,
 * поведение не меняет.
 *
- * cbl_close() обязателен (atexit подстрахует) — иначе CBL продолжит
- * прерывать шелл после выхода; заодно освобождает буфер тишины, если
- * он был аллоцирован.
+ * cbl_close() обязателен — иначе CBL продолжит прерывать шелл после
+ * выхода.  НО ОН НЕ ГАСИТ ЖЕЛЕЗО ПОЛНОСТЬЮ: пока bit7 держит
+ * gfx_wait_vsync() ради бита луча, порт остаётся включённым в "немом"
+ * режиме, и буфер крутится под шеллом.  Перед возвратом из main звать
+ * cbl_shutdown() — он выключает всё и центрует ЦАП.
+ *
+ * На atexit тут полагаться НЕЛЬЗЯ: цепочку разматывает только exit(), а
+ * crt0 при возврате из main уходит прямо в ESTEX EXIT.
 *
 * Требования как у <irq.h>: код/данные в W2 (tiny/big).
 */
@@ -67,6 +72,11 @@

 #include <stdint.h>

+/* Выключить звук ПОЛНОСТЬЮ перед завершением программы: закрыть сессию,
+ * снять bit7 независимо от держателей и оставить ЦАП в центре.  Звать
+ * последним действием завершения; идемпотентно. */
+void cbl_shutdown(void);
+
 /* Коды частоты дискретизации (bits 3..0 порта 0x4E; из форума
 * Sprinter Team; коды 0/1 — legacy, не использовать). */
 #define CBL_FREQ_7K8    0x8    /*   7.8125 кГц */
@@ -10,4 +10,11 @@
 extern void (*_atexit_stack[ATEXIT_MAX])(void);
 extern int   _atexit_top;

+/* Разматыватель цепочки (LIFO) — общее тело exit() и возврата из main. */
+void _atexit_run(void);
+
+/* Указатель на него для crt0; ставит atexit() при первой регистрации.
+ * Подробности и мотивация косвенности — в шапке _atexit_hook.c. */
+extern void (*_atexit_hook)(void);
+
 #endif
@@ -0,0 +1,18 @@
+/*
+ * _atexit_hook — указатель на разматыватель цепочки atexit; его дёргает
+ * crt0 при ВОЗВРАТЕ ИЗ main.
+ *
+ * ЗАЧЕМ КОСВЕННОСТЬ.  По стандарту C возврат из main эквивалентен
+ * exit(status), то есть цепочка atexit обязана размотаться.  Но прямая
+ * ссылка crt0 на разматыватель притащила бы в КАЖДУЮ программу и его, и
+ * весь стек хендлеров — включая те, что atexit() не зовут вовсе.  Поэтому
+ * crt0 ссылается на этот модуль (два байта _DATA, ни байта кода), а
+ * заполняет указатель сам atexit() при первой регистрации: нет
+ * регистраций — указатель нулевой, разматыватель в программу не приезжает,
+ * crt0 просто уходит в ESTEX EXIT как раньше.  Тот же приём, что у
+ * _irq_cbl_hook в libc/irq.
+ */
+
+#include "_atexit.h"
+
+void (*_atexit_hook)(void);
@@ -0,0 +1,22 @@
+/*
+ * _atexit_run — размотать цепочку atexit-хендлеров (LIFO).
+ *
+ * Общее тело для двух входов: явного exit() и возврата из main (там его
+ * зовёт crt0 через _atexit_hook).  Отдельным модулем — чтобы программа,
+ * не зарегистрировавшая ни одного хендлера, не получала этот код вовсе.
+ *
+ * Вершина сбрасывается ПЕРЕД вызовом каждого хендлера: если хендлер сам
+ * позовёт exit(), цепочка не пойдёт по второму кругу.
+ */
+
+#include "_atexit.h"
+
+void _atexit_run(void)
+{
+    while (_atexit_top > 0) {
+        void (*fn)(void) = _atexit_stack[--_atexit_top];
+        if (fn) {
+            fn();
+        }
+    }
+}
@@ -3,9 +3,11 @@
 * завершении (exit()), максимум 8, порядок LIFO.  Возвращает 0 или -1
 * при переполнении стека хендлеров.
 *
- * Внимание: возврат из main() без явного exit() уходит в inline RST
- * 10h #41 в crt0.s и цепочку atexit НЕ выполняет — программам с
- * хендлерами нужно завершаться через exit().
+ * ВОЗВРАТ ИЗ main ТОЖЕ РАЗМАТЫВАЕТ ЦЕПОЧКУ (с 2026-09-02), как и требует
+ * стандарт C.  Раньше crt0 уходил из main прямо в ESTEX EXIT, и хендлеры
+ * не выполнялись: программа теряла и сброс файловых буферов (_fclosall), и
+ * гашение звука, если не звала exit() явно.  Теперь первая регистрация
+ * ставит _atexit_hook, а crt0 его дёргает — см. _atexit_hook.c.
 */

 #include <stdlib.h>
@@ -17,5 +19,8 @@ int atexit(void (*fn)(void))
        return -1;
    }
    _atexit_stack[_atexit_top++] = fn;
+    /* Хендлеры появились — значит crt0 обязан размотать цепочку и при
+     * простом `return` из main.  Ставим каждый раз: проверка дороже. */
+    _atexit_hook = _atexit_run;
    return 0;
 }
@@ -9,11 +9,6 @@

 void exit(int code)
 {
-    while (_atexit_top > 0) {
-        void (*fn)(void) = _atexit_stack[--_atexit_top];
-        if (fn) {
-            fn();
-        }
-    }
+    _atexit_run();
    _exit(code);
 }
@@ -22,6 +22,7 @@

    .module crt0
    .globl  _main
+    .globl  __atexit_hook

    ;; Linker-emitted symbols (resolved at link time).
    .globl  s__INITIALIZER
@@ -88,6 +89,22 @@ _start::
    ld    de, (_argv)
    call  _main

+    ;; Returning from main is exit(status) per the C standard, so the
+    ;; atexit chain must run here too.  The call is INDIRECT on purpose:
+    ;; atexit() fills __atexit_hook on its first registration, so programs
+    ;; that never register anything keep it NULL and link neither the
+    ;; unwinder nor the handler stack (see libc/sys/_atexit_hook.c).
+    push  de                         ; DE = int return of main
+    ld    hl, (__atexit_hook)
+    ld    a, h
+    or    a, l
+    jr    Z, atexit_done
+    ld    de, #atexit_done
+    push  de                         ; return address: Z80 has no `call (hl)`
+    jp    (hl)
+atexit_done:
+    pop   de
+
    ;; SDCC's int return → DE.  Low byte is the exit code.
    ld    a, e
    ld    b, a
@@ -27,6 +27,7 @@

    .module crt0_banked
    .globl  _main
+    .globl  __atexit_hook
    .globl  _n_banks
    .globl  _bank_pages

@@ -218,6 +219,22 @@ skip_bank_load:
    ld    de, (_argv)
    call  _main

+    ;; Returning from main is exit(status) per the C standard, so the
+    ;; atexit chain must run here too.  The call is INDIRECT on purpose:
+    ;; atexit() fills __atexit_hook on its first registration, so programs
+    ;; that never register anything keep it NULL and link neither the
+    ;; unwinder nor the handler stack (see libc/sys/_atexit_hook.c).
+    push  de                         ; DE = int return of main
+    ld    hl, (__atexit_hook)
+    ld    a, h
+    or    a, l
+    jr    Z, atexit_done
+    ld    de, #atexit_done
+    push  de                         ; return address: Z80 has no `call (hl)`
+    jp    (hl)
+atexit_done:
+    pop   de
+
    ;; main returned: int return is in DE per SDCC 4.5 __sdcccall(1).
    ld    a, e
    jr    exit_with_a
@@ -0,0 +1,83 @@
+#!/usr/bin/env python3
+"""
+check_w0_isr.py — предупредить, что ISR-стаб W0-страниц оказался в W1.
+
+Зачем.  Программа может временно маппить свою EMM-страницу в W0 (атласы
+спрайтов в sprite_update, ресурсы через gfx_w0_map).  Пока страница там,
+ЛЮБОЕ прерывание уходит на #0038 ЭТОЙ страницы, поэтому gfx_w0_page_prepare()
+прошивает туда `JP _gfx_w0_isr`, а стаб возвращает страницу ядра DSS, зовёт
+честный обработчик и восстанавливает страницу обратно.
+
+Мина.  Сам стаб живёт в _CODE.  В режимах small и huge _CODE начинается с
+0x4100, то есть попадает в W1 — окно, которое DSS перемаппит на время СВОИХ
+вызовов (docs/new/04-memory.md §4.2, §4.9).  Если прерывание придёт, пока
+наша страница в W0 И идёт вызов DSS, переход уйдёт по адресу, которого в этот
+момент нет: W1 читается как #FF, процессор уползает в бесконечный пролог
+системного прерывания.  Само libbgi это документирует в common/_gfx_w0_isr.c
+(«обязан быть в W2»).
+
+Собирается это МОЛЧА и проявляется НЕДЕТЕРМИНИРОВАННО — зависанием примерно
+на каждом третьем холодном старте, что легко списать на случайность.  Поймано
+вживую 2026-09-01 в порте Loom (huge): стаб был на 0x6769.
+
+Как проверяем.  По .map берём адрес __gfx_w0_isr.  Если символа нет — W0-путь
+в программу не слинкован, молча выходим.  Если адрес >= 0x8000 — он в W2, всё
+хорошо.  Иначе печатаем WARNING: сборку не валим, потому что программа могла
+и не класть свои страницы в W0.
+
+Лечение (со стороны приложения): вернуть модули из банков в резидент или
+разгрузить _DATA так, чтобы _CODE перевалил за 0x8000 и хвост libbgi уехал в
+W2.  Порядок линковки сам по себе не помогает: пока весь _CODE влезает в W1
+(ёмкость 0x8000-0x4100 = 16128 Б), расстановка модулей ничего не меняет.
+"""
+import re
+import sys
+from pathlib import Path
+
+W2_BASE = 0x8000
+SYM = '__gfx_w0_isr'
+MAP_RE = re.compile(r'^\s+([0-9A-Fa-f]{4,8})\s+(\S+)\s')
+
+
+def find_symbol(map_path, name):
+    for line in map_path.read_text(errors='replace').splitlines():
+        m = MAP_RE.match(line)
+        if m and m.group(2) == name:
+            return int(m.group(1), 16)
+    return None
+
+
+def main(argv):
+    if len(argv) != 2:
+        print(__doc__.strip())
+        return 2
+    build = Path(argv[1])
+    maps = list(build.glob('*.map'))
+    if not maps:
+        print(f'check_w0_isr: нет .map в {build}', file=sys.stderr)
+        return 2
+
+    addr = find_symbol(maps[0], SYM)
+    if addr is None:
+        return 0          # W0-путь не слинкован — проверять нечего
+    if addr >= W2_BASE:
+        print(f'check_w0_isr: {SYM} @ 0x{addr:04X} — в W2, ок')
+        return 0
+
+    print(f'check_w0_isr: ВНИМАНИЕ — {SYM} @ 0x{addr:04X} лежит в W1.',
+          file=sys.stderr)
+    print('  Если программа маппит свои страницы в W0 (атласы спрайтов, '
+          'gfx_w0_map,', file=sys.stderr)
+    print('  atlas_attach), прерывание во время вызова DSS уйдёт в '
+          'перемапленное W1 —', file=sys.stderr)
+    print('  недетерминированные зависания на старте.  Стаб обязан быть в W2 '
+          f'(>= 0x{W2_BASE:04X}).', file=sys.stderr)
+    print('  Лечение: увести _CODE за 0x8000 (модули из банков в резидент / '
+          'разгрузить', file=sys.stderr)
+    print('  _DATA).  Подробности — в шапке этого скрипта и '
+          'docs/new/04-memory.md §4.2.', file=sys.stderr)
+    return 0          # предупреждение, сборку не валим
+
+
+if __name__ == '__main__':
+    sys.exit(main(sys.argv))