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

Subversion Repositories diogenes

[/] [diogenes/] [trunk/] [compiler/] [lcc-4.2/] [alpha/] [osf/] [tst/] [wf1.sbk] - Blame information for rev 236

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 58 fellnhofer 
.globl main
2 
.text
3 
.text
4 
.ent main
5 
main:
6 
ldgp $gp,0($27)
7 
lda $sp,-96($sp)
8 
.mask 0x4000000,-96
9 
.frame $sp,96,$26,48
10 
stq $26,0($sp)
11 
.prologue 1
12 
stq $31,-88+96($sp)
13 
stl $31,next
14 
br L.3
15 
L.2:
16 
lda $16,-76+96($sp)
17 
lda $17,-88+96($sp)
18 
jsr $26,lookup
19 
ldgp $gp,0($26)
20 
ldl $25,($0)
21 
lda $25,1($25)
22 
stl $25,($0)
23 
L.3:
24 
lda $16,-76+96($sp)
25 
jsr $26,getword
26 
ldgp $gp,0($26)
27 
cmpeq $0,$31,$23
28 
beq $23,L.2
29 
ldq $16,-88+96($sp)
30 
jsr $26,tprint
31 
ldgp $gp,0($26)
32 
mov $31,$0
33 
L.1:
34 
ldq $26,0($sp)
35 
lda $sp,96($sp)
36 
ret
37 
.end main
38 
.globl err
39 
.text
40 
.ent err
41 
err:
42 
ldgp $gp,0($27)
43 
lda $sp,-64($sp)
44 
.mask 0x4000000,-64
45 
.frame $sp,64,$26,48
46 
stq $26,0($sp)
47 
stq $16,16($sp)
48 
.prologue 1
49 
lda $16,L.6
50 
ldq $17,-48+64($sp)
51 
jsr $26,printf
52 
ldgp $gp,0($26)
53 
lda $16,1
54 
jsr $26,exit
55 
ldgp $gp,0($26)
56 
mov $31,$0
57 
L.5:
58 
ldq $26,0($sp)
59 
lda $sp,64($sp)
60 
ret
61 
.end err
62 
.globl getword
63 
.text
64 
.ent getword
65 
getword:
66 
ldgp $gp,0($27)
67 
lda $sp,-96($sp)
68 
.mask 0x5006000,-72
69 
.frame $sp,96,$26,48
70 
stq $13,0($sp)
71 
stq $14,8($sp)
72 
stq $24,16($sp)
73 
stq $26,24($sp)
74 
stq $16,48($sp)
75 
.prologue 1
76 
L.8:
77 
L.9:
78 
jsr $26,getchar
79 
ldgp $gp,0($26)
80 
mov $0,$27
81 
mov $27,$14
82 
lda $25,-1
83 
cmpeq $27,$25,$23
84 
bne $23,L.11
85 
mov $14,$16
86 
jsr $26,isletter
87 
ldgp $gp,0($26)
88 
cmpeq $0,$31,$23
89 
bne $23,L.8
90 
L.11:
91 
ldq $13,-48+96($sp)
92 
br L.15
93 
L.12:
94 
mov $13,$27
95 
lda $13,1($27)
96 
mov $14,$25
97 
stb $25,($27)
98 
L.13:
99 
jsr $26,getchar
100 
ldgp $gp,0($26)
101 
mov $0,$14
102 
L.15:
103 
mov $14,$16
104 
jsr $26,isletter
105 
ldgp $gp,0($26)
106 
mov $0,$14
107 
cmpeq $0,$31,$23
108 
beq $23,L.12
109 
stb $31,($13)
110 
mov $13,$27
111 
ldq $25,-48+96($sp)
112 
cmpule $27,$25,$23
113 
bne $23,L.16
114 
lda $0,1
115 
br L.7
116 
L.16:
117 
mov $31,$0
118 
L.7:
119 
ldq $13,0($sp)
120 
ldq $14,8($sp)
121 
ldq $24,16($sp)
122 
ldq $26,24($sp)
123 
lda $sp,96($sp)
124 
ret
125 
.end getword
126 
.globl isletter
127 
.text
128 
.ent isletter
129 
isletter:
130 
ldgp $gp,0($27)
131 
lda $sp,-64($sp)
132 
.frame $sp,64,$26,48
133 
.prologue 1
134 
lda $27,65
135 
cmplt $16,$27,$23
136 
bne $23,L.19
137 
lda $27,90
138 
cmple $16,$27,$23
139 
beq $23,L.19
140 
lda $16,32($16)
141 
L.19:
142 
lda $27,97
143 
cmplt $16,$27,$23
144 
bne $23,L.21
145 
lda $27,122
146 
cmple $16,$27,$23
147 
beq $23,L.21
148 
mov $16,$0
149 
br L.18
150 
L.21:
151 
mov $31,$0
152 
L.18:
153 
lda $sp,64($sp)
154 
ret
155 
.end isletter
156 
.globl lookup
157 
.text
158 
.ent lookup
159 
lookup:
160 
ldgp $gp,0($27)
161 
lda $sp,-80($sp)
162 
.mask 0x4004000,-72
163 
.frame $sp,80,$26,48
164 
stq $14,0($sp)
165 
stq $26,8($sp)
166 
stq $16,32($sp)
167 
mov $17,$14
168 
.prologue 1
169 
ldq $27,($14)
170 
cmpeq $27,$31,$23
171 
bne $23,L.24
172 
ldq $16,-48+80($sp)
173 
ldq $27,($14)
174 
ldq $17,24($27)
175 
jsr $26,strcmp
176 
ldgp $gp,0($26)
177 
stl $0,-60+80($sp)
178 
ldl $27,-60+80($sp)
179 
cmplt $27,$31,$23
180 
beq $23,L.26
181 
ldq $16,-48+80($sp)
182 
ldq $27,($14)
183 
lda $17,8($27)
184 
jsr $26,lookup
185 
ldgp $gp,0($26)
186 
mov $0,$27
187 
br L.23
188 
L.26:
189 
ldl $27,-60+80($sp)
190 
cmple $27,$31,$23
191 
bne $23,L.28
192 
ldq $16,-48+80($sp)
193 
ldq $27,($14)
194 
lda $17,16($27)
195 
jsr $26,lookup
196 
ldgp $gp,0($26)
197 
mov $0,$27
198 
br L.23
199 
L.28:
200 
ldq $0,($14)
201 
br L.23
202 
L.24:
203 
ldl $27,next
204 
lda $25,2000
205 
cmplt $27,$25,$23
206 
bne $23,L.30
207 
lda $16,L.32
208 
jsr $26,err
209 
ldgp $gp,0($26)
210 
L.30:
211 
ldl $27,next
212 
sll $27,5,$27
213 
stl $31,words($27)
214 
ldl $27,next
215 
sll $27,5,$27
216 
stq $31,words+16($27)
217 
stq $31,words+8($27)
218 
ldq $16,-48+80($sp)
219 
jsr $26,strlen
220 
ldgp $gp,0($26)
221 
mov $0,$27
222 
lda $16,1($27)
223 
jsr $26,malloc
224 
ldgp $gp,0($26)
225 
ldl $25,next
226 
sll $25,5,$25
227 
stq $0,words+24($25)
228 
ldl $27,next
229 
sll $27,5,$27
230 
ldq $27,words+24($27)
231 
cmpeq $27,$31,$23
232 
beq $23,L.36
233 
lda $16,L.39
234 
jsr $26,err
235 
ldgp $gp,0($26)
236 
L.36:
237 
ldl $27,next
238 
sll $27,5,$27
239 
ldq $16,words+24($27)
240 
ldq $17,-48+80($sp)
241 
jsr $26,strcpy
242 
ldgp $gp,0($26)
243 
ldl $27,next
244 
lda $25,1($27)
245 
stl $25,next
246 
sll $27,8*(8-4),$27
247 
sra $27,8*(8-4),$27
248 
sll $27,5,$27
249 
lda $27,words($27)
250 
stq $27,($14)
251 
mov $27,$0
252 
L.23:
253 
ldq $14,0($sp)
254 
ldq $26,8($sp)
255 
lda $sp,80($sp)
256 
ret
257 
.end lookup
258 
.globl tprint
259 
.text
260 
.ent tprint
261 
tprint:
262 
ldgp $gp,0($27)
263 
lda $sp,-80($sp)
264 
.mask 0x4004000,-72
265 
.frame $sp,80,$26,48
266 
stq $14,0($sp)
267 
stq $26,8($sp)
268 
mov $16,$14
269 
.prologue 1
270 
mov $14,$27
271 
cmpeq $27,$31,$23
272 
bne $23,L.42
273 
ldq $16,8($14)
274 
jsr $26,tprint
275 
ldgp $gp,0($26)
276 
lda $16,L.44
277 
ldl $17,($14)
278 
ldq $18,24($14)
279 
jsr $26,printf
280 
ldgp $gp,0($26)
281 
ldq $16,16($14)
282 
jsr $26,tprint
283 
ldgp $gp,0($26)
284 
L.42:
285 
mov $31,$0
286 
L.41:
287 
ldq $14,0($sp)
288 
ldq $26,8($sp)
289 
lda $sp,80($sp)
290 
ret
291 
.end tprint
292 
.globl strcmp
293 
.text
294 
.ent strcmp
295 
strcmp:
296 
ldgp $gp,0($27)
297 
lda $sp,-64($sp)
298 
.frame $sp,64,$26,48
299 
.prologue 1
300 
br L.47
301 
L.46:
302 
mov $16,$27
303 
lda $16,1($27)
304 
ldb $27,($27)
305 
cmpeq $27,$31,$23
306 
beq $23,L.49
307 
mov $31,$0
308 
br L.45
309 
L.49:
310 
lda $17,1($17)
311 
L.47:
312 
ldb $27,($16)
313 
ldb $25,($17)
314 
cmpeq $27,$25,$23
315 
bne $23,L.46
316 
ldb $27,($16)
317 
cmpeq $27,$31,$23
318 
beq $23,L.51
319 
lda $0,-1
320 
br L.45
321 
L.51:
322 
ldb $27,($17)
323 
cmpeq $27,$31,$23
324 
beq $23,L.53
325 
lda $0,1
326 
br L.45
327 
L.53:
328 
ldb $27,($16)
329 
ldb $25,($17)
330 
subl $27,$25,$0
331 
L.45:
332 
lda $sp,64($sp)
333 
ret
334 
.end strcmp
335 
.globl next
336 
.comm next,4
337 
.globl words
338 
.comm words,64000
339 
.rdata
340 
.align 0
341 
L.44:
342 
.byte 37
343 
.byte 100
344 
.byte 9
345 
.byte 37
346 
.byte 115
347 
.byte 10
348 
.byte 0
349 
.align 0
350 
L.39:
351 
.byte 111
352 
.byte 117
353 
.byte 116
354 
.byte 32
355 
.byte 111
356 
.byte 102
357 
.byte 32
358 
.byte 119
359 
.byte 111
360 
.byte 114
361 
.byte 100
362 
.byte 32
363 
.byte 115
364 
.byte 116
365 
.byte 111
366 
.byte 114
367 
.byte 97
368 
.byte 103
369 
.byte 101
370 
.byte 0
371 
.align 0
372 
L.32:
373 
.byte 111
374 
.byte 117
375 
.byte 116
376 
.byte 32
377 
.byte 111
378 
.byte 102
379 
.byte 32
380 
.byte 110
381 
.byte 111
382 
.byte 100
383 
.byte 101
384 
.byte 32
385 
.byte 115
386 
.byte 116
387 
.byte 111
388 
.byte 114
389 
.byte 97
390 
.byte 103
391 
.byte 101
392 
.byte 0
393 
.align 0
394 
L.6:
395 
.byte 63
396 
.byte 32
397 
.byte 37
398 
.byte 115
399 
.byte 10
400 
.byte 0

powered by: WebSVN 2.1.0

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