![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t18.t0 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst|
Return to t18.t0 CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst |
1.1 root 1: .data 0
2: .align 2
3: L16:
4: .long 0
5: .align 2
6: L17:
7: .long 1
8: .align 2
9: L18:
10: .long 18
11: .align 2
12: L20:
13: .long 2
14: .align 2
15: L24:
16: .long 3
17: .align 2
18: L28:
19: .long 4
20: .align 2
21: L34:
22: .long 5
23: .align 2
24: L42:
25: .long 6
26: .align 2
27: L45:
28: .long 7
29: .align 2
30: L49:
31: .long 8
32: .align 2
33: L53:
34: .long 15
35: .align 2
36: L54:
37: .long 9
38: .align 2
39: L58:
40: .long 10
41: .align 2
42: L61:
43: .long 11
44: .align 2
45: L65:
46: .long 12
47: .align 2
48: L69:
49: .long 324
50: .align 2
51: L70:
52: .long 13
53: .align 2
54: L73:
55: .long 400
56: .align 2
57: L74:
58: .long 14
59: .align 2
60: L77:
61: .long 1369
62: .data 2
63: .data 1
64: .data 0
65: .data 2
66: .data 1
67: .data 0
68: .data 2
69: .data 1
70: .data 0
71: .data 2
72: .data 1
73: .data 0
74: .data 2
75: .data 1
76: .data 0
77: .data 2
78: .data 1
79: .data 0
80: .data 2
81: .data 1
82: .data 0
83: .data 2
84: .data 1
85: .data 0
86: .data 2
87: .data 1
88: .data 0
89: .data 2
90: .data 1
91: .data 0
92: .data 2
93: .data 1
94: .data 0
95: .globl _MAIN_
96: .globl _incr_
97: .globl _e_
98: .globl _decr_
99: .globl _double_
100: .globl _eval_
101: .globl _apply_
102: .globl _x1_
103: .globl _p1_
104: .globl _x2_
105: .globl _p0_
106: .comm _p1c_,4
107: .globl _p2_
108: .align 2
109: .stabs "t18.f",0x64,0,0,0
110:
111: .text
112: .globl _MAIN_
113: .align 1
114: _MAIN_:
115: .word LWM1
116: subl3 $LF1,fp,sp
117: jbr L12
118: L13:
119: movl $10,v.3-v.1(r11)
120: movl $20,v.4-v.1(r11)
121: pushl $L16
122: callf $8,_incr_
123: cmpl r0,$1
124: jeql L15
125: pushl $L18
126: pushl $L17
127: callf $12,_e_
128: L15:
129: addl3 $v.3-v.1,r11,r0
130: pushl r0
131: callf $8,_decr_
132: cmpl r0,$9
133: jeql L19
134: pushl $L18
135: pushl $L20
136: callf $12,_e_
137: L19:
138: addl3 v.4-v.1(r11),v.3-v.1(r11),r0
139: movl r0,-56(fp)
140: addl3 $-56,fp,r0
141: pushl r0
142: callf $8,_double_
143: cmpl r0,$60
144: jeql L22
145: pushl $L18
146: pushl $L24
147: callf $12,_e_
148: L22:
149: addl3 $v.4-v.1,r11,r0
150: pushl r0
151: callf $8,_double_
152: movl r0,-60(fp)
153: addl3 $-60,fp,r0
154: pushl r0
155: callf $8,_incr_
156: cmpl r0,$41
157: jeql L26
158: pushl $L18
159: pushl $L28
160: callf $12,_e_
161: L26:
162: addl3 $v.3-v.1,r11,r0
163: pushl r0
164: callf $8,_double_
165: movl r0,-72(fp)
166: addl3 $-72,fp,r0
167: pushl r0
168: callf $8,_incr_
169: movl r0,-68(fp)
170: addl3 $-68,fp,r0
171: pushl r0
172: callf $8,_double_
173: movl r0,-64(fp)
174: addl3 $-64,fp,r0
175: pushl r0
176: callf $8,_decr_
177: cmpl r0,$41
178: jeql L30
179: pushl $L18
180: pushl $L34
181: callf $12,_e_
182: L30:
183: pushl $L34
184: callf $8,_incr_
185: movl r0,-88(fp)
186: addl3 $-88,fp,r0
187: pushl r0
188: callf $8,_incr_
189: movl r0,-84(fp)
190: addl3 $-84,fp,r0
191: pushl r0
192: callf $8,_incr_
193: movl r0,-80(fp)
194: addl3 $-80,fp,r0
195: pushl r0
196: callf $8,_incr_
197: movl r0,-76(fp)
198: addl3 $-76,fp,r0
199: pushl r0
200: callf $8,_incr_
201: cmpl r0,$10
202: jeql L36
203: pushl $L18
204: pushl $L42
205: callf $12,_e_
206: L36:
207: addl3 $v.3-v.1,r11,r0
208: pushl r0
209: pushl $_incr_
210: callf $12,_eval_
211: cmpl r0,$11
212: jeql L44
213: pushl $L18
214: pushl $L45
215: callf $12,_e_
216: L44:
217: pushl $L24
218: pushl $_decr_
219: callf $12,_eval_
220: cmpl r0,$2
221: jeql L47
222: pushl $L18
223: pushl $L49
224: callf $12,_e_
225: L47:
226: pushl $L53
227: pushl $_double_
228: callf $12,_eval_
229: movl r0,-92(fp)
230: addl3 $-92,fp,r0
231: pushl r0
232: callf $8,_incr_
233: cmpl r0,$31
234: jeql L51
235: pushl $L18
236: pushl $L54
237: callf $12,_e_
238: L51:
239: pushl $L24
240: pushl $_incr_
241: callf $12,_apply_
242: cmpl r0,$4
243: jeql L56
244: pushl $L18
245: pushl $L58
246: callf $12,_e_
247: L56:
248: addl3 $v.4-v.1,r11,r0
249: pushl r0
250: addl3 $v.3-v.1,r11,r0
251: pushl r0
252: pushl $_double_
253: callf $16,_x1_
254: cmpl v.4-v.1(r11),$40
255: jeql L60
256: pushl $L18
257: pushl $L61
258: callf $12,_e_
259: L60:
260: addl3 $3,v.3-v.1(r11),r0
261: movl r0,-96(fp)
262: addl3 $v.4-v.1,r11,r0
263: pushl r0
264: addl3 $-96,fp,r0
265: pushl r0
266: pushl $_incr_
267: callf $16,_x1_
268: cmpl v.4-v.1(r11),$27
269: jeql L64
270: pushl $L18
271: pushl $L65
272: callf $12,_e_
273: L64:
274: pushl $L70
275: pushl $L69
276: pushl $L34
277: pushl $L24
278: callf $20,_p1_
279: pushl $L74
280: pushl $L73
281: pushl $L28
282: pushl $L58
283: callf $20,_p1_
284: pushl $L53
285: pushl $L77
286: pushl $L49
287: pushl $L17
288: callf $20,_p1_
289: movl $1,v.4-v.1(r11)
290: addl3 $v.4-v.1,r11,r0
291: pushl r0
292: callf $8,_double_
293: movl r0,-100(fp)
294: shll $1,-100(fp),r0
295: movl r0,-124(fp)
296: addl3 $-124,fp,r0
297: pushl r0
298: callf $8,_incr_
299: movl r0,-104(fp)
300: addl3 $1,-104(fp),r0
301: movl r0,-120(fp)
302: addl3 $-120,fp,r0
303: pushl r0
304: callf $8,_double_
305: movl r0,-108(fp)
306: shll $1,-108(fp),r0
307: movl r0,-116(fp)
308: addl3 $-116,fp,r0
309: pushl r0
310: callf $8,_incr_
311: movl r0,-112(fp)
312: addl3 $1,-112(fp),r0
313: cmpl r0,$26
314: jeql L79
315: pushl $L18
316: pushl $L70
317: callf $12,_e_
318: L79:
319: L14:
320: ret#0
321: L12:
322: movl $v.1,r11
323: jbr L13
324: .set LF1,124
325: .set LWM1,0x1800
326: .text
327: .globl _incr_
328: .align 1
329: _incr_:
330: .word LWM2
331: subl3 $LF2,fp,sp
332: jbr L90
333: L92:
334: addl3 $1,*4(r12),r0
335: movl r0,-60(fp)
336: L91:
337: movl -60(fp),r0
338: ret#1
339: L90:
340: movl fp,r12
341: jbr L92
342: .set LF2,60
343: .set LWM2,0x1000
344: .text
345: .globl _decr_
346: .align 1
347: _decr_:
348: .word LWM3
349: subl3 $LF3,fp,sp
350: jbr L96
351: L98:
352: addl3 $-1,*4(r12),r0
353: movl r0,-60(fp)
354: L97:
355: movl -60(fp),r0
356: ret#1
357: L96:
358: movl fp,r12
359: jbr L98
360: .set LF3,60
361: .set LWM3,0x1000
362: .text
363: .globl _double_
364: .align 1
365: _double_:
366: .word LWM4
367: subl3 $LF4,fp,sp
368: jbr L102
369: L104:
370: shll $1,*4(r12),r0
371: movl r0,-60(fp)
372: L103:
373: movl -60(fp),r0
374: ret#1
375: L102:
376: movl fp,r12
377: jbr L104
378: .set LF4,60
379: .set LWM4,0x1000
380: .text
381: .globl _eval_
382: .align 1
383: _eval_:
384: .word LWM5
385: subl3 $LF5,fp,sp
386: jbr L108
387: L110:
388: pushl 8(r12)
389: calls $8,*4(r12)
390: movl r0,-60(fp)
391: L109:
392: movl -60(fp),r0
393: ret#1
394: L108:
395: movl fp,r12
396: jbr L110
397: .set LF5,60
398: .set LWM5,0x1000
399: .text
400: .globl _apply_
401: .align 1
402: _apply_:
403: .word LWM6
404: subl3 $LF6,fp,sp
405: jbr L114
406: L116:
407: pushl 8(r12)
408: pushl 4(r12)
409: callf $12,_eval_
410: movl r0,-60(fp)
411: L115:
412: movl -60(fp),r0
413: ret#1
414: L114:
415: movl fp,r12
416: jbr L116
417: .set LF6,60
418: .set LWM6,0x1000
419: .text
420: .globl _x1_
421: .align 1
422: _x1_:
423: .word LWM7
424: subl3 $LF7,fp,sp
425: jbr L120
426: L123:
427: addl3 *8(r12),*8(r12),r0
428: movl r0,-56(fp)
429: pushl 12(r12)
430: addl3 $-56,fp,r0
431: pushl r0
432: pushl 4(r12)
433: callf $16,_x2_
434: L122:
435: L121:
436: ret#0
437: L120:
438: movl fp,r12
439: jbr L123
440: .set LF7,56
441: .set LWM7,0x1000
442: .text
443: .globl _x2_
444: .align 1
445: _x2_:
446: .word LWM8
447: subl3 $LF8,fp,sp
448: jbr L127
449: L130:
450: pushl 8(r12)
451: pushl 4(r12)
452: callf $12,_apply_
453: movl r0,*12(r12)
454: L129:
455: L128:
456: ret#0
457: L127:
458: movl fp,r12
459: jbr L130
460: .set LF8,52
461: .set LWM8,0x1000
462: .text
463: .globl _p0_
464: .align 1
465: _p0_:
466: .word LWM9
467: subl3 $LF9,fp,sp
468: jbr L133
469: L136:
470: tstl *12(r12)
471: jneq L138
472: pushl 8(r12)
473: calls $8,*4(r12)
474: jbr L139
475: L138:
476: addl3 *12(r12),*8(r12),r0
477: movl r0,-56(fp)
478: addl3 $-1,*12(r12),r0
479: movl r0,-60(fp)
480: addl3 $-60,fp,r0
481: pushl r0
482: addl3 $-56,fp,r0
483: pushl r0
484: pushl 4(r12)
485: callf $16,_p0_
486: L139:
487: L135:
488: L134:
489: ret#0
490: L133:
491: movl fp,r12
492: jbr L136
493: .set LF9,60
494: .set LWM9,0x1000
495: .text
496: .globl _p1_
497: .align 1
498: _p1_:
499: .word LWM10
500: subl3 $LF10,fp,sp
501: jbr L143
502: L146:
503: clrl _p1c_
504: pushl 8(r12)
505: pushl 4(r12)
506: pushl $_p2_
507: callf $16,_p0_
508: cmpl _p1c_,*12(r12)
509: jeql L148
510: pushl $L18
511: pushl 16(r12)
512: callf $12,_e_
513: L148:
514: L145:
515: L144:
516: ret#0
517: L143:
518: movl fp,r12
519: jbr L146
520: .set LF10,52
521: .set LWM10,0x1000
522: .text
523: .globl _p2_
524: .align 1
525: _p2_:
526: .word LWM11
527: subl3 $LF11,fp,sp
528: jbr L151
529: L154:
530: mull3 *4(r12),*4(r12),r0
531: movl r0,_p1c_
532: L153:
533: L152:
534: ret#0
535: L151:
536: movl fp,r12
537: jbr L154
538: .set LF11,52
539: .set LWM11,0x1000
540: .text
541: .data 2
542: .align 2
543: v.4:
544: .space 4
545: .align 2
546: v.2:
547: .space 4
548: .align 2
549: v.3:
550: .space 4
551: .set v.1,v.2
552:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.