029607971f
- удалён глобальный скретч акселератора (_gfx_acc256.c); fill-сегменты (_gfx_hfill256/_gfx_vfill256) принимают аргументы в регистрах HL/C/B/E, вызываются только из asm raw-примитивов - новый _gfx_rectfill256: заливка прямоугольника через Horizontal_Size - raw-примитивы (plot/read/hspan/vspan/clear) переписаны под новый ABI - graphics.h: typedef color_t (uint8_t) для всех public color-функций - sprinter-cc: флаг --safe (линковка *_safe.lib при наличии) - CLAUDE.md/mame_interactive: авто-прогон тестов в MAME - gfx_demo: демонстрация rectfill Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
44 lines
2.2 KiB
C
44 lines
2.2 KiB
C
/*
|
||
* _gfx_hfill256_segment — горизонтальный Fill-burst акселератора (register-ABI).
|
||
*
|
||
* ВХОД (регистры; вызывается ТОЛЬКО из asm — raw-примитивами):
|
||
* HL = CPU-адрес начала строки (base + x)
|
||
* C = цвет
|
||
* B = длина (0 = 256 — конвенция акселератора)
|
||
* E = y (строка для Port_Y)
|
||
* Клоббер: A, F. Сохраняет BC/DE/HL/IX/IY — все опкоды акселератора это
|
||
* `ld r,r`, т.е. no-op'ы по регистрам, поэтому color(C)/len(B)/y(E) переживают
|
||
* accel-последовательность (это и есть смысл register-ABI — без скретча в _DATA).
|
||
* Pre: W3 замаплен на видеобанк (вызывающий сделал _bgi_begin).
|
||
*
|
||
* Опкоды (docs/converted/accel_r.txt):
|
||
* LD D,D (0x52) режим «задать размер блока»; СЛЕДУЮЩИЙ байт — длина,
|
||
* ОБЯЗАН быть immediate-операндом LD A,n (0x3E) → SMC-патч.
|
||
* LD C,C (0x49) горизонтальный Fill (LD (HL),A заливает n байт)
|
||
* LD B,B (0x40) выключить акселератор
|
||
* Другой `ld a,#n` между LD C,C и стреляющим LD (HL),A вставлять нельзя —
|
||
* FSM акселератора перечитает immediate как новый размер блока.
|
||
*/
|
||
|
||
#include "../_bgi.h"
|
||
|
||
void _gfx_hfill256_segment(void) __naked
|
||
{
|
||
__asm
|
||
ld a, b
|
||
ld (_hfill256_len_imm), a ; SMC: размер блока <- B
|
||
ld a, e
|
||
out (#0x89), a ; Port_Y <- E (y)
|
||
di
|
||
ld d, d ; 0x52 — режим размера блока
|
||
ld a, #0
|
||
_hfill256_len_imm = . - 1
|
||
ld c, c ; 0x49 — горизонтальный Fill (C=color, no-op)
|
||
ld a, c ; 0x79 — A = цвет
|
||
ld (hl), a ; выстрел; заливает len байт
|
||
ld b, b ; 0x40 — выключить (B=len, no-op)
|
||
ei
|
||
ret
|
||
__endasm;
|
||
}
|