![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to wf1.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mips-iris / tst|
Return to wf1.s CVS log | Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mips-iris / tst |
1.1 root 1: .set reorder
2: .text
3: .globl main
4: .text
5: .align 2; .ent main
6: main:
7: $fp1=48
8: .frame $sp,48,$31
9: addu $sp,$sp,-48
10: .mask 0x80000000,-32
11: sw $31,16($sp)
12: sw $0,$fp1-24($sp)
13: sw $0,next
14: b L.3
15: L.2:
16: la $4,$fp1-20($sp)
17: la $5,$fp1-24($sp)
18: jal lookup # int
19: move $25,$2
20: lw $24,($25)
21: addu $24,$24,1
22: sw $24,($25)
23: L.3:
24: la $4,$fp1-20($sp)
25: jal getword # int
26: bne $2,$0,L.2
27: lw $4,$fp1-24($sp)
28: jal tprint # int
29: move $2,$0
30: L.1:
31: lw $31,16($sp)
32: addu $sp,$sp,48
33: j $31
34: .end main
35: .globl err
36: .text
37: .align 2; .ent err
38: err:
39: $fp2=24
40: .frame $sp,24,$31
41: addu $sp,$sp,-24
42: .mask 0x80000000,-8
43: sw $31,16($sp)
44: sw $4,24($sp)
45: la $4,L.6
46: lw $5,$fp2+0($sp)
47: jal printf # int
48: li $4,1
49: jal exit # int
50: L.5:
51: lw $31,16($sp)
52: addu $sp,$sp,24
53: j $31
54: .end err
55: .globl getword
56: .text
57: .align 2; .ent getword
58: getword:
59: $fp3=32
60: .frame $sp,32,$31
61: addu $sp,$sp,-32
62: .mask 0xc0800000,-8
63: sw $23,16($sp)
64: sw $30,20($sp)
65: sw $31,24($sp)
66: sw $4,32($sp)
67: L.8:
68: L.9:
69: jal getchar # int
70: move $30,$2
71: beq $2,-1,L.11
72: move $4,$30
73: jal isletter # int
74: beq $2,$0,L.8
75: L.11:
76: lw $23,$fp3+0($sp)
77: b L.15
78: L.12:
79: move $25,$23
80: addu $23,$25,1
81: sb $30,($25)
82: L.13:
83: jal getchar # int
84: move $30,$2
85: L.15:
86: move $4,$30
87: jal isletter # int
88: move $30,$2
89: bne $2,$0,L.12
90: sb $0,($23)
91: lw $25,$fp3+0($sp)
92: bleu $23,$25,L.16
93: li $2,1
94: b L.7
95: L.16:
96: move $2,$0
97: L.7:
98: lw $23,16($sp)
99: lw $30,20($sp)
100: lw $31,24($sp)
101: addu $sp,$sp,32
102: j $31
103: .end getword
104: .globl isletter
105: .text
106: .align 2; .ent isletter
107: isletter:
108: $fp4=0
109: .frame $sp,0,$31
110: blt $4,65,L.19
111: bgt $4,90,L.19
112: addu $4,$4,32
113: L.19:
114: blt $4,97,L.21
115: bgt $4,122,L.21
116: move $2,$4
117: b L.18
118: L.21:
119: move $2,$0
120: L.18:
121: j $31
122: .end isletter
123: .globl lookup
124: .text
125: .align 2; .ent lookup
126: lookup:
127: $fp5=32
128: .frame $sp,32,$31
129: addu $sp,$sp,-32
130: .mask 0xc0000000,-12
131: sw $30,16($sp)
132: sw $31,20($sp)
133: sw $4,32($sp)
134: move $30,$5
135: lw $25,($30)
136: beq $25,$0,L.24
137: lw $4,$fp5+0($sp)
138: lw $25,($30)
139: lw $5,12($25)
140: jal strcmp # int
141: sw $2,$fp5-4($sp)
142: lw $25,$fp5-4($sp)
143: bge $25,$0,L.26
144: lw $4,$fp5+0($sp)
145: lw $25,($30)
146: addu $5,$25,4
147: jal lookup # int
148: b L.23
149: L.26:
150: lw $25,$fp5-4($sp)
151: ble $25,$0,L.28
152: lw $4,$fp5+0($sp)
153: lw $25,($30)
154: addu $5,$25,8
155: jal lookup # int
156: b L.23
157: L.28:
158: lw $2,($30)
159: b L.23
160: L.24:
161: lw $25,next
162: blt $25,2000,L.30
163: la $4,L.32
164: jal err # int
165: L.30:
166: lw $25,next
167: sll $25,$25,4
168: sw $0,words($25)
169: lw $25,next
170: sll $25,$25,4
171: sw $0,words+8($25)
172: sw $0,words+4($25)
173: lw $4,$fp5+0($sp)
174: jal strlen # int
175: addu $4,$2,1
176: jal malloc # int
177: lw $25,next
178: sll $25,$25,4
179: move $24,$2
180: sw $24,words+12($25)
181: lw $25,next
182: sll $25,$25,4
183: lw $25,words+12($25)
184: bne $25,$0,L.36
185: la $4,L.39
186: jal err # int
187: L.36:
188: lw $25,next
189: sll $25,$25,4
190: lw $4,words+12($25)
191: lw $5,$fp5+0($sp)
192: jal strcpy # int
193: lw $25,next
194: addu $24,$25,1
195: sw $24,next
196: sll $25,$25,4
197: la $25,words($25)
198: sw $25,($30)
199: move $2,$25
200: L.23:
201: lw $30,16($sp)
202: lw $31,20($sp)
203: addu $sp,$sp,32
204: j $31
205: .end lookup
206: .globl tprint
207: .text
208: .align 2; .ent tprint
209: tprint:
210: $fp6=24
211: .frame $sp,24,$31
212: addu $sp,$sp,-24
213: .mask 0xc0000000,-4
214: sw $30,16($sp)
215: sw $31,20($sp)
216: move $30,$4
217: beq $30,$0,L.42
218: lw $4,4($30)
219: jal tprint # int
220: la $4,L.44
221: lw $5,($30)
222: lw $6,12($30)
223: jal printf # int
224: lw $4,8($30)
225: jal tprint # int
226: L.42:
227: L.41:
228: lw $30,16($sp)
229: lw $31,20($sp)
230: addu $sp,$sp,24
231: j $31
232: .end tprint
233: .globl strcmp
234: .text
235: .align 2; .ent strcmp
236: strcmp:
237: $fp7=0
238: .frame $sp,0,$31
239: b L.47
240: L.46:
241: move $25,$4
242: addu $4,$25,1
243: lb $25,($25)
244: bne $25,$0,L.49
245: move $2,$0
246: b L.45
247: L.49:
248: addu $5,$5,1
249: L.47:
250: lb $25,($4)
251: lb $24,($5)
252: beq $25,$24,L.46
253: lb $25,($4)
254: bne $25,$0,L.51
255: li $2,-1
256: b L.45
257: L.51:
258: lb $25,($5)
259: bne $25,$0,L.53
260: li $2,1
261: b L.45
262: L.53:
263: lb $25,($4)
264: lb $24,($5)
265: subu $2,$25,$24
266: L.45:
267: j $31
268: .end strcmp
269: .globl next
270: .comm next,4
271: .globl words
272: .comm words,32000
273: .rdata
274: L.44:.ascii "%d\011%s\012\000"
275: L.39:.ascii "out of word storage\000"
276: L.32:.ascii "out of node storage\000"
277: L.6:.ascii "? %s\012\000"
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.