Sprinter-SDCC/applications/PoP/roomtest/pop_sfx_cold.c

/*
 * pop_sfx_cold.c — ХОЛОДНАЯ половина звука: поднять набор и открыть CBL.
 * Отрабатывает один раз за запуск, поэтому живёт в банке 8; горячая
 * половина (насос, запуск эффекта) — в резиденте, см. pop_sfx.c.
 */

#include <stdint.h>
#include <sprinter_mem.h>
#include <cbl.h>
#include "pop_sfx.h"
#include "pop_arc.h"
#define POP_SND_FILES      /* имена файлов нужны ТОЛЬКО здесь, см. pop_sound_tbl.h */
#include "_pop_sfx.h"

static uint8_t snd_blk;              /* блок EMM под весь набор */

int pop_sfx_init(void) __banked
{
    uint8_t i, blk;

    if (pop_snd_ok) return 0;

    /* Одним блоком: страницы блока идут подряд по логическому индексу, и
     * таблица звуков адресует их именно так (page = смещение >> 14).
     *
     * Из АРХИВА, а не десятью файлами: `open` стоит 51,4 мс против 32,6 мс
     * на чтение 16 КБ (замер 2026-08-25), то есть девять лишних открытий —
     * это почти полсекунды на ровном месте.  Таблица живёт на стеке, см.
     * pop_arc.h. */
    {
        pop_arc_t arc;
        uint8_t tbl[POP_SND_PAGES * POP_ARC_REC];

        if (pop_arc_open(&arc, "SND\\snd.arc", tbl, POP_SND_PAGES) !=
            POP_SND_PAGES)
            return -1;
        blk = mem_alloc_pages(POP_SND_PAGES);
        if (!blk) { pop_arc_close(&arc); return -1; }
        for (i = 0; i < POP_SND_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_arc_close(&arc);
    }
    snd_blk = blk;
    pop_snd_want = 1;                    /* набор есть — звук по умолчанию включён */
    return 0;
}

/* ЗАПУСТИТЬ ВЫВОД — ОТДЕЛЬНО ОТ ЗАГРУЗКИ, и это не косметика.
 *
 * Пока идёт чтение файлов, CBL держать открытым НЕЛЬЗЯ: ESTEX уходит в
 * диск надолго, насос не успевает долить очередные 128 байт, и железо
 * крутит по кругу хвост своего 256-байтового буфера.  На слух это
 * сплошной скрежет (поймано пользователем на старте, 2026-08-20).
 * Поэтому загрузка страниц и открытие CBL разведены: грузим молча,
 * включаем звук последним действием, а на время загрузки уровня глушим
 * (pop_sfx_pause).
 *
 * Параметры: 10 937,5 Гц, 8 бит моно — формат данных один в один
 * (sound_plan.md).  OTIR, а не акселератор: тот нужен только для 16 бит.
 * cbl_open, а не cbl_open_silence: тишину насос льёт СВОЮ (первый блок
 * набора), и просить у libc буфер через malloc не надо — куча в резиденте
 * W2 тесная, и её отказ ронял бы весь звук.  Заодно так malloc вообще не
 * приезжает в резидент (275 Б, см. libc/cbl/_cbl_open_raw.c). */
int pop_sfx_start(void) __banked
{
    if (pop_snd_ok)   return 0;
    if (!pop_snd_want) return 0;            /* выключено пользователем (Ctrl+S) */
    if (!snd_blk)      return -1;           /* набор не загружен */
    if (cbl_open(CBL_FREQ_10K9, CBL_FMT_MONO8, CBL_PUMP_OTIR,
                 pop_sfx_fill) != 0)
        return -1;
    pop_snd_ok = 1;
    return 0;
}

void pop_sfx_pause(void) __banked
{
    if (!pop_snd_ok) return;
    pop_sfx_stop();
    cbl_close();
    pop_snd_ok = 0;
}

void pop_sfx_close(void) __banked
{
    pop_sfx_pause();
    if (snd_blk) { mem_free_block(snd_blk); snd_blk = 0; }
}

/* Ctrl+S — порт `turn_sound_on_off((!is_sound_on) * 15)` из SDLPoP
 * (seg000:657).  Выключение реально ЗАКРЫВАЕТ CBL, а не глушит сэмпл:
 * иначе насос продолжал бы отдавать блоки тишины 85 раз в секунду, а это
 * 3,3 % процессорного времени ни за что (замер: 8 001 такт на прерывание
 * при периоде 245 759).  Открытие обратно дешёвое — cbl_open только
 * настраивает железо, страницы набора никуда не девались. */
void pop_sfx_toggle(void) __banked
{
    if (pop_snd_want) {
        pop_sfx_pause();                 /* pause сам не трогает want... */
        pop_snd_want = 0;                /* ...поэтому гасим его следом   */
    } else {
        pop_snd_want = 1;
        /* Набора может не быть вовсе (файлы не прочитались, страницы не
         * дались) — тогда откатываем флаг, чтобы индикация не врала. */
        if (pop_sfx_start() != 0) pop_snd_want = 0;
    }
}