File: while.apoo

package info (click to toggle)
apoo 2.2-2
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, squeeze, wheezy
  • size: 560 kB
  • ctags: 425
  • sloc: python: 3,092; perl: 100; makefile: 56; sh: 4
file content (16 lines) | stat: -rw-r--r-- 142 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#
# while(x>o) x=x-2
#R1=x; R2=y
#
# suppose  x=10
	loadn 	10	R1
loop:	jneg	R1	cont
	jzero	R1	cont
	dec	R1
	dec 	R1
	jump	loop
cont:	halt