libbgi: bgi256 fill-примитивы на register-ABI + typedef color_t
- удалён глобальный скретч акселератора (_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>
This commit is contained in:
@@ -0,0 +1,13 @@
|
|||||||
|
CompileFlags:
|
||||||
|
Add:
|
||||||
|
- -Ilibbgi/include
|
||||||
|
- -Ilibc/include
|
||||||
|
- -I.
|
||||||
|
- --target=z80-unknown-unknown
|
||||||
|
- -mz80
|
||||||
|
- -std=c99
|
||||||
|
- -D__SDCC # если нужно гасить SDCC-специфику через #ifdef
|
||||||
|
Remove:
|
||||||
|
- --target=z80-unknown-unknown
|
||||||
|
Diagnostics:
|
||||||
|
UnusedIncludes: None # опционально, чтобы не ругался на "лишние" инклюды под другой таргет
|
||||||
@@ -18,9 +18,13 @@ make size-baseline # принять текущие размеры эталон
|
|||||||
использующая graphics.h, собирается с `--gfx 256` (или `--gfx 16` в
|
использующая graphics.h, собирается с `--gfx 256` (или `--gfx 16` в
|
||||||
Фазе 2): sprinter-cc подлинкует lib/bgi256.lib и добавит -I libbgi/include.
|
Фазе 2): sprinter-cc подлинкует lib/bgi256.lib и добавит -I libbgi/include.
|
||||||
|
|
||||||
Одиночный тест: `cd tests/<имя> && make run` (пакует ТОЛЬКО этот exe
|
Одиночный тест: `cd tests/<имя> && make run` (пакует exe + EXTRA_DATA на
|
||||||
+ EXTRA_DATA на дискету и запускает MAME). Тесты в MAME гоняет
|
дискету и запускает MAME автоматически через `toolchain/mame_interactive.py`,
|
||||||
пользователь — готовь дискету и проси прогнать.
|
снимает скриншоты, выводит пути). Для сложных сценариев (диалог, несколько
|
||||||
|
шагов ввода) — прямой вызов:
|
||||||
|
`python3 toolchain/mame_interactive.py tests/<имя>/<имя>.exe --snap T1,T2 --timeout T`.
|
||||||
|
Скриншоты лежат в `mame/v306/snap_auto/sprinter/` (читаются инструментом Read).
|
||||||
|
Подробности: `docs/mame-autotest.md`.
|
||||||
|
|
||||||
После правок libc/libbgi: пересборка от чистого листа (`make -C libc clean`
|
После правок libc/libbgi: пересборка от чистого листа (`make -C libc clean`
|
||||||
/ `make -C libbgi clean`) не обязательна — stale .rel чистятся
|
/ `make -C libbgi clean`) не обязательна — stale .rel чистятся
|
||||||
|
|||||||
+13
-2
@@ -37,10 +37,12 @@
|
|||||||
# --max-allocs N SDCC --max-allocs-per-node (default: SDCC's 3000).
|
# --max-allocs N SDCC --max-allocs-per-node (default: SDCC's 3000).
|
||||||
# Higher values give smaller/faster code at the cost of
|
# Higher values give smaller/faster code at the cost of
|
||||||
# compile time; 10000..100000 is a reasonable range.
|
# compile time; 10000..100000 is a reasonable range.
|
||||||
# --debug enable runtime diagnostics — defines DEBUG_RT for both
|
# --debug enable runtime diagnostics — defines DEBUG_RT for both
|
||||||
# sdcc (-DDEBUG_RT) and the crt0 assembly (prepended
|
# sdcc (-DDEBUG_RT) and the crt0 assembly (prepended
|
||||||
# `DEBUG_RT = 1`). Exposes runtime introspection symbols
|
# `DEBUG_RT = 1`). Exposes runtime introspection symbols
|
||||||
# such as `_w2_self_allocated` (see <sprinter.h>).
|
# such as `_w2_self_allocated` (see <sprinter.h>).
|
||||||
|
# --safe link safe versions of libraries (e.g. lib/bgi256_safe.lib)
|
||||||
|
# if they exist; otherwise fall back to standard library.
|
||||||
# -v verbose (echo every command)
|
# -v verbose (echo every command)
|
||||||
# -h, --help show this help
|
# -h, --help show this help
|
||||||
#
|
#
|
||||||
@@ -88,6 +90,7 @@ MKEXE_EXTRA=()
|
|||||||
BANK_SPECS=() # entries like "1=engine.c"
|
BANK_SPECS=() # entries like "1=engine.c"
|
||||||
MAX_ALLOCS="" # if set, passed to sdcc as --max-allocs-per-node
|
MAX_ALLOCS="" # if set, passed to sdcc as --max-allocs-per-node
|
||||||
GFX_MODE="" # "256" → link BGI graphics.h driver sprinter_gfx256.lib
|
GFX_MODE="" # "256" → link BGI graphics.h driver sprinter_gfx256.lib
|
||||||
|
SAFE_LIBS=0 # if 1, prefer *_safe.lib variants (fallback to standard)
|
||||||
|
|
||||||
# ------- Parse args ----------------------------------------------------------
|
# ------- Parse args ----------------------------------------------------------
|
||||||
usage() {
|
usage() {
|
||||||
@@ -114,6 +117,7 @@ while [[ $# -gt 0 ]]; do
|
|||||||
--max-allocs) MAX_ALLOCS="$2"; shift 2;;
|
--max-allocs) MAX_ALLOCS="$2"; shift 2;;
|
||||||
--gfx) GFX_MODE="$2"; shift 2;;
|
--gfx) GFX_MODE="$2"; shift 2;;
|
||||||
--debug) DEBUG_RT=1; shift;;
|
--debug) DEBUG_RT=1; shift;;
|
||||||
|
--safe) SAFE_LIBS=1; shift;;
|
||||||
-v) VERBOSE=1; shift;;
|
-v) VERBOSE=1; shift;;
|
||||||
-h|--help) usage 0;;
|
-h|--help) usage 0;;
|
||||||
-*) echo "sprinter-cc: unknown option: $1" >&2; usage 1;;
|
-*) echo "sprinter-cc: unknown option: $1" >&2; usage 1;;
|
||||||
@@ -130,7 +134,14 @@ done
|
|||||||
GFX_LD=()
|
GFX_LD=()
|
||||||
case "$GFX_MODE" in
|
case "$GFX_MODE" in
|
||||||
"") ;; # graphics.h не используется
|
"") ;; # graphics.h не используется
|
||||||
256) GFX_LD=("-lbgi256");; # libbgi/bgi256 → lib/bgi256.lib
|
256)
|
||||||
|
if [[ "$SAFE_LIBS" -eq 1 ]] && [[ -f "$LIB_DIR/bgi256_safe.lib" ]]; then
|
||||||
|
GFX_LD=("-lbgi256_safe")
|
||||||
|
[[ $VERBOSE -eq 1 ]] && echo " gfx: safe variant (lib/bgi256_safe.lib)"
|
||||||
|
else
|
||||||
|
GFX_LD=("-lbgi256")
|
||||||
|
fi
|
||||||
|
;;
|
||||||
16) echo "sprinter-cc: --gfx 16 ещё не реализован (пока только 256)" >&2; exit 1;;
|
16) echo "sprinter-cc: --gfx 16 ещё не реализован (пока только 256)" >&2; exit 1;;
|
||||||
*) echo "sprinter-cc: --gfx: ожидается 256 (или 16), дано: $GFX_MODE" >&2; exit 1;;
|
*) echo "sprinter-cc: --gfx: ожидается 256 (или 16), дано: $GFX_MODE" >&2; exit 1;;
|
||||||
esac
|
esac
|
||||||
|
|||||||
@@ -121,7 +121,7 @@ MDVIEW2.EXE <файл.md>
|
|||||||
```
|
```
|
||||||
make # собрать mdview2.exe
|
make # собрать mdview2.exe
|
||||||
make floppy # собрать и упаковать дискету для MAME (mc.img)
|
make floppy # собрать и упаковать дискету для MAME (mc.img)
|
||||||
make run # floppy + запуск MAME
|
make run # floppy + автоматический прогон в MAME (скриншоты)
|
||||||
```
|
```
|
||||||
|
|
||||||
На дискету кладутся: `MDVIEW2.EXE` и три документа, каждый в своей кодировке
|
На дискету кладутся: `MDVIEW2.EXE` и три документа, каждый в своей кодировке
|
||||||
|
|||||||
+67
-47
@@ -1,79 +1,99 @@
|
|||||||
# Build lib/bgi256.lib — Sprinter BGI graphics driver (320×256×256).
|
# Build lib/bgi256.lib + lib/bgi256_safe.lib — Sprinter BGI graphics driver (320×256×256).
|
||||||
#
|
#
|
||||||
# libbgi/ — самостоятельная графическая библиотека, отделённая от libc.
|
# libbgi/ — самостоятельная графическая библиотека, отделённая от libc.
|
||||||
# Две driver-библиотеки собираются из одной исходной базы:
|
# Две driver-библиотеки собираются из одной исходной базы:
|
||||||
# bgi256.lib = common/*.rel + bgi256/*.rel (эта — Фаза 1)
|
# bgi256.lib = common/*.rel + bgi256/*.rel (fast, без bounds-check)
|
||||||
# bgi16.lib = common/*.rel + bgi16/*.rel (Фаза 2; пока не собирается)
|
# bgi256_safe.lib = common/*.rel + bgi256/*.rel (safe, с bounds-check)
|
||||||
# common/ — mode-agnostic: .rel компилируется ОДИН раз и кладётся в ОБА
|
# common/ — mode-agnostic: .rel компилируется в ОБЕ версии параллельно.
|
||||||
# архива (один исходник для функций, общих 256- и 16-цветной версиям).
|
# bgi256/ — mode-specific leaf'ы.
|
||||||
# bgi256/ — mode-specific leaf'ы (реальные реализации, без обёрток).
|
|
||||||
#
|
#
|
||||||
# Каждый .c — отдельный .rel в архиве (1 публичная функция = 1 модуль);
|
# Каждый .c — отдельный .rel в архиве (1 публичная функция = 1 модуль);
|
||||||
# линкер тянет только нужные .rel → DCE на уровне файлов. См. план
|
# линкер тянет только нужные .rel → DCE на уровне файлов.
|
||||||
# «Рефакторинг GFX → BGI» и memory/bgi_two_lib_design.
|
|
||||||
#
|
#
|
||||||
# make build lib/bgi256.lib
|
# make build lib/bgi256.lib + lib/bgi256_safe.lib (обе)
|
||||||
# make clean remove build/ + lib/bgi256.lib
|
# make fast build только lib/bgi256.lib
|
||||||
|
# make safe build только lib/bgi256_safe.lib
|
||||||
|
# make BUILD_SAFE=1 build только lib/bgi256_safe.lib (legacy)
|
||||||
|
# make clean remove build/ + обе библиотеки
|
||||||
#
|
#
|
||||||
# (Фаза 2 добавит bgi16.lib = common + bgi16; common .rel переиспользуются.)
|
|
||||||
|
|
||||||
PROJ_ROOT := $(abspath $(CURDIR)/..)
|
PROJ_ROOT := $(abspath $(CURDIR)/..)
|
||||||
SDCC_BIN := $(PROJ_ROOT)/third_party/sdcc/bin
|
SDCC_BIN := $(PROJ_ROOT)/third_party/sdcc/bin
|
||||||
SDCC := $(SDCC_BIN)/sdcc
|
SDCC := $(SDCC_BIN)/sdcc
|
||||||
SDAR := $(SDCC_BIN)/sdar
|
SDAR := $(SDCC_BIN)/sdar
|
||||||
|
|
||||||
# -I libbgi/include (gfx.h, graphics.h) + -I libc/include (palette.h,
|
|
||||||
# sprinter_exit.h — публичные заголовки libc; libbgi всегда линкуется с
|
|
||||||
# libc). SDCC stdint и пр. — из собственного include-пути SDCC.
|
|
||||||
INC := -I$(CURDIR)/include -I$(PROJ_ROOT)/libc/include
|
INC := -I$(CURDIR)/include -I$(PROJ_ROOT)/libc/include
|
||||||
CC_FLAGS := -mz80 --no-std-crt0 --std-c99 --opt-code-size $(INC)
|
|
||||||
|
|
||||||
BUILD := $(CURDIR)/build
|
BUILD := $(CURDIR)/build
|
||||||
|
COMMON_C := $(wildcard $(CURDIR)/common/*.c)
|
||||||
|
BGI256_C := $(wildcard $(CURDIR)/bgi256/*.c)
|
||||||
|
|
||||||
COMMON_C := $(wildcard $(CURDIR)/common/*.c)
|
COMMON_FAST_RELS := $(patsubst $(CURDIR)/common/%.c,$(BUILD)/fast/common/%.rel,$(COMMON_C))
|
||||||
BGI256_C := $(wildcard $(CURDIR)/bgi256/*.c)
|
BGI256_FAST_RELS := $(patsubst $(CURDIR)/bgi256/%.c,$(BUILD)/fast/bgi256/%.rel,$(BGI256_C))
|
||||||
# BGI16_C := $(wildcard $(CURDIR)/bgi16/*.c) # Фаза 2
|
COMMON_SAFE_RELS := $(patsubst $(CURDIR)/common/%.c,$(BUILD)/safe/common/%.rel,$(COMMON_C))
|
||||||
|
BGI256_SAFE_RELS := $(patsubst $(CURDIR)/bgi256/%.c,$(BUILD)/safe/bgi256/%.rel,$(BGI256_C))
|
||||||
COMMON_RELS := $(patsubst $(CURDIR)/common/%.c,$(BUILD)/common/%.rel,$(COMMON_C))
|
|
||||||
BGI256_RELS := $(patsubst $(CURDIR)/bgi256/%.c,$(BUILD)/bgi256/%.rel,$(BGI256_C))
|
|
||||||
KNOWN_RELS := $(COMMON_RELS) $(BGI256_RELS)
|
|
||||||
|
|
||||||
LIB_DIR := $(PROJ_ROOT)/lib
|
LIB_DIR := $(PROJ_ROOT)/lib
|
||||||
LIB256 := $(LIB_DIR)/bgi256.lib
|
LIB_FAST := $(LIB_DIR)/bgi256.lib
|
||||||
|
LIB_SAFE := $(LIB_DIR)/bgi256_safe.lib
|
||||||
|
|
||||||
# Штамп списка модулей — иначе удаление/переименование исходника не
|
all: fast safe
|
||||||
# триггерит перелинковку и stale .rel остаётся в архиве. На exFAT
|
|
||||||
# грубая mtime — сравниваем по списку, не по времени.
|
|
||||||
MODLIST := $(BUILD)/.modules
|
|
||||||
ifneq ($(shell cat $(MODLIST) 2>/dev/null),$(KNOWN_RELS))
|
|
||||||
_ := $(shell mkdir -p $(BUILD); echo "$(KNOWN_RELS)" > $(MODLIST); rm -f $(LIB256))
|
|
||||||
endif
|
|
||||||
|
|
||||||
all: $(LIB256)
|
fast: $(LIB_FAST)
|
||||||
|
|
||||||
# Pattern rule для common/ и bgi256/ (один уровень под build/).
|
safe: $(LIB_SAFE)
|
||||||
$(BUILD)/common/%.rel: $(CURDIR)/common/%.c
|
|
||||||
|
# --- Fast version: -DGFX_NOCHECK (guard'и выключены) ---
|
||||||
|
|
||||||
|
$(BUILD)/fast/common/%.rel: $(CURDIR)/common/%.c
|
||||||
@mkdir -p $(dir $@)
|
@mkdir -p $(dir $@)
|
||||||
$(SDCC) $(CC_FLAGS) -c -o $@ $<
|
$(SDCC) -mz80 --no-std-crt0 --std-c99 --opt-code-size -DGFX_NOCHECK $(INC) -c -o $@ $<
|
||||||
|
|
||||||
$(BUILD)/bgi256/%.rel: $(CURDIR)/bgi256/%.c
|
$(BUILD)/fast/bgi256/%.rel: $(CURDIR)/bgi256/%.c
|
||||||
@mkdir -p $(dir $@)
|
@mkdir -p $(dir $@)
|
||||||
$(SDCC) $(CC_FLAGS) -c -o $@ $<
|
$(SDCC) -mz80 --no-std-crt0 --std-c99 --opt-code-size -DGFX_NOCHECK $(INC) -c -o $@ $<
|
||||||
|
|
||||||
# Archive — sdar rcs = replace/create/symtab. Перед упаковкой удаляем
|
# --- Safe version: guard'и включены (по умолчанию) ---
|
||||||
# stale .rel (wildcard не знает об удалённых исходниках).
|
|
||||||
$(LIB256): $(COMMON_RELS) $(BGI256_RELS) $(MODLIST)
|
$(BUILD)/safe/common/%.rel: $(CURDIR)/common/%.c
|
||||||
@find $(BUILD) -name '*.rel' -print | sort > $(BUILD)/.have
|
@mkdir -p $(dir $@)
|
||||||
@printf '%s\n' $(KNOWN_RELS) | sort > $(BUILD)/.want
|
$(SDCC) -mz80 --no-std-crt0 --std-c99 --opt-code-size $(INC) -c -o $@ $<
|
||||||
@comm -23 $(BUILD)/.have $(BUILD)/.want | while read f; do \
|
|
||||||
echo " stale: $$f (исходник удалён) — rm"; \
|
$(BUILD)/safe/bgi256/%.rel: $(CURDIR)/bgi256/%.c
|
||||||
|
@mkdir -p $(dir $@)
|
||||||
|
$(SDCC) -mz80 --no-std-crt0 --std-c99 --opt-code-size $(INC) -c -o $@ $<
|
||||||
|
|
||||||
|
# --- Archive: fast ---
|
||||||
|
|
||||||
|
$(BUILD)/fast/.have: $(COMMON_FAST_RELS) $(BGI256_FAST_RELS)
|
||||||
|
@find $(BUILD)/fast -name '*.rel' -print | sort > $@ 2>/dev/null || true
|
||||||
|
@printf '%s\n' $(COMMON_FAST_RELS) $(BGI256_FAST_RELS) | sort > $(BUILD)/fast/.want
|
||||||
|
@comm -23 $(BUILD)/fast/.have $(BUILD)/fast/.want | while read f; do \
|
||||||
|
echo " stale: $$f — rm"; \
|
||||||
rm -f "$$f" "$${f%.rel}.asm" "$${f%.rel}.lst" "$${f%.rel}.sym"; \
|
rm -f "$$f" "$${f%.rel}.asm" "$${f%.rel}.lst" "$${f%.rel}.sym"; \
|
||||||
done
|
done
|
||||||
|
|
||||||
|
$(LIB_FAST): $(COMMON_FAST_RELS) $(BGI256_FAST_RELS) $(BUILD)/fast/.have
|
||||||
rm -f $@
|
rm -f $@
|
||||||
$(SDAR) -rcs $@ $(COMMON_RELS) $(BGI256_RELS)
|
$(SDAR) -rcs $@ $(COMMON_FAST_RELS) $(BGI256_FAST_RELS)
|
||||||
@echo " Built $@ with $(words $(COMMON_RELS)) common + $(words $(BGI256_RELS)) bgi256 modules."
|
@echo " Built $@ with $$(( $$(echo "$(words $(COMMON_FAST_RELS))") + $$(echo "$(words $(BGI256_FAST_RELS))") )) modules."
|
||||||
|
|
||||||
|
# --- Archive: safe ---
|
||||||
|
|
||||||
|
$(BUILD)/safe/.have: $(COMMON_SAFE_RELS) $(BGI256_SAFE_RELS)
|
||||||
|
@find $(BUILD)/safe -name '*.rel' -print | sort > $@ 2>/dev/null || true
|
||||||
|
@printf '%s\n' $(COMMON_SAFE_RELS) $(BGI256_SAFE_RELS) | sort > $(BUILD)/safe/.want
|
||||||
|
@comm -23 $(BUILD)/safe/.have $(BUILD)/safe/.want | while read f; do \
|
||||||
|
echo " stale: $$f — rm"; \
|
||||||
|
rm -f "$$f" "$${f%.rel}.asm" "$${f%.rel}.lst" "$${f%.rel}.sym"; \
|
||||||
|
done
|
||||||
|
|
||||||
|
$(LIB_SAFE): $(COMMON_SAFE_RELS) $(BGI256_SAFE_RELS) $(BUILD)/safe/.have
|
||||||
|
rm -f $@
|
||||||
|
$(SDAR) -rcs $@ $(COMMON_SAFE_RELS) $(BGI256_SAFE_RELS)
|
||||||
|
@echo " Built $@ with $$(( $$(echo "$(words $(COMMON_SAFE_RELS))") + $$(echo "$(words $(BGI256_SAFE_RELS))") )) modules."
|
||||||
|
|
||||||
clean:
|
clean:
|
||||||
rm -rf $(BUILD) $(LIB256)
|
rm -rf $(BUILD) $(LIB_FAST) $(LIB_SAFE)
|
||||||
|
|
||||||
.PHONY: all clean
|
.PHONY: all fast safe clean
|
||||||
|
|||||||
+20
-12
@@ -62,8 +62,8 @@ int _videomode_raw_set(uint8_t mode);
|
|||||||
|
|
||||||
extern uint8_t _gfx_saved_w3;
|
extern uint8_t _gfx_saved_w3;
|
||||||
|
|
||||||
void _bgi_begin(void);
|
void _bgi_begin(void) __preserves_regs(b,c,d,e,h,l);
|
||||||
void _bgi_end(void);
|
void _bgi_end(void) __preserves_regs(b,c,d,e,h,l);
|
||||||
|
|
||||||
/* ---- LEAF-операции драйвера (bgi256/ или bgi16/) ----------------- *
|
/* ---- LEAF-операции драйвера (bgi256/ или bgi16/) ----------------- *
|
||||||
* Каждая self-contained: raw-варианты НЕ ставят свою W3-скобку
|
* Каждая self-contained: raw-варианты НЕ ставят свою W3-скобку
|
||||||
@@ -86,17 +86,25 @@ unsigned _bgi_read (int x, int y);
|
|||||||
void _bgi_hspan (int x, int y, int len, uint8_t color);
|
void _bgi_hspan (int x, int y, int len, uint8_t color);
|
||||||
void _bgi_clearall(uint8_t color);
|
void _bgi_clearall(uint8_t color);
|
||||||
|
|
||||||
/* ---- Скретч акселератора 256 (bgi256/_gfx_acc256.c) -------------- *
|
/* ---- Fill-burst'ы акселератора 256 (register-ABI, asm-only) ------ *
|
||||||
* Общий для hspan/vspan/clear; однопоточно, IRQ выключены между
|
* Вызываются ТОЛЬКО из asm raw-примитивов; аргументы в регистрах, без
|
||||||
* _bgi_begin/_bgi_end. */
|
* глобального скретча в _DATA:
|
||||||
extern uint8_t _gfx_acc_color;
|
* HL = CPU-адрес (base + x), C = color,
|
||||||
extern uint8_t _gfx_acc_y;
|
* B = длина (0 = 256), E = y (строка для Port_Y).
|
||||||
extern uint8_t _gfx_acc_len; /* 0 = 256 — конвенция акселератора */
|
* Клоббер A/F; сохраняют BC/DE/HL/IX/IY. Pre: W3 замаплен, IRQ гасятся
|
||||||
extern uint16_t _gfx_acc_addr;
|
* внутри вокруг одного выстрела. Прототип void(void) — только чтобы
|
||||||
|
* линкер видел символ (реальный ABI регистровый, см. bgi256/_gfx_*fill256.c). */
|
||||||
|
|
||||||
/* Горизонтальный Fill-burst: _gfx_acc_len байт с _gfx_acc_addr на
|
/* Горизонтальный Fill-burst (bgi256/_gfx_hfill256.c). */
|
||||||
* строке _gfx_acc_y (W3 замаплен, DI активен). */
|
void _gfx_hfill256_segment(void);
|
||||||
void _gfx_hfill256_chunk(void);
|
|
||||||
|
/* Вертикальный Fill-burst (bgi256/_gfx_vfill256.c). */
|
||||||
|
void _gfx_vfill256_segment(void);
|
||||||
|
|
||||||
|
/* Заливка прямоугольника цветом: x, y, w, h, color.
|
||||||
|
* Механизм: один раз задаётся Horizontal_Size, затем в цикле по Y
|
||||||
|
* акселератор копирует байт цвета на ширину строки (docs/part2/accelerator_doc.txt). */
|
||||||
|
void _gfx_rectfill256(int x, int y, int w, int h, uint8_t color);
|
||||||
|
|
||||||
/* ---- Скретч 16-цветных примитивов (bgi16/_gfx_g16_state.c) ------- */
|
/* ---- Скретч 16-цветных примитивов (bgi16/_gfx_g16_state.c) ------- */
|
||||||
extern uint8_t _gfx_g16_y;
|
extern uint8_t _gfx_g16_y;
|
||||||
|
|||||||
@@ -1,21 +1,41 @@
|
|||||||
/*
|
/*
|
||||||
* _bgi_clear_raw — залить всё поле 320×256 цветом color, mode 0x81.
|
* _bgi_clear_raw — залить всё поле 320×256 цветом color, mode 0x81.
|
||||||
* Построчный hfill: 256 строк × 2 burst'а (256 + 64 байта) = 512.
|
* 320 вертикальных Fill-burst'ов (по колонке 256 строк), Port_Y=0.
|
||||||
* W3-naive: вызывающий обрамляет begin/end.
|
* Register-only asm, без глобального скретча. W3-naive: вызывающий
|
||||||
|
* обрамляет _bgi_begin/_bgi_end. color → A (__sdcccall(1)).
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
void _bgi_clear_raw(uint8_t color)
|
void _bgi_clear_raw(uint8_t color) __naked
|
||||||
{
|
{
|
||||||
_gfx_acc_color = color;
|
__asm
|
||||||
for (int y = 0; y < GFX_HEIGHT; y++) {
|
ld c, a ; color -> c
|
||||||
_gfx_acc_y = (uint8_t)y;
|
xor a, a
|
||||||
_gfx_acc_addr = _gfx_addr_base; /* burst 256 байт */
|
out (#0x89), a ; Port_Y = 0
|
||||||
_gfx_acc_len = 0;
|
|
||||||
_gfx_hfill256_chunk();
|
ld hl, (__gfx_addr_base) ; HL = база draw-страницы (0xC000/0xC140)
|
||||||
_gfx_acc_addr = (uint16_t)(_gfx_addr_base + 256); /* burst 64 байта */
|
ld de, #0x0000
|
||||||
_gfx_acc_len = 64;
|
|
||||||
_gfx_hfill256_chunk();
|
_clear_cyc0:
|
||||||
}
|
ld a, e ; if DE >= 320 - return
|
||||||
|
sub a, #0x40
|
||||||
|
ld a, d
|
||||||
|
sbc a, #0x01
|
||||||
|
ret NC
|
||||||
|
|
||||||
|
;; --- ПОСЛЕДОВАТЕЛЬНОСТЬ АКСЕЛЕРАТОРА ---
|
||||||
|
di
|
||||||
|
ld d, d ; 0x52 — режим размера блока
|
||||||
|
ld a, #0 ; 0x3E 0 — размер (256 точек по высоте)
|
||||||
|
ld e, e ; 0x5B — вертикальный Fill
|
||||||
|
ld a, c ; 0x79 — A = цвет (НЕ ещё один ld a,#n)
|
||||||
|
ld (hl), a ; выстрел; заливает _gfx_acc_len байт
|
||||||
|
ld b, b ; 0x40 — выключить
|
||||||
|
ei
|
||||||
|
|
||||||
|
inc hl
|
||||||
|
inc de
|
||||||
|
jr _clear_cyc0
|
||||||
|
__endasm;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,28 +1,66 @@
|
|||||||
/*
|
/*
|
||||||
* _bgi_hspan_raw — горизонтальная линия len пикселей от (x,y),
|
* _bgi_hspan_raw — горизонтальная линия len пикселей от (x,y), mode 0x81,
|
||||||
* mode 0x81, через Fill-burst'ы акселератора (до 256 байт за выстрел).
|
* через Fill-burst'ы акселератора (до 256 байт за выстрел). W3-naive:
|
||||||
* W3-naive: вызывающий обрамляет begin/end.
|
* вызывающий обрамляет _bgi_begin/_bgi_end.
|
||||||
|
*
|
||||||
|
* __sdcccall(1): x→HL, y→DE(E=y), len→стек(4/5(ix)), color→стек(6(ix)).
|
||||||
|
* Значения передаются в _gfx_hfill256_segment через регистры (HL=addr,
|
||||||
|
* C=color, B=len, E=y) — без глобального скретча. len>256 (макс. ширина
|
||||||
|
* 320) → два burst'а: хвост (len-256) на addr+256, затем 256 на addr;
|
||||||
|
* усечение len до байта даёт (len-256) для 257..320 (256 -> 0 = «256»).
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
void _bgi_hspan_raw(int x, int y, int len, uint8_t color)
|
void _bgi_hspan_raw(int x, int y, int len, uint8_t color) __naked
|
||||||
{
|
{
|
||||||
if ((unsigned)y >= GFX_HEIGHT) return;
|
__asm
|
||||||
if (x < 0) { len += x; x = 0; }
|
.globl __gfx_addr_base
|
||||||
if (x >= GFX_WIDTH) return;
|
.globl __gfx_hfill256_segment
|
||||||
if (x + len > GFX_WIDTH) len = GFX_WIDTH - x;
|
push ix
|
||||||
if (len <= 0) return;
|
ld ix, #0
|
||||||
|
add ix, sp
|
||||||
_gfx_acc_color = color;
|
#ifndef GFX_NOCHECK
|
||||||
_gfx_acc_y = (uint8_t)y;
|
ld a, d
|
||||||
_gfx_acc_addr = (uint16_t)(_gfx_addr_base + (unsigned)x);
|
or a, a
|
||||||
|
jr NZ, hs_ret ; (unsigned)y >= 256
|
||||||
while (len > 0) {
|
ld a, l
|
||||||
int chunk = len > 256 ? 256 : len;
|
sub a, #0x40
|
||||||
_gfx_acc_len = (chunk == 256) ? 0 : (uint8_t)chunk;
|
ld a, h
|
||||||
_gfx_hfill256_chunk();
|
sbc a, #0x01
|
||||||
len -= chunk;
|
jr NC, hs_ret ; (unsigned)x >= 320
|
||||||
_gfx_acc_addr += chunk;
|
#endif
|
||||||
}
|
ld c, l
|
||||||
|
ld b, h ; BC = x
|
||||||
|
ld hl, (__gfx_addr_base)
|
||||||
|
add hl, bc ; HL = base + x
|
||||||
|
ld a, 6 (ix)
|
||||||
|
ld c, a ; C = color
|
||||||
|
ld a, 5 (ix)
|
||||||
|
or a, a
|
||||||
|
jr Z, hs_single ; len < 256
|
||||||
|
ld a, 4 (ix)
|
||||||
|
or a, a
|
||||||
|
jr Z, hs_single ; len == 256 (B=0)
|
||||||
|
;; 257..320: два burst-a
|
||||||
|
push hl ; base addr
|
||||||
|
inc h ; addr + 256
|
||||||
|
ld a, 4 (ix)
|
||||||
|
ld b, a ; B = len-256 (низкий байт)
|
||||||
|
call __gfx_hfill256_segment
|
||||||
|
pop hl ; base addr
|
||||||
|
ld b, #0 ; 256
|
||||||
|
call __gfx_hfill256_segment
|
||||||
|
jr hs_ret
|
||||||
|
hs_single:
|
||||||
|
ld a, 4 (ix)
|
||||||
|
ld b, a ; B = len (0 если ==256)
|
||||||
|
call __gfx_hfill256_segment
|
||||||
|
hs_ret:
|
||||||
|
pop ix
|
||||||
|
pop hl
|
||||||
|
pop af
|
||||||
|
inc sp
|
||||||
|
jp (hl)
|
||||||
|
__endasm;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,30 +1,47 @@
|
|||||||
/*
|
/*
|
||||||
* _bgi_plot_raw — пиксель (x,y) цветом color, mode 0x81.
|
* _bgi_plot_raw — пиксель (x,y) цветом color, mode 0x81 (register-only asm).
|
||||||
*
|
*
|
||||||
* "Raw" = W3-naive: вызывающий уже сделал _gfx_w3_video_begin (W3 на
|
* "Raw" = W3-naive: вызывающий уже сделал _bgi_begin (W3 на видеобанке, DI).
|
||||||
* видеобанке, DI). Адресация: CPU _gfx_addr_base + x, Port_Y (0x89) = y.
|
* Адресация: CPU _gfx_addr_base + x, Port_Y (0x89) = y.
|
||||||
*
|
*
|
||||||
* Скретч отдельный от _gfx_acc_* — чтобы putpixel внутри цикла
|
* __sdcccall(1): x→HL, y→DE (E=low), color→стек (1 байт над ret-адресом).
|
||||||
* Брезенхэма не топтал внешнее состояние акселератора.
|
* Всё считается в регистрах — ни статик-скретча, ни round-trip через _DATA
|
||||||
|
* (самый горячий примитив: Брезенхэм в line/circle/fillpoly/draw_scaled).
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
static uint8_t _gfx_pp_y;
|
void _bgi_plot_raw(int x, int y, uint8_t color) __naked
|
||||||
static uint16_t _gfx_pp_addr;
|
|
||||||
static uint8_t _gfx_pp_color;
|
|
||||||
|
|
||||||
void _bgi_plot_raw(int x, int y, uint8_t color)
|
|
||||||
{
|
{
|
||||||
if ((unsigned)x >= GFX_WIDTH || (unsigned)y >= GFX_HEIGHT) return;
|
|
||||||
_gfx_pp_y = (uint8_t)y;
|
|
||||||
_gfx_pp_addr = (uint16_t)(_gfx_addr_base + (unsigned)x);
|
|
||||||
_gfx_pp_color = color;
|
|
||||||
__asm
|
__asm
|
||||||
ld a, (__gfx_pp_y)
|
.globl __gfx_addr_base
|
||||||
out (#0x89), a
|
#ifndef GFX_NOCHECK
|
||||||
ld hl, (__gfx_pp_addr)
|
ld a, l
|
||||||
ld a, (__gfx_pp_color)
|
sub a, #0x40
|
||||||
ld (hl), a
|
ld a, h
|
||||||
|
sbc a, #0x01
|
||||||
|
jr NC, pp_done ; (unsigned)x >= 320
|
||||||
|
ld a, d
|
||||||
|
or a, a
|
||||||
|
jr NZ, pp_done ; (unsigned)y >= 256
|
||||||
|
#endif
|
||||||
|
ld a, e
|
||||||
|
out (#0x89), a ; Port_Y = y
|
||||||
|
ld bc, (__gfx_addr_base)
|
||||||
|
add hl, bc ; HL = base + x
|
||||||
|
ld c, l
|
||||||
|
ld b, h ; BC = dest
|
||||||
|
ld hl, #2
|
||||||
|
add hl, sp
|
||||||
|
ld a, (hl) ; A = color (со стека, SP+2)
|
||||||
|
ld h, b
|
||||||
|
ld l, c ; HL = dest
|
||||||
|
ld (hl), a ; выстрел
|
||||||
|
#ifndef GFX_NOCHECK
|
||||||
|
pp_done:
|
||||||
|
#endif
|
||||||
|
pop hl ; ret-адрес
|
||||||
|
inc sp ; callee-pop байта color
|
||||||
|
jp (hl)
|
||||||
__endasm;
|
__endasm;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,27 +1,41 @@
|
|||||||
/*
|
/*
|
||||||
* _bgi_read_raw — прочитать пиксель (x,y) БЕЗ своей W3-скобки
|
* _bgi_read_raw — прочитать пиксель (x,y), mode 0x81 (register-only asm).
|
||||||
* (вызывающий уже сделал _gfx_w3_video_begin). Для блиттинга image:
|
*
|
||||||
* getimage/putimage читают тысячи пикселей в одной скобке.
|
* "Raw" = W3-naive: вызывающий уже сделал _bgi_begin (W3 на видеобанке, DI).
|
||||||
|
* Для блиттинга: getimage/putimage читают тысячи пикселей в одной скобке.
|
||||||
* За пределами экрана возвращает 0.
|
* За пределами экрана возвращает 0.
|
||||||
|
*
|
||||||
|
* __sdcccall(1): x→HL, y→DE (E=low); возврат uint8_t в A. Всё в регистрах,
|
||||||
|
* без статик-скретча (единый стиль с _bgi_plot_raw).
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
static uint8_t _gfx_gpr_y;
|
uint8_t _bgi_read_raw(int x, int y) __naked
|
||||||
static uint16_t _gfx_gpr_addr;
|
|
||||||
static uint8_t _gfx_gpr_color;
|
|
||||||
|
|
||||||
uint8_t _bgi_read_raw(int x, int y)
|
|
||||||
{
|
{
|
||||||
if ((unsigned)x >= GFX_WIDTH || (unsigned)y >= GFX_HEIGHT) return 0;
|
(void)x; (void)y;
|
||||||
_gfx_gpr_y = (uint8_t)y;
|
|
||||||
_gfx_gpr_addr = (uint16_t)(_gfx_addr_base + (unsigned)x);
|
|
||||||
__asm
|
__asm
|
||||||
ld a, (__gfx_gpr_y)
|
.globl __gfx_addr_base
|
||||||
out (#0x89), a
|
#ifndef GFX_NOCHECK
|
||||||
ld hl, (__gfx_gpr_addr)
|
ld a, l
|
||||||
ld a, (hl)
|
sub a, #0x40
|
||||||
ld (__gfx_gpr_color), a
|
ld a, h
|
||||||
|
sbc a, #0x01
|
||||||
|
jr NC, rr_zero ; (unsigned)x >= 320
|
||||||
|
ld a, d
|
||||||
|
or a, a
|
||||||
|
jr NZ, rr_zero ; (unsigned)y >= 256
|
||||||
|
#endif
|
||||||
|
ld a, e
|
||||||
|
out (#0x89), a ; Port_Y = y
|
||||||
|
ld bc, (__gfx_addr_base)
|
||||||
|
add hl, bc ; HL = base + x
|
||||||
|
ld a, (hl) ; A = пиксель (возврат)
|
||||||
|
ret
|
||||||
|
#ifndef GFX_NOCHECK
|
||||||
|
rr_zero:
|
||||||
|
xor a, a
|
||||||
|
ret
|
||||||
|
#endif
|
||||||
__endasm;
|
__endasm;
|
||||||
return _gfx_gpr_color;
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,50 +1,85 @@
|
|||||||
/*
|
/*
|
||||||
* _bgi_vspan_raw — вертикальная линия len пикселей от (x,y),
|
* _bgi_vspan_raw — вертикальная линия len пикселей от (x,y), mode 0x81,
|
||||||
* mode 0x81. Вертикальный Fill акселератора сам инкрементирует Port_Y,
|
* через Vertical Fill акселератора (один burst = колонка до 256 строк).
|
||||||
* так что вся колонка (высота 256) — один burst. W3-naive.
|
* W3-naive: вызывающий обрамляет _bgi_begin/_bgi_end.
|
||||||
|
*
|
||||||
|
* __sdcccall(1): x→HL, y→DE(E=y), len→стек(4/5(ix)), color→стек(6(ix)).
|
||||||
|
* В _gfx_vfill256_segment передаём HL=addr, C=color, B=len, E=y (без
|
||||||
|
* глобального скретча). x держим в BC на время клипа (clip портит HL/DE),
|
||||||
|
* адрес считаем в конце. len усекается до байта: 256 -> 0 = «256».
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
/* Вертикальный Fill: _gfx_acc_len пикселей в колонке _gfx_acc_addr,
|
void _bgi_vspan_raw(int x, int y, int len, uint8_t color) __naked
|
||||||
* верхняя строка _gfx_acc_y. Про SMC и правила FSM акселератора —
|
|
||||||
* см. _gfx_hfill256.c. */
|
|
||||||
static void vfill_chunk(void) __naked
|
|
||||||
{
|
{
|
||||||
__asm
|
__asm
|
||||||
ld a, (__gfx_acc_len)
|
.globl __gfx_addr_base
|
||||||
ld (_vfill256_len_imm), a
|
.globl __gfx_vfill256_segment
|
||||||
|
push ix
|
||||||
ld a, (__gfx_acc_y)
|
ld ix, #0
|
||||||
out (#0x89), a ; стартовый Y
|
add ix, sp
|
||||||
|
#ifndef GFX_NOCHECK
|
||||||
ld a, (__gfx_acc_color)
|
ld a, l
|
||||||
ld c, a
|
sub a, #0x40
|
||||||
ld hl, (__gfx_acc_addr)
|
ld a, h
|
||||||
|
sbc a, #0x01
|
||||||
ld d, d ; 0x52 — режим размера блока
|
jr NC, vs_ret ; (unsigned)x >= 320
|
||||||
ld a, #0 ; immediate-длина (патчится)
|
#endif
|
||||||
_vfill256_len_imm = . - 1
|
ld c, l
|
||||||
ld e, e ; 0x5B — вертикальный Fill
|
ld b, h ; BC = x (пережить клип)
|
||||||
ld a, c ; A = цвет
|
#ifndef GFX_NOCHECK
|
||||||
ld (hl), a ; выстрел
|
bit 7, d
|
||||||
ld b, b ; 0x40 — выключить
|
jr Z, vs_ypos
|
||||||
ret
|
;; y < 0: len += y ; y = 0
|
||||||
|
ld l, 4 (ix)
|
||||||
|
ld h, 5 (ix)
|
||||||
|
add hl, de ; len + y (y отрицателен)
|
||||||
|
ld 4 (ix), l
|
||||||
|
ld 5 (ix), h
|
||||||
|
ld de, #0
|
||||||
|
vs_ypos:
|
||||||
|
ld a, d
|
||||||
|
or a, a
|
||||||
|
jr NZ, vs_ret ; y >= 256
|
||||||
|
;; y + len > 256 ? -> len = 256 - y
|
||||||
|
ld l, 4 (ix)
|
||||||
|
ld h, 5 (ix)
|
||||||
|
add hl, de ; y + len (D=0)
|
||||||
|
ld a, h
|
||||||
|
or a, a
|
||||||
|
jr Z, vs_lenchk ; < 256
|
||||||
|
dec a
|
||||||
|
jr NZ, vs_clamp ; high >= 2
|
||||||
|
ld a, l
|
||||||
|
or a, a
|
||||||
|
jr Z, vs_lenchk ; == 256
|
||||||
|
vs_clamp:
|
||||||
|
xor a, a
|
||||||
|
sub a, e ; 0 - y (низкий байт)
|
||||||
|
ld 4 (ix), a
|
||||||
|
ld a, #1
|
||||||
|
sbc a, #0 ; 1 - borrow => 256 - y
|
||||||
|
ld 5 (ix), a
|
||||||
|
vs_lenchk:
|
||||||
|
ld a, 4 (ix)
|
||||||
|
or a, 5 (ix)
|
||||||
|
jr Z, vs_ret ; len == 0
|
||||||
|
bit 7, 5 (ix)
|
||||||
|
jr NZ, vs_ret ; len < 0
|
||||||
|
#endif
|
||||||
|
ld hl, (__gfx_addr_base)
|
||||||
|
add hl, bc ; HL = base + x
|
||||||
|
ld a, 6 (ix)
|
||||||
|
ld c, a ; C = color
|
||||||
|
ld a, 4 (ix)
|
||||||
|
ld b, a ; B = len (256 -> 0)
|
||||||
|
call __gfx_vfill256_segment
|
||||||
|
vs_ret:
|
||||||
|
pop ix
|
||||||
|
pop hl
|
||||||
|
pop af
|
||||||
|
inc sp
|
||||||
|
jp (hl)
|
||||||
__endasm;
|
__endasm;
|
||||||
}
|
}
|
||||||
|
|
||||||
void _bgi_vspan_raw(int x, int y, int len, uint8_t color)
|
|
||||||
{
|
|
||||||
if ((unsigned)x >= GFX_WIDTH) return;
|
|
||||||
if (y < 0) { len += y; y = 0; }
|
|
||||||
if (y >= GFX_HEIGHT) return;
|
|
||||||
if (y + len > GFX_HEIGHT) len = GFX_HEIGHT - y;
|
|
||||||
if (len <= 0) return;
|
|
||||||
|
|
||||||
/* GFX_HEIGHT = 256, полная колонка — один accel-burst. */
|
|
||||||
_gfx_acc_color = color;
|
|
||||||
_gfx_acc_y = (uint8_t)y;
|
|
||||||
_gfx_acc_addr = (uint16_t)(_gfx_addr_base + (unsigned)x);
|
|
||||||
_gfx_acc_len = (len == 256) ? 0 : (uint8_t)len;
|
|
||||||
vfill_chunk();
|
|
||||||
}
|
|
||||||
|
|||||||
@@ -1,12 +0,0 @@
|
|||||||
/*
|
|
||||||
* _gfx_acc256 — скретч акселератора для 256-цветных raw-примитивов
|
|
||||||
* (модуль только с данными). Общий для hline/vline/clear; однопоточно —
|
|
||||||
* GFX работает с выключенными прерываниями между W3-begin/end.
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include "../_bgi.h"
|
|
||||||
|
|
||||||
uint8_t _gfx_acc_color;
|
|
||||||
uint8_t _gfx_acc_y;
|
|
||||||
uint8_t _gfx_acc_len; /* 0 = 256 — конвенция акселератора */
|
|
||||||
uint16_t _gfx_acc_addr;
|
|
||||||
@@ -1,45 +1,43 @@
|
|||||||
/*
|
/*
|
||||||
* _gfx_hfill256_chunk — горизонтальный Fill-burst акселератора:
|
* _gfx_hfill256_segment — горизонтальный Fill-burst акселератора (register-ABI).
|
||||||
* _gfx_acc_len байт цвета _gfx_acc_color с адреса _gfx_acc_addr на
|
|
||||||
* строке _gfx_acc_y. Pre: W3 замаплен на видеобанк, DI активен.
|
|
||||||
*
|
*
|
||||||
* Опкоды акселератора (docs/converted/accel_r.txt):
|
* ВХОД (регистры; вызывается ТОЛЬКО из 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) режим «задать размер блока»; СЛЕДУЮЩИЙ байт — длина,
|
* LD D,D (0x52) режим «задать размер блока»; СЛЕДУЮЩИЙ байт — длина,
|
||||||
* ОБЯЗАН быть immediate-операндом LD A,n (0x3E)
|
* ОБЯЗАН быть immediate-операндом LD A,n (0x3E) → SMC-патч.
|
||||||
* LD C,C (0x49) горизонтальный Fill (LD (HL),A заливает n байт)
|
* LD C,C (0x49) горизонтальный Fill (LD (HL),A заливает n байт)
|
||||||
* LD B,B (0x40) выключить акселератор
|
* LD B,B (0x40) выключить акселератор
|
||||||
*
|
* Другой `ld a,#n` между LD C,C и стреляющим LD (HL),A вставлять нельзя —
|
||||||
* Байт длины патчится SMC — HOME после загрузки DSS это RAM, патчить
|
* FSM акселератора перечитает immediate как новый размер блока.
|
||||||
* собственный .EXE безопасно. Вставлять другой `ld a,#n` между LD C,C
|
|
||||||
* и стреляющим LD (HL),A нельзя — FSM акселератора перечитает immediate
|
|
||||||
* как новый размер блока.
|
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
void _gfx_hfill256_chunk(void) __naked
|
void _gfx_hfill256_segment(void) __naked
|
||||||
{
|
{
|
||||||
__asm
|
__asm
|
||||||
;; Пропатчить immediate LD A,#n байтом длины.
|
ld a, b
|
||||||
ld a, (__gfx_acc_len)
|
ld (_hfill256_len_imm), a ; SMC: размер блока <- B
|
||||||
ld (_hfill256_len_imm), a
|
ld a, e
|
||||||
|
out (#0x89), a ; Port_Y <- E (y)
|
||||||
ld a, (__gfx_acc_y)
|
di
|
||||||
out (#0x89), a ; Port_Y = y
|
ld d, d ; 0x52 — режим размера блока
|
||||||
|
ld a, #0
|
||||||
;; Цвет в C и адрес в HL готовим ДО взведения акселератора.
|
|
||||||
ld a, (__gfx_acc_color)
|
|
||||||
ld c, a
|
|
||||||
ld hl, (__gfx_acc_addr)
|
|
||||||
|
|
||||||
;; --- ПОСЛЕДОВАТЕЛЬНОСТЬ АКСЕЛЕРАТОРА ---
|
|
||||||
ld d, d ; 0x52 — режим размера блока
|
|
||||||
ld a, #0 ; 0x3E nn — размер (nn патчится выше)
|
|
||||||
_hfill256_len_imm = . - 1
|
_hfill256_len_imm = . - 1
|
||||||
ld c, c ; 0x49 — горизонтальный Fill
|
ld c, c ; 0x49 — горизонтальный Fill (C=color, no-op)
|
||||||
ld a, c ; 0x79 — A = цвет (НЕ ещё один ld a,#n)
|
ld a, c ; 0x79 — A = цвет
|
||||||
ld (hl), a ; выстрел; заливает _gfx_acc_len байт
|
ld (hl), a ; выстрел; заливает len байт
|
||||||
ld b, b ; 0x40 — выключить
|
ld b, b ; 0x40 — выключить (B=len, no-op)
|
||||||
|
ei
|
||||||
ret
|
ret
|
||||||
__endasm;
|
__endasm;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -0,0 +1,91 @@
|
|||||||
|
/*
|
||||||
|
* _gfx_rectfill256 — заливка прямоугольника (x,y,w,h) цветом color, mode 0x81.
|
||||||
|
*
|
||||||
|
* Выбор ориентации burst'а: если w>h и w<=256 — гоним h горизонтальных
|
||||||
|
* Fill'ов шириной w (y++ на каждой строке); иначе w вертикальных Fill'ов
|
||||||
|
* высотой h (addr++ на каждой колонке). Инварианты (color=C, len=B) и
|
||||||
|
* бегущий addr=HL/y=E живут в регистрах через весь цикл — _gfx_*_segment
|
||||||
|
* их сохраняет; счётчик другой размерности крутится в его стек-слоте.
|
||||||
|
*
|
||||||
|
* __sdcccall(1): x→HL, y→DE(E=y); w→4/5(ix), h→6/7(ix), color→8(ix).
|
||||||
|
* Pre: W3 замаплен, DI активен вокруг выстрелов внутри segment'ов.
|
||||||
|
* Вызывающий управляет _bgi_begin/_bgi_end. w,h предполагаются >= 0.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include "../_bgi.h"
|
||||||
|
|
||||||
|
void _gfx_rectfill256(int x, int y, int w, int h, uint8_t color) __naked
|
||||||
|
{
|
||||||
|
__asm
|
||||||
|
.globl __gfx_addr_base
|
||||||
|
.globl __gfx_hfill256_segment
|
||||||
|
.globl __gfx_vfill256_segment
|
||||||
|
push ix
|
||||||
|
ld ix, #0
|
||||||
|
add ix, sp
|
||||||
|
ld bc, (__gfx_addr_base)
|
||||||
|
add hl, bc ; HL = base + x (бегущий addr)
|
||||||
|
ld a, 8 (ix)
|
||||||
|
ld c, a ; C = color
|
||||||
|
|
||||||
|
;; --- ветка: w>h && w<=256 ? (unsigned, w/h >= 0) ---
|
||||||
|
ld a, 4 (ix)
|
||||||
|
sub a, 6 (ix)
|
||||||
|
ld b, a ; (w-h) низкий
|
||||||
|
ld a, 5 (ix)
|
||||||
|
sbc a, 7 (ix) ; CF=1 если w<h
|
||||||
|
jr C, rf_vbranch
|
||||||
|
or a, b
|
||||||
|
jr Z, rf_vbranch ; w==h -> не (w>h)
|
||||||
|
ld a, 5 (ix) ; w high
|
||||||
|
cp a, #2
|
||||||
|
jr NC, rf_vbranch ; w >= 512
|
||||||
|
dec a
|
||||||
|
jr NZ, rf_hbranch ; high==0 -> w<256
|
||||||
|
ld a, 4 (ix)
|
||||||
|
or a, a
|
||||||
|
jr NZ, rf_vbranch ; high==1,low!=0 -> w>256
|
||||||
|
|
||||||
|
rf_hbranch:
|
||||||
|
ld a, 4 (ix)
|
||||||
|
ld b, a ; B = len = w (256 -> 0)
|
||||||
|
rf_hloop:
|
||||||
|
ld a, 6 (ix)
|
||||||
|
or a, 7 (ix)
|
||||||
|
jr Z, rf_done ; h == 0
|
||||||
|
call __gfx_hfill256_segment
|
||||||
|
inc e ; y++
|
||||||
|
ld a, 6 (ix)
|
||||||
|
sub a, #1
|
||||||
|
ld 6 (ix), a
|
||||||
|
ld a, 7 (ix)
|
||||||
|
sbc a, #0
|
||||||
|
ld 7 (ix), a
|
||||||
|
jr rf_hloop
|
||||||
|
|
||||||
|
rf_vbranch:
|
||||||
|
ld a, 6 (ix)
|
||||||
|
ld b, a ; B = len = h (256 -> 0)
|
||||||
|
rf_vloop:
|
||||||
|
ld a, 4 (ix)
|
||||||
|
or a, 5 (ix)
|
||||||
|
jr Z, rf_done ; w == 0
|
||||||
|
call __gfx_vfill256_segment
|
||||||
|
inc hl ; addr++
|
||||||
|
ld a, 4 (ix)
|
||||||
|
sub a, #1
|
||||||
|
ld 4 (ix), a
|
||||||
|
ld a, 5 (ix)
|
||||||
|
sbc a, #0
|
||||||
|
ld 5 (ix), a
|
||||||
|
jr rf_vloop
|
||||||
|
|
||||||
|
rf_done:
|
||||||
|
pop ix
|
||||||
|
pop hl
|
||||||
|
pop af
|
||||||
|
pop af
|
||||||
|
inc sp
|
||||||
|
jp (hl)
|
||||||
|
__endasm;
|
||||||
|
}
|
||||||
@@ -0,0 +1,36 @@
|
|||||||
|
/*
|
||||||
|
* _gfx_vfill256_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 (все accel-опкоды — no-op'ы по
|
||||||
|
* регистрам; см. _gfx_hfill256.c). Pre: W3 замаплен (вызывающий сделал _bgi_begin).
|
||||||
|
*
|
||||||
|
* Опкоды: LD D,D (0x52) размер блока (SMC-immediate), LD E,E (0x5B)
|
||||||
|
* вертикальный Fill, LD B,B (0x40) выключить.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include "../_bgi.h"
|
||||||
|
|
||||||
|
void _gfx_vfill256_segment(void) __naked
|
||||||
|
{
|
||||||
|
__asm
|
||||||
|
ld a, b
|
||||||
|
ld (_vfill256_len_imm), a ; SMC: размер блока <- B
|
||||||
|
ld a, e
|
||||||
|
out (#0x89), a ; Port_Y <- E (y)
|
||||||
|
di
|
||||||
|
ld d, d ; 0x52 — режим размера блока
|
||||||
|
ld a, #0
|
||||||
|
_vfill256_len_imm = . - 1
|
||||||
|
ld e, e ; 0x5B — вертикальный Fill (E=y, no-op)
|
||||||
|
ld a, c ; 0x79 — A = цвет
|
||||||
|
ld (hl), a ; выстрел; заливает len байт
|
||||||
|
ld b, b ; 0x40 — выключить (B=len, no-op)
|
||||||
|
ei
|
||||||
|
ret
|
||||||
|
__endasm;
|
||||||
|
}
|
||||||
+24
-18
@@ -9,25 +9,31 @@ static uint8_t _gp_y;
|
|||||||
static uint16_t _gp_addr;
|
static uint16_t _gp_addr;
|
||||||
static uint8_t _gp_color;
|
static uint8_t _gp_color;
|
||||||
|
|
||||||
unsigned getpixel(int x, int y)
|
color_t getpixel(int x, int y)
|
||||||
{
|
{
|
||||||
|
#ifndef GFX_NOCHECK
|
||||||
if ((unsigned)x >= GFX_WIDTH || (unsigned)y >= GFX_HEIGHT) return 0;
|
if ((unsigned)x >= GFX_WIDTH || (unsigned)y >= GFX_HEIGHT) return 0;
|
||||||
_gp_y = (uint8_t)y;
|
#endif
|
||||||
_gp_addr = (uint16_t)(_gfx_addr_base + (unsigned)x);
|
_bgi_begin();
|
||||||
__asm
|
register uint8_t _gp_color = _bgi_read_raw(x, y);
|
||||||
di
|
_bgi_end();
|
||||||
in a, (#0xE2)
|
|
||||||
ld (__gfx_saved_w3), a
|
|
||||||
ld a, (__gfx_bank)
|
|
||||||
out (#0xE2), a
|
|
||||||
ld a, (_gp_y)
|
|
||||||
out (#0x89), a
|
|
||||||
ld hl, (_gp_addr)
|
|
||||||
ld a, (hl)
|
|
||||||
ld (_gp_color), a
|
|
||||||
ld a, (__gfx_saved_w3)
|
|
||||||
out (#0xE2), a
|
|
||||||
ei
|
|
||||||
__endasm;
|
|
||||||
return _gp_color;
|
return _gp_color;
|
||||||
|
// _gp_y = (uint8_t)y;
|
||||||
|
// _gp_addr = (uint16_t)(_gfx_addr_base + (unsigned)x);
|
||||||
|
// __asm
|
||||||
|
// di
|
||||||
|
// in a, (#0xE2)
|
||||||
|
// ld (__gfx_saved_w3), a
|
||||||
|
// ld a, (__gfx_bank)
|
||||||
|
// out (#0xE2), a
|
||||||
|
// ld a, (_gp_y)
|
||||||
|
// out (#0x89), a
|
||||||
|
// ld hl, (_gp_addr)
|
||||||
|
// ld a, (hl)
|
||||||
|
// ld (_gp_color), a
|
||||||
|
// ld a, (__gfx_saved_w3)
|
||||||
|
// out (#0xE2), a
|
||||||
|
// ei
|
||||||
|
// __endasm;
|
||||||
|
// return _gp_color;
|
||||||
}
|
}
|
||||||
|
|||||||
+25
-19
@@ -15,25 +15,31 @@ static uint8_t _pp_y;
|
|||||||
static uint16_t _pp_addr;
|
static uint16_t _pp_addr;
|
||||||
static uint8_t _pp_color;
|
static uint8_t _pp_color;
|
||||||
|
|
||||||
void putpixel(int x, int y, int color)
|
void putpixel(int x, int y, color_t color)
|
||||||
{
|
{
|
||||||
|
#ifndef GFX_NOCHECK
|
||||||
if ((unsigned)x >= GFX_WIDTH || (unsigned)y >= GFX_HEIGHT) return;
|
if ((unsigned)x >= GFX_WIDTH || (unsigned)y >= GFX_HEIGHT) return;
|
||||||
_pp_y = (uint8_t)y;
|
#endif
|
||||||
_pp_addr = (uint16_t)(_gfx_addr_base + (unsigned)x);
|
_bgi_begin();
|
||||||
_pp_color = (uint8_t)color;
|
_bgi_plot_raw(x, y, color);
|
||||||
__asm
|
_bgi_end();
|
||||||
di
|
return;
|
||||||
in a, (#0xE2)
|
// _pp_y = (uint8_t)y;
|
||||||
ld (__gfx_saved_w3), a
|
// _pp_addr = (uint16_t)(_gfx_addr_base + (unsigned)x);
|
||||||
ld a, (__gfx_bank)
|
// _pp_color = (uint8_t)color;
|
||||||
out (#0xE2), a
|
// __asm
|
||||||
ld a, (_pp_y)
|
// di
|
||||||
out (#0x89), a
|
// in a, (#0xE2)
|
||||||
ld hl, (_pp_addr)
|
// ld (__gfx_saved_w3), a
|
||||||
ld a, (_pp_color)
|
// ld a, (__gfx_bank)
|
||||||
ld (hl), a
|
// out (#0xE2), a
|
||||||
ld a, (__gfx_saved_w3)
|
// ld a, (_pp_y)
|
||||||
out (#0xE2), a
|
// out (#0x89), a
|
||||||
ei
|
// ld hl, (_pp_addr)
|
||||||
__endasm;
|
// ld a, (_pp_color)
|
||||||
|
// ld (hl), a
|
||||||
|
// ld a, (__gfx_saved_w3)
|
||||||
|
// out (#0xE2), a
|
||||||
|
// ei
|
||||||
|
// __endasm;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -11,10 +11,9 @@
|
|||||||
*/
|
*/
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
void _bgi_begin(void) __naked
|
void _bgi_begin(void) __preserves_regs(b,c,d,e,h,l) __naked
|
||||||
{
|
{
|
||||||
__asm
|
__asm
|
||||||
di
|
|
||||||
in a, (#0xE2)
|
in a, (#0xE2)
|
||||||
ld (__gfx_saved_w3), a
|
ld (__gfx_saved_w3), a
|
||||||
ld a, (__gfx_bank)
|
ld a, (__gfx_bank)
|
||||||
|
|||||||
@@ -4,12 +4,11 @@
|
|||||||
*/
|
*/
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
void _bgi_end(void) __naked
|
void _bgi_end(void) __naked __preserves_regs(b,c,d,e,h,l)
|
||||||
{
|
{
|
||||||
__asm
|
__asm
|
||||||
ld a, (__gfx_saved_w3)
|
ld a, (__gfx_saved_w3)
|
||||||
out (#0xE2), a
|
out (#0xE2), a
|
||||||
ei
|
|
||||||
ret
|
ret
|
||||||
__endasm;
|
__endasm;
|
||||||
}
|
}
|
||||||
|
|||||||
+10
-2
@@ -12,7 +12,15 @@ void bar(int left, int top, int right, int bottom)
|
|||||||
if (bottom < top) { t = top; top = bottom; bottom = t; }
|
if (bottom < top) { t = top; top = bottom; bottom = t; }
|
||||||
|
|
||||||
_bgi_begin();
|
_bgi_begin();
|
||||||
for (y = top; y <= bottom; y++)
|
if (_bgi_fill_pattern == EMPTY_FILL) {
|
||||||
_bgi_fill_span(left, right, y);
|
_gfx_rectfill256(left, top, right - left + 1, bottom - top + 1, _bgi_bg); return;
|
||||||
|
}
|
||||||
|
else if (_bgi_fill_pattern == SOLID_FILL || _bgi_fill_pattern == USER_FILL || _bgi_fill_pattern > CLOSE_DOT_FILL) {
|
||||||
|
_gfx_rectfill256(left, top, right - left + 1, bottom - top + 1, _bgi_fill_color);
|
||||||
|
return;
|
||||||
|
} else {
|
||||||
|
for (y = top; y <= bottom; y++)
|
||||||
|
_bgi_fill_span(left, right, y);
|
||||||
|
}
|
||||||
_bgi_end();
|
_bgi_end();
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
/* getbkcolor — текущий фоновый цвет. */
|
/* getbkcolor — текущий фоновый цвет. */
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
int getbkcolor(void)
|
color_t getbkcolor(void)
|
||||||
{
|
{
|
||||||
return _bgi_bg;
|
return _bgi_bg;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
/* getcolor — текущий цвет рисования. */
|
/* getcolor — текущий цвет рисования. */
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
int getcolor(void)
|
color_t getcolor(void)
|
||||||
{
|
{
|
||||||
return _bgi_fg;
|
return _bgi_fg;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
/* getmaxcolor — максимальный индекс цвета (255 в 256-цветном режиме). */
|
/* getmaxcolor — максимальный индекс цвета (255 в 256-цветном режиме). */
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
int getmaxcolor(void)
|
color_t getmaxcolor(void)
|
||||||
{
|
{
|
||||||
return _bgi_maxcolor;
|
return _bgi_maxcolor;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
/* setbkcolor — задать фоновый цвет (cleardevice, фон текста). */
|
/* setbkcolor — задать фоновый цвет (cleardevice, фон текста). */
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
void setbkcolor(int color)
|
void setbkcolor(color_t color)
|
||||||
{
|
{
|
||||||
_bgi_bg = (uint8_t)color;
|
_bgi_bg = (uint8_t)color;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
/* setcolor — задать текущий цвет рисования. */
|
/* setcolor — задать текущий цвет рисования. */
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
void setcolor(int color)
|
void setcolor(color_t color)
|
||||||
{
|
{
|
||||||
_bgi_fg = (uint8_t)color;
|
_bgi_fg = (uint8_t)color;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
/* setfillstyle — задать паттерн и цвет заливки (bar/fillpoly/…). */
|
/* setfillstyle — задать паттерн и цвет заливки (bar/fillpoly/…). */
|
||||||
#include "../_bgi.h"
|
#include "../_bgi.h"
|
||||||
|
|
||||||
void setfillstyle(int pattern, int color)
|
void setfillstyle(int pattern, color_t color)
|
||||||
{
|
{
|
||||||
_bgi_fill_pattern = (uint8_t)pattern;
|
_bgi_fill_pattern = (uint8_t)pattern;
|
||||||
_bgi_fill_color = (uint8_t)color;
|
_bgi_fill_color = (uint8_t)color;
|
||||||
|
|||||||
@@ -23,6 +23,8 @@
|
|||||||
#ifndef GRAPHICS_H
|
#ifndef GRAPHICS_H
|
||||||
#define GRAPHICS_H
|
#define GRAPHICS_H
|
||||||
|
|
||||||
|
#include <stdint.h>
|
||||||
|
|
||||||
/* ---- Стандартные EGA/VGA цвета (индексы палитры 0..15) ------------ */
|
/* ---- Стандартные EGA/VGA цвета (индексы палитры 0..15) ------------ */
|
||||||
enum {
|
enum {
|
||||||
BLACK = 0, BLUE, GREEN, CYAN, RED, MAGENTA, BROWN, LIGHTGRAY,
|
BLACK = 0, BLUE, GREEN, CYAN, RED, MAGENTA, BROWN, LIGHTGRAY,
|
||||||
@@ -30,6 +32,10 @@ enum {
|
|||||||
YELLOW, WHITE
|
YELLOW, WHITE
|
||||||
};
|
};
|
||||||
|
|
||||||
|
/* 8-битный цвет (индекс палитры). При смене формата достаточно поменять
|
||||||
|
* один typedef — все public-функции используют этот тип. */
|
||||||
|
typedef uint8_t color_t;
|
||||||
|
|
||||||
/* ---- Коды graphresult() ------------------------------------------ */
|
/* ---- Коды graphresult() ------------------------------------------ */
|
||||||
#define grOk 0
|
#define grOk 0
|
||||||
#define grNoInitGraph (-1)
|
#define grNoInitGraph (-1)
|
||||||
@@ -55,17 +61,17 @@ void cleardevice(void);
|
|||||||
|
|
||||||
int getmaxx(void); /* 319 */
|
int getmaxx(void); /* 319 */
|
||||||
int getmaxy(void); /* 255 */
|
int getmaxy(void); /* 255 */
|
||||||
int getmaxcolor(void); /* 255 */
|
color_t getmaxcolor(void); /* 255 */
|
||||||
|
|
||||||
void setcolor(int color); /* текущий цвет рисования */
|
void setcolor(color_t color); /* текущий цвет рисования */
|
||||||
int getcolor(void);
|
color_t getcolor(void);
|
||||||
void setbkcolor(int color); /* фоновый цвет (для cleardevice/текста) */
|
void setbkcolor(color_t color); /* фоновый цвет (для cleardevice/текста) */
|
||||||
int getbkcolor(void);
|
color_t getbkcolor(void);
|
||||||
|
|
||||||
/* ---- Точки ------------------------------------------------------- */
|
/* ---- Точки ------------------------------------------------------- */
|
||||||
|
|
||||||
void putpixel(int x, int y, int color);
|
void putpixel(int x, int y, color_t color);
|
||||||
unsigned getpixel(int x, int y);
|
color_t getpixel(int x, int y);
|
||||||
|
|
||||||
/* ---- Текущая позиция и линии ------------------------------------- */
|
/* ---- Текущая позиция и линии ------------------------------------- */
|
||||||
|
|
||||||
@@ -116,9 +122,9 @@ enum {
|
|||||||
INTERLEAVE_FILL, WIDE_DOT_FILL, CLOSE_DOT_FILL, USER_FILL
|
INTERLEAVE_FILL, WIDE_DOT_FILL, CLOSE_DOT_FILL, USER_FILL
|
||||||
};
|
};
|
||||||
|
|
||||||
struct fillsettingstype { int pattern; int color; };
|
struct fillsettingstype { int pattern; color_t color; };
|
||||||
|
|
||||||
void setfillstyle(int pattern, int color);
|
void setfillstyle(int pattern, color_t color);
|
||||||
void getfillsettings(struct fillsettingstype *fillinfo);
|
void getfillsettings(struct fillsettingstype *fillinfo);
|
||||||
|
|
||||||
/* bar — залитый прямоугольник (текущий стиль заливки, без рамки). */
|
/* bar — залитый прямоугольник (текущий стиль заливки, без рамки). */
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
PROJ_ROOT := $(abspath $(CURDIR)/../..)
|
PROJ_ROOT := $(abspath $(CURDIR)/../..)
|
||||||
EXAMPLE := bgi_img
|
EXAMPLE := bgi_img
|
||||||
EXTRA_FLAGS := --gfx 256
|
EXTRA_FLAGS ?= --gfx 256
|
||||||
include $(PROJ_ROOT)/app.mk
|
include $(PROJ_ROOT)/app.mk
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
PROJ_ROOT := $(abspath $(CURDIR)/../..)
|
PROJ_ROOT := $(abspath $(CURDIR)/../..)
|
||||||
EXAMPLE := bgitest
|
EXAMPLE := bgitest
|
||||||
EXTRA_FLAGS := --gfx 256
|
EXTRA_FLAGS ?= --gfx 256
|
||||||
include $(PROJ_ROOT)/app.mk
|
include $(PROJ_ROOT)/app.mk
|
||||||
|
|||||||
@@ -20,6 +20,9 @@
|
|||||||
#include <gfx.h> /* GFX_WIDTH/HEIGHT, gfx_pal_load (mode-agnostic) */
|
#include <gfx.h> /* GFX_WIDTH/HEIGHT, gfx_pal_load (mode-agnostic) */
|
||||||
#include <stdint.h>
|
#include <stdint.h>
|
||||||
|
|
||||||
|
|
||||||
|
extern void gfx_rectfill(int x, int y, int w, int h, uint8_t color);
|
||||||
|
|
||||||
static uint8_t palette_data[256 * 4];
|
static uint8_t palette_data[256 * 4];
|
||||||
|
|
||||||
static void wait_key(void)
|
static void wait_key(void)
|
||||||
@@ -48,8 +51,11 @@ int main(void)
|
|||||||
setcolor(0xFF);
|
setcolor(0xFF);
|
||||||
line(1, 1, GFX_WIDTH - 2, 1); /* top */
|
line(1, 1, GFX_WIDTH - 2, 1); /* top */
|
||||||
line(1, GFX_HEIGHT - 2, GFX_WIDTH - 2, GFX_HEIGHT - 2); /* bottom */
|
line(1, GFX_HEIGHT - 2, GFX_WIDTH - 2, GFX_HEIGHT - 2); /* bottom */
|
||||||
line(1, 2, 1, GFX_HEIGHT - 4); /* left */
|
line(1, 1, 1, GFX_HEIGHT - 2); /* left */
|
||||||
line(GFX_WIDTH - 2, 2, GFX_WIDTH - 2, GFX_HEIGHT - 4); /* right */
|
line(GFX_WIDTH - 2, 1, GFX_WIDTH - 2, GFX_HEIGHT - 2); /* right */
|
||||||
|
|
||||||
|
// gfx_rectfill(20, 20, 40, 3, 120);
|
||||||
|
// gfx_rectfill(120, 20, 3, 40, 120);
|
||||||
wait_key();
|
wait_key();
|
||||||
|
|
||||||
/* --- Stage 2: nested rectangles --------------------------------- */
|
/* --- Stage 2: nested rectangles --------------------------------- */
|
||||||
@@ -57,11 +63,12 @@ int main(void)
|
|||||||
for (int i = 0; i < 16; i++) {
|
for (int i = 0; i < 16; i++) {
|
||||||
setcolor((uint8_t)(0x40 + i * 8));
|
setcolor((uint8_t)(0x40 + i * 8));
|
||||||
rectangle(i * 10, i * 8,
|
rectangle(i * 10, i * 8,
|
||||||
GFX_WIDTH - i * 20,
|
GFX_WIDTH - i * 10,
|
||||||
GFX_HEIGHT - i * 16);
|
GFX_HEIGHT - i * 8);
|
||||||
}
|
}
|
||||||
wait_key();
|
wait_key();
|
||||||
|
|
||||||
|
|
||||||
/* --- Stage 3: filled-rect colour bars (bar = залитый прямоугольник) */
|
/* --- Stage 3: filled-rect colour bars (bar = залитый прямоугольник) */
|
||||||
setbkcolor(0); cleardevice();
|
setbkcolor(0); cleardevice();
|
||||||
for (int i = 0; i < 16; i++) {
|
for (int i = 0; i < 16; i++) {
|
||||||
|
|||||||
@@ -111,6 +111,17 @@ CADENCE = 0.14 # шаг между символами
|
|||||||
HOLD = 0.06 # длительность удержания клавиши
|
HOLD = 0.06 # длительность удержания клавиши
|
||||||
|
|
||||||
|
|
||||||
|
def basename_83(name):
|
||||||
|
"""Обрезать имя файла до формата 8.3, как в FAT12 корневом каталоге."""
|
||||||
|
name = name.upper()
|
||||||
|
if '.' in name:
|
||||||
|
base, ext = name.rsplit('.', 1)
|
||||||
|
base = base[:8].ljust(8, ' ')
|
||||||
|
ext = ext[:3].ljust(3, ' ')
|
||||||
|
return f"{base}.{ext}"
|
||||||
|
return name[:8].ljust(8, ' ') + '.EXE'
|
||||||
|
|
||||||
|
|
||||||
def resolve(ch):
|
def resolve(ch):
|
||||||
"""char → (tag, mask, need_shift). Заглавные буквы = shift+строчная."""
|
"""char → (tag, mask, need_shift). Заглавные буквы = shift+строчная."""
|
||||||
if ch in PHYS:
|
if ch in PHYS:
|
||||||
@@ -238,7 +249,7 @@ def main():
|
|||||||
if not os.path.isfile(exe_path):
|
if not os.path.isfile(exe_path):
|
||||||
print(f"ОШИБКА: не найден {exe_path}")
|
print(f"ОШИБКА: не найден {exe_path}")
|
||||||
sys.exit(1)
|
sys.exit(1)
|
||||||
exe_name = os.path.basename(exe_path).lower()
|
exe_name = basename_83(os.path.basename(exe_path)).upper()
|
||||||
steps.append((args.launch_at, f"a:\\{exe_name}\n"))
|
steps.append((args.launch_at, f"a:\\{exe_name}\n"))
|
||||||
if not steps:
|
if not steps:
|
||||||
print("ОШИБКА: укажите exe для запуска или хотя бы один --step")
|
print("ОШИБКА: укажите exe для запуска или хотя бы один --step")
|
||||||
|
|||||||
Reference in New Issue
Block a user