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

@@ -11,6 +11,7 @@
 #include <sprite.h>
 #include "pop_bg.h"     /* POP_YOFF/POP_PLAYFIELD_H — граница игрового поля */
 #include "pop_font.h"
+#include "pop_arc.h"
 #include "pop_ui.h"
 #include "pop_status.h"
 
@@ -284,6 +285,22 @@ void pop_screen_present(uint8_t page) __banked
     gfx_set_visible_page(page);
 }
 
+/* Нарисовать одну полосу и отпустить её страницу.  Общая часть обоих
+ * загрузчиков ниже: они отличаются только тем, откуда взялся атлас. */
+static int strip_blit(atlas_t *at, int x, int *y)
+{
+    const uint8_t *img;
+
+    gfx_w0_map(at->page);
+    img = (const uint8_t *)atlas_image(at, 0);
+    /* gfx_blit_noclip ограничен шириной uint8 и обрезает 320px. */
+    gfx_blit(x, *y, img);
+    *y += img[2];
+    gfx_w0_unmap();
+    atlas_free(at);
+    return 0;
+}
+
 /* Полноэкранные изображения не помещаются одним getimage в EMM-страницу.
  * Общий загрузчик полос держит лишь одну страницу и не трогает page flip:
  * caller уже собрал скрытую страницу и сам решает, когда её показать. */
@@ -295,16 +312,29 @@ int pop_screen_blit_atlas_strips(const char * const *parts,
     gfx_set_bank(GFX_BANK_NORMAL);
     for (part = 0; part < count; part++) {
         atlas_t at;
-        const uint8_t *img;
 
         if (atlas_load(&at, parts[part]) != 0) return -1;
-        gfx_w0_map(at.page);
-        img = (const uint8_t *)atlas_image(&at, 0);
-        /* gfx_blit_noclip ограничен шириной uint8 и обрезает 320px. */
-        gfx_blit(x, y, img);
-        y += img[2];
-        gfx_w0_unmap();
-        atlas_free(&at);
+        strip_blit(&at, x, &y);
+    }
+    return 0;
+}
+
+/* То же самое, но полосы лежат подряд в АРХИВЕ (заставка, story, PV): один
+ * `open` на весь экран вместо пяти — при цене открытия 51,4 мс против
+ * 32,6 мс на чтение это больше половины времени показа. */
+int pop_screen_blit_atlas_arc(pop_arc_t *arc, const uint8_t *tbl,
+                              uint8_t base, uint8_t count,
+                              int x, int y) __banked
+{
+    uint8_t part;
+
+    gfx_set_bank(GFX_BANK_NORMAL);
+    for (part = 0; part < count; part++) {
+        atlas_t at;
+
+        if (pop_arc_atlas(arc, tbl, (uint8_t)(base + part), &at) != 0)
+            return -1;
+        strip_blit(&at, x, &y);
     }
     return 0;
 }