mirror of
https://github.com/gbdev/rgbds.git
synced 2025-11-20 18:22:07 +00:00
24 lines
362 B
NASM
24 lines
362 B
NASM
DEF n EQU 0
|
|
REDEF n EQU 1
|
|
; prints "$1"
|
|
PRINTLN n
|
|
|
|
MACRO list
|
|
DEF LIST_NAME EQUS "\1"
|
|
DEF LENGTH_{LIST_NAME} EQU 0
|
|
ENDM
|
|
|
|
MACRO item
|
|
REDEF LENGTH_{LIST_NAME} EQU LENGTH_{LIST_NAME} + 1
|
|
DEF {LIST_NAME}_{d:LENGTH_{LIST_NAME}} EQU \1
|
|
ENDM
|
|
|
|
list SQUARES
|
|
item 1
|
|
item 4
|
|
item 9
|
|
println LENGTH_SQUARES, SQUARES_1, SQUARES_2, SQUARES_3
|
|
|
|
DEF N EQUS "X"
|
|
REDEF N EQU 42
|