; Example PeANUt assembler program for a simple while loop
;
; Peter Christen, 29 March 2004. 
; Peter Strazdins, 1991 & 2007

				; int main() {
n:       block      1   	;   int n;
pn:      block      1   	;   int pn;
start:				;
         load 	#10     	;   n = 10;
         store 	n		;
         load 	#1     		;   pn = 1;
         store 	pn		;
while1:  load 	n       	;   while (n != 0) {
         cmp 	#0      	;
         beq 	endwh1  	;
         load 	pn      	;     pn = pn * 2;
         mul 	#2      	;
         store 	pn      	;
         load 	n       	;     n = n - 1;
         sub 	#1      	;
         store 	n       	;
         jmp 	while1  	;   }
endwh1:  trap 	#1		;   return 0;
         end 	start		; }