Ресурсы — в архивы 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_kboot.c

@@ -16,23 +16,46 @@
 #include "kid_data.h"
 #include "pop_vflip.h"
 #include "pop_guard.h"   /* pop_guard_vflip_load — зеркала соперника */
+#include "pop_arc.h"
+#include "kid_arc.h"
+
+/* Серии в архиве обязаны лежать подряд — так их кладёт список в Makefile,
+ * и только поэтому индекс считается сложением.  Если порядок собьётся,
+ * сборка встанет здесь, а не рассыплется картинкой на экране. */
+#if (ARC_KID_KID27 - ARC_KID_KID0) != 27
+#error "kid0..kid27 в архиве не подряд"
+#endif
+#if (ARC_KID_KID27_V - ARC_KID_KID0_V) != 27
+#error "kid0_v..kid27_v в архиве не подряд"
+#endif
 
 #define KID_MAXPAGES 28
 
+/* Таблица архива живёт на стеке вызывающего (4 байта на запись, здесь 232)
+ * — держать её постоянно незачем, а W2 у игры и без того тесный. */
 int pop_kid_load(uint8_t npages) __banked
 {
-    static const char *const names[KID_MAXPAGES] = {
-        "KID\\kid0.atl","KID\\kid1.atl","KID\\kid2.atl","KID\\kid3.atl","KID\\kid4.atl","KID\\kid5.atl",
-        "KID\\kid6.atl","KID\\kid7.atl","KID\\kid8.atl","KID\\kid9.atl","KID\\kid10.atl","KID\\kid11.atl",
-        "KID\\kid12.atl","KID\\kid13.atl","KID\\kid14.atl","KID\\kid15.atl","KID\\kid16.atl","KID\\kid17.atl",
-        "KID\\kid18.atl","KID\\kid19.atl","KID\\kid20.atl","KID\\kid21.atl","KID\\kid22.atl","KID\\kid23.atl",
-        "KID\\kid24.atl","KID\\kid25.atl","KID\\kid26.atl","KID\\kid27.atl"
-    };
+    uint8_t tbl[ARC_KID_COUNT * POP_ARC_REC];
+    pop_arc_t arc;
     uint8_t i;
+
     if (npages > KID_MAXPAGES) npages = KID_MAXPAGES;
+    if (pop_arc_open_id(&arc, POP_ARC_KID, tbl, ARC_KID_COUNT) < 0) return -1;
     for (i = 0; i < npages; i++)
-        if (atlas_load(&kidp[i], names[i]) != 0)
+        if (pop_arc_atlas(&arc, tbl, (uint8_t)(ARC_KID_KID0 + i),
+                          &kidp[i]) != 0) {
+            pop_arc_close(&arc);
             return -1;
+        }
+    /* Меч — из того же открытого архива: без него кадры 229+ идут без
+     * клинка, а второй open стоил бы дороже самого чтения. */
+    {
+        atlas_t sword;
+
+        if (pop_arc_atlas(&arc, tbl, ARC_KID_SWORD, &sword) == 0)
+            (void)pop_sword_take(&sword);
+    }
+    pop_arc_close(&arc);
     kid_npages = npages;
     return 0;
 }
@@ -73,21 +96,28 @@ void pop_kid_data_free(void) __banked
  * только через него).  Идемпотентна. */
 int pop_vflip_load_all(void) __banked
 {
-    static const char *const kidv[KID_MAXPAGES] = {
-        "KID\\kid0_v.atl","KID\\kid1_v.atl","KID\\kid2_v.atl","KID\\kid3_v.atl",
-        "KID\\kid4_v.atl","KID\\kid5_v.atl","KID\\kid6_v.atl","KID\\kid7_v.atl",
-        "KID\\kid8_v.atl","KID\\kid9_v.atl","KID\\kid10_v.atl","KID\\kid11_v.atl",
-        "KID\\kid12_v.atl","KID\\kid13_v.atl","KID\\kid14_v.atl","KID\\kid15_v.atl",
-        "KID\\kid16_v.atl","KID\\kid17_v.atl","KID\\kid18_v.atl","KID\\kid19_v.atl",
-        "KID\\kid20_v.atl","KID\\kid21_v.atl","KID\\kid22_v.atl","KID\\kid23_v.atl",
-        "KID\\kid24_v.atl","KID\\kid25_v.atl","KID\\kid26_v.atl","KID\\kid27_v.atl"
-    };
+    uint8_t tbl[ARC_KID_COUNT * POP_ARC_REC];
+    pop_arc_t arc;
     uint8_t i;
     int res = 0;
+
     if (pop_vflip_ready()) return 0;
-    for (i = 0; i < kid_npages; i++)
-        if (pop_vflip_add(&kidp[i], kidv[i]) != 0) res = -1;
-    if (pop_sword_vflip_load() != 0) res = -1;
+    if (pop_arc_open_id(&arc, POP_ARC_KID, tbl, ARC_KID_COUNT) < 0) return -1;
+    for (i = 0; i < kid_npages; i++) {
+        atlas_t m;
+
+        if (pop_arc_atlas(&arc, tbl, (uint8_t)(ARC_KID_KID0_V + i), &m) != 0 ||
+            pop_vflip_take(&kidp[i], &m) != 0)
+            res = -1;
+    }
+    {
+        atlas_t sword_v;
+
+        if (pop_arc_atlas(&arc, tbl, ARC_KID_SWORD_V, &sword_v) != 0 ||
+            pop_sword_vflip_take(&sword_v) != 0)
+            res = -1;
+    }
+    pop_arc_close(&arc);
     if (pop_guard_vflip_load() != 0) res = -1;
     return res;
 }