mirror of https://github.com/pret/pokecrystal.git
52 lines
579 B
NASM
52 lines
579 B
NASM
; Enumerate variables
|
|
|
|
enum_start: MACRO
|
|
if _NARG >= 1
|
|
__enum__ = \1
|
|
else
|
|
__enum__ = 0
|
|
endc
|
|
if _NARG >= 2
|
|
__enumdir__ = \2
|
|
else
|
|
__enumdir__ = 1
|
|
endc
|
|
ENDM
|
|
|
|
enum: MACRO
|
|
\1 EQU __enum__
|
|
__enum__ = __enum__ + __enumdir__
|
|
ENDM
|
|
|
|
enum_set: MACRO
|
|
__enum__ = \1
|
|
ENDM
|
|
|
|
; Enumerate constants
|
|
|
|
const_def: MACRO
|
|
if _NARG >= 1
|
|
const_value = \1
|
|
else
|
|
const_value = 0
|
|
endc
|
|
ENDM
|
|
|
|
const: MACRO
|
|
\1 EQU const_value
|
|
const_value = const_value + 1
|
|
ENDM
|
|
|
|
shift_const: MACRO
|
|
\1 EQU (1 << const_value)
|
|
const_value = const_value + 1
|
|
ENDM
|
|
|
|
; Enumerate strings
|
|
|
|
define: MACRO
|
|
if !DEF(\1)
|
|
\1 EQUS \2
|
|
endc
|
|
ENDM
|