snark13
5d31ed086f
MEM-COLD3, шаг 1-2 из плана разгрузки резидента: * pop_redraw.c целиком -> банк 7 (к pop_room.c: он и есть единственный потребитель разбора пометок). Два модуля в одном банке линкуются в один сегмент — проверено на .map (BANK7 7928 -> 8556). * pop_level.c расколот по частоте вызова: горячая половина (чтение тайлов, связи, дверные таблицы, живые стражи — зовут все банки, местами на каждый тайл) осталась в резиденте, холодная (чтение файла уровня, разбор комнаты, рестарт, потабличные различия) уехала в pop_level_cold.c -> банк 8. Общее состояние объявлено в _pop_level.h: данные банковых модулей всё равно линкуются в общий _DATA, в банк уехал только КОД. Побочно найден баг кодогена SDCC: `return 1;` из ветки не кладёт 1 в A — до __banked он маскировался случайным ненулевым остатком в A. Репро и разбор — docs/bugs/sdcc-z80-ret-const-lost/, стаб t_char починен одним выходом через переменную. Аудит всех .asm roomtest: других мест нет. _CODE 25628 -> 23005, куча 902 -> 3525 Б. tests-host 6/6.
141 lines
3.2 KiB
NASM
141 lines
3.2 KiB
NASM
;--------------------------------------------------------
|
|
; File Created by SDCC : free open source ISO C Compiler
|
|
; Version 4.5.0 #15242 (Mac OS X x86_64)
|
|
;--------------------------------------------------------
|
|
.module bt2
|
|
|
|
.optsdcc -mz80 sdcccall(1)
|
|
;--------------------------------------------------------
|
|
; Public variables in this module
|
|
;--------------------------------------------------------
|
|
.globl b_pop_level_guard
|
|
.globl _pop_level_guard
|
|
.globl _tk_gs_tile
|
|
.globl _tk_guard_room
|
|
;--------------------------------------------------------
|
|
; special function registers
|
|
;--------------------------------------------------------
|
|
;--------------------------------------------------------
|
|
; ram data
|
|
;--------------------------------------------------------
|
|
.area _DATA
|
|
_tk_guard_room::
|
|
.ds 1
|
|
_tk_gs_tile::
|
|
.ds 8
|
|
;--------------------------------------------------------
|
|
; ram data
|
|
;--------------------------------------------------------
|
|
.area _INITIALIZED
|
|
;--------------------------------------------------------
|
|
; absolute external ram data
|
|
;--------------------------------------------------------
|
|
.area _DABS (ABS)
|
|
;--------------------------------------------------------
|
|
; global & static initialisations
|
|
;--------------------------------------------------------
|
|
.area _HOME
|
|
.area _GSINIT
|
|
.area _GSFINAL
|
|
.area _GSINIT
|
|
;--------------------------------------------------------
|
|
; Home
|
|
;--------------------------------------------------------
|
|
.area _HOME
|
|
.area _HOME
|
|
;--------------------------------------------------------
|
|
; code
|
|
;--------------------------------------------------------
|
|
.area _CODE
|
|
;bt2.c:6: uint8_t pop_level_guard(uint8_t room, uint8_t *tile, int8_t *dir,
|
|
; ---------------------------------
|
|
; Function pop_level_guard
|
|
; ---------------------------------
|
|
b_pop_level_guard = 0
|
|
_pop_level_guard::
|
|
call ___sdcc_enter_ix
|
|
push af
|
|
push af
|
|
;bt2.c:9: if (room < 1 || room > TK_ROOMS) return 0;
|
|
ld a, 7 (ix)
|
|
sub a, #0x01
|
|
jr C, 00101$
|
|
ld a, #0x08
|
|
sub a, 7 (ix)
|
|
jr NC, 00102$
|
|
00101$:
|
|
xor a, a
|
|
jr 00108$
|
|
00102$:
|
|
;bt2.c:10: if (tk_gs_tile[room - 1] < 30) {
|
|
ld bc, #_tk_gs_tile+0
|
|
ld a, 7 (ix)
|
|
dec a
|
|
ld l, a
|
|
rlca
|
|
sbc a, a
|
|
ld h, a
|
|
add hl, bc
|
|
ld l, (hl)
|
|
;bt2.c:11: *tile = tk_gs_tile[room - 1]; *dir = 0; *color = 0; *skill = 1;
|
|
ld e, 8 (ix)
|
|
ld d, 9 (ix)
|
|
ld c, 10 (ix)
|
|
ld b, 11 (ix)
|
|
ld a, 12 (ix)
|
|
ld -4 (ix), a
|
|
ld a, 13 (ix)
|
|
ld -3 (ix), a
|
|
ld a, 14 (ix)
|
|
ld -2 (ix), a
|
|
ld a, 15 (ix)
|
|
ld -1 (ix), a
|
|
;bt2.c:10: if (tk_gs_tile[room - 1] < 30) {
|
|
;bt2.c:11: *tile = tk_gs_tile[room - 1]; *dir = 0; *color = 0; *skill = 1;
|
|
ld a,l
|
|
cp a,#0x1e
|
|
jr NC, 00105$
|
|
ld (de), a
|
|
xor a, a
|
|
ld (bc), a
|
|
pop hl
|
|
ld (hl), #0x00
|
|
;bt2.c:12: return 1;
|
|
ex de,hl
|
|
pop hl
|
|
push hl
|
|
push de
|
|
ld (hl), #0x01
|
|
jr 00108$
|
|
00105$:
|
|
;bt2.c:14: if (room == tk_guard_room) {
|
|
ld a, 7 (ix)
|
|
ld hl, #_tk_guard_room
|
|
sub a, (hl)
|
|
jr NZ, 00107$
|
|
;bt2.c:15: *tile = 11; *dir = 0; *color = 0; *skill = 1;
|
|
ld a, #0x0b
|
|
ld (de), a
|
|
xor a, a
|
|
ld (bc), a
|
|
pop hl
|
|
ld (hl), #0x00
|
|
;bt2.c:16: return 1;
|
|
ex de,hl
|
|
pop hl
|
|
push hl
|
|
push de
|
|
ld (hl), #0x01
|
|
jr 00108$
|
|
00107$:
|
|
;bt2.c:18: return 0;
|
|
xor a, a
|
|
00108$:
|
|
;bt2.c:19: }
|
|
ld sp, ix
|
|
pop ix
|
|
ret
|
|
.area _CODE
|
|
.area _INITIALIZER
|
|
.area _CABS (ABS)
|