L3-CHOMP: чомперы — анимация, отрисовка и смерть в челюстях

Порт SDLPoP:
  animate_chomper / start_chompers / start_anim_chomper /
  next_chomper_timing (seg007) -> pop_trob.c;
  draw_tile_anim + draw_tile_fore, ветка tiles_18_chomper (seg008) ->
  pop_room.c (низ/кровь/верх, backtable) и pop_bg.c (передний слой);
  check_chomped_kid / check_chomped_guard / chomped (seg004) -> pop_map.c.

Состояние — в room_modif, как у пик и ворот: младшие 7 бит фаза 1..N,
старший бит «перемололо кого-то» (кровь остаётся на тайле навсегда).
Номер позы chomper_fram1 и передние куски лежат в РЕЗИДЕНТЕ (pop_tile.c):
их читают обе половины слоя фона, а const-таблица банка из чужого банка
не видна.

start_chompers зовётся там же, где в оригинале: SEQ_UP/SEQ_DOWN в play_seq
(pop_kid.c), start_fall и land (pop_map.c), вход в комнату (roomtest.c).
Поэтому чомперы щёлкают только пока персонаж в ИХ ряду — так в оригинале.

check_chomped_guard у оригинала отдельное тело (страж не проходит через
check_collisions).  У нас та же формула уже есть в get_row_collision_data,
поэтому флаги ряда считаются во ВРЕМЕННЫЙ массив: coll_curr/above/below —
это кадр Кида, из них move_coll_to_prev берёт прошлые флаги, затирание
сломало бы ему бамп.

Период смыкания — POP_CHOMPER_SPEED в pop_tune.h (15, как в оригинале).

Заодно: устаревшая заглушка pop_fore_set_clip в tests-host была __banked,
хотя функция давно переехала в резидент — всплыло при пересборке.

Ассеты уже были упакованы (pop_pack_bg.py, 2026-08-07).  Банк 6: 20.0 %,
банк 7: 39.7 %, банк 3: 53.8 %.  tests-host зелёные (5 наборов).
Зубья в MAME рисуются; анимация и смерть — на ручной приёмке.

applications/PoP/roomtest/pop_bg.c

@@ -332,6 +332,13 @@ static void fore_only_tile(int row, int col)
         if (sf > 0 && sf < 10 && SPIKES_FRAM_FORE[sf])
             pop_env_b(SPIKES_FRAM_FORE[sf], x, dmy - 2);
     }
+    if (code == 0x12) {                    /* чомпер: передний слой челюстей */
+        uint8_t cm = pop_tile_mod(row, col);
+        uint8_t pose = pop_chomp_pose(cm);
+        pop_env_b(POP_CHOMP_FRAM_FOR[pose], x, dmy);
+        if (cm & 0x80)                     /* кровь поверх переднего слоя */
+            pop_env_b((uint8_t)(pose + 119), x + 8, dmy - 6);
+    }
     if (code == 10) {                      /* зелье: склянка (пузырёк — динамика) */
         pop_potion_flask(row, col, pop_tile_mod(row, col));
     } else if (t->fore_id) {