Files
rgbds/test/asm/for.asm
2021-01-02 00:46:26 +01:00

49 lines
543 B
NASM

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"