libbgi: спрайтовый движок v2 + accel-блит/heal leaf'ы + noclip-путь
Спрайтовая графика поверх accel block-copy (docs/sprite-api-design.md): - Ядро блиттинга: leaf'ы _bgi_blit_rows_raw (dst фикс, только src-страйд) / _bgi_copy_rows_raw (getimage) / _bgi_heal_rows_raw (src==dst). DI один на спрайт (санкция: малый спрайт под одним DI аудио не рвёт); src[0]-фикс снят (точная MAME подавляет CPU-байт триггера записи — на железе перепроверить; для heal был избыточен и снят безусловно). - Общие bracket-free ядра _gfx_blit_full/_gfx_heal_full (полная ширина: клип по экрану + split >256 для putimage) + лин _gfx_blit_sprite/ _gfx_heal_sprite (кадр ≤64, без split, 8-бит w/h) + noclip-варианты (клип-кода нет → полный codegen-win). Имя *_full (не *_clip) — «clip» двусмысленно (sprite-ядра тоже клипуют; различитель — ширина/split). - Движок retained-модели <sprite.h>: sprite_init/update/flip + inline move/frame/show/hide/touch; drawn[2] per-page внутри структуры; кадр — двухпроходно heal ВСЕ -> блит ВСЕ под одной W3-скобкой/банком на проход. - Флаг gfx_sprite_clip(on/off): приложение, само следящее за границами, отключает клип (~+19% на анимации; диспетч пока через if — funcptr далее). - putsprite/movesprite/gfx_blit/putimage(COPY)/getimage переведены на ядро. Тесты: examples/balls (движок, дабл-буфер, boundary-тест клипа), tests/sprites (RAM PASS, клип 4 края, атлас), tests/blitw (trig-leak), tests/spriteclip (hardware-probe: железо НЕ режет за краем -> клип нужен), tests/blitperf, tests/gfxbanks. size-baseline обновлён (53 программы). Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
@@ -0,0 +1,90 @@
|
||||
/*
|
||||
* _bgi_blit_rows_raw — специализация accel block-copy для БЛИТА
|
||||
* (буфер → экран): dst ФИКСИРОВАН (адрес экрана base+x; строку выбирает
|
||||
* Port_Y, dstride == 0 по определению), src двигается на sstride (ширину
|
||||
* картинки) на строку. Выделен из _bgi_copy_rows_raw (2026-07-12,
|
||||
* профиль examples/balls): у блита dst-цепочка (ld a,e; add; ld e,a;
|
||||
* ld a,d; adc; ld d,a ≈ 24Т/строку) — мёртвый груз, т.к. dst не меняется;
|
||||
* здесь её нет вообще. src-страйд SMC-патчится в 8-битную adc-цепочку
|
||||
* (константа на вызов). Универсальный _bgi_copy_rows_raw остаётся для
|
||||
* getimage (grab: dst двигается, src фикс — другая специализация).
|
||||
*
|
||||
* ВХОД (__sdcccall(1)): src→HL, dst→DE (фикс); стек: w 4(ix), h 5(ix),
|
||||
* sstride 6/7(ix), y0 8(ix). w — байт/строку за burst (1..256, 0=256);
|
||||
* h — строк (1..256, 0=256); sstride — шаг адреса src между строками;
|
||||
* y0 — стартовый Port_Y. Callee-pop 5 байт.
|
||||
*
|
||||
* Raw: клиппинга НЕТ (вызывающий), W3 замаплен (_bgi_begin/_bgi_end
|
||||
* снаружи), банк выставлен вызывающим (0x5C прозрачный / 0x50 обычный).
|
||||
* Буфер src обязан быть ВНЕ W3 (< 0xC000). Полосы > 256 режет вызывающий.
|
||||
*
|
||||
* ОДИН DI на весь блит (arm + все строки): убирает per-row EI-окно, где
|
||||
* CBL-ISR мог пере-армировать акселератор своим размером блока, и тесней
|
||||
* loop (санкция пользователя 2026-07-12: малый спрайт под одним DI аудио
|
||||
* не рвёт). ВНИМАНИЕ: h ограничен малыми спрайтами — большие блиты
|
||||
* (putimage 256 строк) вызывающий обязан резать на чанки ≤16 строк.
|
||||
*
|
||||
* Квирк CPU-байта write-триггера (см. _bgi_copy_rows_raw): src[0]
|
||||
* предчитывается и подставляется в A через EX AF,AF' — CPU-цикл
|
||||
* LD (DE),A кладёт корректный src[0] при любом банке.
|
||||
*
|
||||
* Клоббер: AF/AF'/BC/DE/HL; IX сохраняется.
|
||||
*/
|
||||
|
||||
#include "../_bgi.h"
|
||||
|
||||
void _bgi_blit_rows_raw(const uint8_t *src, uint8_t *dst,
|
||||
uint8_t w, uint8_t h,
|
||||
int sstride, uint8_t y0) __naked
|
||||
{
|
||||
(void)src; (void)dst; (void)w; (void)h; (void)sstride; (void)y0;
|
||||
__asm
|
||||
push ix
|
||||
ld ix, #0
|
||||
add ix, sp
|
||||
;; SMC: размер блока <- w (immediate у ld a,#n — требование FSM)
|
||||
ld a, 4 (ix)
|
||||
ld (br_len_imm), a
|
||||
;; SMC: src-страйд — константа на вызов (8-битная adc-цепочка)
|
||||
ld a, 6 (ix)
|
||||
ld (br_slo_imm), a
|
||||
ld a, 7 (ix)
|
||||
ld (br_shi_imm), a
|
||||
ld b, 5 (ix) ; B = счётчик строк (0 => 256: djnz)
|
||||
ld c, 8 (ix) ; C = y
|
||||
di ; один DI на весь блит
|
||||
ld d, d ; 0x52 — режим размера блока
|
||||
ld a, #0
|
||||
br_len_imm = . - 1
|
||||
ld b, b ; 0x40 — стоп (B=счётчик не тронут)
|
||||
br_row:
|
||||
ld a, c
|
||||
out (#0x89), a ; Port_Y = y
|
||||
inc c
|
||||
;; ld a, (hl) ; A = src[0] (accel выключен)
|
||||
;; ex af, af' ; спрятать src[0]
|
||||
ld l, l ; 0x6D — армировать копию строки
|
||||
ld a, (hl) ; burst: src -> память акселератора
|
||||
;; ex af, af' ; A = src[0] — CPU-байт триггера записи
|
||||
ld (de), a ; burst: память акселератора -> dst (фикс)
|
||||
ld b, b ; 0x40 — стоп
|
||||
;; src += sstride (dst НЕ двигается — dstride 0)
|
||||
ld a, l
|
||||
add a, #0
|
||||
br_slo_imm = . - 1
|
||||
ld l, a
|
||||
ld a, h
|
||||
adc a, #0
|
||||
br_shi_imm = . - 1
|
||||
ld h, a
|
||||
djnz br_row
|
||||
ei ; закрыть DI-окно блита
|
||||
pop ix
|
||||
;; callee-pop 5 байт (w,h,sstride:2,y0)
|
||||
pop hl ; ret-адрес
|
||||
pop af
|
||||
pop af
|
||||
inc sp
|
||||
jp (hl)
|
||||
__endasm;
|
||||
}
|
||||
@@ -0,0 +1,130 @@
|
||||
/*
|
||||
* _bgi_copy_rows_raw — копирование h строк по w байт через block-copy
|
||||
* акселератора (LD L,L), mode 0x81. Ядро блиттинга: putimage(COPY),
|
||||
* getimage, gfx_blit*, gfx_heal — все операции блиттинга это один этот
|
||||
* leaf с разными src/dst (docs/sprite-api-design.md §2, §4.1):
|
||||
*
|
||||
* блит src=буфер, sstride=w картинки; dst=экран, dstride=0
|
||||
* grab src=экран, sstride=0; dst=буфер, dstride=w
|
||||
* Для heal (src == dst == экран, оба страйда 0) — специализированный
|
||||
* _bgi_heal_rows_raw (без адресной арифметики в цикле вообще).
|
||||
* Страйды здесь — константы на весь вызов и патчатся SMC при входе
|
||||
* (8-битные цепочки add/adc, 73Т/строку вместо 140Т у прежнего
|
||||
* варианта с перечитыванием через IX; профиль examples/balls).
|
||||
*
|
||||
* ВХОД (__sdcccall(1)): src→HL, dst→DE; стек: w 4(ix), h 5(ix),
|
||||
* dstride 6/7(ix), sstride 8/9(ix), y0 10(ix).
|
||||
* w — байт в строке за burst, 1..256 (0 = 256 — конвенция акселератора);
|
||||
* h — строк, 1..256 (0 = 256);
|
||||
* dstride/sstride — шаг адреса между строками (0 = адрес на месте,
|
||||
* строку выбирает Port_Y — сторона, живущая в видеоокне W3);
|
||||
* y0 — стартовый Port_Y, инкремент на строку.
|
||||
*
|
||||
* Raw: клиппинга НЕТ (весь клип делает вызывающий), W3 уже замаплен
|
||||
* (_bgi_begin/_bgi_end снаружи). Буферная сторона обязана быть ВНЕ W3
|
||||
* (< 0xC000) — на время операции W3 занят видеобанком. Полосы > 256
|
||||
* байт режет вызывающий (см. gfx_blit_part).
|
||||
*
|
||||
* Схема (референс Draw_Restangle_Data, accelerator_doc.txt): размер
|
||||
* блока армируется ОДИН раз (SMC у LD A,#n — операнд ОБЯЗАН быть
|
||||
* immediate, memory/sprinter_accelerator; размер переживает LD B,B —
|
||||
* tests/accfill), далее на строку: OUT Port_Y, DI, LD L,L (армировать
|
||||
* копию), LD A,(HL) (burst-чтение src в память акселератора),
|
||||
* LD (DE),A (burst-запись из памяти акселератора в dst), LD B,B, EI.
|
||||
* Между армированием и триггерами — только регистровые M1-опкоды.
|
||||
*
|
||||
* КВИРК ТРИГГЕРА ЗАПИСИ (найден tests/sprites — клипнутые спрайты):
|
||||
* LD (DE),A — реальная CPU-инструкция: её собственный цикл записи
|
||||
* кладёт байт A в dst[0], и лишь затем burst FSM пишет src[0..w-1]
|
||||
* поверх. После burst-чтения в A остаётся ПОСЛЕДНИЙ байт строки —
|
||||
* при банке 0x50 утечка невидима (src[0] тут же перезапишет), но при
|
||||
* 0x58/0x5C, если src[0] == 0xFF, перезапись скипается и в dst[0]
|
||||
* остаётся вертикальная полоса цвета последних байтов строк.
|
||||
* Нейтрализация: src[0] предчитывается ДО армирования и подставляется
|
||||
* в A через EX AF,AF' (регистровый M1-опкод — под armed разрешён)
|
||||
* прямо перед триггером — CPU-байт становится src[0], что корректно
|
||||
* при ЛЮБОМ банке и любой семантике первого цикла записи (в MAME
|
||||
* 0.283 подтверждено tests/blitw+sprites; на железе перепроверить).
|
||||
*
|
||||
* Клоббер: AF/AF'/BC/DE/HL; IX сохраняется (callee-saved).
|
||||
*/
|
||||
|
||||
#include "../_bgi.h"
|
||||
|
||||
void _bgi_copy_rows_raw(const uint8_t *src, uint8_t *dst,
|
||||
uint8_t w, uint8_t h,
|
||||
int dstride, int sstride, uint8_t y0) __naked
|
||||
{
|
||||
__asm
|
||||
push ix
|
||||
ld ix, #0
|
||||
add ix, sp
|
||||
;; SMC: размер блока <- w (immediate у ld a,#n — требование FSM)
|
||||
ld a, 4 (ix)
|
||||
ld (cr_len_imm), a
|
||||
;; SMC: страйды — константы на весь вызов; патчим immediate
|
||||
;; 8-битных цепочек сложения вместо перечитывания из стека
|
||||
;; через IX на каждой строке (профиль examples/balls
|
||||
;; 2026-07-12: было 140Т/строку, стало 73Т — и BC не нужен,
|
||||
;; push/pop и ex de,hl ушли).
|
||||
ld a, 8 (ix)
|
||||
ld (cr_slo_imm), a
|
||||
ld a, 9 (ix)
|
||||
ld (cr_shi_imm), a
|
||||
ld a, 6 (ix)
|
||||
ld (cr_dlo_imm), a
|
||||
ld a, 7 (ix)
|
||||
ld (cr_dhi_imm), a
|
||||
ld b, 5 (ix) ; B = счётчик строк (0 => 256: djnz)
|
||||
ld c, 10 (ix) ; C = y
|
||||
;; ОДИН DI на весь блит (arm + все строки): убирает per-row
|
||||
;; EI-окно (CBL-ISR не пере-армирует акселератор посреди спрайта)
|
||||
;; и тесней loop. Санкция пользователя 2026-07-12: малый спрайт
|
||||
;; под одним DI аудио не рвёт. ВНИМАНИЕ: для больших h (putimage
|
||||
;; 256 строк) вызывающий обязан резать на чанки ≤16 строк.
|
||||
di
|
||||
ld d, d ; 0x52 — режим размера блока
|
||||
ld a, #0
|
||||
cr_len_imm = . - 1
|
||||
ld b, b ; 0x40 — стоп (B=счётчик не тронут)
|
||||
cr_row:
|
||||
ld a, c
|
||||
out (#0x89), a ; Port_Y = y
|
||||
inc c
|
||||
;; ld a, (hl) ; A = src[0] (accel выключен)
|
||||
;; ex af, af' ; спрятать src[0] в A'
|
||||
ld l, l ; 0x6D — армировать копию строки
|
||||
ld a, (hl) ; burst: src -> память акселератора
|
||||
;; ex af, af' ; A = src[0] — CPU-байт триггера записи
|
||||
ld (de), a ; burst: память акселератора -> dst
|
||||
ld b, b ; 0x40 — стоп (no-op по регистрам)
|
||||
;; src += sstride (SMC-immediates, 16-бит через adc)
|
||||
ld a, l
|
||||
add a, #0
|
||||
cr_slo_imm = . - 1
|
||||
ld l, a
|
||||
ld a, h
|
||||
adc a, #0
|
||||
cr_shi_imm = . - 1
|
||||
ld h, a
|
||||
;; dst += dstride
|
||||
ld a, e
|
||||
add a, #0
|
||||
cr_dlo_imm = . - 1
|
||||
ld e, a
|
||||
ld a, d
|
||||
adc a, #0
|
||||
cr_dhi_imm = . - 1
|
||||
ld d, a
|
||||
djnz cr_row
|
||||
ei ; закрыть DI-окно блита
|
||||
pop ix
|
||||
;; callee-pop 7 байт стековых аргументов
|
||||
pop hl ; ret-адрес
|
||||
pop af
|
||||
pop af
|
||||
pop af
|
||||
inc sp
|
||||
jp (hl)
|
||||
__endasm;
|
||||
}
|
||||
@@ -0,0 +1,72 @@
|
||||
/*
|
||||
* _bgi_heal_rows_raw — специализация accel-копии для heal (src == dst ==
|
||||
* адрес экрана): h строк по w байт «прочитать ОЗУ-копию → записать в
|
||||
* VRAM+ОЗУ» на одном месте. Выделен из _bgi_copy_rows_raw по профилю
|
||||
* examples/balls (2026-07-12): у heal ОБА страйда нулевые по
|
||||
* определению (строку выбирает Port_Y, CPU-адрес не меняется), поэтому
|
||||
* адресной арифметики в цикле нет вообще — строка 77Т + burst'ы против
|
||||
* 204Т у универсального leaf'а до оптимизации.
|
||||
*
|
||||
* ВХОД (__sdcccall(1)): scr→HL (base + x), y0→DE (E — стартовый
|
||||
* Port_Y); стек: w 4(ix), h 5(ix) — 1..256, 0 = 256 (конвенция
|
||||
* акселератора). Callee-pops 2 байта.
|
||||
*
|
||||
* Raw: клиппинга нет, W3 замаплен вызывающим; банк выбирает
|
||||
* вызывающий (gfx_heal форсит 0x50 — иначе heal бессмыслен).
|
||||
* Полосы > 256 байт режет вызывающий.
|
||||
*
|
||||
* Квирк CPU-байта write-триггера (см. _bgi_copy_rows_raw): для heal
|
||||
* предчитанный src[0] — ровно тот байт, что burst запишет в dst[0],
|
||||
* так что фикс EX AF,AF' здесь одновременно и нейтрализация утечки,
|
||||
* и просто корректное значение.
|
||||
*
|
||||
* Клоббер: AF/AF'/BC/DE/HL; IX сохраняется.
|
||||
*/
|
||||
|
||||
#include "../_bgi.h"
|
||||
|
||||
void _bgi_heal_rows_raw(uint8_t *scr, int y0, uint8_t w, uint8_t h) __naked
|
||||
{
|
||||
__asm
|
||||
push ix
|
||||
ld ix, #0
|
||||
add ix, sp
|
||||
;; SMC: размер блока <- w (immediate — требование FSM)
|
||||
ld a, 4 (ix)
|
||||
ld (hr_len_imm), a
|
||||
ld c, e ; C = y (взять ДО затирания DE)
|
||||
ld b, 5 (ix) ; B = счётчик строк (0 => 256)
|
||||
ld d, h
|
||||
ld e, l ; DE = HL = scr (src == dst)
|
||||
;; ОДИН DI на весь спрайт (arm + все строки): убирает per-row
|
||||
;; EI-окно, где CBL-ISR мог пере-армировать акселератор своим
|
||||
;; размером блока (латентная реентерабельность), и тесней loop.
|
||||
;; Санкция пользователя 2026-07-12: 16×16 = 256 байт под одним DI
|
||||
;; (как 1×256 fill) на аудио не влияет. ВНИМАНИЕ: h ограничен
|
||||
;; малыми спрайтами — для больших блитов (putimage 256 строк)
|
||||
;; вызывающий обязан резать на чанки ≤16 строк (иначе долгий DI).
|
||||
di
|
||||
ld d, d ; 0x52 — режим размера блока
|
||||
ld a, #0
|
||||
hr_len_imm = . - 1
|
||||
ld b, b ; 0x40 — стоп (B=счётчик не тронут)
|
||||
hr_row:
|
||||
ld a, c
|
||||
out (#0x89), a ; Port_Y = y
|
||||
inc c
|
||||
;; ld a, (hl) ; предчитать ОЗУ[0] (accel выключен)
|
||||
;; ex af, af'
|
||||
ld l, l ; 0x6D — армировать копию строки
|
||||
ld a, (hl) ; burst: ОЗУ-копия -> память акселератора
|
||||
;; ex af, af' ; A = ОЗУ[0] — CPU-байт триггера корректен
|
||||
ld (de), a ; burst: память акселератора -> VRAM+ОЗУ
|
||||
ld b, b ; 0x40 — стоп
|
||||
djnz hr_row ; адреса не меняются — только Port_Y
|
||||
ei ; закрыть DI-окно спрайта
|
||||
pop ix
|
||||
pop hl ; ret-адрес; callee-pop 2 байта (w,h)
|
||||
inc sp
|
||||
inc sp
|
||||
jp (hl)
|
||||
__endasm;
|
||||
}
|
||||
Reference in New Issue
Block a user