shithub: rgbds

ref: 18f3c8ff9aa4e0b7cf4c565dbc585b53f3c5efdb
dir: /test/asm/for.asm/

for n, 10
	printt "{d:n} "
endr
	printt "-> {d:n}\n"

for v, 0
	printt "unreached"
endr

for v, 2, 1
	printt "unreached"
endr

for v, 1, 2, 0
	printt "unreached"
endr

for x, 1, 5+1
	printt "{d:x} "
endr
	printt "-> {d:x}\n"

for v, 10, -1, -1
	printt "{d:v} "
v = 42
endr
	printt "-> {d:v}\n"

for q, 5, 21, 5
	printt "{d:q} "
purge q
endr
	printt "-> {d:q}\n"

s EQUS "x"
for s, 3, 30, 3
	printt "{d:x} "
endr
	printt "-> {d:x}\n"

for v, 10
	printt "{d:v}\n"
if v == 3
purge v
v equ 42 ; causes a fatal error
endc
endr
	printt "-> {d:v}\n"