OpenCores
URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [lcc/] [sparc/] [solaris/] [tst/] [wf1.sbk] - Blame information for rev 133

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 4 hellwig
.global main
2
.section ".text"
3
.align 4
4
main:
5
save %sp,-120,%sp
6
st %g0,[%fp+-24]
7
set next,%i5
8
st %g0,[%i5]
9
ba .L3; nop
10
.L2:
11
add -20,%fp,%o0
12
add -24,%fp,%o1
13
call lookup; nop
14
ld [%o0],%i4
15
add %i4,1,%i4
16
st %i4,[%o0]
17
.L3:
18
add -20,%fp,%o0
19
call getword; nop
20
cmp %o0,0; bne .L2; nop
21
ld [%fp+-24],%o0
22
call tprint; nop
23
mov %g0,%i0
24
.L1:
25
ret; restore
26
.type main,#function
27
.size main,.-main
28
.global err
29
.align 4
30
err:
31
save %sp,-96,%sp
32
set .L6,%o0
33
mov %i0,%o1
34
call printf; nop
35
set 1,%o0
36
call exit; nop
37
mov %g0,%i0
38
.L5:
39
ret; restore
40
.type err,#function
41
.size err,.-err
42
.global getword
43
.align 4
44
getword:
45
save %sp,-96,%sp
46
.L8:
47
.L9:
48
call getchar; nop
49
mov %o0,%i3
50
mov %i3,%i5
51
cmp %i3,-1; be .L11; nop
52
mov %i5,%o0
53
call isletter; nop
54
cmp %o0,0; be .L8; nop
55
.L11:
56
mov %i0,%i4
57
ba .L15; nop
58
.L12:
59
mov %i4,%i3
60
add %i3,1,%i4
61
mov %i5,%i2
62
stb %i2,[%i3]
63
.L13:
64
call getchar; nop
65
mov %o0,%i5
66
.L15:
67
mov %i5,%o0
68
call isletter; nop
69
mov %o0,%i5
70
cmp %o0,0; bne .L12; nop
71
stb %g0,[%i4]
72
mov %i4,%i3
73
mov %i0,%i2
74
cmp %i3,%i2; bleu .L16; nop
75
set 1,%i0
76
ba .L7; nop
77
.L16:
78
mov %g0,%i0
79
.L7:
80
ret; restore
81
.type getword,#function
82
.size getword,.-getword
83
.global isletter
84
.align 4
85
isletter:
86
cmp %o0,65; bl .L19; nop
87
cmp %o0,90; bg .L19; nop
88
add %o0,32,%o0
89
.L19:
90
cmp %o0,97; bl .L21; nop
91
cmp %o0,122; bg .L21; nop
92
ba .L18; nop
93
.L21:
94
mov %g0,%o0
95
.L18:
96
retl; nop
97
.type isletter,#function
98
.size isletter,.-isletter
99
.global lookup
100
.align 4
101
lookup:
102
save %sp,-96,%sp
103
ld [%i1],%i4
104
cmp %i4,%g0; be .L24; nop
105
mov %i0,%o0
106
ld [%i1],%i4
107
ld [%i4+12],%o1
108
call strcmp; nop
109
mov %o0,%i5
110
cmp %i5,0; bge .L26; nop
111
mov %i0,%o0
112
ld [%i1],%i4
113
add %i4,4,%o1
114
call lookup; nop
115
mov %o0,%i0
116
ba .L23; nop
117
.L26:
118
cmp %i5,0; ble .L28; nop
119
mov %i0,%o0
120
ld [%i1],%i4
121
add %i4,8,%o1
122
call lookup; nop
123
mov %o0,%i0
124
ba .L23; nop
125
.L28:
126
ld [%i1],%i0
127
ba .L23; nop
128
.L24:
129
set next,%i4
130
ld [%i4],%i4
131
cmp %i4,2000; bl .L30; nop
132
set .L32,%o0
133
call err; nop
134
.L30:
135
set next,%i4
136
ld [%i4],%i4
137
sll %i4,4,%i4
138
set words,%i3
139
st %g0,[%i4+%i3]
140
set next,%i4
141
ld [%i4],%i4
142
sll %i4,4,%i4
143
set words+8,%i2
144
st %g0,[%i4+%i2]
145
set words+4,%i2
146
st %g0,[%i4+%i2]
147
mov %i0,%o0
148
call strlen; nop
149
mov %o0,%i4
150
add %i4,1,%o0
151
call malloc; nop
152
set next,%i3
153
ld [%i3],%i3
154
sll %i3,4,%i3
155
set words+12,%i2
156
st %o0,[%i3+%i2]
157
set next,%i4
158
ld [%i4],%i4
159
sll %i4,4,%i4
160
set words+12,%i3
161
ld [%i4+%i3],%i4
162
cmp %i4,%g0; bne .L36; nop
163
set .L39,%o0
164
call err; nop
165
.L36:
166
set next,%i4
167
ld [%i4],%i4
168
sll %i4,4,%i4
169
set words+12,%i3
170
ld [%i4+%i3],%o0
171
mov %i0,%o1
172
call strcpy; nop
173
set next,%i4
174
ld [%i4],%i3
175
add %i3,1,%i2
176
st %i2,[%i4]
177
sll %i3,4,%i4
178
set words,%i3
179
add %i4,%i3,%i4
180
st %i4,[%i1]
181
mov %i4,%i0
182
.L23:
183
ret; restore
184
.type lookup,#function
185
.size lookup,.-lookup
186
.global tprint
187
.align 4
188
tprint:
189
save %sp,-96,%sp
190
mov %i0,%i5
191
cmp %i5,%g0; be .L42; nop
192
ld [%i0+4],%o0
193
call tprint; nop
194
set .L44,%o0
195
ld [%i0],%o1
196
ld [%i0+12],%o2
197
call printf; nop
198
ld [%i0+8],%o0
199
call tprint; nop
200
.L42:
201
mov %g0,%i0
202
.L41:
203
ret; restore
204
.type tprint,#function
205
.size tprint,.-tprint
206
.global strcmp
207
.align 4
208
strcmp:
209
save %sp,-96,%sp
210
ba .L47; nop
211
.L46:
212
mov %i0,%i5
213
add %i5,1,%i0
214
ldsb [%i5],%i5
215
cmp %i5,0; bne .L49; nop
216
mov %g0,%i0
217
ba .L45; nop
218
.L49:
219
add %i1,1,%i1
220
.L47:
221
ldsb [%i0],%i5
222
ldsb [%i1],%i4
223
cmp %i5,%i4; be .L46; nop
224
ldsb [%i0],%i5
225
cmp %i5,0; bne .L51; nop
226
set -1,%i0
227
ba .L45; nop
228
.L51:
229
ldsb [%i1],%i5
230
cmp %i5,0; bne .L53; nop
231
set 1,%i0
232
ba .L45; nop
233
.L53:
234
ldsb [%i0],%i5
235
ldsb [%i1],%i4
236
sub %i5,%i4,%i0
237
.L45:
238
ret; restore
239
.type strcmp,#function
240
.size strcmp,.-strcmp
241
.section ".bss"
242
.global next
243
.type next,#object
244
.size next,4
245
.common next,4,4
246
.global words
247
.type words,#object
248
.size words,32000
249
.common words,32000,4
250
.section ".rodata"
251
.align 1
252
.L44:
253
.byte 37
254
.byte 100
255
.byte 9
256
.byte 37
257
.byte 115
258
.byte 10
259
.byte 0
260
.align 1
261
.L39:
262
.byte 111
263
.byte 117
264
.byte 116
265
.byte 32
266
.byte 111
267
.byte 102
268
.byte 32
269
.byte 119
270
.byte 111
271
.byte 114
272
.byte 100
273
.byte 32
274
.byte 115
275
.byte 116
276
.byte 111
277
.byte 114
278
.byte 97
279
.byte 103
280
.byte 101
281
.byte 0
282
.align 1
283
.L32:
284
.byte 111
285
.byte 117
286
.byte 116
287
.byte 32
288
.byte 111
289
.byte 102
290
.byte 32
291
.byte 110
292
.byte 111
293
.byte 100
294
.byte 101
295
.byte 32
296
.byte 115
297
.byte 116
298
.byte 111
299
.byte 114
300
.byte 97
301
.byte 103
302
.byte 101
303
.byte 0
304
.align 1
305
.L6:
306
.byte 63
307
.byte 32
308
.byte 37
309
.byte 115
310
.byte 10
311
.byte 0

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.