Ресурсы — в архивы PBA1; тайминги сцены PV — по часам насоса CBL

ТАЙМИНГИ.  Пользователь заметил, что заклинание Джафара не совпадает с
музыкой. Замер в MAME (breakpoint на вспышке + курсор трека): реплика m53
успевала ДОИГРАТЬ до молнии, хотя по шкале оригинала между входом Джафара
и заклинанием ровно 822 тика = 13,7 с.

Причина: пейсинг считал НАШИ ожидания vsync, а не прошедшее время.
Полноэкранная копия страницы стоит больше кадра луча, и разница копилась.
Кадровые прерывания для счёта не годятся (теряются в di-окнах
акселератора), поэтому часами стал насос CBL: он идёт от расхода буфера
железом, 85,4 Гц, и ему безразлично, чем занят главный цикл. Один тик
оригинала = 57/40 тика насоса (0,07 % ошибки, без деления в кадре).
Когда звук выключен, работает прежний путь по кадрам луча.

После фикса замер даёт 229 блоков остатка m53 против расчётных 233 —
расхождение 47 мс.

АРХИВЫ.  Группы ресурсов сложены в PBA1: kid (58 атласов), pv (78),
shadow (32), bg (25), title (20), guard (10), vizier (5), skel (4). Было
232 файла на образе, стало 8 архивов плюс шесть палитр и таблицы уровней.
При цене `open` 51,4 мс против 32,6 мс за чтение 16 КБ это возвращает
секунды на каждой загрузке.

- pop_pack_arc.py печатает индексы элементов константами (ARC_<GRP>_<FILE>),
  порядок задаёт Makefile, а серии код проверяет статически;
- atlas_load разделён: atlas_attach принимает уже прочитанную страницу,
  поэтому чтение из архива не дублирует проверку магии и подготовку W0;
- имена архивов живут в pop_arc.c и адресуются номером. Строковый литерал
  лежит в rodata своего банка, и указатель на него из другого банка после
  переключения W3 показывает на чужие данные — ровно так падала загрузка
  фона (поймано брейкпоинтом на puts).

Проверено в MAME: заставка, интро и уровень 1 собираются из архивов,
Тень грузит все 32 страницы. Host-тесты: 15 наборов.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>

applications/PoP/roomtest/pop_room.c

@@ -22,6 +22,8 @@
 #include "_pop_bg.h"    /* контракт с горячей половиной (pop_bg.c, банк 2) */
 #include "pop_tile.h"   /* общие листья слоя фона (резидент): блит, тайлы, таблица */
 #include "_pop_draw.h"   /* pop_onscreen_cols / pop_heal_fast */
+#include "pop_arc.h"
+#include "bg_arc.h"
 #include "pop_state.h"
 #include "pop_redraw.h"   /* пометки тайлов: сосед падающего куска (draw_mob) */
 #include "pop_geom.h"
@@ -57,6 +59,12 @@ static uint8_t bg_set = 0xFF;               /* какой набор сейча
  * персонаж, GUARD — стражи, LEVELS — уровни.  Иначе корень диска зарастает
  * десятками .atl.  Путь склеиваем на месте: держать по строке на каждый из
  * двадцати атласов — лишние полкилобайта в банке. */
+/* Шаг набора в архиве: десять env + wall + fore. */
+#define BG_SET_STRIDE  (POP_ENV_PAGES + 2)
+#if (ARC_BG_PAL_ENV0 - ARC_BG_POP_ENV0) != BG_SET_STRIDE
+#error "тайлсеты в архиве фона лежат не по двенадцать атласов"
+#endif
+
 static char bg_path_buf[20];
 
 static const char *bg_path(const char *name)
@@ -198,12 +206,33 @@ int pop_bg_load(uint8_t set) __banked
         atlas_free(&pop_wall_at);
         atlas_free(&pop_fore_at);
     }
-    for (i = 0; i < POP_ENV_PAGES; i++)
-        if (atlas_load(&pop_env[i], bg_path(pop_env_atl[set][i])) != 0) return -1;
-    if (atlas_load(&pop_wall_at, bg_path(pop_wall_atl[set])) != 0) return -1;
-    if (atlas_load(&pop_fore_at, bg_path(pop_fore_atl[set])) != 0) return -1;
-    if (bg_set == 0xFF &&                   /* chtab_1 от набора не зависит */
-        atlas_load(&pop_pot_at, bg_path(POP_POT_ATL)) != 0) return -1;
+    /* Двадцать пять атласов фона лежат в одном архиве: двенадцать на
+     * тайлсет подряд плюс общий chtab_1.  Открываем его ОДИН раз на смену
+     * набора — при цене `open` 51,4 мс это и есть основная экономия. */
+    {
+        uint8_t tbl[ARC_BG_COUNT * POP_ARC_REC];
+        pop_arc_t arc;
+        uint8_t base = (uint8_t)(set * BG_SET_STRIDE);
+        int8_t bad = 0;
+
+        if (pop_arc_open_id(&arc, POP_ARC_BG, tbl, ARC_BG_COUNT) < 0) return -1;
+        for (i = 0; i < POP_ENV_PAGES && !bad; i++)
+            bad = (int8_t)(pop_arc_atlas(&arc, tbl, (uint8_t)(base + i),
+                                         &pop_env[i]) != 0);
+        if (!bad)
+            bad = (int8_t)(pop_arc_atlas(&arc, tbl,
+                                         (uint8_t)(base + POP_ENV_PAGES),
+                                         &pop_wall_at) != 0);
+        if (!bad)
+            bad = (int8_t)(pop_arc_atlas(&arc, tbl,
+                                         (uint8_t)(base + POP_ENV_PAGES + 1),
+                                         &pop_fore_at) != 0);
+        if (!bad && bg_set == 0xFF)         /* chtab_1 от набора не зависит */
+            bad = (int8_t)(pop_arc_atlas(&arc, tbl, ARC_BG_POP_POT,
+                                         &pop_pot_at) != 0);
+        pop_arc_close(&arc);
+        if (bad) return -1;
+    }
     bg_set = set;
     pop_palace = (uint8_t)(set == 1);
     mob_spr_build();                        /* композит падающего куска — свой на набор */