libbgi: скролл-примитивы + --w3 + отчёт раскладки памяти
Скролл региона video->video (неактивная страница -> активная, банк 0x50: копия = скролл + heal цели): - gfx_scroll_h / _bgi_scroll_rows_raw — горизонтальный, построчно без страйдов (~54Т/строку), DI/EI бандами по 16 строк, h=0=>256; - gfx_scroll_v / _bgi_scroll_cols_raw — верт. И/ИЛИ гориз. за один проход без буфера (колонка = accel-burst LD A,A, STOP между read/write делает промежуточный OUT Port_Y безопасным), банды по 16 колонок; - _gfx_addr_shadow_base (адрес неактивной страницы) + gfx_rect_t. Пример examples/scroll. check_banks.py + sprinter-cc: отчёт раскладки памяти для ЛЮБОЙ модели (W1/W2 код/данные, остаток кучи/стека, W3 при --w3, банки при --bank), не только при --bank. Док docs/memory-management.md §10. --w3 (резидентный код окна W3) + сопутствующее: crt0_banked W3_RESIDENT, mkexe -W, tests/w3probe. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
@@ -0,0 +1,42 @@
|
||||
# w3probe — проверка --w3 (резидентный код окна W3, прямой вызов без
|
||||
# трамплинов) во ВСЕХ режимах памяти. Все пробы переиспользуют w3res.c
|
||||
# (резидентный W3-модуль: w3_show/w3_probe/w3_sig).
|
||||
#
|
||||
# small : код 0x4100 (W1/W2), W3 резидент. w3probe.exe
|
||||
# tiny : код 0x8100 (W2), W1 не исп., W3 резидент. w3tiny.exe
|
||||
# big : код 0x8100 (W2), банки в W1, W3 резидент. w3big.exe
|
||||
# huge : код 0x4100, W3 ДЕЛЯТ резидент + трамплин-банки. w3huge.exe
|
||||
#
|
||||
# Проверено в MAME (2026-07-21): все режимы работают, включая huge —
|
||||
# резидент↔W3-банк через трамплин в W1, crt0_banked возвращает резидентную
|
||||
# страницу дефолтом. Раскладка страниц: tiny W1=FF (не исп.), big/huge W1=F1.
|
||||
|
||||
PROJ_ROOT := $(abspath $(CURDIR)/../..)
|
||||
CC := $(PROJ_ROOT)/bin/sprinter-cc
|
||||
MAKE_HDD := $(PROJ_ROOT)/toolchain/make_hdd.sh
|
||||
HDD_IMG := $(PROJ_ROOT)/mame/v306/IMG/test_hdd.chd
|
||||
|
||||
EXES := w3probe.exe w3tiny.exe w3big.exe w3huge.exe
|
||||
|
||||
all: $(EXES)
|
||||
|
||||
w3probe.exe: w3probe.c w3res.c
|
||||
$(CC) --memory small --w3 w3res.c -o $@ w3probe.c
|
||||
|
||||
w3tiny.exe: w3tiny.c w3res.c
|
||||
$(CC) --memory tiny --w3 w3res.c -o $@ w3tiny.c
|
||||
|
||||
w3big.exe: w3big.c w3res.c bigbank.c
|
||||
$(CC) --memory big --w3 w3res.c --bank 1=bigbank.c -o $@ w3big.c
|
||||
|
||||
w3huge.exe: w3huge.c w3res.c w3huge_res.c hugebank.c
|
||||
$(CC) --memory huge --w3 w3res.c --w3 w3huge_res.c --bank 1=hugebank.c -o $@ w3huge.c
|
||||
|
||||
# Упаковать все четыре на HDD (D:) для прогона в MAME. После — рестарт MAME.
|
||||
hdd: $(EXES)
|
||||
$(MAKE_HDD) $(HDD_IMG) $(EXES)
|
||||
|
||||
clean:
|
||||
rm -rf .sprinter-cc-* $(EXES)
|
||||
|
||||
.PHONY: all hdd clean
|
||||
@@ -0,0 +1,12 @@
|
||||
/* bigbank.c — свапаемый банк в W1 (big mode, трамплин через порт 0xA2).
|
||||
* Отдельно от резидентного W3-кода (w3res.c) — проверяем сосуществование. */
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdint.h>
|
||||
#include <sprinter.h>
|
||||
|
||||
void bigbank_func(void) __banked
|
||||
{
|
||||
printf("W1-BANK: bigbank_func @ ~0x4xxx (trampoline), W1 phys=0x%02X\n",
|
||||
_io_page_w1);
|
||||
}
|
||||
@@ -0,0 +1,13 @@
|
||||
/* hugebank.c — СВАПАЕМЫЙ банк в окне W3 (huge mode, трамплин через 0xE2).
|
||||
* Отдельная страница, подменяет резидентный код на время __banked-вызова;
|
||||
* трамплин обязан вернуть резидентную страницу по выходу. */
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdint.h>
|
||||
#include <sprinter.h>
|
||||
|
||||
void hugebank_func(void) __banked
|
||||
{
|
||||
printf("W3-BANK: hugebank_func (trampoline), W3 phys now=0x%02X\n",
|
||||
_io_page_w3);
|
||||
}
|
||||
@@ -0,0 +1,26 @@
|
||||
/* w3big.c — проба --w3 в режиме big.
|
||||
* big: код 0x8100 (W2), свапаемые банки в W1 (трамплины), W3 свободно под
|
||||
* резидент. Проверяем сосуществование: W1-банк (трамплин) + W3-резидент
|
||||
* (прямой вызов) в одной программе. */
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdint.h>
|
||||
#include <sprinter.h>
|
||||
|
||||
/* crt0_banked читает это ДО gsinit — только `const`. */
|
||||
const uint8_t n_banks = 1;
|
||||
|
||||
void bigbank_func(void) __banked; /* W1-банк, трамплин */
|
||||
extern uint8_t w3_probe(uint8_t x); /* W3-резидент, прямо */
|
||||
extern void w3_show(void);
|
||||
|
||||
int main(void)
|
||||
{
|
||||
printf("BIG : main @ 0x%04X | W1=%02X W2=%02X W3=%02X\n",
|
||||
(unsigned)&main, _io_page_w1, _io_page_w2, _io_page_w3);
|
||||
bigbank_func(); /* W1 через трамплин */
|
||||
w3_show(); /* W3 напрямую */
|
||||
printf("BIG : w3_probe(0x42)=0x%02X (expect 0xBD), exit to DSS.\n",
|
||||
(unsigned)w3_probe(0x42));
|
||||
return 0;
|
||||
}
|
||||
@@ -0,0 +1,33 @@
|
||||
/* w3huge.c — проба --w3 в режиме huge (самый сложный случай).
|
||||
* huge: код 0x4100 (W1/W2), окно W3 ДЕЛЯТ резидентный код (0xC000, прямой
|
||||
* вызов) и свапаемые трамплин-банки. crt0_banked захватывает резидентную
|
||||
* страницу и возвращает её дефолтом после загрузки банков; трамплин
|
||||
* сохраняет/восстанавливает W3 на каждый __banked-вызов.
|
||||
*
|
||||
* Ключевая проверка: w3_show() (резидент) вызывается ДО и ПОСЛЕ
|
||||
* hugebank_func() (банк). Второй вызов проходит только если трамплин
|
||||
* вернул резидентную страницу в W3. */
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdint.h>
|
||||
#include <sprinter.h>
|
||||
|
||||
const uint8_t n_banks = 1; /* один свапаемый W3-банк */
|
||||
|
||||
void hugebank_func(void) __banked; /* W3-банк, трамплин */
|
||||
extern uint8_t w3_probe(uint8_t x); /* W3-резидент, прямой вызов */
|
||||
extern void w3_show(void); /* W3-резидент, прямой вызов */
|
||||
extern void w3_resident_calls_bank(void); /* W3-резидент, зовёт банк */
|
||||
|
||||
int main(void)
|
||||
{
|
||||
printf("HUGE: main @ 0x%04X | W1=%02X W2=%02X W3(resident)=%02X\n",
|
||||
(unsigned)&main, _io_page_w1, _io_page_w2, _io_page_w3);
|
||||
w3_show(); /* резидент напрямую (до банка) */
|
||||
hugebank_func(); /* HOME → W3-банк (свап+возврат) */
|
||||
w3_resident_calls_bank(); /* резидент → W3-банк (трамплин W1) */
|
||||
w3_show(); /* резидент СНОВА — возврат стр. */
|
||||
printf("HUGE: w3_probe(0x42)=0x%02X (expect 0xBD), exit to DSS.\n",
|
||||
(unsigned)w3_probe(0x42));
|
||||
return 0;
|
||||
}
|
||||
@@ -0,0 +1,26 @@
|
||||
/* w3huge_res.c — второй резидентный W3-модуль для huge-пробы.
|
||||
*
|
||||
* Содержит РЕЗИДЕНТНУЮ функцию (W3CODE @0xC000, прямой вызов), которая
|
||||
* сама зовёт W3 __banked-функцию (свапаемый банк, трамплин). Этот случай
|
||||
* ДОЛЖЕН работать: трамплин ___sdcc_bcall_ehl живёт в _CODE (W1, всегда
|
||||
* замаплен) — он сохраняет резидентную страницу W3, маппит банк, а по
|
||||
* возврату восстанавливает резидента. Адрес возврата (0xC0xx) снова
|
||||
* валиден, и управление корректно возвращается в резидентную функцию.
|
||||
*
|
||||
* (Контраст с запретом «из __banked-контекста нельзя дёрнуть резидент»:
|
||||
* здесь наоборот — резидент зовёт банк, и это ок.) */
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdint.h>
|
||||
#include <sprinter.h>
|
||||
|
||||
void hugebank_func(void) __banked; /* W3-банк, трамплин */
|
||||
|
||||
void w3_resident_calls_bank(void)
|
||||
{
|
||||
printf("W3-RES: w3_resident_calls_bank @ 0x%04X -> calling W3 __banked...\n",
|
||||
(unsigned)&w3_resident_calls_bank);
|
||||
hugebank_func(); /* резидент → банк через трамплин W1 */
|
||||
printf("W3-RES: returned into resident OK (W3 phys now=0x%02X)\n",
|
||||
_io_page_w3);
|
||||
}
|
||||
@@ -0,0 +1,27 @@
|
||||
/* w3probe.c — явная проба подхода A для --w3.
|
||||
*
|
||||
* main (W1/W2) зовёт функцию w3_show() в W3, которая печатает свой
|
||||
* собственный адрес (должен быть 0xC0xx) через printf. Затем main
|
||||
* проверяет прямой вызов с возвратом и ЧИСТО выходит в DSS (return 0),
|
||||
* чтобы вернулось приглашение шелла. */
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdint.h>
|
||||
|
||||
extern const uint8_t w3_sig; /* rodata в W3 */
|
||||
extern uint8_t w3_probe(uint8_t x); /* код в W3, прямой вызов */
|
||||
extern void w3_show(void); /* код в W3, зовёт printf */
|
||||
|
||||
int main(void)
|
||||
{
|
||||
printf("HOME: main @ 0x%04X | w3_probe @ 0x%04X | w3_show @ 0x%04X\n",
|
||||
(unsigned)&main, (unsigned)&w3_probe, (unsigned)&w3_show);
|
||||
|
||||
w3_show(); /* W3-код печатает свой адрес */
|
||||
|
||||
printf("HOME: w3_probe(0x42) = 0x%02X (expect 0xBD)\n",
|
||||
(unsigned)w3_probe(0x42));
|
||||
|
||||
printf("HOME: done, exiting to DSS.\n");
|
||||
return 0; /* чистый выход → приглашение DSS */
|
||||
}
|
||||
@@ -0,0 +1,25 @@
|
||||
/* w3res.c — резидентный модуль окна W3 (проба подхода A, явная версия).
|
||||
*
|
||||
* Компилируется с --codeseg W3CODE --constseg W3CODE (БЕЗ --dataseg),
|
||||
* линкуется по -Wl-b_W3CODE=0xC000. Здесь только код + rodata. */
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdint.h>
|
||||
|
||||
/* rodata в W3 (для проверки, что область реально по 0xC000). */
|
||||
const uint8_t w3_sig = 0x5A;
|
||||
|
||||
/* Функция, живущая в W3. Печатает СВОЙ адрес через printf — а printf
|
||||
* лежит в libc (_CODE = W1/W2). Тем самым проверяем оба направления:
|
||||
* W3-код исполняется по 0xC0xx И умеет звать код в W1/W2 обычным call'ом. */
|
||||
void w3_show(void)
|
||||
{
|
||||
printf("W3 : w3_show @ 0x%04X | w3_sig @ 0x%04X = 0x%02X\n",
|
||||
(unsigned)&w3_show, (unsigned)&w3_sig, (unsigned)w3_sig);
|
||||
}
|
||||
|
||||
/* Прямой вызов с возвратом значения: x^0xFF. */
|
||||
uint8_t w3_probe(uint8_t x)
|
||||
{
|
||||
return (uint8_t)(x ^ 0xFF);
|
||||
}
|
||||
@@ -0,0 +1,30 @@
|
||||
/* w3tiny.c — проба --w3 в режиме tiny.
|
||||
* tiny: код с 0x8100 (W2), W1 не используется, W3 свободно под резидент.
|
||||
* Образ тянется 0x8100..0xC0xx (2 страницы) → DSS маппит W2 и W3. */
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdint.h>
|
||||
|
||||
extern uint8_t w3_probe(uint8_t x);
|
||||
extern void w3_show(void);
|
||||
|
||||
uint8_t w1_p, w2_p, w3_p; /* физ-страницы окон (заполняются asm) */
|
||||
|
||||
int main(void)
|
||||
{
|
||||
__asm
|
||||
in a,(#0xA2)
|
||||
ld (_w1_p), a
|
||||
in a,(#0xC2)
|
||||
ld (_w2_p), a
|
||||
in a,(#0xE2)
|
||||
ld (_w3_p), a
|
||||
__endasm;
|
||||
|
||||
printf("TINY: main @ 0x%04X | pages W1=%02X W2=%02X W3=%02X\n",
|
||||
(unsigned)&main, w1_p, w2_p, w3_p);
|
||||
w3_show();
|
||||
printf("TINY: w3_probe(0x42)=0x%02X (expect 0xBD), exit to DSS.\n",
|
||||
(unsigned)w3_probe(0x42));
|
||||
return 0;
|
||||
}
|
||||
Reference in New Issue
Block a user