File: fact2.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 (52 lines) | stat: -rw-r--r-- 596 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
	jsr main
halt

factorial: 	push rf
	storer rs rf
	loado -2 r3
	loadn 0 r2
	sub r3 r2
	jnzero r2 L0
	loadn 1 r2
	storer r2 r0
	pop rf
	rtn 
L0: 	loado -2 r4
	loadn 1 r3
	sub r4 r3
	push r3
	jsr factorial
	loadn 1 r3
	sub rs r3
	storer r3 rs
	storer r0 r3
	loado -2 r2
	mul r3 r2
	storer r2 r0
	pop rf
	rtn 
	pop rf
	rtn 

main: 	push rf
	storer rs rf
	loadn 2 r2
	add r2 rs
	load 50001 r1
	storeo r1 2
	loado 2 r2
	push r2
	jsr factorial
	loadn 1 r2
	sub rs r2
	storer r2 rs
	storeo r0 1
	loado 1 r2
	store r2 50001
	loadn 10 r2
	store r2 50000
	loadn 2 r2
	sub rs r2
	storer r2 rs
	pop rf
	rtn