# simple looping program
# sums all integers from 100 to 0

export
function $test() {
@start

@loop
	%s  =w phi @start   0, @loop %s1
	%n  =w phi @start 100, @loop %n1
	%s1 =w add %s, %n
	%n1 =w sub %n, 1
	jnz %n1, @loop, @end

@end
	storew %s1, $a
	ret
}

# >>> driver
# extern void test(void);
# int a;
# int main() { test(); return !(a == 5050); }
# <<<