Архивы ресурсов PBA1: звук одним файлом, музыка потоком; ALLOCS 6000

ЗАМЕР, из которого всё выросло (MAME, 2026-08-25): `open` стоит 51,4 мс,
а чтение 16 КБ из уже открытого файла — 32,6 мс.  То есть 61 % времени
загрузки уходит на ОТКРЫТИЕ, а не на данные, и чистая скорость чтения —
491 КБ/с, а не 260.  На диске игры 343 файла; одна только стартовая пачка
(kid+shadow+bg+sound+guard, ~142 файла) — это 7,3 секунды чистого open.

* toolchain/pop_pack_arc.py + pop_arc.c/h (банк 8) — формат PBA1:
  заголовок 512 Б, магия, count, записи по 4 байта (offset в СЕКТОРАХ —
  архив бывает больше 64 КБ; size в байтах — ресурс всегда <= 16 КБ,
  он обязан лезть в EMM-страницу).  Таблицу держит вызывающий на своём
  стеке: в W2 её класть нельзя, а стека в точке загрузки израсходовано
  75 байт из 1279 (замер там же).
* libc: bank_read_page — чтение из УЖЕ ОТКРЫТОГО файла в EMM-страницу.
  bank_load_file переписана через неё, поэтому дублирования работы с W3
  не осталось и резидент почти не вырос.
* Набор эффектов: 10 файлов -> SND\snd.arc, один open вместо десяти.
* Музыка: трек лежит ОДНИМ файлом и читается порциями по странице —
  нарезка на куски больше не нужна.  Этот же путь понадобится финалу
  `won` (1,2 МБ), который в память целиком не влезает.
* Менеджер звука приведён к оригиналу: играющая музыка участвует в
  таблицах приоритета наравне с эффектами (seg000:1672 + data.h:433).
  Почти вся музыка НЕперебиваема, поэтому поверх неё эффект не стартует —
  ровно как в SDLPoP; раньше эффект её перебивал.
* ALLOCS 3000 -> 6000 (решение пользователя): сборка +20 с, резидент
  -161 байт.  Куча 87 -> 248 Б.

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

applications/PoP/roomtest/pop_music.c

@@ -10,6 +10,8 @@
  * тянем, а тут и формат-то из двух чисел.
  */
 #include <stdint.h>
+#include <fcntl.h>
+#include <unistd.h>
 #include <sprinter_mem.h>
 #include "pop_music.h"
 #include "pop_music_tbl.h"
@@ -19,19 +21,17 @@ uint8_t pop_mus_page[POP_MUS_PAGES];
 static uint8_t mus_blk;              /* блок EMM под трек */
 static uint8_t mus_pages;            /* сколько страниц реально занято */
 static uint16_t mus_blocks;          /* длина трека в порциях по 128 Б */
+static uint8_t mus_id;               /* что загружено — для менеджера звука */
 
-/* "MUS\mNN_KK.bin" — ровно 8.3, как требует DSS. */
-static void mus_name(char *buf, uint8_t id, uint8_t chunk)
+/* "MUS\mNN.bin" — ровно 8.3, как требует DSS. */
+static void mus_name(char *buf, uint8_t id)
 {
     buf[0] = 'M'; buf[1] = 'U'; buf[2] = 'S'; buf[3] = '\\';
     buf[4] = 'm';
     buf[5] = (char)('0' + id / 10);
     buf[6] = (char)('0' + id % 10);
-    buf[7] = '_';
-    buf[8] = (char)('0' + chunk / 10);
-    buf[9] = (char)('0' + chunk % 10);
-    buf[10] = '.'; buf[11] = 'b'; buf[12] = 'i'; buf[13] = 'n';
-    buf[14] = 0;
+    buf[7] = '.'; buf[8] = 'b'; buf[9] = 'i'; buf[10] = 'n';
+    buf[11] = 0;
 }
 
 void pop_music_stop(void) __banked
@@ -52,29 +52,39 @@ void pop_music_free(void) __banked
 
 int8_t pop_music_load(uint8_t id) __banked
 {
-    char name[15];
+    char name[12];
     uint8_t i, pages;
+    int fd;
 
     if (id >= POP_MUS_COUNT) return -1;
     pages = pop_mus_tbl[id].pages;
     if (!pages || pages > POP_MUS_PAGES) return -1;
 
     pop_music_free();
+    mus_name(name, id);
+    /* Трек лежит ОДНИМ файлом и читается порциями по странице: `open` стоит
+     * дороже самого чтения (51,4 мс против 32,6 мс на 16 КБ), и платить его
+     * на каждую страницу — чистые потери.  Тот же путь понадобится финалу
+     * `won`, который в память целиком не влезает. */
+    fd = open(name, O_RDONLY);
+    if (fd < 0) return -1;
     mus_blk = mem_alloc_pages(pages);
-    if (!mus_blk) return -1;
+    if (!mus_blk) { close(fd); return -1; }
     for (i = 0; i < pages; i++) {
         pop_mus_page[i] = mem_get_page(mus_blk, i);
-        mus_name(name, id, i);
-        /* Последний кусок короче страницы — читаем сколько есть; ошибку
-         * ловим по отрицательному коду, а не по «не 16384». */
+        /* Последняя страница короче — читаем сколько есть; ошибку ловим по
+         * отрицательному коду, а не по «не 16384». */
         if (!pop_mus_page[i] ||
-            bank_load_file(pop_mus_page[i], 0, name, 16384) < 0) {
+            bank_read_page(fd, pop_mus_page[i], 0, 16384) < 0) {
+            close(fd);
             pop_music_free();
             return -1;
         }
     }
+    close(fd);
     mus_pages = pages;
     mus_blocks = pop_mus_tbl[id].blocks;
+    mus_id = id;
     return 0;
 }
 
@@ -84,6 +94,7 @@ void pop_music_play(void) __banked
     /* Порядок важен: сначала позиция, потом длина.  Насос стартует ровно
      * с той порции, где left стал ненулевым, и промежуточное состояние
      * «играем, но курсор от прошлого трека» не возникает. */
+    pop_mus_id = mus_id;             /* до left: менеджер спросит уже готовое */
     pop_mus_pg = 0;
     pop_mus_ptr = 0;
     pop_mus_left = mus_blocks;