Files
rgbds/test/asm/for.asm
Rangi 7e127a4e52 Don't expand string symbols in MACRO and FOR symbol names
Explicit {interpolation} can still achieve this, but
to match DEF, REDEF, and PURGE, these new directives that
define symbols do not expand string EQUS.
2021-03-19 01:48:36 +01:00

49 lines
530 B
NASM

for n, 10
print "{d:n} "
endr
println "-> {d:n}"
for v, 0
print "unreached"
endr
for v, 2, 1
print "unreached"
endr
for v, 1, 2, 0
print "unreached"
endr
for x, 1, 5+1
print "{d:x} "
endr
println "-> {d:x}"
for v, 10, -1, -1
print "{d:v} "
v = 42
endr
println "-> {d:v}"
for q, 5, 21, 5
print "{d:q} "
purge q
endr
println "-> {d:q}"
s EQUS "x"
for {s}, 3, 30, 3
print "{d:x} "
endr
println "-> {d:x}"
for v, 10
println "{d:v}"
if v == 3
purge v
v equ 42 ; causes a fatal error
endc
endr
println "-> {d:v}"