mirror of
https://github.com/gbdev/rgbds.git
synced 2025-11-20 10:12:06 +00:00
cee3d1c859
This also fixes two bugs: `-1 >>> 32` was -1 not 0, and `macro_FreeArgs` should have been called but wasn't.
26 lines
397 B
NASM
26 lines
397 B
NASM
DEF s EQUS "Hello, "
|
|
REDEF s EQUS "{s}world!"
|
|
; prints "Hello, world!"
|
|
PRINTLN "{s}"
|
|
|
|
MACRO list
|
|
DEF LIST_NAME EQUS "\1"
|
|
REDEF {LIST_NAME} EQUS "["
|
|
REPT _NARG - 1
|
|
REDEF {LIST_NAME} EQUS "{{LIST_NAME}}\2;"
|
|
SHIFT
|
|
ENDR
|
|
REDEF {LIST_NAME} EQUS "{{LIST_NAME}}]"
|
|
PURGE LIST_NAME
|
|
ENDM
|
|
|
|
list FOO
|
|
PRINTLN "{FOO}"
|
|
list FOO, 1, A, 2, B
|
|
PRINTLN "{FOO}"
|
|
|
|
REDEF NEW EQUS "NEW"
|
|
|
|
DEF N EQU 42
|
|
REDEF N EQUS "X"
|