mirror of
https://github.com/gbdev/rgbds.git
synced 2025-11-20 10:12:06 +00:00
6874f694e5
This acts like `REPT` with a variable automatically incremented across a range of values Fixes #432
49 lines
579 B
NASM
49 lines
579 B
NASM
foreach n, 10
|
|
printt "{d:n} "
|
|
endr
|
|
printt "-> {d:n}\n"
|
|
|
|
foreach v, 0
|
|
printt "unreached"
|
|
endr
|
|
|
|
foreach v, 2, 1
|
|
printt "unreached"
|
|
endr
|
|
|
|
foreach v, 1, 2, 0
|
|
printt "unreached"
|
|
endr
|
|
|
|
foreach x, 1, 5+1
|
|
printt "{d:x} "
|
|
endr
|
|
printt "-> {d:x}\n"
|
|
|
|
foreach v, 10, -1, -1
|
|
printt "{d:v} "
|
|
v = 42
|
|
endr
|
|
printt "-> {d:v}\n"
|
|
|
|
foreach q, 5, 21, 5
|
|
printt "{d:q} "
|
|
purge q
|
|
endr
|
|
printt "-> {d:q}\n"
|
|
|
|
s EQUS "x"
|
|
foreach s, 3, 30, 3
|
|
printt "{d:x} "
|
|
endr
|
|
printt "-> {d:x}\n"
|
|
|
|
foreach v, 10
|
|
printt "{d:v}\n"
|
|
if v == 3
|
|
purge v
|
|
v equ 42 ; causes a fatal error
|
|
endc
|
|
endr
|
|
printt "-> {d:v}\n"
|