diff --git a/applications/PoP/roomtest/Makefile b/applications/PoP/roomtest/Makefile index ddaeea4..8a589c7 100644 --- a/applications/PoP/roomtest/Makefile +++ b/applications/PoP/roomtest/Makefile @@ -7,10 +7,12 @@ EXAMPLE := roomtest # CODE ~23КБ переполняет W1 и лезет в фиксированный DATA@0x8000 в huge). MEMORY ?= small EXTRA_FLAGS ?= --gfx 256 -EXTRA_SRCS := pop_bg.c pop_kid.c pop_ctrl.c pop_map.c +EXTRA_SRCS := pop_bg.c pop_kid.c pop_ctrl.c pop_map.c pop_level.c BG_DIR := $(CURDIR)/../poc/res/bg KID_DIR := $(CURDIR)/../poc/res/kid +LVL_DIR := $(CURDIR)/../SDLPoP/data/LEVELS +LVL_DATA := $(LVL_DIR)/res2001.bin BG_DATA := $(BG_DIR)/pop_env0.atl $(BG_DIR)/pop_env1.atl $(BG_DIR)/pop_env2.atl \ $(BG_DIR)/pop_env3.atl $(BG_DIR)/pop_env4.atl \ $(BG_DIR)/pop_wall.atl $(BG_DIR)/pop_fore.atl @@ -20,7 +22,7 @@ BG_DATA := $(BG_DIR)/pop_env0.atl $(BG_DIR)/pop_env1.atl $(BG_DIR)/pop_env2. KID_PAGES := $(foreach n,0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27,$(KID_DIR)/kid$(n).atl) KID_DATA := $(KID_PAGES) $(KID_DIR)/kid.pal -EXTRA_DATA := $(BG_DATA) $(KID_DATA) +EXTRA_DATA := $(BG_DATA) $(KID_DATA) $(LVL_DATA) include $(PROJ_ROOT)/app.mk TC := $(PROJ_ROOT)/applications/PoP/toolchain @@ -31,4 +33,4 @@ $(KID_DATA): $(TC)/pop_pack_kid.py $(TC)/pop_pack_bg.py kid_data.h: $(TC)/pop_extract_kid_data.py cd $(TC) && python3 pop_extract_kid_data.py -$(EXAMPLE).exe: pop_bg.c pop_bg.h pop_kid.c pop_kid.h pop_ctrl.c pop_ctrl.h pop_map.c pop_map.h kid_data.h room1_data.h $(BG_DATA) $(KID_DATA) +$(EXAMPLE).exe: pop_bg.c pop_bg.h pop_kid.c pop_kid.h pop_ctrl.c pop_ctrl.h pop_map.c pop_map.h pop_level.c pop_level.h kid_data.h $(BG_DATA) $(KID_DATA) $(LVL_DATA) diff --git a/applications/PoP/roomtest/pop_level.c b/applications/PoP/roomtest/pop_level.c new file mode 100644 index 0000000..6307013 --- /dev/null +++ b/applications/PoP/roomtest/pop_level.c @@ -0,0 +1,147 @@ +/* + * pop_level.c — загрузка уровня PoP из сырого res200N.bin (Фаза L1). + * См. pop_level.h. Порт формата blueprnt DAT 1.0 (Table 6 POP-DAT). + */ +#include +#include +#include +#include +#include /* gfx_w0_map / gfx_w0_unmap */ +#include "pop_level.h" + +/* ISR-стаб W0-страницы (тот же приём, что atlas_load): при прерывании с + * замапленной в W0 страницей CPU прыгает на 0x0038 → там обязан быть JP на + * _gfx_w0_isr (восстановит окно). Символ внутренний для libbgi, но + * стабильный — линкер тянет его из bgi256.lib (графика уже подключена). */ +extern void _gfx_w0_isr(void); + +#define LVL_DATA_OFF 0x100u /* данные с 0x100; 0x00..0xFF — ISR-стаб */ + +/* Смещения блоков blueprnt относительно начала данных (Table 6). */ +#define BP_FG 0u +#define BP_BG 720u +#define BP_LINKS 1952u +#define BP_START 2112u +#define ROOM_TILES 30u +#define MIN_SIZE (BP_START + 3u) /* минимум, чтобы прочитать старт */ + +static uint8_t lvl_blk, lvl_page, lvl_ok; + +int pop_level_load(const char *path) +{ + uint8_t *pg = (uint8_t *)0xC000; /* страница мапится в W3 на время чтения */ + uint8_t saved_w3, blk; + uint16_t stub; + int fd, n; + + fd = open(path, O_RDONLY); + if (fd < 0) return -1; + + blk = mem_alloc_pages(1); + if (!blk) { close(fd); return -1; } + lvl_blk = blk; + lvl_page = mem_get_page(blk, 0); + + saved_w3 = _io_page_w3; + sprinter_page_w3(lvl_page); + /* Файл целиком в offset 0x100 (ESTEX READ пишет в W3 — как atlas_load). */ + n = read(fd, pg + LVL_DATA_OFF, 16384 - LVL_DATA_OFF); + if (n >= (int)MIN_SIZE) { /* пропатчить ISR-стаб */ + stub = (uint16_t)&_gfx_w0_isr; + pg[0x38] = 0xC3; /* JP _gfx_w0_isr */ + pg[0x39] = (uint8_t)(stub & 0xFF); + pg[0x3A] = (uint8_t)(stub >> 8); + pg[0x66] = 0xED; pg[0x67] = 0x45; /* RETN (NMI-хвост) */ + } + sprinter_page_w3(saved_w3); + close(fd); + + if (n < (int)MIN_SIZE) { mem_free_block(blk); return -1; } + lvl_ok = 1; + return 0; +} + +void pop_level_free(void) +{ + if (lvl_ok) { mem_free_block(lvl_blk); lvl_ok = 0; } +} + +/* Указатель на fg-тайлы комнаты r (1..24) в W0-пространстве (страница уже + * замаплена вызывающим). */ +static const uint8_t *room_fg_ptr(uint8_t r) +{ + return (const uint8_t *)(LVL_DATA_OFF + BP_FG) + (uint16_t)(r - 1) * ROOM_TILES; +} +static const uint8_t *room_bg_ptr(uint8_t r) +{ + return (const uint8_t *)(LVL_DATA_OFF + BP_BG) + (uint16_t)(r - 1) * ROOM_TILES; +} + +int pop_room_load(uint8_t room, uint8_t *fg, uint8_t *bg, + uint8_t *lcol_fg, uint8_t *lcol_bg, uint8_t *below_fg) +{ + const uint8_t *rfg, *rbg, *lnk; + uint8_t left, down, i; + + if (!lvl_ok || room < 1 || room > 24) return -1; + + gfx_w0_map(lvl_page); + rfg = room_fg_ptr(room); + rbg = room_bg_ptr(room); + lnk = (const uint8_t *)(LVL_DATA_OFF + BP_LINKS) + (uint16_t)(room - 1) * 4; + + for (i = 0; i < ROOM_TILES; i++) { + fg[i] = (uint8_t)(rfg[i] & 0x1F); /* тип тайла (верх. биты — модиф., пока не нужны) */ + bg[i] = rbg[i]; /* backtable как есть */ + } + + left = lnk[0]; /* L */ + down = lnk[3]; /* D */ + + /* leftcol: правый столбец (col9) комнаты слева, строки 0..2 */ + if (left >= 1 && left <= 24) { + const uint8_t *lf = room_fg_ptr(left); + const uint8_t *lb = room_bg_ptr(left); + for (i = 0; i < 3; i++) { + lcol_fg[i] = (uint8_t)(lf[i * 10 + 9] & 0x1F); + lcol_bg[i] = lb[i * 10 + 9]; + } + } else { + for (i = 0; i < 3; i++) { lcol_fg[i] = 20; lcol_bg[i] = 0; } /* нет комнаты = стена */ + } + + /* belowrow: верхний ряд (row0) комнаты снизу */ + if (down >= 1 && down <= 24) { + const uint8_t *df = room_fg_ptr(down); + for (i = 0; i < 10; i++) below_fg[i] = (uint8_t)(df[i] & 0x1F); + } else { + for (i = 0; i < 10; i++) below_fg[i] = 20; /* нет комнаты снизу = стена */ + } + + gfx_w0_unmap(); + return 0; +} + +uint8_t pop_room_link(uint8_t room, uint8_t side) +{ + uint8_t v; + if (!lvl_ok || room < 1 || room > 24 || side > 3) return 0; + gfx_w0_map(lvl_page); + v = ((const uint8_t *)(LVL_DATA_OFF + BP_LINKS))[(uint16_t)(room - 1) * 4 + side]; + gfx_w0_unmap(); + return v; +} + +static uint8_t start_byte(uint16_t off) +{ + uint8_t v; + if (!lvl_ok) return 0; + gfx_w0_map(lvl_page); + v = ((const uint8_t *)(LVL_DATA_OFF))[off]; + gfx_w0_unmap(); + return v; +} + +uint8_t pop_level_start_room(void) { return start_byte(BP_START + 0); } +uint8_t pop_level_start_pos(void) { return start_byte(BP_START + 1); } +int8_t pop_level_start_dir(void) { return (int8_t)start_byte(BP_START + 2); } diff --git a/applications/PoP/roomtest/pop_level.h b/applications/PoP/roomtest/pop_level.h new file mode 100644 index 0000000..ed94d74 --- /dev/null +++ b/applications/PoP/roomtest/pop_level.h @@ -0,0 +1,48 @@ +/* + * pop_level.h — данные уровня PoP из сырого файла res200N.bin (Фаза L1). + * + * Уровень загружается ОДИН раз в отдельную EMM-страницу (как атласы: + * данные с offset 0x100, ISR-стаб в первых байтах — страница безопасна + * для маппинга в W0). Файл — сырой blueprnt DAT 1.0 (2305 байт, БЕЗ + * checksum-байта; Table 6 спецификации POP-DAT): + * foretable(fg) @0 backtable(bg) @720 door I/II @1440/1696 + * links @1952 (24×{L,R,U,D}) start @2112 ... + * Тайл-код = байт fg & 0x1F (верхние биты — модификатор, пока не нужны); + * bg передаётся как есть. См. applications/PoP/docs/POP-DAT-* . + * + * Рабочая копия ТЕКУЩЕЙ комнаты живёт в обычной памяти (W2) у приложения + * (мутабельная — loose→empty); pop_room_load извлекает её из страницы + + * тонкие срезы соседей для кромок (правый столбец left-комнаты, верхний + * ряд down-комнаты). Страница маппится в W0 только на время извлечения. + */ +#ifndef POP_LEVEL_H +#define POP_LEVEL_H + +#include + +/* Загрузить уровень из файла в EMM-страницу. 0 — OK, -1 — ошибка + * (open/alloc/размер). Звать ПОСЛЕ первого atlas_load (pop_bg_load) — + * он снимает страницу ядра DSS для W0-unmap. */ +int pop_level_load(const char *path); +void pop_level_free(void); + +/* Извлечь комнату room (1..24) в массивы приложения (W2): + * fg[30], bg[30] — тайлы комнаты (fg маскирован &0x1F, bg raw); + * lcol_fg[3], lcol_bg[3] — правый столбец (col9) комнаты СЛЕВА (кромка + * col0); нет комнаты → стена/0; + * below_fg[10] — верхний ряд (row0) комнаты СНИЗУ («стена + * вниз»); нет комнаты → стена. + * 0 — OK, -1 — уровень не загружен / room вне диапазона. */ +int pop_room_load(uint8_t room, uint8_t *fg, uint8_t *bg, + uint8_t *lcol_fg, uint8_t *lcol_bg, uint8_t *below_fg); + +/* Связь комнаты по стороне (0=L,1=R,2=U,3=D) → номер соседней (1..24) или + * 0, если стороны нет. Для переходов между комнатами (L2/L3). */ +uint8_t pop_room_link(uint8_t room, uint8_t side); + +/* Стартовая позиция уровня (блок @2112): комната / поза / направление. */ +uint8_t pop_level_start_room(void); +uint8_t pop_level_start_pos(void); +int8_t pop_level_start_dir(void); + +#endif diff --git a/applications/PoP/roomtest/room1_data.h b/applications/PoP/roomtest/room1_data.h deleted file mode 100644 index 2f48c4d..0000000 --- a/applications/PoP/roomtest/room1_data.h +++ /dev/null @@ -1,13 +0,0 @@ -/* room1_data.h — данные комнаты 1 ур.1 (res2001) + левый столбец - * соседа (room 5 col9) для границы-решётки. Сгенерировано - * gen из render_room; fg=foretable code, bg=backtable modifier. */ -#ifndef ROOM1_DATA_H -#define ROOM1_DATA_H -static const unsigned char room1_fg[30] = {0x00,0x00,0x00,0x01,0x01,0x01,0x01,0x01,0x14,0x14,0x13,0x13,0x01,0x03,0x00,0x14,0x14,0x14,0x14,0x14,0x14,0x14,0x14,0x14,0x0E,0x03,0x0B,0x01,0x01,0x14}; -static const unsigned char room1_bg[30] = {0xFF,0xFF,0xFF,0x00,0x01,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x00,0x00}; -static const unsigned char leftcol_fg[3] = {0x04,0x14,0x14}; -static const unsigned char leftcol_bg[3] = {0x01,0x00,0x00}; -/* Ряд 0 комнаты СНИЗУ (room 2, link Dn) — для topright «стены вниз» под - * упавшим loose (2,6): room2(0,5)=0x14 стена. Из res2002.bin row0. */ -static const unsigned char belowrow_fg[10] = {0x14,0x14,0x00,0x00,0x00,0x14,0x01,0x03,0x01,0x03}; -#endif diff --git a/applications/PoP/roomtest/roomtest.c b/applications/PoP/roomtest/roomtest.c index 831f024..cfa7d42 100644 --- a/applications/PoP/roomtest/roomtest.c +++ b/applications/PoP/roomtest/roomtest.c @@ -13,10 +13,11 @@ #include "pop_kid.h" #include "pop_ctrl.h" #include "pop_map.h" -#include "room1_data.h" +#include "pop_level.h" /* seq_2_stand (types.h seqids) — Kid стоит, ждёт ввода. */ #define SEQ_STAND 2 +#define ROOM_1 1 int main(void) { @@ -24,13 +25,14 @@ int main(void) * по умолчанию (без мерцания); SPACE переключает в однобуфер для * отладки багов рисования (edge по sp_prev, чтоб не дёргать). */ uint8_t pg, front = 0, back, dbuf = 1, sp_prev = 0, frozen = 0; - /* МУТАБЕЛЬНАЯ копия комнаты — одна на отрисовку (pop_room_draw) И - * коллизию (pop_map): loose-пол при падении меняет тайл на empty, и - * оба модуля должны это видеть. */ - uint8_t room_fg[30]; - for (pg = 0; pg < 30; pg++) room_fg[pg] = room1_fg[pg]; + /* МУТАБЕЛЬНАЯ рабочая копия ТЕКУЩЕЙ комнаты в обычной памяти (W2) — + * на отрисовку (pop_room_draw) И коллизию (pop_map): loose-пол при + * падении меняет тайл на empty, оба модуля должны это видеть. Плюс + * срезы соседей для кромок. Заполняются pop_room_load из уровня. */ + uint8_t room_fg[30], room_bg[30]; + uint8_t lcol_fg[3], lcol_bg[3], below_fg[10]; - if (pop_bg_load() != 0) { /* атласы — ДО initgraph */ + if (pop_bg_load() != 0) { /* атласы — ДО initgraph (снимает DSS-страницу W0) */ puts("pop_bg_load failed"); return 1; } @@ -38,6 +40,11 @@ int main(void) puts("kid atlas load failed"); return 1; } + if (pop_level_load("res2001.bin") != 0 && /* сырой уровень 1 в EMM-страницу */ + pop_level_load("a:\\res2001.bin") != 0) { + puts("level load failed"); + return 1; + } initgraph(); gfx_set_visible_page(0); @@ -49,12 +56,15 @@ int main(void) * ОЗУ-копия/видео-ОЗУ, а heal берёт чистый фон из ОЗУ-копии ТОЙ * страницы, в которую рисуем. Дальше каждый тик восстанавливаем * ТОЛЬКО прямоугольник Кида (kid_heal), а не весь экран. */ - pop_room_set_below(belowrow_fg); /* ряд снизу (room 2) для «стены вниз» */ + /* Извлечь комнату 1 из уровня в рабочие массивы (W2): тайлы + срезы + * соседей (правый столбец left-комнаты, верхний ряд down-комнаты). */ + pop_room_load(ROOM_1, room_fg, room_bg, lcol_fg, lcol_bg, below_fg); + pop_room_set_below(below_fg); /* ряд снизу для «стены вниз» */ for (pg = 0; pg < 2; pg++) { gfx_set_draw_page(pg); setfillstyle(SOLID_FILL, BLACK); bar(0, 0, 319, 255); - pop_room_draw(1, room_fg, room1_bg, leftcol_fg, leftcol_bg); + pop_room_draw(ROOM_1, room_fg, room_bg, lcol_fg, lcol_bg); } gfx_set_draw_page(0); @@ -132,5 +142,6 @@ int main(void) closegraph(); pop_bg_free(); pop_kid_free(); + pop_level_free(); return 0; }