;; simple while loop

;;  A[10] at 100..110
;;  let r2 = i, r3 = tmp
.s
A 100  
.a 0
.c
	xor r2 r2 r2	;; i = 0
:while	sub r0 r2 #10	;; i < 10
	jmp ge exit
	add r3 r2 #2	;; i + 2
	st @A r2 r3	;; A[i] = .
	add r2 r2 #1	;; i = i + 1
	jmp always while
:exit	trap stop r0
.e