![[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 / sparc-sun / tst|
Return to wf1.s CVS log | Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / sparc-sun / tst |
1.1 root 1: .seg "text"
2: .global _main
3: .align 4
4: .proc 4
5: _main:save %sp,-120,%sp
6: st %r0,[%fp+-24]
7: set _next,%r29
8: st %r0,[%r29]
9: ba L3; nop
10: L2:
11: add -20,%fp,%r8
12: add -24,%fp,%r9
13: call _lookup; nop
14: mov %r8,%r29
15: ld [%r29],%r28
16: add %r28,1,%r28
17: st %r28,[%r29]
18: L3:
19: add -20,%fp,%r8
20: call _getword; nop
21: cmp %r8,%r0; bne L2; nop
22: ld [%fp+-24],%r8
23: call _tprint; nop
24: mov %r0,%r24
25: L1:
26: ret; restore
27: .global _err
28: .align 4
29: .proc 4
30: _err:save %sp,-96,%sp
31: set L6,%r8
32: mov %r24,%r9
33: call _printf; nop
34: set 1,%r8
35: call _exit; nop
36: L5:
37: ret; restore
38: .global _getword
39: .align 4
40: .proc 4
41: _getword:save %sp,-96,%sp
42: L8:
43: L9:
44: call _getchar; nop
45: mov %r8,%r29
46: cmp %r8,-1; be L11; nop
47: mov %r29,%r8
48: call _isletter; nop
49: cmp %r8,%r0; be L8; nop
50: L11:
51: mov %r24,%r28
52: ba L15; nop
53: L12:
54: mov %r28,%r27
55: add %r27,1,%r28
56: stb %r29,[%r27]
57: L13:
58: call _getchar; nop
59: mov %r8,%r29
60: L15:
61: mov %r29,%r8
62: call _isletter; nop
63: mov %r8,%r29
64: cmp %r8,%r0; bne L12; nop
65: stb %r0,[%r28]
66: cmp %r28,%r24; bleu L16; nop
67: set 1,%r24
68: ba L7; nop
69: L16:
70: mov %r0,%r24
71: L7:
72: ret; restore
73: .global _isletter
74: .align 4
75: .proc 4
76: _isletter:
77: cmp %r8,65; bl L19; nop
78: cmp %r8,90; bg L19; nop
79: add %r8,32,%r8
80: L19:
81: cmp %r8,97; bl L21; nop
82: cmp %r8,122; bg L21; nop
83: ba L18; nop
84: L21:
85: mov %r0,%r8
86: L18:
87: retl; nop
88: .global _lookup
89: .align 4
90: .proc 4
91: _lookup:save %sp,-96,%sp
92: ld [%r25],%r28
93: cmp %r28,%r0; be L24; nop
94: mov %r24,%r8
95: ld [%r25],%r28
96: ld [%r28+12],%r9
97: call _strcmp; nop
98: mov %r8,%r29
99: cmp %r29,%r0; bge L26; nop
100: mov %r24,%r8
101: ld [%r25],%r28
102: add %r28,4,%r9
103: call _lookup; nop
104: mov %r8,%r24
105: ba L23; nop
106: L26:
107: cmp %r29,%r0; ble L28; nop
108: mov %r24,%r8
109: ld [%r25],%r28
110: add %r28,8,%r9
111: call _lookup; nop
112: mov %r8,%r24
113: ba L23; nop
114: L28:
115: ld [%r25],%r24
116: ba L23; nop
117: L24:
118: set _next,%r28
119: ld [%r28],%r28
120: cmp %r28,2000; bl L30; nop
121: set L32,%r8
122: call _err; nop
123: L30:
124: set _next,%r28
125: ld [%r28],%r28
126: sll %r28,4,%r28
127: set _words,%r27
128: st %r0,[%r28+%r27]
129: set _next,%r28
130: ld [%r28],%r28
131: sll %r28,4,%r28
132: set _words+8,%r27
133: st %r0,[%r28+%r27]
134: set _words+4,%r27
135: st %r0,[%r28+%r27]
136: mov %r24,%r8
137: call _strlen; nop
138: add %r8,1,%r8
139: call _malloc; nop
140: set _next,%r28
141: ld [%r28],%r28
142: sll %r28,4,%r28
143: set _words+12,%r27
144: st %r8,[%r28+%r27]
145: set _next,%r28
146: ld [%r28],%r28
147: sll %r28,4,%r28
148: set _words+12,%r27
149: ld [%r28+%r27],%r28
150: cmp %r28,%r0; bne L36; nop
151: set L39,%r8
152: call _err; nop
153: L36:
154: set _next,%r28
155: ld [%r28],%r28
156: sll %r28,4,%r28
157: set _words+12,%r27
158: ld [%r28+%r27],%r8
159: mov %r24,%r9
160: call _strcpy; nop
161: set _next,%r28
162: ld [%r28],%r27
163: add %r27,1,%r26
164: st %r26,[%r28]
165: sll %r27,4,%r28
166: set _words,%r27
167: add %r28,%r27,%r28
168: st %r28,[%r25]
169: mov %r28,%r24
170: L23:
171: ret; restore
172: .global _tprint
173: .align 4
174: .proc 4
175: _tprint:save %sp,-96,%sp
176: cmp %r24,%r0; be L42; nop
177: ld [%r24+4],%r8
178: call _tprint; nop
179: set L44,%r8
180: ld [%r24],%r9
181: ld [%r24+12],%r10
182: call _printf; nop
183: ld [%r24+8],%r8
184: call _tprint; nop
185: L42:
186: L41:
187: ret; restore
188: .global _strcmp
189: .align 4
190: .proc 4
191: _strcmp:
192: ba L47; nop
193: L46:
194: mov %r8,%r13
195: add %r13,1,%r8
196: ldsb [%r13],%r13
197: cmp %r13,%r0; bne L49; nop
198: mov %r0,%r8
199: ba L45; nop
200: L49:
201: add %r9,1,%r9
202: L47:
203: ldsb [%r8],%r13
204: ldsb [%r9],%r12
205: cmp %r13,%r12; be L46; nop
206: ldsb [%r8],%r13
207: cmp %r13,%r0; bne L51; nop
208: set -1,%r8
209: ba L45; nop
210: L51:
211: ldsb [%r9],%r13
212: cmp %r13,%r0; bne L53; nop
213: set 1,%r8
214: ba L45; nop
215: L53:
216: ldsb [%r8],%r13
217: ldsb [%r9],%r12
218: sub %r13,%r12,%r8
219: L45:
220: retl; nop
221: .seg "bss"
222: .global _next
223: .align 4; .common _next,4
224: .global _words
225: .align 4; .common _words,32000
226: .seg "text"
227: L44:.ascii "%d\011%s\012\000"
228: L39:.ascii "out of word storage\000"
229: L32:.ascii "out of node storage\000"
230: L6:.ascii "? %s\012\000"
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.