irq: фикс Phase 1 после отладки — DSS работает в IM 1, чейн всегда на 0x0038

Первая версия висла на первом прерывании. Две причины (verified по
docs/samples/sprinterIntLib.asm, SIO_CTC_KEY.asm и исходникам MAME):

- DSS работает в IM 1 (обработчик 0x0038); I=0x3F — наследие Spectrum
  ROM, НЕ таблица: чтение [I<<8|0xFF] давало мусор (0x00BF) и прыжок в
  никуда. Чейн из трамплина теперь ВСЕГДА jp 0x0038 (interrupted-PC на
  стеке = имитация RST 38); irq_remove безусловно восстанавливает IM 1
- CBL-фильтр по биту 7 порта 0xFE убран: при выключенном CBL бит
  подтянут к 1 (MAME kbd_fe_r: data |= 0xE0) — каждый кадр ложно
  уходил в чейн, user-handler не вызывался бы. Вернуть в Phase 2
  вместе с поддержкой CBL

Попутно подтверждено: порт 0x19 = SIO-A RR0 (Z84C015), бит 0 = Rx
Available; вектора встроенной периферии SIO 0x10..0x1E / CTC 0x06
(заливка 257×H ловит любые); внешний вектор 0xFF.

irqtest: диагностика I до установки + фаза без ESTEX; прогон в MAME:
~49 Гц, клавиатура жива, remove останавливает тики, чистый выход.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
2026-07-07 09:05:28 +03:00
parent a6fe50e247
commit 5184415fc4
7 changed files with 126 additions and 57 deletions
+7 -9
View File
@@ -1,7 +1,10 @@
/*
* irq_remove — снять user-handler и вернуть IM2-таблицу DSS
* (I := сохранённое значение). Идемпотентно; вызывается и из atexit.
* Если DSS был в IM 1 (old_i == 0) — восстанавливаем IM 1.
* irq_remove — снять user-handler и вернуть систему в штатный режим
* DSS: I := сохранённое значение (наследие Spectrum ROM, обычно 0x3F)
* и ВСЕГДА IM 1 — DSS работает в IM 1, его обработчик на 0x0038
* (так же делают сэмплы сообщества: sprinterIntLib.asm
* intRestoreDefaultInterrupt, SIO_CTC_KEY.asm). Идемпотентно;
* вызывается и из atexit.
*/
#include "_irq.h"
@@ -10,13 +13,8 @@ static void irq_restore(uint8_t i_val) __naked
{
(void)i_val;
__asm
;; A = старое I. 0 DSS работал в IM 1.
;; A = старое I (только регистр; режим DSS всегда IM 1).
ld i, a
or a, a
jr Z, _irqr_im1
im 2
ret
_irqr_im1:
im 1
ret
__endasm;