libc/cbl: две точки входа вместо underrun_mode — malloc больше не в резиденте

Линкер тянет .rel целиком, поэтому malloc/free, стоявшие в мёртвой ветке
CBL_UNDERRUN_SILENCE внутри cbl_open, приезжали в резидент КАЖДОМУ
приложению — включая те, что льют тишину сами и кучей не пользуются.

Разведено:
  cbl_open(freq, fmt, pump, fill)          — ничего не аллоцирует;
  cbl_open_silence(freq, fmt, pump, fill)  — аллоцирует буфер тишины;
  _cbl_open_raw(...)                       — общее тело.
Параметр underrun_mode из публичного API убран: режим задаёт выбор функции.

cbl_close больше не зовёт free — иначе malloc возвращался бы тем же путём.
Буфер тишины живёт до выхода из программы и переиспользуется; его размер
запоминается, иначе открытие 16-бит после 8-бит писало бы memset'ом мимо
выделенного куска.  _cbl_open_raw указатель на буфер не трогает вовсе —
иначе cbl_open после cbl_open_silence терял бы уже выделенную память.

В дереве режим SILENCE не использовал никто: все три вызова (cblwav,
cblstream, PoP) передавали CBL_UNDERRUN_APP.

Итог для PoP: _CODE 24329 -> 23716 (−613 Б), свободно в резиденте 129 ->
747 Б.  make size-check чистый (67 программ), звук в MAME проверен —
насос отработал 696 запросов, pop_snd_ok/want = 1/1.

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

libc/cbl/cbl_open.c

@@ -1,89 +1,15 @@
 /*
- * cbl_open — включить CBL, зарегистрировать fill()-callback и один
- * из ISR-насосов.
+ * cbl_open — включить CBL, когда тишину при недоливе льёт САМО ПРИЛОЖЕНИЕ
+ * (режим CBL_UNDERRUN_APP).  Буфера не просит, поэтому НЕ ТЯНЕТ malloc —
+ * ради этого точки входа и разведены (см. шапку _cbl_open_raw.c).
  *
- * Управляющее слово: bit7 (CBL on) + bit4 (int enable) + fmt (bit6
- * stereo, bit5 16-бит) + freq_code.  Размер блока/буфер тишины
- * зависят от fmt и underrun_mode (см. cbl.h).  cbl_close вешается на
- * atexit.
- *
- * ЗАПРЕТ CBL_PUMP_OTIR + 16-бит (подтверждено чтением исходника MAME
- * sprinter.cpp): порт данных 0x4F ВСЕГДА кладёт байт как есть в один
- * слот, не собирая пару байт в 16-бит значение и не сверяясь с
- * cbl_mode16() вообще — это умеет только акселераторный путь (спец-
- * страница 0xFD, do_accel_block).  Комбинация принципиально не может
- * звучать правильно, поэтому запрещена (EINVAL).  Для 16-бит —
- * CBL_PUMP_ACCEL.
+ * Если тишина нужна от libc — cbl_open_silence() в соседнем модуле.
  */
 
-#include <stdlib.h>
-#include <string.h>
-#include <errno.h>
-#include <sprinter_exit.h>
 #include "_cbl.h"
-#include "../irq/_irq.h"
 
 int cbl_open(uint8_t freq_code, uint8_t fmt, uint8_t pump_mode,
-             uint8_t underrun_mode, cbl_fill_fn fill)
+             cbl_fill_fn fill)
 {
-    if (_irq_cbl_hook) { errno = EBUSY; return -1; }
-    if (freq_code < CBL_FREQ_7K8 || freq_code > CBL_FREQ_109K) {
-        errno = EINVAL;
-        return -1;
-    }
-    if (fmt & (uint8_t)~(CBL_FMT_MONO16 | CBL_FMT_STEREO8)) {
-        errno = EINVAL;   /* биты вне 5/6 — неизвестный формат */
-        return -1;
-    }
-    if (pump_mode != CBL_PUMP_OTIR && pump_mode != CBL_PUMP_ACCEL) {
-        errno = EINVAL;
-        return -1;
-    }
-    if (pump_mode == CBL_PUMP_OTIR && (fmt & CBL_FMT_MONO16)) {
-        errno = EINVAL;   /* OTIR не может собрать 16-бит сэмпл — только ACCEL */
-        return -1;
-    }
-    if (underrun_mode != CBL_UNDERRUN_APP && underrun_mode != CBL_UNDERRUN_SILENCE) {
-        errno = EINVAL;
-        return -1;
-    }
-
-    uint16_t block = (fmt & CBL_FMT_MONO16) ? 256u : 128u;
-
-    uint8_t *silence = 0;
-    if (underrun_mode == CBL_UNDERRUN_SILENCE) {
-        silence = malloc(block);
-        if (!silence) { errno = ENOMEM; return -1; }
-        memset(silence, (fmt & CBL_FMT_MONO16) ? 0x00 : 0x80, block);
-    }
-
-    if (_irq_table_ref() != 0) {
-        free(silence);
-        return -1;
-    }
-
-    _cbl_block         = block;
-    _cbl_reqs          = 0;
-    _cbl_undr          = 0;
-    _cbl_fill          = fill;
-    _cbl_underrun_mode = underrun_mode;
-    _cbl_silence       = silence;
-
-    static uint8_t atexit_armed;
-    if (!atexit_armed) {
-        atexit_armed = 1;
-        atexit(cbl_close);         /* CBL обязан умолкнуть до шелла */
-    }
-
-    IRQ_DISABLE();
-    _irq_cbl_hook = (pump_mode == CBL_PUMP_ACCEL) ? _cbl_pump_accel : _cbl_pump_otir;
-    _cbl_ctrl((uint8_t)(0x90 | fmt | freq_code));  /* on + int + формат + частота */
-    /* ...и НЕМЕДЛЕННО забить буфер тишиной: железо пускает воспроизведение
-     * с нулевого слота той же записью в порт управления, а буфер хранит
-     * старое содержимое — без этого первые 23 мс уходит мусор.  Заливка
-     * обязана быть внутри той же DI-скобки и сразу за включением (разбор —
-     * _cbl_prime.c). */
-    _cbl_prime((uint8_t)((fmt & CBL_FMT_MONO16) ? 0x00 : 0x80));
-    IRQ_ENABLE();
-    return 0;
+    return _cbl_open_raw(freq_code, fmt, pump_mode, CBL_UNDERRUN_APP, fill);
 }