Blame view

ref-impl/x/recurse.as 2.27 KB
f2c4dc81   Salvador Abreu   added most of the...
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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
	.globl	readInt
	.globl	writeInt
	.globl	readBool
	.globl	writeBool
	.globl	readReal
	.globl	writeReal
	.globl	writeChar
	.globl	fact
	.text
fact:
	.text
Lp_1:
# args:   4 bytes
# result: 4 bytes
# locals: 0 bytes
# temps:  8 bytes
#
#     i:	argument (4 bytes)	at (ap)
#
	movl	sp, fp
	subl2	$8, sp
Lbg_1:
	movl	(ap), r0
	movb	$1, r1
	cmpl	r0, $1
	jlss	Lro_1
	movb	$0, r1
Lro_1:
	jlbc	r1, Lel_1
	movl	$1, (r11)
	jbr	Leg_1
Lel_1:
	movl	(ap), r0
	movl	(ap), r1
	subl2	$1, r1
	movl	r1, -4(fp)
	pushr	$0x3801
	moval	-8(fp), r11
	moval	-4(fp), ap
	jsb	Lp_1
	popr	$0x3801
	mull3	-8(fp), r0, (r11)
Leg_1:
	movl	fp, sp
	rsb

	.globl	xfact
	.text
xfact:
	.text
Lp_2:
# args:   4 bytes
# result: 4 bytes
# locals: 0 bytes
# temps:  8 bytes
#
#     i:	argument (4 bytes)	at (ap)
#
	movl	sp, fp
	subl2	$8, sp
Lbg_2:
	movl	(ap), r0
	movb	$1, r1
	cmpl	r0, $1
	jlss	Lro_2
	movb	$0, r1
Lro_2:
	jlbc	r1, Lel_2
	movl	$1, (r11)
	jbr	Leg_2
Lel_2:
	movl	(ap), r0
	movl	(ap), r1
	subl2	$1, r1
	movl	r1, -4(fp)
	pushr	$0x3801
	moval	-8(fp), r11
	moval	-4(fp), ap
	jsb	xfact
	popr	$0x3801
	mull3	-8(fp), r0, (r11)
Leg_2:
	movl	fp, sp
	rsb

	.globl	program
	.text
program:
	.text
Lp_3:
# args:   0 bytes
# result: 0 bytes
# locals: 4 bytes
# temps:  9 bytes
#
#     i:	local    (4 bytes)	at -4(fp)
#
	movl	sp, fp
	subl2	$13, sp
Lbg_3:
	pushr	$0x3800
	movab	-5(fp), r11
	movab	-4(fp), ap
	jsb	readBool
	popr	$0x3800
	jlbc	-5(fp), Lel_3
	pushr	$0x3800
	moval	-4(fp), r11
	movab	-4(fp), ap
	jsb	readInt
	popr	$0x3800
	movl	-4(fp), r0
	movl	r0, -9(fp)
	pushr	$0x3800
	movab	-4(fp), r11
	moval	-9(fp), ap
	jsb	writeInt
	popr	$0x3800
	movl	$32, -9(fp)
	pushr	$0x3800
	movab	-4(fp), r11
	moval	-9(fp), ap
	jsb	writeChar
	popr	$0x3800
	movl	-4(fp), r0
	movl	r0, -9(fp)
	pushr	$0x3800
	moval	-13(fp), r11
	moval	-9(fp), ap
	jsb	fact
	popr	$0x3800
	pushr	$0x3800
	movab	-4(fp), r11
	moval	-13(fp), ap
	jsb	writeInt
	popr	$0x3800
	movl	$32, -9(fp)
	pushr	$0x3800
	movab	-4(fp), r11
	moval	-9(fp), ap
	jsb	writeChar
	popr	$0x3800
	movl	-4(fp), r0
	movl	r0, -9(fp)
	pushr	$0x3800
	moval	-13(fp), r11
	moval	-9(fp), ap
	jsb	xfact
	popr	$0x3800
	pushr	$0x3800
	movab	-4(fp), r11
	moval	-13(fp), ap
	jsb	writeInt
	popr	$0x3800
	movl	$10, -9(fp)
	pushr	$0x3800
	movab	-4(fp), r11
	moval	-9(fp), ap
	jsb	writeChar
	popr	$0x3800
	jbr	Lbg_3
Lel_3:
Leg_3:
	movl	fp, sp
	rsb