2021-03-04 03:22:41 +00:00
|
|
|
; Macros to verify assumptions about the data or code
|
|
|
|
|
|
|
|
table_width: MACRO
|
|
|
|
CURRENT_TABLE_WIDTH = \1
|
|
|
|
if _NARG == 2
|
2021-04-19 20:31:37 +00:00
|
|
|
REDEF CURRENT_TABLE_START EQUS "\2"
|
2021-03-04 03:22:41 +00:00
|
|
|
else
|
2021-04-19 20:31:37 +00:00
|
|
|
REDEF CURRENT_TABLE_START EQUS "._table_width\@"
|
|
|
|
{CURRENT_TABLE_START}:
|
2021-03-04 03:22:41 +00:00
|
|
|
endc
|
|
|
|
ENDM
|
|
|
|
|
|
|
|
assert_table_length: MACRO
|
|
|
|
x = \1
|
2021-04-19 20:31:37 +00:00
|
|
|
assert x * CURRENT_TABLE_WIDTH == @ - {CURRENT_TABLE_START}, \
|
2021-03-04 03:22:41 +00:00
|
|
|
"{CURRENT_TABLE_START}: expected {d:x} entries, each {d:CURRENT_TABLE_WIDTH} bytes"
|
|
|
|
ENDM
|
2021-03-04 22:58:30 +00:00
|
|
|
|
2021-03-22 21:15:21 +00:00
|
|
|
list_start: MACRO
|
|
|
|
list_index = 0
|
|
|
|
if _NARG == 1
|
2021-04-19 20:31:37 +00:00
|
|
|
REDEF CURRENT_LIST_START EQUS "\1"
|
2021-03-22 21:15:21 +00:00
|
|
|
else
|
2021-04-19 20:31:37 +00:00
|
|
|
REDEF CURRENT_LIST_START EQUS "._list_start\@"
|
|
|
|
{CURRENT_LIST_START}:
|
2021-03-22 21:15:21 +00:00
|
|
|
endc
|
|
|
|
ENDM
|
|
|
|
|
|
|
|
li: MACRO
|
|
|
|
assert !STRIN(\1, "@"), STRCAT("String terminator \"@\" in list entry: ", \1)
|
|
|
|
db \1, "@"
|
2021-11-24 01:18:08 +00:00
|
|
|
list_index += 1
|
2021-03-22 21:15:21 +00:00
|
|
|
ENDM
|
|
|
|
|
|
|
|
assert_list_length: MACRO
|
|
|
|
x = \1
|
|
|
|
assert x == list_index, \
|
|
|
|
"{CURRENT_LIST_START}: expected {d:x} entries, got {d:list_index}"
|
|
|
|
ENDM
|
|
|
|
|
2021-03-04 22:58:30 +00:00
|
|
|
def_grass_wildmons: MACRO
|
|
|
|
;\1: map id
|
2021-04-19 20:31:37 +00:00
|
|
|
REDEF CURRENT_GRASS_WILDMONS_MAP EQUS "\1"
|
|
|
|
REDEF CURRENT_GRASS_WILDMONS_LABEL EQUS "._def_grass_wildmons_\1"
|
|
|
|
{CURRENT_GRASS_WILDMONS_LABEL}:
|
2021-03-04 22:58:30 +00:00
|
|
|
map_id \1
|
|
|
|
ENDM
|
|
|
|
|
|
|
|
end_grass_wildmons: MACRO
|
2021-04-19 20:31:37 +00:00
|
|
|
assert GRASS_WILDDATA_LENGTH == @ - {CURRENT_GRASS_WILDMONS_LABEL}, \
|
2021-03-04 22:58:30 +00:00
|
|
|
"def_grass_wildmons {CURRENT_GRASS_WILDMONS_MAP}: expected {d:GRASS_WILDDATA_LENGTH} bytes"
|
|
|
|
ENDM
|
|
|
|
|
|
|
|
def_water_wildmons: MACRO
|
|
|
|
;\1: map id
|
2021-04-19 20:31:37 +00:00
|
|
|
REDEF CURRENT_WATER_WILDMONS_MAP EQUS "\1"
|
|
|
|
REDEF CURRENT_WATER_WILDMONS_LABEL EQUS "._def_water_wildmons_\1"
|
|
|
|
{CURRENT_WATER_WILDMONS_LABEL}:
|
2021-03-04 22:58:30 +00:00
|
|
|
map_id \1
|
|
|
|
ENDM
|
|
|
|
|
|
|
|
end_water_wildmons: MACRO
|
2021-04-19 20:31:37 +00:00
|
|
|
assert WATER_WILDDATA_LENGTH == @ - {CURRENT_WATER_WILDMONS_LABEL}, \
|
2021-03-04 22:58:30 +00:00
|
|
|
"def_water_wildmons {CURRENT_WATER_WILDMONS_MAP}: expected {d:WATER_WILDDATA_LENGTH} bytes"
|
|
|
|
ENDM
|