-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathtest.x.cod
More file actions
88 lines (88 loc) · 1.01 KB
/
test.x.cod
File metadata and controls
88 lines (88 loc) · 1.01 KB
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
GOTO start<<1>>
LABEL Read
LINE -1
FUNCTION Read -1 -1
READ
RETURN
LABEL Write
LINE -1
FUNCTION Write -1 -1
FORMAL dummyFormal 0
LOAD 0 dummyFormal
WRITE
RETURN
LABEL start<<1>>
LINE 1
FUNCTION main 1 18
LIT 0 x
GOTO continue<<3>>
LABEL fib<<2>>
LINE 2
FUNCTION fib 2 11
FORMAL n 0
LINE 3
LOAD 0 n
LIT 1
BOP <=
FALSEBRANCH else<<4>>
LINE 4
LIT 1
RETURN fib<<2>>
POP 0
GOTO continue<<5>>
LABEL else<<4>>
LINE 6
LOAD 0 n
LIT 2
BOP ==
FALSEBRANCH else<<6>>
LINE 7
LIT 1
RETURN fib<<2>>
POP 0
GOTO continue<<7>>
LABEL else<<6>>
LINE 9
LOAD 0 n
LIT 2
BOP -
ARGS 1
CALL fib<<2>>
LOAD 0 n
LIT 1
BOP -
ARGS 1
CALL fib<<2>>
BOP +
RETURN fib<<2>>
POP 0
LABEL continue<<7>>
POP 0
LABEL continue<<5>>
POP 0
LIT 0 GRATIS-RETURN-VALUE
RETURN fib<<2>>
LABEL continue<<3>>
LINE 12
LIT 0 k
LIT 5
STORE 0 x
LINE 13
ARGS 0
CALL Read
ARGS 1
CALL fib<<2>>
ARGS 1
CALL Write
STORE 1 k
LINE 14
LIT 0 x
LINE 15
LIT 7
STORE 2 x
LINE 16
LIT 8
STORE 2 x
POP 1
POP 2
HALT