![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to whetstone.t2 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 whetstone.t2 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: L98:
4: .long L97
5: .align 2
6: L97:
7: .byte 050,0146
8: .byte 061,060
9: .byte 056,062
10: .byte 054,02
11: .byte 040,0167
12: .byte 0150,0145
13: .byte 0164,0163
14: .byte 0164,0157
15: .byte 0156,0145
16: .byte 040,0153
17: .byte 0151,0160
18: .byte 0163,040
19: .byte 0160,0145
20: .byte 0162,040
21: .byte 0163,0145
22: .byte 0143,0157
23: .byte 0156,0144
24: .byte 056,02
25: .byte 051,00
26: .align 2
27: L109:
28: .long 0x3FFFFCB9 # .float .499975
29: .align 2
30: L110:
31: .long 0x40001062 # .float .50024998
32: .align 2
33: L111:
34: .long 0x41000000 # .float 2
35: .align 2
36: L112:
37: .long 0x00000000 # .float 0
38: .align 2
39: L113:
40: .long 0x40800000 # .float 1
41: .align 2
42: L114:
43: .long 0xC0800000 # .float -1
44: .align 2
45: L120:
46: .long 0x40000000 # .float .5
47: .align 2
48: L129:
49: .long 0x41400000 # .float 3
50: .align 2
51: L130:
52: .long 0x40400000 # .float .75
53: .align 2
54: L132:
55: .long 0x457A0000 # .float 1000
56: .align 2
57: L133:
58: .long 1
59: .align 2
60: L134:
61: .byte 00,00
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: .align 2
75: L163:
76: .long L162
77: .align 2
78: L162:
79: .byte 050,02
80: .byte 040,02
81: .byte 054,063
82: .byte 0151,067
83: .byte 054,064
84: .byte 0145,061
85: .byte 062,056
86: .byte 064,051
87: .byte 00,00
88: .data 2
89: .data 1
90: .data 0
91: .data 2
92: .data 1
93: .data 0
94: .globl _MAIN_
95: .comm __BLNK__,40
96: .globl _secnds_
97: .globl _pout_
98: .globl _pa_
99: .globl _p3_
100: .globl _p0_
101: .globl _s_wsfe
102: .globl _do_fio
103: .globl _e_wsfe
104: .globl _s_stop
105: .globl _prtres_
106: .align 2
107: .stabs "whetstone.f",0x64,0,0,0
108: .text
109: .globl _MAIN_
110: .set LF1,92
111: .set LWM1,0x1FC0
112: .align 1
113: _MAIN_:.word LWM1
114: subl3 $LF1,fp,sp
115: movl $v.1,r11
116: movl L109,__BLNK__
117: movl L110,__BLNK__+4
118: movl L111,__BLNK__+8
119: movl $10,v.2-v.1(r11)
120: L15:pushl $L112
121: callf $8,_secnds_
122: movl r0,v.3-v.1(r11)
123: movl v.2-v.1(r11),v.4-v.1(r11)
124: clrl v.5-v.1(r11)
125: mull3 $12,v.2-v.1(r11),v.6-v.1(r11)
126: mull3 $14,v.2-v.1(r11),v.7-v.1(r11)
127: mull3 $345,v.2-v.1(r11),v.8-v.1(r11)
128: clrl v.9-v.1(r11)
129: mull3 $210,v.2-v.1(r11),v.10-v.1(r11)
130: shll $5,v.2-v.1(r11),v.11-v.1(r11)
131: mull3 $899,v.2-v.1(r11),v.12-v.1(r11)
132: mull3 $616,v.2-v.1(r11),v.13-v.1(r11)
133: clrl v.14-v.1(r11)
134: mull3 $93,v.2-v.1(r11),v.15-v.1(r11)
135: clrl v.16-v.1(r11)
136: movl L113,v.17-v.1(r11)
137: movl L114,v.18-v.1(r11)
138: movl L114,v.19-v.1(r11)
139: movl L114,v.20-v.1(r11)
140: tstl v.5-v.1(r11)
141: jleq L16
142: movl v.5-v.1(r11),-56(fp)
143: movl v.17-v.1(r11),r10
144: movl v.18-v.1(r11),r9
145: movl v.19-v.1(r11),r8
146: movl v.20-v.1(r11),r7
147: movl -56(fp),r6
148: movl $1,v.2-v.1(r11)
149: cmpl v.2-v.1(r11),r6
150: jgtr L19
151: L20:ldf r10
152: addf r9
153: addf r8
154: subf r7
155: mulf __BLNK__
156: stf r10
157: addf r9
158: subf r8
159: addf r7
160: mulf __BLNK__
161: stf r9
162: subf r10
163: addf r8
164: addf r7
165: mulf __BLNK__
166: stf r7
167: ldf r10
168: subf r9
169: addf r8
170: addf r7
171: mulf __BLNK__
172: stf r8
173: aobleq r6,v.2-v.1(r11),L20
174: L19:movl r7,v.20-v.1(r11)
175: movl r8,v.19-v.1(r11)
176: movl r9,v.18-v.1(r11)
177: movl r10,v.17-v.1(r11)
178: L16:addl3 $v.20-v.1,r11,-(sp)
179: addl3 $v.19-v.1,r11,-(sp)
180: addl3 $v.18-v.1,r11,-(sp)
181: addl3 $v.17-v.1,r11,-(sp)
182: addl3 $v.5-v.1,r11,-(sp)
183: addl3 $v.5-v.1,r11,-(sp)
184: addl3 $v.5-v.1,r11,-(sp)
185: callf $32,_pout_
186: movl L114,__BLNK__+16
187: movl L114,__BLNK__+20
188: movl L114,__BLNK__+24
189: tstl v.6-v.1(r11)
190: jleq L23
191: movl v.6-v.1(r11),-60(fp)
192: movl -60(fp),r10
193: movl v.2-v.1(r11),r9
194: movl __BLNK__+24,r8
195: movl __BLNK__+20,r7
196: movl __BLNK__+16,r6
197: movl $1,r9
198: cmpl r9,r10
199: jgtr L26
200: L27:ldf __BLNK__+12
201: addf r6
202: addf r7
203: subf r8
204: mulf __BLNK__
205: stf __BLNK__+12
206: addf r6
207: subf r7
208: addf r8
209: mulf __BLNK__
210: stf r6
211: ldf __BLNK__+12
212: subf r6
213: addf r7
214: addf r8
215: mulf __BLNK__
216: stf r7
217: ldf r6
218: subf __BLNK__+12
219: addf r7
220: addf r8
221: mulf __BLNK__
222: stf r8
223: aobleq r10,r9,L27
224: L26:movl r6,__BLNK__+16
225: movl r7,__BLNK__+20
226: movl r8,__BLNK__+24
227: movl r9,v.2-v.1(r11)
228: L23:pushl $__BLNK__+24
229: pushl $__BLNK__+20
230: pushl $__BLNK__+16
231: pushl $__BLNK__+12
232: addl3 $v.6-v.1,r11,-(sp)
233: addl3 $v.7-v.1,r11,-(sp)
234: addl3 $v.6-v.1,r11,-(sp)
235: callf $32,_pout_
236: movl v.7-v.1(r11),-64(fp)
237: movl -64(fp),r10
238: movl v.2-v.1(r11),r9
239: movl $1,r9
240: cmpl r9,r10
241: jgtr L32
242: L31:pushl $__BLNK__+12
243: callf $8,_pa_
244: aobleq r10,r9,L31
245: L32:movl r9,v.2-v.1(r11)
246: pushl $__BLNK__+24
247: pushl $__BLNK__+20
248: pushl $__BLNK__+16
249: pushl $__BLNK__+12
250: addl3 $v.6-v.1,r11,-(sp)
251: addl3 $v.6-v.1,r11,-(sp)
252: addl3 $v.7-v.1,r11,-(sp)
253: callf $32,_pout_
254: tstl v.8-v.1(r11)
255: jleq L37
256: movl v.8-v.1(r11),-68(fp)
257: movl __BLNK__+28,r10
258: movl -68(fp),r9
259: movl v.2-v.1(r11),r8
260: movl $1,r8
261: cmpl r8,r9
262: jgtr L40
263: L41:subl3 $1,r10,r0
264: jneq L44
265: movl $2,r10
266: jbr L46
267: L44:movl $3,r10
268: L46:subl3 $2,r10,r0
269: jleq L47
270: clrl r10
271: jbr L49
272: L47:movl $1,r10
273: L49:subl3 $1,r10,r0
274: jgeq L51
275: movl $1,r10
276: jbr L39
277: L51:clrl r10
278: L39:aobleq r9,r8,L41
279: L40:movl r8,v.2-v.1(r11)
280: movl r10,__BLNK__+28
281: L37:addl3 $v.20-v.1,r11,-(sp)
282: addl3 $v.19-v.1,r11,-(sp)
283: addl3 $v.18-v.1,r11,-(sp)
284: addl3 $v.17-v.1,r11,-(sp)
285: pushl $__BLNK__+28
286: pushl $__BLNK__+28
287: addl3 $v.8-v.1,r11,-(sp)
288: callf $32,_pout_
289: movl $1,__BLNK__+28
290: movl $2,__BLNK__+32
291: movl $3,__BLNK__+36
292: tstl v.10-v.1(r11)
293: jleq L52
294: movl v.10-v.1(r11),-72(fp)
295: movl -72(fp),r10
296: movl v.2-v.1(r11),r9
297: movl $1,r9
298: cmpl r9,r10
299: jgtr L55
300: L56:subl3 __BLNK__+28,__BLNK__+32,r0
301: mull2 __BLNK__+28,r0
302: subl3 __BLNK__+32,__BLNK__+36,r1
303: mull3 r1,r0,__BLNK__+28
304: mull3 __BLNK__+32,__BLNK__+36,r0
305: subl3 __BLNK__+28,__BLNK__+36,r1
306: mull2 __BLNK__+32,r1
307: subl3 r1,r0,__BLNK__+32
308: subl3 __BLNK__+32,__BLNK__+36,r0
309: addl3 __BLNK__+28,__BLNK__+32,r1
310: mull3 r1,r0,__BLNK__+36
311: addl3 __BLNK__+32,__BLNK__+28,r0
312: addl2 __BLNK__+36,r0
313: cvlf r0
314: movl __BLNK__+36,r1
315: stf __BLNK__+4[r1]
316: addl3 __BLNK__+32,__BLNK__+28,r0
317: addl2 __BLNK__+36,r0
318: cvlf r0
319: movl __BLNK__+32,r1
320: stf __BLNK__+4[r1]
321: aobleq r10,r9,L56
322: L55:movl r9,v.2-v.1(r11)
323: L52:pushl $__BLNK__+24
324: pushl $__BLNK__+20
325: pushl $__BLNK__+16
326: pushl $__BLNK__+12
327: pushl $__BLNK__+32
328: pushl $__BLNK__+28
329: addl3 $v.10-v.1,r11,-(sp)
330: callf $32,_pout_
331: movl L120,v.21-v.1(r11)
332: movl L120,v.22-v.1(r11)
333: tstl v.11-v.1(r11)
334: jleq L59
335: movl v.11-v.1(r11),-76(fp)
336: movl v.21-v.1(r11),r10
337: movl v.22-v.1(r11),r9
338: movl -76(fp),r8
339: movl v.2-v.1(r11),r7
340: movl __BLNK__+8,r6
341: movl $1,r7
342: cmpl r7,r8
343: jgtr L62
344: L63:ldf r10
345: cosf
346: stf r0
347: ldf r10
348: addf r9
349: cosf
350: stf r1
351: ldf r0
352: divf r1
353: stf r0
354: ldf r10
355: sinf
356: mulf r6
357: addf r0
358: stf r0
359: ldf r10
360: subf r9
361: cosf
362: addf r0
363: addf L114
364: atanf
365: mulf __BLNK__
366: stf r10
367: ldf r9
368: cosf
369: stf r0
370: ldf r10
371: addf r9
372: cosf
373: stf r1
374: ldf r0
375: divf r1
376: stf r0
377: ldf r9
378: sinf
379: mulf r6
380: addf r0
381: stf r0
382: ldf r10
383: subf r9
384: cosf
385: addf r0
386: addf L114
387: atanf
388: mulf __BLNK__
389: stf r9
390: aobleq r8,r7,L63
391: L62:movl r7,v.2-v.1(r11)
392: movl r9,v.22-v.1(r11)
393: movl r10,v.21-v.1(r11)
394: L59:addl3 $v.22-v.1,r11,-(sp)
395: addl3 $v.22-v.1,r11,-(sp)
396: addl3 $v.21-v.1,r11,-(sp)
397: addl3 $v.21-v.1,r11,-(sp)
398: pushl $__BLNK__+32
399: pushl $__BLNK__+28
400: addl3 $v.11-v.1,r11,-(sp)
401: callf $32,_pout_
402: movl L113,v.21-v.1(r11)
403: movl L113,v.22-v.1(r11)
404: movl L113,v.23-v.1(r11)
405: tstl v.12-v.1(r11)
406: jleq L66
407: movl v.12-v.1(r11),-80(fp)
408: movl -80(fp),r10
409: movl v.2-v.1(r11),r9
410: movl $1,r9
411: cmpl r9,r10
412: jgtr L69
413: L68:addl3 $v.23-v.1,r11,-(sp)
414: addl3 $v.22-v.1,r11,-(sp)
415: addl3 $v.21-v.1,r11,-(sp)
416: callf $16,_p3_
417: aobleq r10,r9,L68
418: L69:movl r9,v.2-v.1(r11)
419: L66:addl3 $v.23-v.1,r11,-(sp)
420: addl3 $v.23-v.1,r11,-(sp)
421: addl3 $v.22-v.1,r11,-(sp)
422: addl3 $v.21-v.1,r11,-(sp)
423: pushl $__BLNK__+32
424: pushl $__BLNK__+28
425: addl3 $v.12-v.1,r11,-(sp)
426: callf $32,_pout_
427: movl $1,__BLNK__+28
428: movl $2,__BLNK__+32
429: movl $3,__BLNK__+36
430: movl L113,__BLNK__+12
431: movl L111,__BLNK__+16
432: movl L129,__BLNK__+20
433: tstl v.13-v.1(r11)
434: jleq L73
435: movl v.13-v.1(r11),-84(fp)
436: movl -84(fp),r10
437: movl v.2-v.1(r11),r9
438: movl $1,r9
439: cmpl r9,r10
440: jgtr L76
441: L75:callf $4,_p0_
442: aobleq r10,r9,L75
443: L76:movl r9,v.2-v.1(r11)
444: L73:pushl $__BLNK__+24
445: pushl $__BLNK__+20
446: pushl $__BLNK__+16
447: pushl $__BLNK__+12
448: pushl $__BLNK__+32
449: pushl $__BLNK__+28
450: addl3 $v.13-v.1,r11,-(sp)
451: callf $32,_pout_
452: movl $2,__BLNK__+28
453: movl $3,__BLNK__+32
454: tstl v.14-v.1(r11)
455: jleq L80
456: movl v.14-v.1(r11),-88(fp)
457: movl __BLNK__+28,r10
458: movl __BLNK__+32,r9
459: movl -88(fp),r8
460: movl v.2-v.1(r11),r7
461: movl $1,r7
462: cmpl r7,r8
463: jgtr L83
464: L84:addl2 r9,r10
465: addl2 r10,r9
466: subl2 r9,r10
467: subl3 r10,r9,r0
468: subl3 r10,r0,r9
469: aobleq r8,r7,L84
470: L83:movl r7,v.2-v.1(r11)
471: movl r9,__BLNK__+32
472: movl r10,__BLNK__+28
473: L80:addl3 $v.20-v.1,r11,-(sp)
474: addl3 $v.19-v.1,r11,-(sp)
475: addl3 $v.18-v.1,r11,-(sp)
476: addl3 $v.17-v.1,r11,-(sp)
477: pushl $__BLNK__+32
478: pushl $__BLNK__+28
479: addl3 $v.14-v.1,r11,-(sp)
480: callf $32,_pout_
481: movl L130,v.21-v.1(r11)
482: tstl v.15-v.1(r11)
483: jleq L87
484: movl v.15-v.1(r11),-92(fp)
485: movl v.21-v.1(r11),r10
486: movl -92(fp),r9
487: movl v.2-v.1(r11),r8
488: movl __BLNK__+4,r7
489: movl $1,r8
490: cmpl r8,r9
491: jgtr L90
492: L89:ldf r10
493: logf
494: divf r7
495: expf
496: sqrtf
497: stf r10
498: aobleq r9,r8,L89
499: L90:movl r8,v.2-v.1(r11)
500: movl r10,v.21-v.1(r11)
501: L87:addl3 $v.3-v.1,r11,-(sp)
502: callf $8,_secnds_
503: ldf r0
504: subf v.3-v.1(r11)
505: stf v.24-v.1(r11)
506: cmpl v.4-v.1(r11),$20
507: jeql L95
508: movl v.24-v.1(r11),v.25-v.1(r11)
509: movl $20,v.2-v.1(r11)
510: jbr L15
511: L95:movl v.24-v.1(r11),v.26-v.1(r11)
512: ldf v.26-v.1(r11)
513: subf v.25-v.1(r11)
514: stf r0
515: ldf L113
516: divf r0
517: mulf L132
518: stf v.27-v.1(r11)
519: movl L98,v.28+12
520: pushl $v.28
521: callf $8,_s_wsfe
522: pushl $4
523: addl3 $v.27-v.1,r11,-(sp)
524: pushl $L133
525: callf $16,_do_fio
526: callf $4,_e_wsfe
527: pushl $0
528: pushl $L134
529: callf $12,_s_stop
530: ret#0
531: .globl _pa_
532: .set LF2,52
533: .set LWM2,0x1800
534: .align 1
535: _pa_:.word LWM2
536: subl3 $LF2,fp,sp
537: movl $v.29,r11
538: movl fp,r12
539: subl2 $4,4(r12)
540: clrl v.30-v.29(r11)
541: L141:movl 4(r12),r0
542: movl r0,r1
543: ldf 4(r0)
544: addf 8(r1)
545: addf 12(r1)
546: subf 16(r1)
547: mulf __BLNK__
548: stf 4(r1)
549: movl 4(r12),r0
550: movl r0,r1
551: ldf 4(r0)
552: addf 8(r1)
553: subf 12(r1)
554: addf 16(r1)
555: mulf __BLNK__
556: stf 8(r1)
557: movl 4(r12),r0
558: movl r0,r1
559: ldf 4(r0)
560: subf 8(r1)
561: addf 12(r1)
562: addf 16(r1)
563: mulf __BLNK__
564: stf 12(r1)
565: movl 4(r12),r0
566: lnf 4(r0)
567: movl r0,r1
568: addf 8(r1)
569: addf 12(r1)
570: addf 16(r1)
571: divf __BLNK__+8
572: stf 16(r1)
573: addl2 $1,v.30-v.29(r11)
574: subl3 $6,v.30-v.29(r11),r0
575: jlss L141
576: ret#0
577: .globl _p0_
578: .set LF3,52
579: .set LWM3,0x1000
580: .align 1
581: _p0_:.word LWM3
582: subl3 $LF3,fp,sp
583: movl __BLNK__+32,r0
584: movl __BLNK__+28,r1
585: movl __BLNK__+8[r0],__BLNK__+8[r1]
586: movl __BLNK__+36,r0
587: movl __BLNK__+32,r1
588: movl __BLNK__+8[r0],__BLNK__+8[r1]
589: movl __BLNK__+28,r0
590: movl __BLNK__+36,r1
591: movl __BLNK__+8[r0],__BLNK__+8[r1]
592: ret#0
593: .globl _p3_
594: .set LF4,52
595: .set LWM4,0x1800
596: .align 1
597: _p3_:.word LWM4
598: subl3 $LF4,fp,sp
599: movl $v.32,r11
600: movl fp,r12
601: movl *4(r12),v.33-v.32(r11)
602: movl *8(r12),v.34-v.32(r11)
603: ldf v.33-v.32(r11)
604: addf v.34-v.32(r11)
605: mulf __BLNK__
606: stf v.33-v.32(r11)
607: addf v.34-v.32(r11)
608: mulf __BLNK__
609: stf v.34-v.32(r11)
610: ldf v.33-v.32(r11)
611: addf v.34-v.32(r11)
612: divf __BLNK__+8
613: stf *12(r12)
614: ret#0
615: .globl _pout_
616: .set LF5,52
617: .set LWM5,0x1000
618: .align 1
619: _pout_:.word LWM5
620: subl3 $LF5,fp,sp
621: movl fp,r12
622: movl L163,v.36+12
623: pushl $v.36
624: callf $8,_s_wsfe
625: pushl $4
626: pushl 4(r12)
627: pushl $L133
628: callf $16,_do_fio
629: pushl $4
630: pushl 8(r12)
631: pushl $L133
632: callf $16,_do_fio
633: pushl $4
634: pushl 12(r12)
635: pushl $L133
636: callf $16,_do_fio
637: pushl $4
638: pushl 16(r12)
639: pushl $L133
640: callf $16,_do_fio
641: pushl $4
642: pushl 20(r12)
643: pushl $L133
644: callf $16,_do_fio
645: pushl $4
646: pushl 24(r12)
647: pushl $L133
648: callf $16,_do_fio
649: pushl $4
650: pushl 28(r12)
651: pushl $L133
652: callf $16,_do_fio
653: callf $4,_e_wsfe
654: ret#0
655: .globl _prtres_
656: .set LF6,52
657: .set LWM6,0x1000
658: .align 1
659: _prtres_:.word LWM6
660: subl3 $LF6,fp,sp
661: movl fp,r12
662: ret#0
663:
664: .data 2
665: .align 2
666: v.28:
667: .long 0
668: .long 6
669: .space 8
670: .align 2
671: v.2:
672: .space 4
673: .align 2
674: v.22:
675: .space 4
676: .align 2
677: v.5:
678: .space 4
679: .align 2
680: v.7:
681: .space 4
682: .align 2
683: v.9:
684: .space 4
685: .align 2
686: v.11:
687: .space 4
688: .align 2
689: v.13:
690: .space 4
691: .align 2
692: v.18:
693: .space 4
694: .align 2
695: v.20:
696: .space 4
697: .align 2
698: v.15:
699: .space 4
700: .align 2
701: v.27:
702: .space 4
703: .align 2
704: v.26:
705: .space 4
706: .align 2
707: v.3:
708: .space 4
709: .align 2
710: v.4:
711: .space 4
712: .align 2
713: v.24:
714: .space 4
715: .align 2
716: v.25:
717: .space 4
718: .align 2
719: v.16:
720: .space 4
721: .align 2
722: v.14:
723: .space 4
724: .align 2
725: v.19:
726: .space 4
727: .align 2
728: v.17:
729: .space 4
730: .align 2
731: v.12:
732: .space 4
733: .align 2
734: v.10:
735: .space 4
736: .align 2
737: v.8:
738: .space 4
739: .align 2
740: v.6:
741: .space 4
742: .align 2
743: v.23:
744: .space 4
745: .align 2
746: v.21:
747: .space 4
748: .set v.1,v.4
749:
750: .align 2
751: v.30:
752: .space 4
753: .set v.29,v.30
754:
755: .align 2
756: v.33:
757: .space 4
758: .align 2
759: v.34:
760: .space 4
761: .set v.32,v.34
762:
763: .align 2
764: v.36:
765: .long 0
766: .long 6
767: .space 8
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.