![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to paranoia.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 paranoia.s CVS log | Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / sparc-sun / tst |
1.1 root 1: .seg "data"
2: .global _Zero
3: .align 8; _Zero:.word 0x0,0x0
4: .global _Half
5: .align 8; _Half:.word 0x3fe00000,0x0
6: .global _One
7: .align 8; _One:.word 0x3ff00000,0x0
8: .global _Two
9: .align 8; _Two:.word 0x40000000,0x0
10: .global _Three
11: .align 8; _Three:.word 0x40080000,0x0
12: .global _Four
13: .align 8; _Four:.word 0x40100000,0x0
14: .global _Five
15: .align 8; _Five:.word 0x40140000,0x0
16: .global _Eight
17: .align 8; _Eight:.word 0x40200000,0x0
18: .global _Nine
19: .align 8; _Nine:.word 0x40220000,0x0
20: .global _TwentySeven
21: .align 8; _TwentySeven:.word 0x403b0000,0x0
22: .global _ThirtyTwo
23: .align 8; _ThirtyTwo:.word 0x40400000,0x0
24: .global _TwoForty
25: .align 8; _TwoForty:.word 0x406e0000,0x0
26: .global _MinusOne
27: .align 8; _MinusOne:.word 0xbff00000,0x0
28: .global _OneAndHalf
29: .align 8; _OneAndHalf:.word 0x3ff80000,0x0
30: .global _NoTrials
31: .align 4; _NoTrials:.word 20
32: .seg "text"
33: .global _sigfpe
34: .align 4
35: .proc 4
36: _sigfpe:save %sp,-96,%sp
37: set _fpecount,%r29
38: ld [%r29],%r28
39: add %r28,1,%r28
40: st %r28,[%r29]
41: set L2,%r8
42: call _printf; nop
43: set __iob+20,%r8
44: call _fflush; nop
45: set _sigsave,%r29
46: ld [%r29],%r29
47: cmp %r29,%r0; be L4; nop
48: set 8,%r8
49: set _sigsave,%r29
50: ld [%r29],%r9
51: call _signal; nop
52: set _sigsave,%r29
53: st %r0,[%r29]
54: set _ovfl_buf,%r8
55: set 1,%r9
56: call _longjmp; nop
57: L4:
58: call _abort; nop
59: L1:
60: ret; restore
61: .seg "data"
62: .align 4; _759:.word L760
63: .word L761
64: .word L762
65: .word L763
66: .seg "text"
67: .global _main
68: .align 4
69: .proc 4
70: _main:save %sp,-176,%sp
71: set L7,%r29
72: ld [%r29],%f30; ld [%r29+4],%f31
73: set _Zero,%r29
74: st %f30,[%r29]; st %f31,[%r29+4]
75: set L8,%r29
76: ld [%r29],%f30; ld [%r29+4],%f31
77: set _One,%r29
78: st %f30,[%r29]; st %f31,[%r29+4]
79: ld [%r29],%f30; ld [%r29+4],%f31
80: faddd %f30,%f30,%f28
81: set _Two,%r29
82: st %f28,[%r29]; st %f29,[%r29+4]
83: ld [%r29],%f28; ld [%r29+4],%f29
84: faddd %f28,%f30,%f26
85: set _Three,%r29
86: st %f26,[%r29]; st %f27,[%r29+4]
87: ld [%r29],%f26; ld [%r29+4],%f27
88: faddd %f26,%f30,%f24
89: set _Four,%r29
90: st %f24,[%r29]; st %f25,[%r29+4]
91: ld [%r29],%f24; ld [%r29+4],%f25
92: faddd %f24,%f30,%f22
93: set _Five,%r29
94: st %f22,[%r29]; st %f23,[%r29+4]
95: faddd %f24,%f24,%f22
96: set _Eight,%r28
97: st %f22,[%r28]; st %f23,[%r28+4]
98: fmuld %f26,%f26,%f22
99: set _Nine,%r27
100: st %f22,[%r27]; st %f23,[%r27+4]
101: ld [%r27],%f22; ld [%r27+4],%f23
102: fmuld %f22,%f26,%f22
103: set _TwentySeven,%r27
104: st %f22,[%r27]; st %f23,[%r27+4]
105: ld [%r28],%f22; ld [%r28+4],%f23
106: fmuld %f24,%f22,%f22
107: set _ThirtyTwo,%r28
108: st %f22,[%r28]; st %f23,[%r28+4]
109: ld [%r29],%f22; ld [%r29+4],%f23
110: fmuld %f24,%f22,%f22
111: fmuld %f22,%f26,%f26
112: fmuld %f26,%f24,%f26
113: set _TwoForty,%r29
114: st %f26,[%r29]; st %f27,[%r29+4]
115: fnegs %f30,%f26; fmovs %f31,%f27
116: set _MinusOne,%r29
117: st %f26,[%r29]; st %f27,[%r29+4]
118: fdivd %f30,%f28,%f28
119: set _Half,%r29
120: st %f28,[%r29]; st %f29,[%r29+4]
121: ld [%r29],%f28; ld [%r29+4],%f29
122: faddd %f30,%f28,%f30
123: set _OneAndHalf,%r29
124: st %f30,[%r29]; st %f31,[%r29+4]
125: set _ErrCnt,%r29
126: st %r0,[%r29]
127: set _ErrCnt+4,%r29
128: st %r0,[%r29]
129: set _ErrCnt+8,%r29
130: st %r0,[%r29]
131: set _ErrCnt+12,%r29
132: st %r0,[%r29]
133: set 1,%r29
134: set _PageNo,%r28
135: st %r29,[%r28]
136: set _Milestone,%r29
137: st %r0,[%r29]
138: set 8,%r8
139: set _sigfpe,%r9
140: call _signal; nop
141: call _Instructions; nop
142: call _Pause; nop
143: call _Heading; nop
144: call _Pause; nop
145: call _Characteristics; nop
146: call _Pause; nop
147: call _History; nop
148: call _Pause; nop
149: set 7,%r29
150: set _Milestone,%r28
151: st %r29,[%r28]
152: set L12,%r8
153: call _printf; nop
154: mov %r0,%r8
155: set _Zero,%r28
156: ld [%r28],%f30; ld [%r28+4],%f31
157: faddd %f30,%f30,%f28
158: fcmped %f28,%f30; nop; fbne L15; nop
159: set _One,%r28
160: ld [%r28],%f28; ld [%r28+4],%f29
161: fsubd %f28,%f28,%f26
162: fcmped %f26,%f30; nop; fbne L15; nop
163: fcmped %f28,%f30; nop; fbule L15; nop
164: faddd %f28,%f28,%f30
165: set _Two,%r28
166: ld [%r28],%f28; ld [%r28+4],%f29
167: fcmped %f30,%f28; nop; fbne L15; nop
168: set 1,%r29
169: ba L16; nop
170: L15:
171: mov %r0,%r29
172: L16:
173: mov %r29,%r9
174: set L14,%r10
175: call _TstCond; nop
176: set _Zero,%r29
177: ld [%r29],%f30; ld [%r29+4],%f31
178: fnegs %f30,%f30; fmovs %f31,%f31
179: set _Z,%r29
180: st %f30,[%r29]; st %f31,[%r29+4]
181: ld [%r29],%f30; ld [%r29+4],%f31
182: set L7,%r29
183: ld [%r29],%f28; ld [%r29+4],%f29
184: fcmped %f30,%f28; nop; fbue L17; nop
185: set _ErrCnt,%r29
186: ld [%r29],%r28
187: add %r28,1,%r28
188: st %r28,[%r29]
189: set L19,%r8
190: call _printf; nop
191: set L20,%r29
192: ld [%r29],%f30; ld [%r29+4],%f31
193: set _U1,%r29
194: st %f30,[%r29]; st %f31,[%r29+4]
195: set L8,%r29
196: ld [%r29],%f30; ld [%r29+4],%f31
197: set _Radix,%r29
198: st %f30,[%r29]; st %f31,[%r29+4]
199: call _TstPtUf; nop
200: L17:
201: mov %r0,%r8
202: set _Three,%r28
203: ld [%r28],%f30; ld [%r28+4],%f31
204: set _Two,%r28
205: ld [%r28],%f28; ld [%r28+4],%f29
206: set _One,%r28
207: ld [%r28],%f26; ld [%r28+4],%f27
208: faddd %f28,%f26,%f24
209: fcmped %f30,%f24; nop; fbne L23; nop
210: set _Four,%r28
211: ld [%r28],%f24; ld [%r28+4],%f25
212: faddd %f30,%f26,%f22
213: fcmped %f24,%f22; nop; fbne L23; nop
214: fnegs %f28,%f22; fmovs %f29,%f23
215: fmuld %f28,%f22,%f28
216: faddd %f24,%f28,%f28
217: set _Zero,%r28
218: ld [%r28],%f22; ld [%r28+4],%f23
219: fcmped %f28,%f22; nop; fbne L23; nop
220: fsubd %f24,%f30,%f30
221: fsubd %f30,%f26,%f30
222: fcmped %f30,%f22; nop; fbne L23; nop
223: set 1,%r29
224: ba L24; nop
225: L23:
226: mov %r0,%r29
227: L24:
228: mov %r29,%r9
229: set L22,%r10
230: call _TstCond; nop
231: set _MinusOne,%r28
232: ld [%r28],%f30; ld [%r28+4],%f31
233: st %f30,[%fp+-8]; st %f31,[%fp+-8+4]
234: set L7,%r28
235: ld [%r28],%f28; ld [%r28+4],%f29
236: set _One,%r28
237: ld [%r28],%f26; ld [%r28+4],%f27
238: fsubd %f28,%f26,%f28
239: fcmped %f30,%f28; nop; fbne L27; nop
240: faddd %f30,%f26,%f28
241: set _Zero,%r28
242: ld [%r28],%f24; ld [%r28+4],%f25
243: fcmped %f28,%f24; nop; fbne L27; nop
244: faddd %f26,%f30,%f28
245: fcmped %f28,%f24; nop; fbne L27; nop
246: st %f26,[%sp+4*0+68]
247: st %f27,[%sp+4*1+68]
248: ld [%sp+4*0+68],%o0
249: ld [%sp+4*1+68],%o1
250: call _fabs; nop
251: ld [%fp+-8],%f30; ld [%fp+-8+4],%f31
252: faddd %f30,%f0,%f30
253: set _Zero,%r28
254: ld [%r28],%f28; ld [%r28+4],%f29
255: fcmped %f30,%f28; nop; fbne L27; nop
256: set _MinusOne,%r28
257: ld [%r28],%f30; ld [%r28+4],%f31
258: fmuld %f30,%f30,%f26
259: faddd %f30,%f26,%f30
260: fcmped %f30,%f28; nop; fbne L27; nop
261: set 1,%r29
262: ba L28; nop
263: L27:
264: mov %r0,%r29
265: L28:
266: mov %r0,%r8
267: mov %r29,%r9
268: set L26,%r10
269: call _TstCond; nop
270: mov %r0,%r8
271: set _Half,%r28
272: ld [%r28],%f30; ld [%r28+4],%f31
273: set _MinusOne,%r28
274: ld [%r28],%f28; ld [%r28+4],%f29
275: faddd %f30,%f28,%f28
276: faddd %f28,%f30,%f30
277: set _Zero,%r28
278: ld [%r28],%f28; ld [%r28+4],%f29
279: fcmped %f30,%f28; nop; fbne L31; nop
280: set 1,%r29
281: ba L32; nop
282: L31:
283: mov %r0,%r29
284: L32:
285: mov %r29,%r9
286: set L30,%r10
287: call _TstCond; nop
288: set 10,%r28
289: set _Milestone,%r27
290: st %r28,[%r27]
291: mov %r0,%r8
292: set _Nine,%r28
293: ld [%r28],%f30; ld [%r28+4],%f31
294: set _Three,%r28
295: ld [%r28],%f28; ld [%r28+4],%f29
296: fmuld %f28,%f28,%f26
297: fcmped %f30,%f26; nop; fbne L35; nop
298: set _TwentySeven,%r28
299: ld [%r28],%f26; ld [%r28+4],%f27
300: fmuld %f30,%f28,%f30
301: fcmped %f26,%f30; nop; fbne L35; nop
302: set _Eight,%r28
303: ld [%r28],%f30; ld [%r28+4],%f31
304: set _Four,%r28
305: ld [%r28],%f28; ld [%r28+4],%f29
306: faddd %f28,%f28,%f24
307: fcmped %f30,%f24; nop; fbne L35; nop
308: set _ThirtyTwo,%r28
309: ld [%r28],%f24; ld [%r28+4],%f25
310: fmuld %f30,%f28,%f30
311: fcmped %f24,%f30; nop; fbne L35; nop
312: fsubd %f24,%f26,%f30
313: fsubd %f30,%f28,%f30
314: set _One,%r28
315: ld [%r28],%f28; ld [%r28+4],%f29
316: fsubd %f30,%f28,%f30
317: set _Zero,%r28
318: ld [%r28],%f28; ld [%r28+4],%f29
319: fcmped %f30,%f28; nop; fbne L35; nop
320: set 1,%r29
321: ba L36; nop
322: L35:
323: mov %r0,%r29
324: L36:
325: mov %r29,%r9
326: set L34,%r10
327: call _TstCond; nop
328: mov %r0,%r8
329: set _Five,%r28
330: ld [%r28],%f30; ld [%r28+4],%f31
331: set _Four,%r28
332: ld [%r28],%f28; ld [%r28+4],%f29
333: set _One,%r28
334: ld [%r28],%f26; ld [%r28+4],%f27
335: faddd %f28,%f26,%f26
336: fcmped %f30,%f26; nop; fbne L39; nop
337: set _TwoForty,%r28
338: ld [%r28],%f26; ld [%r28+4],%f27
339: fmuld %f28,%f30,%f24
340: set _Three,%r28
341: ld [%r28],%f22; ld [%r28+4],%f23
342: fmuld %f24,%f22,%f24
343: fmuld %f24,%f28,%f24
344: fcmped %f26,%f24; nop; fbne L39; nop
345: fdivd %f26,%f22,%f24
346: fmuld %f28,%f28,%f20
347: fmuld %f20,%f30,%f20
348: fsubd %f24,%f20,%f24
349: set _Zero,%r28
350: ld [%r28],%f20; ld [%r28+4],%f21
351: fcmped %f24,%f20; nop; fbne L39; nop
352: fdivd %f26,%f28,%f24
353: fmuld %f30,%f22,%f18
354: fmuld %f18,%f28,%f18
355: fsubd %f24,%f18,%f24
356: fcmped %f24,%f20; nop; fbne L39; nop
357: fdivd %f26,%f30,%f30
358: fmuld %f28,%f22,%f26
359: fmuld %f26,%f28,%f28
360: fsubd %f30,%f28,%f30
361: fcmped %f30,%f20; nop; fbne L39; nop
362: set 1,%r29
363: ba L40; nop
364: L39:
365: mov %r0,%r29
366: L40:
367: mov %r29,%r9
368: set L38,%r10
369: call _TstCond; nop
370: set _ErrCnt,%r29
371: ld [%r29],%r29
372: cmp %r29,%r0; bne L41; nop
373: set L43,%r8
374: call _printf; nop
375: set L44,%r8
376: call _printf; nop
377: L41:
378: set L45,%r8
379: call _printf; nop
380: set _One,%r29
381: ld [%r29],%f30; ld [%r29+4],%f31
382: set _W,%r29
383: st %f30,[%r29]; st %f31,[%r29+4]
384: L46:
385: set _W,%r29
386: ld [%r29],%f30; ld [%r29+4],%f31
387: faddd %f30,%f30,%f30
388: st %f30,[%r29]; st %f31,[%r29+4]
389: ld [%r29],%f30; ld [%r29+4],%f31
390: set _One,%r29
391: ld [%r29],%f28; ld [%r29+4],%f29
392: faddd %f30,%f28,%f26
393: set _Y,%r29
394: st %f26,[%r29]; st %f27,[%r29+4]
395: ld [%r29],%f26; ld [%r29+4],%f27
396: fsubd %f26,%f30,%f30
397: set _Z,%r28
398: st %f30,[%r28]; st %f31,[%r28+4]
399: ld [%r28],%f30; ld [%r28+4],%f31
400: fsubd %f30,%f28,%f30
401: st %f30,[%r29]; st %f31,[%r29+4]
402: L47:
403: set _Y,%r29
404: ld [%r29],%f30; ld [%r29+4],%f31
405: st %f30,[%sp+4*0+68]
406: st %f31,[%sp+4*1+68]
407: ld [%sp+4*0+68],%o0
408: ld [%sp+4*1+68],%o1
409: call _fabs; nop
410: set _MinusOne,%r29
411: ld [%r29],%f30; ld [%r29+4],%f31
412: faddd %f30,%f0,%f30
413: set _Zero,%r29
414: ld [%r29],%f28; ld [%r29+4],%f29
415: fcmped %f30,%f28; nop; fbul L46; nop
416: set _Zero,%r29
417: ld [%r29],%f30; ld [%r29+4],%f31
418: set _Precision,%r29
419: st %f30,[%r29]; st %f31,[%r29+4]
420: set _One,%r29
421: ld [%r29],%f30; ld [%r29+4],%f31
422: set _Y,%r29
423: st %f30,[%r29]; st %f31,[%r29+4]
424: L49:
425: set _W,%r29
426: ld [%r29],%f30; ld [%r29+4],%f31
427: set _Y,%r29
428: ld [%r29],%f28; ld [%r29+4],%f29
429: faddd %f30,%f28,%f26
430: set _Radix,%r28
431: st %f26,[%r28]; st %f27,[%r28+4]
432: faddd %f28,%f28,%f28
433: st %f28,[%r29]; st %f29,[%r29+4]
434: ld [%r28],%f28; ld [%r28+4],%f29
435: fsubd %f28,%f30,%f30
436: st %f30,[%r28]; st %f31,[%r28+4]
437: L50:
438: set _Radix,%r29
439: ld [%r29],%f30; ld [%r29+4],%f31
440: set _Zero,%r29
441: ld [%r29],%f28; ld [%r29+4],%f29
442: fcmped %f30,%f28; nop; fbue L49; nop
443: set _Radix,%r29
444: ld [%r29],%f30; ld [%r29+4],%f31
445: set _Two,%r29
446: ld [%r29],%f28; ld [%r29+4],%f29
447: fcmped %f30,%f28; nop; fbuge L52; nop
448: set _One,%r29
449: ld [%r29],%f30; ld [%r29+4],%f31
450: set _Radix,%r29
451: st %f30,[%r29]; st %f31,[%r29+4]
452: L52:
453: set L54,%r8
454: set _Radix,%r29
455: ld [%r29],%f30; ld [%r29+4],%f31
456: st %f30,[%sp+4*1+68]
457: st %f31,[%sp+4*2+68]
458: ld [%sp+4*1+68],%o1
459: ld [%sp+4*2+68],%o2
460: call _printf; nop
461: set _Radix,%r29
462: ld [%r29],%f30; ld [%r29+4],%f31
463: set L8,%r29
464: ld [%r29],%f28; ld [%r29+4],%f29
465: fcmped %f30,%f28; nop; fbue L55; nop
466: set _One,%r29
467: ld [%r29],%f30; ld [%r29+4],%f31
468: set _W,%r29
469: st %f30,[%r29]; st %f31,[%r29+4]
470: L57:
471: set _Precision,%r29
472: ld [%r29],%f30; ld [%r29+4],%f31
473: set _One,%r28
474: ld [%r28],%f28; ld [%r28+4],%f29
475: faddd %f30,%f28,%f30
476: st %f30,[%r29]; st %f31,[%r29+4]
477: set _W,%r29
478: ld [%r29],%f30; ld [%r29+4],%f31
479: set _Radix,%r28
480: ld [%r28],%f26; ld [%r28+4],%f27
481: fmuld %f30,%f26,%f30
482: st %f30,[%r29]; st %f31,[%r29+4]
483: ld [%r29],%f30; ld [%r29+4],%f31
484: faddd %f30,%f28,%f30
485: set _Y,%r29
486: st %f30,[%r29]; st %f31,[%r29+4]
487: L58:
488: set _Y,%r29
489: ld [%r29],%f30; ld [%r29+4],%f31
490: set _W,%r29
491: ld [%r29],%f28; ld [%r29+4],%f29
492: fsubd %f30,%f28,%f30
493: set _One,%r29
494: ld [%r29],%f28; ld [%r29+4],%f29
495: fcmped %f30,%f28; nop; fbue L57; nop
496: L55:
497: set _One,%r29
498: ld [%r29],%f30; ld [%r29+4],%f31
499: set _W,%r29
500: ld [%r29],%f28; ld [%r29+4],%f29
501: fdivd %f30,%f28,%f30
502: set _U1,%r29
503: st %f30,[%r29]; st %f31,[%r29+4]
504: set _Radix,%r28
505: ld [%r28],%f30; ld [%r28+4],%f31
506: ld [%r29],%f28; ld [%r29+4],%f29
507: fmuld %f30,%f28,%f30
508: set _U2,%r29
509: st %f30,[%r29]; st %f31,[%r29+4]
510: set L60,%r8
511: st %f28,[%sp+4*1+68]
512: st %f29,[%sp+4*2+68]
513: ld [%sp+4*1+68],%o1
514: ld [%sp+4*2+68],%o2
515: call _printf; nop
516: set L61,%r8
517: call _printf; nop
518: set _Radix,%r29
519: ld [%r29],%f30; ld [%r29+4],%f31
520: set _E0,%r29
521: st %f30,[%r29]; st %f31,[%r29+4]
522: set _U1,%r29
523: ld [%r29],%f30; ld [%r29+4],%f31
524: set _E1,%r29
525: st %f30,[%r29]; st %f31,[%r29+4]
526: set _U2,%r29
527: ld [%r29],%f30; ld [%r29+4],%f31
528: set _E9,%r29
529: st %f30,[%r29]; st %f31,[%r29+4]
530: set _Precision,%r29
531: ld [%r29],%f30; ld [%r29+4],%f31
532: set _E3,%r29
533: st %f30,[%r29]; st %f31,[%r29+4]
534: set _Four,%r29
535: ld [%r29],%f30; ld [%r29+4],%f31
536: set _Three,%r29
537: ld [%r29],%f28; ld [%r29+4],%f29
538: fdivd %f30,%f28,%f30
539: set _X,%r29
540: st %f30,[%r29]; st %f31,[%r29+4]
541: ld [%r29],%f30; ld [%r29+4],%f31
542: set _One,%r28
543: ld [%r28],%f28; ld [%r28+4],%f29
544: fsubd %f30,%f28,%f30
545: set _Third,%r28
546: st %f30,[%r28]; st %f31,[%r28+4]
547: set _Half,%r27
548: ld [%r27],%f30; ld [%r27+4],%f31
549: ld [%r28],%f28; ld [%r28+4],%f29
550: fsubd %f30,%f28,%f30
551: set _F6,%r28
552: st %f30,[%r28]; st %f31,[%r28+4]
553: ld [%r28],%f30; ld [%r28+4],%f31
554: faddd %f30,%f30,%f30
555: st %f30,[%r29]; st %f31,[%r29+4]
556: ld [%r29],%f30; ld [%r29+4],%f31
557: fsubd %f30,%f28,%f30
558: st %f30,[%sp+4*0+68]
559: st %f31,[%sp+4*1+68]
560: ld [%sp+4*0+68],%o0
561: ld [%sp+4*1+68],%o1
562: call _fabs; nop
563: st %f0,[%r29]; st %f1,[%r29+4]
564: set _X,%r29
565: ld [%r29],%f30; ld [%r29+4],%f31
566: set _U2,%r29
567: ld [%r29],%f28; ld [%r29+4],%f29
568: fcmped %f30,%f28; nop; fbuge L62; nop
569: set _U2,%r29
570: ld [%r29],%f30; ld [%r29+4],%f31
571: set _X,%r29
572: st %f30,[%r29]; st %f31,[%r29+4]
573: L62:
574: L64:
575: set _X,%r29
576: ld [%r29],%f30; ld [%r29+4],%f31
577: set _U2,%r28
578: st %f30,[%r28]; st %f31,[%r28+4]
579: set _Half,%r27
580: ld [%r27],%f30; ld [%r27+4],%f31
581: ld [%r28],%f28; ld [%r28+4],%f29
582: fmuld %f30,%f28,%f30
583: set _ThirtyTwo,%r28
584: ld [%r28],%f26; ld [%r28+4],%f27
585: fmuld %f26,%f28,%f26
586: fmuld %f26,%f28,%f28
587: faddd %f30,%f28,%f30
588: set _Y,%r28
589: st %f30,[%r28]; st %f31,[%r28+4]
590: set _One,%r27
591: ld [%r27],%f30; ld [%r27+4],%f31
592: ld [%r28],%f28; ld [%r28+4],%f29
593: faddd %f30,%f28,%f28
594: st %f28,[%r28]; st %f29,[%r28+4]
595: ld [%r28],%f28; ld [%r28+4],%f29
596: fsubd %f28,%f30,%f30
597: st %f30,[%r29]; st %f31,[%r29+4]
598: L65:
599: set _U2,%r29
600: ld [%r29],%f30; ld [%r29+4],%f31
601: set _X,%r29
602: ld [%r29],%f28; ld [%r29+4],%f29
603: fcmped %f30,%f28; nop; fbule L67; nop
604: set _Zero,%r29
605: ld [%r29],%f30; ld [%r29+4],%f31
606: fcmped %f28,%f30; nop; fbug L64; nop
607: L67:
608: set _Two,%r29
609: ld [%r29],%f30; ld [%r29+4],%f31
610: set _Three,%r29
611: ld [%r29],%f28; ld [%r29+4],%f29
612: fdivd %f30,%f28,%f30
613: set _X,%r29
614: st %f30,[%r29]; st %f31,[%r29+4]
615: ld [%r29],%f30; ld [%r29+4],%f31
616: set _Half,%r28
617: ld [%r28],%f28; ld [%r28+4],%f29
618: fsubd %f30,%f28,%f30
619: set _F6,%r28
620: st %f30,[%r28]; st %f31,[%r28+4]
621: ld [%r28],%f30; ld [%r28+4],%f31
622: faddd %f30,%f30,%f26
623: set _Third,%r28
624: st %f26,[%r28]; st %f27,[%r28+4]
625: ld [%r28],%f26; ld [%r28+4],%f27
626: fsubd %f26,%f28,%f28
627: st %f28,[%r29]; st %f29,[%r29+4]
628: ld [%r29],%f28; ld [%r29+4],%f29
629: faddd %f28,%f30,%f30
630: st %f30,[%sp+4*0+68]
631: st %f31,[%sp+4*1+68]
632: ld [%sp+4*0+68],%o0
633: ld [%sp+4*1+68],%o1
634: call _fabs; nop
635: st %f0,[%r29]; st %f1,[%r29+4]
636: set _X,%r29
637: ld [%r29],%f30; ld [%r29+4],%f31
638: set _U1,%r29
639: ld [%r29],%f28; ld [%r29+4],%f29
640: fcmped %f30,%f28; nop; fbuge L68; nop
641: set _U1,%r29
642: ld [%r29],%f30; ld [%r29+4],%f31
643: set _X,%r29
644: st %f30,[%r29]; st %f31,[%r29+4]
645: L68:
646: L70:
647: set _X,%r29
648: ld [%r29],%f30; ld [%r29+4],%f31
649: set _U1,%r28
650: st %f30,[%r28]; st %f31,[%r28+4]
651: set _Half,%r27
652: ld [%r27],%f30; ld [%r27+4],%f31
653: ld [%r28],%f28; ld [%r28+4],%f29
654: fmuld %f30,%f28,%f26
655: set _ThirtyTwo,%r28
656: ld [%r28],%f24; ld [%r28+4],%f25
657: fmuld %f24,%f28,%f24
658: fmuld %f24,%f28,%f28
659: faddd %f26,%f28,%f28
660: set _Y,%r28
661: st %f28,[%r28]; st %f29,[%r28+4]
662: ld [%r28],%f28; ld [%r28+4],%f29
663: fsubd %f30,%f28,%f28
664: st %f28,[%r28]; st %f29,[%r28+4]
665: ld [%r28],%f28; ld [%r28+4],%f29
666: faddd %f30,%f28,%f28
667: st %f28,[%r29]; st %f29,[%r29+4]
668: ld [%r29],%f28; ld [%r29+4],%f29
669: fsubd %f30,%f28,%f28
670: st %f28,[%r28]; st %f29,[%r28+4]
671: ld [%r28],%f28; ld [%r28+4],%f29
672: faddd %f30,%f28,%f30
673: st %f30,[%r29]; st %f31,[%r29+4]
674: L71:
675: set _U1,%r29
676: ld [%r29],%f30; ld [%r29+4],%f31
677: set _X,%r29
678: ld [%r29],%f28; ld [%r29+4],%f29
679: fcmped %f30,%f28; nop; fbule L73; nop
680: set _Zero,%r29
681: ld [%r29],%f30; ld [%r29+4],%f31
682: fcmped %f28,%f30; nop; fbug L70; nop
683: L73:
684: set _U1,%r29
685: ld [%r29],%f30; ld [%r29+4],%f31
686: set _E1,%r29
687: ld [%r29],%f28; ld [%r29+4],%f29
688: fcmped %f30,%f28; nop; fbne L74; nop
689: set L76,%r8
690: call _printf; nop
691: ba L75; nop
692: L74:
693: set L77,%r8
694: set _U1,%r29
695: ld [%r29],%f30; ld [%r29+4],%f31
696: st %f30,[%sp+4*1+68]
697: st %f31,[%sp+4*2+68]
698: ld [%sp+4*1+68],%o1
699: ld [%sp+4*2+68],%o2
700: call _printf; nop
701: L75:
702: set _One,%r29
703: ld [%r29],%f30; ld [%r29+4],%f31
704: set _U1,%r29
705: ld [%r29],%f28; ld [%r29+4],%f29
706: fdivd %f30,%f28,%f30
707: set _W,%r29
708: st %f30,[%r29]; st %f31,[%r29+4]
709: set _Half,%r29
710: ld [%r29],%f30; ld [%r29+4],%f31
711: fsubd %f30,%f28,%f26
712: faddd %f26,%f30,%f30
713: set _F9,%r29
714: st %f30,[%r29]; st %f31,[%r29+4]
715: set _U2,%r29
716: ld [%r29],%f30; ld [%r29+4],%f31
717: fdivd %f30,%f28,%f30
718: set L78,%r29
719: ld [%r29],%f28; ld [%r29+4],%f29
720: faddd %f30,%f28,%f30
721: st %f30,[%sp+4*0+68]
722: st %f31,[%sp+4*1+68]
723: ld [%sp+4*0+68],%o0
724: ld [%sp+4*1+68],%o1
725: call _floor; nop
726: set _Radix,%r29
727: st %f0,[%r29]; st %f1,[%r29+4]
728: set _Radix,%r29
729: ld [%r29],%f30; ld [%r29+4],%f31
730: set _E0,%r29
731: ld [%r29],%f28; ld [%r29+4],%f29
732: fcmped %f30,%f28; nop; fbne L79; nop
733: set L81,%r8
734: call _printf; nop
735: ba L80; nop
736: L79:
737: set L82,%r8
738: set _Radix,%r29
739: ld [%r29],%f30; ld [%r29+4],%f31
740: st %f30,[%sp+4*1+68]
741: st %f31,[%sp+4*2+68]
742: ld [%sp+4*1+68],%o1
743: ld [%sp+4*2+68],%o2
744: call _printf; nop
745: L80:
746: set 2,%r8
747: set _Radix,%r28
748: ld [%r28],%f30; ld [%r28+4],%f31
749: set _Eight,%r28
750: ld [%r28],%f28; ld [%r28+4],%f29
751: faddd %f28,%f28,%f28
752: fcmped %f30,%f28; nop; fbug L85; nop
753: set 1,%r29
754: ba L86; nop
755: L85:
756: mov %r0,%r29
757: L86:
758: mov %r29,%r9
759: set L84,%r10
760: call _TstCond; nop
761: set 3,%r8
762: set _Radix,%r28
763: ld [%r28],%f30; ld [%r28+4],%f31
764: set _Two,%r28
765: ld [%r28],%f28; ld [%r28+4],%f29
766: fcmped %f30,%f28; nop; fbue L92; nop
767: set L93,%r28
768: ld [%r28],%f28; ld [%r28+4],%f29
769: fcmped %f30,%f28; nop; fbue L92; nop
770: set _One,%r28
771: ld [%r28],%f28; ld [%r28+4],%f29
772: fcmped %f30,%f28; nop; fbne L89; nop
773: L92:
774: set 1,%r29
775: ba L90; nop
776: L89:
777: mov %r0,%r29
778: L90:
779: mov %r29,%r9
780: set L88,%r10
781: call _TstCond; nop
782: set 20,%r28
783: set _Milestone,%r27
784: st %r28,[%r27]
785: mov %r0,%r8
786: set _F9,%r28
787: ld [%r28],%f30; ld [%r28+4],%f31
788: set _Half,%r28
789: ld [%r28],%f28; ld [%r28+4],%f29
790: fsubd %f30,%f28,%f30
791: fcmped %f30,%f28; nop; fbuge L96; nop
792: set 1,%r29
793: ba L97; nop
794: L96:
795: mov %r0,%r29
796: L97:
797: mov %r29,%r9
798: set L95,%r10
799: call _TstCond; nop
800: set _F9,%r28
801: ld [%r28],%f30; ld [%r28+4],%f31
802: set _X,%r28
803: st %f30,[%r28]; st %f31,[%r28+4]
804: set 1,%r27
805: set _I,%r26
806: st %r27,[%r26]
807: ld [%r28],%f30; ld [%r28+4],%f31
808: set _Half,%r28
809: ld [%r28],%f28; ld [%r28+4],%f29
810: fsubd %f30,%f28,%f30
811: set _Y,%r28
812: st %f30,[%r28]; st %f31,[%r28+4]
813: ld [%r28],%f30; ld [%r28+4],%f31
814: fsubd %f30,%f28,%f30
815: set _Z,%r28
816: st %f30,[%r28]; st %f31,[%r28+4]
817: mov %r0,%r8
818: set _X,%r28
819: ld [%r28],%f30; ld [%r28+4],%f31
820: set _One,%r28
821: ld [%r28],%f28; ld [%r28+4],%f29
822: fcmped %f30,%f28; nop; fbne L102; nop
823: set _Z,%r28
824: ld [%r28],%f30; ld [%r28+4],%f31
825: set _Zero,%r28
826: ld [%r28],%f28; ld [%r28+4],%f29
827: fcmped %f30,%f28; nop; fbne L100; nop
828: L102:
829: set 1,%r29
830: ba L101; nop
831: L100:
832: mov %r0,%r29
833: L101:
834: mov %r29,%r9
835: set L99,%r10
836: call _TstCond; nop
837: set _One,%r29
838: ld [%r29],%f30; ld [%r29+4],%f31
839: set _U2,%r29
840: ld [%r29],%f28; ld [%r29+4],%f29
841: faddd %f30,%f28,%f26
842: set _X,%r29
843: st %f26,[%r29]; st %f27,[%r29+4]
844: set _I,%r29
845: st %r0,[%r29]
846: set 25,%r29
847: set _Milestone,%r28
848: st %r29,[%r28]
849: set _Radix,%r29
850: ld [%r29],%f26; ld [%r29+4],%f27
851: fsubd %f26,%f30,%f24
852: set _BMinusU2,%r29
853: st %f24,[%r29]; st %f25,[%r29+4]
854: ld [%r29],%f24; ld [%r29+4],%f25
855: fsubd %f24,%f28,%f28
856: faddd %f28,%f30,%f28
857: st %f28,[%r29]; st %f29,[%r29+4]
858: fcmped %f26,%f30; nop; fbue L103; nop
859: set _U1,%r29
860: ld [%r29],%f30; ld [%r29+4],%f31
861: st %f30,[%sp+4*0+68]
862: st %f31,[%sp+4*1+68]
863: ld [%sp+4*0+68],%o0
864: ld [%sp+4*1+68],%o1
865: call _log; nop
866: st %f0,[%fp+-16]; st %f1,[%fp+-16+4]
867: set _Radix,%r29
868: ld [%r29],%f30; ld [%r29+4],%f31
869: st %f30,[%sp+4*0+68]
870: st %f31,[%sp+4*1+68]
871: ld [%sp+4*0+68],%o0
872: ld [%sp+4*1+68],%o1
873: call _log; nop
874: set _TwoForty,%r29
875: ld [%r29],%f30; ld [%r29+4],%f31
876: fnegs %f30,%f30; fmovs %f31,%f31
877: ld [%fp+-16],%f28; ld [%fp+-16+4],%f29
878: fmuld %f30,%f28,%f30
879: fdivd %f30,%f0,%f30
880: set _X,%r29
881: st %f30,[%r29]; st %f31,[%r29+4]
882: set _Half,%r29
883: ld [%r29],%f30; ld [%r29+4],%f31
884: set _X,%r29
885: ld [%r29],%f28; ld [%r29+4],%f29
886: faddd %f30,%f28,%f30
887: st %f30,[%sp+4*0+68]
888: st %f31,[%sp+4*1+68]
889: ld [%sp+4*0+68],%o0
890: ld [%sp+4*1+68],%o1
891: call _floor; nop
892: set _Y,%r29
893: st %f0,[%r29]; st %f1,[%r29+4]
894: set _X,%r29
895: ld [%r29],%f30; ld [%r29+4],%f31
896: set _Y,%r29
897: ld [%r29],%f28; ld [%r29+4],%f29
898: fsubd %f30,%f28,%f30
899: st %f30,[%sp+4*0+68]
900: st %f31,[%sp+4*1+68]
901: ld [%sp+4*0+68],%o0
902: ld [%sp+4*1+68],%o1
903: call _fabs; nop
904: set _Four,%r29
905: ld [%r29],%f30; ld [%r29+4],%f31
906: fmuld %f0,%f30,%f30
907: set _One,%r29
908: ld [%r29],%f28; ld [%r29+4],%f29
909: fcmped %f30,%f28; nop; fbuge L105; nop
910: set _Y,%r29
911: ld [%r29],%f30; ld [%r29+4],%f31
912: set _X,%r29
913: st %f30,[%r29]; st %f31,[%r29+4]
914: L105:
915: set _X,%r29
916: ld [%r29],%f30; ld [%r29+4],%f31
917: set _TwoForty,%r29
918: ld [%r29],%f28; ld [%r29+4],%f29
919: fdivd %f30,%f28,%f30
920: set _Precision,%r29
921: st %f30,[%r29]; st %f31,[%r29+4]
922: set _Half,%r28
923: ld [%r28],%f30; ld [%r28+4],%f31
924: ld [%r29],%f28; ld [%r29+4],%f29
925: faddd %f30,%f28,%f30
926: st %f30,[%sp+4*0+68]
927: st %f31,[%sp+4*1+68]
928: ld [%sp+4*0+68],%o0
929: ld [%sp+4*1+68],%o1
930: call _floor; nop
931: set _Y,%r29
932: st %f0,[%r29]; st %f1,[%r29+4]
933: set _Precision,%r29
934: ld [%r29],%f30; ld [%r29+4],%f31
935: set _Y,%r29
936: ld [%r29],%f28; ld [%r29+4],%f29
937: fsubd %f30,%f28,%f30
938: st %f30,[%sp+4*0+68]
939: st %f31,[%sp+4*1+68]
940: ld [%sp+4*0+68],%o0
941: ld [%sp+4*1+68],%o1
942: call _fabs; nop
943: set _TwoForty,%r29
944: ld [%r29],%f30; ld [%r29+4],%f31
945: fmuld %f0,%f30,%f30
946: set _Half,%r29
947: ld [%r29],%f28; ld [%r29+4],%f29
948: fcmped %f30,%f28; nop; fbuge L107; nop
949: set _Y,%r29
950: ld [%r29],%f30; ld [%r29+4],%f31
951: set _Precision,%r29
952: st %f30,[%r29]; st %f31,[%r29+4]
953: L107:
954: L103:
955: set _Precision,%r29
956: ld [%r29],%f30; ld [%r29+4],%f31
957: st %f30,[%fp+-16]; st %f31,[%fp+-16+4]
958: st %f30,[%sp+4*0+68]
959: st %f31,[%sp+4*1+68]
960: ld [%sp+4*0+68],%o0
961: ld [%sp+4*1+68],%o1
962: call _floor; nop
963: ld [%fp+-16],%f30; ld [%fp+-16+4],%f31
964: fcmped %f30,%f0; nop; fbne L111; nop
965: set _Radix,%r29
966: ld [%r29],%f30; ld [%r29+4],%f31
967: set _One,%r29
968: ld [%r29],%f28; ld [%r29+4],%f29
969: fcmped %f30,%f28; nop; fbne L109; nop
970: L111:
971: set L112,%r8
972: call _printf; nop
973: set L113,%r8
974: call _printf; nop
975: L109:
976: set _Radix,%r29
977: ld [%r29],%f30; ld [%r29+4],%f31
978: set _One,%r29
979: ld [%r29],%f28; ld [%r29+4],%f29
980: fcmped %f30,%f28; nop; fbne L114; nop
981: set L116,%r8
982: call _printf; nop
983: ba L115; nop
984: L114:
985: set L117,%r8
986: set _Precision,%r29
987: ld [%r29],%f30; ld [%r29+4],%f31
988: st %f30,[%sp+4*1+68]
989: st %f31,[%sp+4*2+68]
990: ld [%sp+4*1+68],%o1
991: ld [%sp+4*2+68],%o2
992: call _printf; nop
993: L115:
994: set 1,%r8
995: set _U2,%r28
996: ld [%r28],%f30; ld [%r28+4],%f31
997: set _Nine,%r28
998: ld [%r28],%f28; ld [%r28+4],%f29
999: fmuld %f30,%f28,%f30
1000: fmuld %f30,%f28,%f30
1001: set _TwoForty,%r28
1002: ld [%r28],%f28; ld [%r28+4],%f29
1003: fmuld %f30,%f28,%f30
1004: set _One,%r28
1005: ld [%r28],%f28; ld [%r28+4],%f29
1006: fcmped %f30,%f28; nop; fbuge L120; nop
1007: set 1,%r29
1008: ba L121; nop
1009: L120:
1010: mov %r0,%r29
1011: L121:
1012: mov %r29,%r9
1013: set L119,%r10
1014: call _TstCond; nop
1015: set 30,%r29
1016: set _Milestone,%r28
1017: st %r29,[%r28]
1018: set _Four,%r29
1019: ld [%r29],%f30; ld [%r29+4],%f31
1020: set _Three,%r29
1021: ld [%r29],%f28; ld [%r29+4],%f29
1022: fdivd %f30,%f28,%f26
1023: set _One,%r29
1024: ld [%r29],%f24; ld [%r29+4],%f25
1025: fsubd %f26,%f24,%f26
1026: fdivd %f24,%f30,%f30
1027: fsubd %f26,%f30,%f26
1028: fmuld %f26,%f28,%f28
1029: fsubd %f28,%f30,%f30
1030: st %f30,[%sp+4*0+68]
1031: st %f31,[%sp+4*1+68]
1032: ld [%sp+4*0+68],%o0
1033: ld [%sp+4*1+68],%o1
1034: call _fabs; nop
1035: set _X,%r29
1036: st %f0,[%r29]; st %f1,[%r29+4]
1037: L122:
1038: set _X,%r29
1039: ld [%r29],%f30; ld [%r29+4],%f31
1040: set _Z2,%r28
1041: st %f30,[%r28]; st %f31,[%r28+4]
1042: set _One,%r27
1043: ld [%r27],%f30; ld [%r27+4],%f31
1044: set _Half,%r27
1045: ld [%r27],%f28; ld [%r27+4],%f29
1046: ld [%r28],%f26; ld [%r28+4],%f27
1047: fmuld %f28,%f26,%f28
1048: set _ThirtyTwo,%r28
1049: ld [%r28],%f24; ld [%r28+4],%f25
1050: fmuld %f24,%f26,%f24
1051: fmuld %f24,%f26,%f26
1052: faddd %f28,%f26,%f28
1053: faddd %f30,%f28,%f28
1054: fsubd %f28,%f30,%f30
1055: st %f30,[%r29]; st %f31,[%r29+4]
1056: L123:
1057: set _Z2,%r29
1058: ld [%r29],%f30; ld [%r29+4],%f31
1059: set _X,%r29
1060: ld [%r29],%f28; ld [%r29+4],%f29
1061: fcmped %f30,%f28; nop; fbule L125; nop
1062: set _Zero,%r29
1063: ld [%r29],%f30; ld [%r29+4],%f31
1064: fcmped %f28,%f30; nop; fbug L122; nop
1065: L125:
1066: set _Three,%r29
1067: ld [%r29],%f30; ld [%r29+4],%f31
1068: set _Four,%r29
1069: ld [%r29],%f28; ld [%r29+4],%f29
1070: fdivd %f30,%f28,%f26
1071: set _Two,%r29
1072: ld [%r29],%f24; ld [%r29+4],%f25
1073: fdivd %f24,%f30,%f24
1074: fsubd %f26,%f24,%f26
1075: fmuld %f26,%f30,%f30
1076: set _One,%r29
1077: ld [%r29],%f26; ld [%r29+4],%f27
1078: fdivd %f26,%f28,%f28
1079: fsubd %f30,%f28,%f30
1080: st %f30,[%sp+4*0+68]
1081: st %f31,[%sp+4*1+68]
1082: ld [%sp+4*0+68],%o0
1083: ld [%sp+4*1+68],%o1
1084: call _fabs; nop
1085: set _Z,%r29
1086: st %f0,[%r29]; st %f1,[%r29+4]
1087: set _Y,%r29
1088: st %f0,[%r29]; st %f1,[%r29+4]
1089: set _X,%r29
1090: st %f0,[%r29]; st %f1,[%r29+4]
1091: L126:
1092: set _Z,%r29
1093: ld [%r29],%f30; ld [%r29+4],%f31
1094: set _Z1,%r28
1095: st %f30,[%r28]; st %f31,[%r28+4]
1096: set _One,%r27
1097: ld [%r27],%f30; ld [%r27+4],%f31
1098: set _Two,%r27
1099: ld [%r27],%f28; ld [%r27+4],%f29
1100: fdivd %f30,%f28,%f30
1101: set _Half,%r27
1102: ld [%r27],%f28; ld [%r27+4],%f29
1103: ld [%r28],%f26; ld [%r28+4],%f27
1104: fmuld %f28,%f26,%f28
1105: set _ThirtyTwo,%r28
1106: ld [%r28],%f24; ld [%r28+4],%f25
1107: fmuld %f24,%f26,%f24
1108: fmuld %f24,%f26,%f26
1109: faddd %f28,%f26,%f28
1110: fsubd %f30,%f28,%f28
1111: faddd %f28,%f30,%f28
1112: fsubd %f30,%f28,%f28
1113: faddd %f28,%f30,%f30
1114: st %f30,[%r29]; st %f31,[%r29+4]
1115: L127:
1116: set _Z1,%r29
1117: ld [%r29],%f30; ld [%r29+4],%f31
1118: set _Z,%r29
1119: ld [%r29],%f28; ld [%r29+4],%f29
1120: fcmped %f30,%f28; nop; fbule L129; nop
1121: set _Zero,%r29
1122: ld [%r29],%f30; ld [%r29+4],%f31
1123: fcmped %f28,%f30; nop; fbug L126; nop
1124: L129:
1125: L130:
1126: L133:
1127: set _Y,%r29
1128: ld [%r29],%f30; ld [%r29+4],%f31
1129: set _Y1,%r28
1130: st %f30,[%r28]; st %f31,[%r28+4]
1131: set _Half,%r27
1132: ld [%r27],%f30; ld [%r27+4],%f31
1133: ld [%r28],%f28; ld [%r28+4],%f29
1134: fmuld %f30,%f28,%f26
1135: set _ThirtyTwo,%r28
1136: ld [%r28],%f24; ld [%r28+4],%f25
1137: fmuld %f24,%f28,%f24
1138: fmuld %f24,%f28,%f28
1139: faddd %f26,%f28,%f28
1140: fsubd %f30,%f28,%f28
1141: faddd %f28,%f30,%f28
1142: fsubd %f30,%f28,%f28
1143: faddd %f28,%f30,%f30
1144: st %f30,[%r29]; st %f31,[%r29+4]
1145: L134:
1146: set _Y1,%r29
1147: ld [%r29],%f30; ld [%r29+4],%f31
1148: set _Y,%r29
1149: ld [%r29],%f28; ld [%r29+4],%f29
1150: fcmped %f30,%f28; nop; fbule L136; nop
1151: set _Zero,%r29
1152: ld [%r29],%f30; ld [%r29+4],%f31
1153: fcmped %f28,%f30; nop; fbug L133; nop
1154: L136:
1155: set _X,%r29
1156: ld [%r29],%f30; ld [%r29+4],%f31
1157: set _X1,%r28
1158: st %f30,[%r28]; st %f31,[%r28+4]
1159: set _Half,%r27
1160: ld [%r27],%f30; ld [%r27+4],%f31
1161: ld [%r28],%f28; ld [%r28+4],%f29
1162: fmuld %f30,%f28,%f30
1163: set _ThirtyTwo,%r28
1164: ld [%r28],%f26; ld [%r28+4],%f27
1165: fmuld %f26,%f28,%f26
1166: fmuld %f26,%f28,%f28
1167: faddd %f30,%f28,%f30
1168: set _F9,%r28
1169: ld [%r28],%f28; ld [%r28+4],%f29
1170: fsubd %f30,%f28,%f30
1171: faddd %f30,%f28,%f30
1172: st %f30,[%r29]; st %f31,[%r29+4]
1173: L131:
1174: set _X1,%r29
1175: ld [%r29],%f30; ld [%r29+4],%f31
1176: set _X,%r29
1177: ld [%r29],%f28; ld [%r29+4],%f29
1178: fcmped %f30,%f28; nop; fbule L137; nop
1179: set _Zero,%r29
1180: ld [%r29],%f30; ld [%r29+4],%f31
1181: fcmped %f28,%f30; nop; fbug L130; nop
1182: L137:
1183: set _X1,%r29
1184: ld [%r29],%f30; ld [%r29+4],%f31
1185: set _Y1,%r29
1186: ld [%r29],%f28; ld [%r29+4],%f29
1187: fcmped %f30,%f28; nop; fbne L140; nop
1188: set _Z1,%r29
1189: ld [%r29],%f28; ld [%r29+4],%f29
1190: fcmped %f30,%f28; nop; fbue L138; nop
1191: L140:
1192: set 1,%r8
1193: set L141,%r9
1194: call _BadCond; nop
1195: set L142,%r8
1196: set _X1,%r29
1197: ld [%r29],%f30; ld [%r29+4],%f31
1198: st %f30,[%sp+4*1+68]
1199: st %f31,[%sp+4*2+68]
1200: ld [%sp+4*1+68],%o1
1201: ld [%sp+4*2+68],%o2
1202: set _Y1,%r29
1203: ld [%r29],%f30; ld [%r29+4],%f31
1204: st %f30,[%sp+4*3+68]
1205: st %f31,[%sp+4*4+68]
1206: ld [%sp+4*3+68],%o3
1207: ld [%sp+4*4+68],%o4
1208: set _Z1,%r29
1209: ld [%r29],%f30; ld [%r29+4],%f31
1210: st %f30,[%sp+4*5+68]
1211: st %f31,[%sp+4*6+68]
1212: ld [%sp+4*5+68],%o5
1213: call _printf; nop
1214: set L143,%r8
1215: call _printf; nop
1216: set L144,%r8
1217: call _printf; nop
1218: set L145,%r8
1219: call _notify; nop
1220: set _X1,%r29
1221: ld [%r29],%f30; ld [%r29+4],%f31
1222: set _U1,%r29
1223: ld [%r29],%f28; ld [%r29+4],%f29
1224: fcmped %f30,%f28; nop; fbue L149; nop
1225: set _Y1,%r29
1226: ld [%r29],%f30; ld [%r29+4],%f31
1227: fcmped %f30,%f28; nop; fbue L149; nop
1228: set _Z1,%r29
1229: ld [%r29],%f30; ld [%r29+4],%f31
1230: fcmped %f30,%f28; nop; fbne L139; nop
1231: L149:
1232: set L150,%r8
1233: call _printf; nop
1234: ba L139; nop
1235: L138:
1236: set _Z1,%r29
1237: ld [%r29],%f30; ld [%r29+4],%f31
1238: set _U1,%r29
1239: ld [%r29],%f28; ld [%r29+4],%f29
1240: fcmped %f30,%f28; nop; fbne L153; nop
1241: set _Z2,%r29
1242: ld [%r29],%f30; ld [%r29+4],%f31
1243: set _U2,%r29
1244: ld [%r29],%f28; ld [%r29+4],%f29
1245: fcmped %f30,%f28; nop; fbue L151; nop
1246: L153:
1247: set _Z1,%r29
1248: ld [%r29],%f30; ld [%r29+4],%f31
1249: set _U1,%r29
1250: ld [%r29],%f28; ld [%r29+4],%f29
1251: fcmped %f30,%f28; nop; fbuge L156; nop
1252: set _Z2,%r29
1253: ld [%r29],%f30; ld [%r29+4],%f31
1254: set _U2,%r29
1255: ld [%r29],%f28; ld [%r29+4],%f29
1256: fcmped %f30,%f28; nop; fbul L154; nop
1257: L156:
1258: mov %r0,%r8
1259: set L157,%r9
1260: call _BadCond; nop
1261: set L158,%r8
1262: call _notify; nop
1263: set L159,%r8
1264: set _U1,%r29
1265: ld [%r29],%f30; ld [%r29+4],%f31
1266: st %f30,[%sp+4*1+68]
1267: st %f31,[%sp+4*2+68]
1268: ld [%sp+4*1+68],%o1
1269: ld [%sp+4*2+68],%o2
1270: set _Z1,%r29
1271: ld [%r29],%f28; ld [%r29+4],%f29
1272: fsubd %f28,%f30,%f30
1273: st %f30,[%sp+4*3+68]
1274: st %f31,[%sp+4*4+68]
1275: ld [%sp+4*3+68],%o3
1276: ld [%sp+4*4+68],%o4
1277: call _printf; nop
1278: set L160,%r8
1279: set _U2,%r29
1280: ld [%r29],%f30; ld [%r29+4],%f31
1281: st %f30,[%sp+4*1+68]
1282: st %f31,[%sp+4*2+68]
1283: ld [%sp+4*1+68],%o1
1284: ld [%sp+4*2+68],%o2
1285: set _Z2,%r29
1286: ld [%r29],%f28; ld [%r29+4],%f29
1287: fsubd %f28,%f30,%f30
1288: st %f30,[%sp+4*3+68]
1289: st %f31,[%sp+4*4+68]
1290: ld [%sp+4*3+68],%o3
1291: ld [%sp+4*4+68],%o4
1292: call _printf; nop
1293: ba L155; nop
1294: L154:
1295: set _Z1,%r29
1296: ld [%r29],%f30; ld [%r29+4],%f31
1297: set _Zero,%r29
1298: ld [%r29],%f28; ld [%r29+4],%f29
1299: fcmped %f30,%f28; nop; fbule L163; nop
1300: set _Z2,%r29
1301: ld [%r29],%f30; ld [%r29+4],%f31
1302: fcmped %f30,%f28; nop; fbug L161; nop
1303: L163:
1304: set L164,%r8
1305: set _Radix,%r29
1306: ld [%r29],%f30; ld [%r29+4],%f31
1307: st %f30,[%sp+4*1+68]
1308: st %f31,[%sp+4*2+68]
1309: ld [%sp+4*1+68],%o1
1310: ld [%sp+4*2+68],%o2
1311: call _printf; nop
1312: set L165,%r8
1313: call _printf; nop
1314: set L166,%r8
1315: set _Z1,%r29
1316: ld [%r29],%f30; ld [%r29+4],%f31
1317: st %f30,[%sp+4*1+68]
1318: st %f31,[%sp+4*2+68]
1319: ld [%sp+4*1+68],%o1
1320: ld [%sp+4*2+68],%o2
1321: set _Z2,%r29
1322: ld [%r29],%f30; ld [%r29+4],%f31
1323: st %f30,[%sp+4*3+68]
1324: st %f31,[%sp+4*4+68]
1325: ld [%sp+4*3+68],%o3
1326: ld [%sp+4*4+68],%o4
1327: call _printf; nop
1328: set L167,%r8
1329: call _notify; nop
1330: L161:
1331: set _Z1,%r29
1332: ld [%r29],%f30; ld [%r29+4],%f31
1333: set _Z2,%r29
1334: ld [%r29],%f28; ld [%r29+4],%f29
1335: fcmped %f30,%f28; nop; fbne L170; nop
1336: set _Zero,%r29
1337: ld [%r29],%f28; ld [%r29+4],%f29
1338: fcmped %f30,%f28; nop; fbule L168; nop
1339: L170:
1340: set _Z1,%r29
1341: ld [%r29],%f30; ld [%r29+4],%f31
1342: set _U1,%r29
1343: ld [%r29],%f28; ld [%r29+4],%f29
1344: fdivd %f30,%f28,%f30
1345: set _X,%r29
1346: st %f30,[%r29]; st %f31,[%r29+4]
1347: set _Z2,%r28
1348: ld [%r28],%f30; ld [%r28+4],%f31
1349: set _U2,%r28
1350: ld [%r28],%f28; ld [%r28+4],%f29
1351: fdivd %f30,%f28,%f30
1352: set _Y,%r28
1353: st %f30,[%r28]; st %f31,[%r28+4]
1354: ld [%r28],%f30; ld [%r28+4],%f31
1355: ld [%r29],%f28; ld [%r29+4],%f29
1356: fcmped %f30,%f28; nop; fbule L171; nop
1357: set _Y,%r29
1358: ld [%r29],%f30; ld [%r29+4],%f31
1359: set _X,%r29
1360: st %f30,[%r29]; st %f31,[%r29+4]
1361: L171:
1362: set _X,%r29
1363: ld [%r29],%f30; ld [%r29+4],%f31
1364: st %f30,[%sp+4*0+68]
1365: st %f31,[%sp+4*1+68]
1366: ld [%sp+4*0+68],%o0
1367: ld [%sp+4*1+68],%o1
1368: call _log; nop
1369: fnegs %f0,%f30; fmovs %f1,%f31
1370: set _Q,%r29
1371: st %f30,[%r29]; st %f31,[%r29+4]
1372: set L173,%r8
1373: call _printf; nop
1374: set _Radix,%r29
1375: ld [%r29],%f30; ld [%r29+4],%f31
1376: st %f30,[%sp+4*0+68]
1377: st %f31,[%sp+4*1+68]
1378: ld [%sp+4*0+68],%o0
1379: ld [%sp+4*1+68],%o1
1380: call _log; nop
1381: set L174,%r8
1382: set _Q,%r29
1383: ld [%r29],%f30; ld [%r29+4],%f31
1384: fdivd %f30,%f0,%f30
1385: st %f30,[%sp+4*1+68]
1386: st %f31,[%sp+4*2+68]
1387: ld [%sp+4*1+68],%o1
1388: ld [%sp+4*2+68],%o2
1389: call _printf; nop
1390: set L93,%r29
1391: ld [%r29],%f30; ld [%r29+4],%f31
1392: st %f30,[%sp+4*0+68]
1393: st %f31,[%sp+4*1+68]
1394: ld [%sp+4*0+68],%o0
1395: ld [%sp+4*1+68],%o1
1396: call _log; nop
1397: set L175,%r8
1398: set _Q,%r29
1399: ld [%r29],%f30; ld [%r29+4],%f31
1400: fdivd %f30,%f0,%f30
1401: st %f30,[%sp+4*1+68]
1402: st %f31,[%sp+4*2+68]
1403: ld [%sp+4*1+68],%o1
1404: ld [%sp+4*2+68],%o2
1405: call _printf; nop
1406: L168:
1407: set L150,%r8
1408: call _printf; nop
1409: L155:
1410: L151:
1411: L139:
1412: call _Pause; nop
1413: set 35,%r29
1414: set _Milestone,%r28
1415: st %r29,[%r28]
1416: set _Radix,%r29
1417: ld [%r29],%f30; ld [%r29+4],%f31
1418: set _Two,%r29
1419: ld [%r29],%f28; ld [%r29+4],%f29
1420: fcmped %f30,%f28; nop; fbul L176; nop
1421: set _W,%r28
1422: ld [%r28],%f30; ld [%r28+4],%f31
1423: set _Radix,%r28
1424: ld [%r28],%f28; ld [%r28+4],%f29
1425: fmuld %f28,%f28,%f28
1426: fdivd %f30,%f28,%f30
1427: set _X,%r28
1428: st %f30,[%r28]; st %f31,[%r28+4]
1429: ld [%r28],%f30; ld [%r28+4],%f31
1430: set _One,%r27
1431: ld [%r27],%f28; ld [%r27+4],%f29
1432: faddd %f30,%f28,%f28
1433: set _Y,%r27
1434: st %f28,[%r27]; st %f29,[%r27+4]
1435: ld [%r27],%f28; ld [%r27+4],%f29
1436: fsubd %f28,%f30,%f30
1437: set _Z,%r27
1438: st %f30,[%r27]; st %f31,[%r27+4]
1439: ld [%r27],%f30; ld [%r27+4],%f31
1440: set _U2,%r27
1441: ld [%r27],%f28; ld [%r27+4],%f29
1442: faddd %f30,%f28,%f28
1443: set _T,%r27
1444: st %f28,[%r27]; st %f29,[%r27+4]
1445: ld [%r27],%f28; ld [%r27+4],%f29
1446: fsubd %f28,%f30,%f30
1447: st %f30,[%r28]; st %f31,[%r28+4]
1448: mov %r0,%r8
1449: set _X,%r28
1450: ld [%r28],%f30; ld [%r28+4],%f31
1451: set _U2,%r28
1452: ld [%r28],%f28; ld [%r28+4],%f29
1453: fcmped %f30,%f28; nop; fbne L180; nop
1454: set 1,%r29
1455: ba L181; nop
1456: L180:
1457: mov %r0,%r29
1458: L181:
1459: mov %r29,%r9
1460: set L179,%r10
1461: call _TstCond; nop
1462: set _X,%r29
1463: ld [%r29],%f30; ld [%r29+4],%f31
1464: set _U2,%r29
1465: ld [%r29],%f28; ld [%r29+4],%f29
1466: fcmped %f30,%f28; nop; fbne L182; nop
1467: set L184,%r8
1468: call _printf; nop
1469: L182:
1470: L176:
1471: set L185,%r8
1472: call _printf; nop
1473: set _F9,%r29
1474: ld [%r29],%f30; ld [%r29+4],%f31
1475: set _One,%r29
1476: ld [%r29],%f28; ld [%r29+4],%f29
1477: fmuld %f30,%f28,%f26
1478: set _Y,%r29
1479: st %f26,[%r29]; st %f27,[%r29+4]
1480: fmuld %f28,%f30,%f26
1481: set _Z,%r28
1482: st %f26,[%r28]; st %f27,[%r28+4]
1483: set _Half,%r27
1484: ld [%r27],%f26; ld [%r27+4],%f27
1485: fsubd %f30,%f26,%f30
1486: set _X,%r27
1487: st %f30,[%r27]; st %f31,[%r27+4]
1488: ld [%r29],%f30; ld [%r29+4],%f31
1489: fsubd %f30,%f26,%f30
1490: ld [%r27],%f24; ld [%r27+4],%f25
1491: fsubd %f30,%f24,%f30
1492: st %f30,[%r29]; st %f31,[%r29+4]
1493: ld [%r28],%f30; ld [%r28+4],%f31
1494: fsubd %f30,%f26,%f30
1495: fsubd %f30,%f24,%f30
1496: st %f30,[%r28]; st %f31,[%r28+4]
1497: set _U2,%r26
1498: ld [%r26],%f30; ld [%r26+4],%f31
1499: faddd %f28,%f30,%f26
1500: st %f26,[%r27]; st %f27,[%r27+4]
1501: ld [%r27],%f26; ld [%r27+4],%f27
1502: set _Radix,%r26
1503: ld [%r26],%f24; ld [%r26+4],%f25
1504: fmuld %f26,%f24,%f22
1505: set _T,%r26
1506: st %f22,[%r26]; st %f23,[%r26+4]
1507: fmuld %f24,%f26,%f26
1508: set _R,%r25
1509: st %f26,[%r25]; st %f27,[%r25+4]
1510: ld [%r26],%f26; ld [%r26+4],%f27
1511: fsubd %f26,%f24,%f26
1512: st %f26,[%r27]; st %f27,[%r27+4]
1513: ld [%r27],%f26; ld [%r27+4],%f27
1514: fmuld %f24,%f30,%f30
1515: fsubd %f26,%f30,%f26
1516: st %f26,[%r27]; st %f27,[%r27+4]
1517: ld [%r25],%f26; ld [%r25+4],%f27
1518: fsubd %f26,%f24,%f26
1519: st %f26,[%r26]; st %f27,[%r26+4]
1520: ld [%r26],%f26; ld [%r26+4],%f27
1521: fsubd %f26,%f30,%f30
1522: st %f30,[%r26]; st %f31,[%r26+4]
1523: ld [%r27],%f30; ld [%r27+4],%f31
1524: fsubd %f24,%f28,%f28
1525: fmuld %f30,%f28,%f30
1526: st %f30,[%r27]; st %f31,[%r27+4]
1527: ld [%r26],%f30; ld [%r26+4],%f31
1528: fmuld %f30,%f28,%f30
1529: st %f30,[%r26]; st %f31,[%r26+4]
1530: ld [%r27],%f30; ld [%r27+4],%f31
1531: set _Zero,%r27
1532: ld [%r27],%f28; ld [%r27+4],%f29
1533: fcmped %f30,%f28; nop; fbne L186; nop
1534: ld [%r29],%f30; ld [%r29+4],%f31
1535: fcmped %f30,%f28; nop; fbne L186; nop
1536: ld [%r28],%f30; ld [%r28+4],%f31
1537: fcmped %f30,%f28; nop; fbne L186; nop
1538: ld [%r26],%f30; ld [%r26+4],%f31
1539: fcmped %f30,%f28; nop; fbne L186; nop
1540: set 1,%r29
1541: set _GMult,%r28
1542: st %r29,[%r28]
1543: ba L187; nop
1544: L186:
1545: set _GMult,%r29
1546: st %r0,[%r29]
1547: set 1,%r8
1548: mov %r0,%r9
1549: set L188,%r10
1550: call _TstCond; nop
1551: L187:
1552: set _Radix,%r28
1553: ld [%r28],%f30; ld [%r28+4],%f31
1554: set _U2,%r28
1555: ld [%r28],%f28; ld [%r28+4],%f29
1556: fmuld %f30,%f28,%f30
1557: set _Z,%r28
1558: st %f30,[%r28]; st %f31,[%r28+4]
1559: set _One,%r27
1560: ld [%r27],%f30; ld [%r27+4],%f31
1561: ld [%r28],%f28; ld [%r28+4],%f29
1562: faddd %f30,%f28,%f30
1563: set _X,%r28
1564: st %f30,[%r28]; st %f31,[%r28+4]
1565: ld [%r28],%f30; ld [%r28+4],%f31
1566: faddd %f30,%f28,%f28
1567: fmuld %f30,%f30,%f30
1568: fsubd %f28,%f30,%f30
1569: st %f30,[%sp+4*0+68]
1570: st %f31,[%sp+4*1+68]
1571: ld [%sp+4*0+68],%o0
1572: ld [%sp+4*1+68],%o1
1573: call _fabs; nop
1574: set _U2,%r28
1575: ld [%r28],%f30; ld [%r28+4],%f31
1576: fsubd %f0,%f30,%f28
1577: set _Y,%r28
1578: st %f28,[%r28]; st %f29,[%r28+4]
1579: set _One,%r28
1580: ld [%r28],%f28; ld [%r28+4],%f29
1581: fsubd %f28,%f30,%f28
1582: set _X,%r28
1583: st %f28,[%r28]; st %f29,[%r28+4]
1584: ld [%r28],%f28; ld [%r28+4],%f29
1585: fsubd %f28,%f30,%f30
1586: fmuld %f28,%f28,%f28
1587: fsubd %f30,%f28,%f30
1588: st %f30,[%sp+4*0+68]
1589: st %f31,[%sp+4*1+68]
1590: ld [%sp+4*0+68],%o0
1591: ld [%sp+4*1+68],%o1
1592: call _fabs; nop
1593: set _U1,%r28
1594: ld [%r28],%f30; ld [%r28+4],%f31
1595: fsubd %f0,%f30,%f30
1596: set _Z,%r28
1597: st %f30,[%r28]; st %f31,[%r28+4]
1598: mov %r0,%r8
1599: set _Y,%r28
1600: ld [%r28],%f30; ld [%r28+4],%f31
1601: set _Zero,%r28
1602: ld [%r28],%f28; ld [%r28+4],%f29
1603: fcmped %f30,%f28; nop; fbug L191; nop
1604: set _Z,%r28
1605: ld [%r28],%f30; ld [%r28+4],%f31
1606: fcmped %f30,%f28; nop; fbug L191; nop
1607: set 1,%r29
1608: ba L192; nop
1609: L191:
1610: mov %r0,%r29
1611: L192:
1612: mov %r29,%r9
1613: set L190,%r10
1614: call _TstCond; nop
1615: set _One,%r28
1616: ld [%r28],%f30; ld [%r28+4],%f31
1617: set _U2,%r28
1618: ld [%r28],%f28; ld [%r28+4],%f29
1619: fsubd %f30,%f28,%f26
1620: set _Y,%r28
1621: st %f26,[%r28]; st %f27,[%r28+4]
1622: faddd %f30,%f28,%f28
1623: set _X,%r27
1624: st %f28,[%r27]; st %f29,[%r27+4]
1625: ld [%r28],%f28; ld [%r28+4],%f29
1626: fdivd %f30,%f28,%f28
1627: set _Z,%r26
1628: st %f28,[%r26]; st %f29,[%r26+4]
1629: ld [%r26],%f28; ld [%r26+4],%f29
1630: ld [%r27],%f26; ld [%r27+4],%f27
1631: fsubd %f28,%f26,%f28
1632: st %f28,[%r28]; st %f29,[%r28+4]
1633: set _Three,%r28
1634: ld [%r28],%f28; ld [%r28+4],%f29
1635: fdivd %f30,%f28,%f30
1636: st %f30,[%r27]; st %f31,[%r27+4]
1637: set _Nine,%r28
1638: ld [%r28],%f30; ld [%r28+4],%f31
1639: fdivd %f28,%f30,%f28
1640: st %f28,[%r26]; st %f29,[%r26+4]
1641: ld [%r27],%f28; ld [%r27+4],%f29
1642: ld [%r26],%f26; ld [%r26+4],%f27
1643: fsubd %f28,%f26,%f28
1644: st %f28,[%r27]; st %f29,[%r27+4]
1645: set _TwentySeven,%r28
1646: ld [%r28],%f28; ld [%r28+4],%f29
1647: fdivd %f30,%f28,%f30
1648: set _T,%r28
1649: st %f30,[%r28]; st %f31,[%r28+4]
1650: ld [%r28],%f30; ld [%r28+4],%f31
1651: fsubd %f26,%f30,%f30
1652: st %f30,[%r26]; st %f31,[%r26+4]
1653: set 2,%r8
1654: set _X,%r28
1655: ld [%r28],%f30; ld [%r28+4],%f31
1656: set _Zero,%r28
1657: ld [%r28],%f28; ld [%r28+4],%f29
1658: fcmped %f30,%f28; nop; fbne L195; nop
1659: set _Y,%r28
1660: ld [%r28],%f30; ld [%r28+4],%f31
1661: fcmped %f30,%f28; nop; fbne L195; nop
1662: set _Z,%r28
1663: ld [%r28],%f30; ld [%r28+4],%f31
1664: fcmped %f30,%f28; nop; fbne L195; nop
1665: set 1,%r29
1666: ba L196; nop
1667: L195:
1668: mov %r0,%r29
1669: L196:
1670: mov %r29,%r9
1671: set L194,%r10
1672: call _TstCond; nop
1673: set _F9,%r29
1674: ld [%r29],%f30; ld [%r29+4],%f31
1675: set _One,%r29
1676: ld [%r29],%f28; ld [%r29+4],%f29
1677: fdivd %f30,%f28,%f26
1678: set _Y,%r29
1679: st %f26,[%r29]; st %f27,[%r29+4]
1680: set _Half,%r28
1681: ld [%r28],%f26; ld [%r28+4],%f27
1682: fsubd %f30,%f26,%f30
1683: set _X,%r28
1684: st %f30,[%r28]; st %f31,[%r28+4]
1685: ld [%r29],%f30; ld [%r29+4],%f31
1686: fsubd %f30,%f26,%f30
1687: ld [%r28],%f26; ld [%r28+4],%f27
1688: fsubd %f30,%f26,%f30
1689: st %f30,[%r29]; st %f31,[%r29+4]
1690: set _U2,%r27
1691: ld [%r27],%f30; ld [%r27+4],%f31
1692: faddd %f28,%f30,%f30
1693: st %f30,[%r28]; st %f31,[%r28+4]
1694: ld [%r28],%f30; ld [%r28+4],%f31
1695: fdivd %f30,%f28,%f28
1696: set _T,%r27
1697: st %f28,[%r27]; st %f29,[%r27+4]
1698: ld [%r27],%f28; ld [%r27+4],%f29
1699: fsubd %f28,%f30,%f30
1700: st %f30,[%r28]; st %f31,[%r28+4]
1701: ld [%r28],%f30; ld [%r28+4],%f31
1702: set _Zero,%r28
1703: ld [%r28],%f28; ld [%r28+4],%f29
1704: fcmped %f30,%f28; nop; fbne L197; nop
1705: ld [%r29],%f30; ld [%r29+4],%f31
1706: fcmped %f30,%f28; nop; fbne L197; nop
1707: set _Z,%r29
1708: ld [%r29],%f30; ld [%r29+4],%f31
1709: fcmped %f30,%f28; nop; fbne L197; nop
1710: set 1,%r29
1711: set _GDiv,%r28
1712: st %r29,[%r28]
1713: ba L198; nop
1714: L197:
1715: set _GDiv,%r29
1716: st %r0,[%r29]
1717: set 1,%r8
1718: mov %r0,%r9
1719: set L199,%r10
1720: call _TstCond; nop
1721: L198:
1722: set _One,%r28
1723: ld [%r28],%f30; ld [%r28+4],%f31
1724: set _U2,%r28
1725: ld [%r28],%f28; ld [%r28+4],%f29
1726: faddd %f30,%f28,%f28
1727: fdivd %f30,%f28,%f30
1728: set _X,%r28
1729: st %f30,[%r28]; st %f31,[%r28+4]
1730: ld [%r28],%f30; ld [%r28+4],%f31
1731: set _Half,%r28
1732: ld [%r28],%f28; ld [%r28+4],%f29
1733: fsubd %f30,%f28,%f30
1734: fsubd %f30,%f28,%f30
1735: set _Y,%r28
1736: st %f30,[%r28]; st %f31,[%r28+4]
1737: set 1,%r8
1738: set _Y,%r28
1739: ld [%r28],%f30; ld [%r28+4],%f31
1740: set _Zero,%r28
1741: ld [%r28],%f28; ld [%r28+4],%f29
1742: fcmped %f30,%f28; nop; fbuge L202; nop
1743: set 1,%r29
1744: ba L203; nop
1745: L202:
1746: mov %r0,%r29
1747: L203:
1748: mov %r29,%r9
1749: set L201,%r10
1750: call _TstCond; nop
1751: set _One,%r28
1752: ld [%r28],%f30; ld [%r28+4],%f31
1753: set _U2,%r28
1754: ld [%r28],%f28; ld [%r28+4],%f29
1755: fsubd %f30,%f28,%f26
1756: set _X,%r28
1757: st %f26,[%r28]; st %f27,[%r28+4]
1758: set _Radix,%r27
1759: ld [%r27],%f26; ld [%r27+4],%f27
1760: fmuld %f26,%f28,%f28
1761: faddd %f30,%f28,%f30
1762: set _Y,%r27
1763: st %f30,[%r27]; st %f31,[%r27+4]
1764: ld [%r28],%f30; ld [%r28+4],%f31
1765: fmuld %f30,%f26,%f28
1766: set _Z,%r26
1767: st %f28,[%r26]; st %f29,[%r26+4]
1768: ld [%r27],%f28; ld [%r27+4],%f29
1769: fmuld %f28,%f26,%f24
1770: set _T,%r25
1771: st %f24,[%r25]; st %f25,[%r25+4]
1772: ld [%r26],%f24; ld [%r26+4],%f25
1773: fdivd %f24,%f26,%f24
1774: set _R,%r26
1775: st %f24,[%r26]; st %f25,[%r26+4]
1776: ld [%r25],%f24; ld [%r25+4],%f25
1777: fdivd %f24,%f26,%f26
1778: set _StickyBit,%r25
1779: st %f26,[%r25]; st %f27,[%r25+4]
1780: ld [%r26],%f26; ld [%r26+4],%f27
1781: fsubd %f26,%f30,%f30
1782: st %f30,[%r28]; st %f31,[%r28+4]
1783: ld [%r25],%f30; ld [%r25+4],%f31
1784: fsubd %f30,%f28,%f30
1785: st %f30,[%r27]; st %f31,[%r27+4]
1786: mov %r0,%r8
1787: set _X,%r28
1788: ld [%r28],%f30; ld [%r28+4],%f31
1789: set _Zero,%r28
1790: ld [%r28],%f28; ld [%r28+4],%f29
1791: fcmped %f30,%f28; nop; fbne L206; nop
1792: set _Y,%r28
1793: ld [%r28],%f30; ld [%r28+4],%f31
1794: fcmped %f30,%f28; nop; fbne L206; nop
1795: set 1,%r29
1796: ba L207; nop
1797: L206:
1798: mov %r0,%r29
1799: L207:
1800: mov %r29,%r9
1801: set L205,%r10
1802: call _TstCond; nop
1803: set _One,%r29
1804: ld [%r29],%f30; ld [%r29+4],%f31
1805: set _U1,%r29
1806: ld [%r29],%f28; ld [%r29+4],%f29
1807: fsubd %f30,%f28,%f26
1808: set _Y,%r29
1809: st %f26,[%r29]; st %f27,[%r29+4]
1810: set _F9,%r28
1811: ld [%r28],%f26; ld [%r28+4],%f27
1812: fsubd %f30,%f26,%f26
1813: set _X,%r28
1814: st %f26,[%r28]; st %f27,[%r28+4]
1815: ld [%r29],%f26; ld [%r29+4],%f27
1816: fsubd %f30,%f26,%f30
1817: st %f30,[%r29]; st %f31,[%r29+4]
1818: set _Radix,%r27
1819: ld [%r27],%f30; ld [%r27+4],%f31
1820: set _U2,%r27
1821: ld [%r27],%f26; ld [%r27+4],%f27
1822: fsubd %f30,%f26,%f24
1823: set _T,%r27
1824: st %f24,[%r27]; st %f25,[%r27+4]
1825: set _BMinusU2,%r26
1826: ld [%r26],%f24; ld [%r26+4],%f25
1827: fsubd %f30,%f24,%f24
1828: set _Z,%r26
1829: st %f24,[%r26]; st %f25,[%r26+4]
1830: ld [%r27],%f24; ld [%r27+4],%f25
1831: fsubd %f30,%f24,%f30
1832: st %f30,[%r27]; st %f31,[%r27+4]
1833: ld [%r28],%f30; ld [%r28+4],%f31
1834: fcmped %f30,%f28; nop; fbne L208; nop
1835: ld [%r29],%f30; ld [%r29+4],%f31
1836: fcmped %f30,%f28; nop; fbne L208; nop
1837: ld [%r26],%f30; ld [%r26+4],%f31
1838: fcmped %f30,%f26; nop; fbne L208; nop
1839: ld [%r27],%f30; ld [%r27+4],%f31
1840: fcmped %f30,%f26; nop; fbne L208; nop
1841: set 1,%r29
1842: set _GAddSub,%r28
1843: st %r29,[%r28]
1844: ba L209; nop
1845: L208:
1846: set _GAddSub,%r29
1847: st %r0,[%r29]
1848: set 1,%r8
1849: mov %r0,%r9
1850: set L210,%r10
1851: call _TstCond; nop
1852: L209:
1853: set _F9,%r29
1854: ld [%r29],%f30; ld [%r29+4],%f31
1855: set _One,%r29
1856: ld [%r29],%f28; ld [%r29+4],%f29
1857: fcmped %f30,%f28; nop; fbue L211; nop
1858: fsubd %f30,%f28,%f30
1859: set _Zero,%r29
1860: ld [%r29],%f28; ld [%r29+4],%f29
1861: fcmped %f30,%f28; nop; fbul L211; nop
1862: set 1,%r8
1863: set L213,%r9
1864: call _BadCond; nop
1865: set L214,%r8
1866: call _printf; nop
1867: set L215,%r8
1868: call _printf; nop
1869: set L216,%r8
1870: call _printf; nop
1871: L211:
1872: set _GMult,%r29
1873: ld [%r29],%r29
1874: cmp %r29,1; bne L217; nop
1875: set _GDiv,%r29
1876: ld [%r29],%r29
1877: cmp %r29,1; bne L217; nop
1878: set _GAddSub,%r29
1879: ld [%r29],%r29
1880: cmp %r29,1; bne L217; nop
1881: set L219,%r8
1882: call _printf; nop
1883: L217:
1884: set 40,%r29
1885: set _Milestone,%r28
1886: st %r29,[%r28]
1887: call _Pause; nop
1888: set L220,%r8
1889: call _printf; nop
1890: set _RMult,%r29
1891: st %r0,[%r29]
1892: set _RDiv,%r29
1893: st %r0,[%r29]
1894: set _RAddSub,%r29
1895: st %r0,[%r29]
1896: set _Radix,%r29
1897: ld [%r29],%f30; ld [%r29+4],%f31
1898: set _Two,%r29
1899: ld [%r29],%f28; ld [%r29+4],%f29
1900: fdivd %f30,%f28,%f30
1901: set _RadixD2,%r29
1902: st %f30,[%r29]; st %f31,[%r29+4]
1903: set _A1,%r29
1904: st %f28,[%r29]; st %f29,[%r29+4]
1905: set _Done,%r29
1906: st %r0,[%r29]
1907: L221:
1908: set _Radix,%r29
1909: ld [%r29],%f30; ld [%r29+4],%f31
1910: set _AInvrse,%r29
1911: st %f30,[%r29]; st %f31,[%r29+4]
1912: L224:
1913: set _AInvrse,%r29
1914: ld [%r29],%f30; ld [%r29+4],%f31
1915: set _X,%r28
1916: st %f30,[%r28]; st %f31,[%r28+4]
1917: set _A1,%r28
1918: ld [%r28],%f28; ld [%r28+4],%f29
1919: fdivd %f30,%f28,%f30
1920: st %f30,[%r29]; st %f31,[%r29+4]
1921: L225:
1922: set _AInvrse,%r29
1923: ld [%r29],%f30; ld [%r29+4],%f31
1924: st %f30,[%sp+4*0+68]
1925: st %f31,[%sp+4*1+68]
1926: ld [%sp+4*0+68],%o0
1927: ld [%sp+4*1+68],%o1
1928: call _floor; nop
1929: set _AInvrse,%r29
1930: ld [%r29],%f30; ld [%r29+4],%f31
1931: fcmped %f0,%f30; nop; fbue L224; nop
1932: set _X,%r28
1933: ld [%r28],%f30; ld [%r28+4],%f31
1934: set _One,%r28
1935: ld [%r28],%f28; ld [%r28+4],%f29
1936: fcmped %f30,%f28; nop; fbue L230; nop
1937: set _A1,%r28
1938: ld [%r28],%f30; ld [%r28+4],%f31
1939: set _Three,%r28
1940: ld [%r28],%f28; ld [%r28+4],%f29
1941: fcmped %f30,%f28; nop; fbule L228; nop
1942: L230:
1943: set 1,%r29
1944: ba L229; nop
1945: L228:
1946: mov %r0,%r29
1947: L229:
1948: set _Done,%r28
1949: st %r29,[%r28]
1950: set _Done,%r28
1951: ld [%r28],%r28
1952: cmp %r28,%r0; bne L231; nop
1953: set _Nine,%r29
1954: ld [%r29],%f30; ld [%r29+4],%f31
1955: set _One,%r29
1956: ld [%r29],%f28; ld [%r29+4],%f29
1957: faddd %f30,%f28,%f30
1958: set _A1,%r29
1959: st %f30,[%r29]; st %f31,[%r29+4]
1960: L231:
1961: L222:
1962: set _Done,%r29
1963: ld [%r29],%r29
1964: cmp %r29,%r0; be L221; nop
1965: set _X,%r29
1966: ld [%r29],%f30; ld [%r29+4],%f31
1967: set _One,%r29
1968: ld [%r29],%f28; ld [%r29+4],%f29
1969: fcmped %f30,%f28; nop; fbne L233; nop
1970: set _Radix,%r29
1971: ld [%r29],%f30; ld [%r29+4],%f31
1972: set _A1,%r29
1973: st %f30,[%r29]; st %f31,[%r29+4]
1974: L233:
1975: set _One,%r29
1976: ld [%r29],%f30; ld [%r29+4],%f31
1977: set _A1,%r29
1978: ld [%r29],%f28; ld [%r29+4],%f29
1979: fdivd %f30,%f28,%f30
1980: set _AInvrse,%r29
1981: st %f30,[%r29]; st %f31,[%r29+4]
1982: set _X,%r28
1983: st %f28,[%r28]; st %f29,[%r28+4]
1984: ld [%r29],%f30; ld [%r29+4],%f31
1985: set _Y,%r29
1986: st %f30,[%r29]; st %f31,[%r29+4]
1987: set _Done,%r29
1988: st %r0,[%r29]
1989: L235:
1990: set _X,%r28
1991: ld [%r28],%f30; ld [%r28+4],%f31
1992: set _Y,%r28
1993: ld [%r28],%f28; ld [%r28+4],%f29
1994: fmuld %f30,%f28,%f30
1995: set _Half,%r28
1996: ld [%r28],%f28; ld [%r28+4],%f29
1997: fsubd %f30,%f28,%f30
1998: set _Z,%r28
1999: st %f30,[%r28]; st %f31,[%r28+4]
2000: mov %r0,%r8
2001: set _Z,%r28
2002: ld [%r28],%f30; ld [%r28+4],%f31
2003: set _Half,%r28
2004: ld [%r28],%f28; ld [%r28+4],%f29
2005: fcmped %f30,%f28; nop; fbne L240; nop
2006: set 1,%r29
2007: ba L241; nop
2008: L240:
2009: mov %r0,%r29
2010: L241:
2011: mov %r29,%r9
2012: set L239,%r10
2013: call _TstCond; nop
2014: set _X,%r28
2015: ld [%r28],%f30; ld [%r28+4],%f31
2016: set _Radix,%r28
2017: ld [%r28],%f28; ld [%r28+4],%f29
2018: fcmped %f30,%f28; nop; fbne L243; nop
2019: set 1,%r29
2020: ba L244; nop
2021: L243:
2022: mov %r0,%r29
2023: L244:
2024: set _Done,%r28
2025: st %r29,[%r28]
2026: set _Radix,%r28
2027: ld [%r28],%f30; ld [%r28+4],%f31
2028: set _X,%r28
2029: st %f30,[%r28]; st %f31,[%r28+4]
2030: set _One,%r27
2031: ld [%r27],%f30; ld [%r27+4],%f31
2032: ld [%r28],%f28; ld [%r28+4],%f29
2033: fdivd %f30,%f28,%f30
2034: set _Y,%r28
2035: st %f30,[%r28]; st %f31,[%r28+4]
2036: L236:
2037: set _Done,%r29
2038: ld [%r29],%r29
2039: cmp %r29,%r0; be L235; nop
2040: set _One,%r29
2041: ld [%r29],%f30; ld [%r29+4],%f31
2042: set _U2,%r29
2043: ld [%r29],%f28; ld [%r29+4],%f29
2044: faddd %f30,%f28,%f26
2045: set _Y2,%r29
2046: st %f26,[%r29]; st %f27,[%r29+4]
2047: fsubd %f30,%f28,%f30
2048: set _Y1,%r28
2049: st %f30,[%r28]; st %f31,[%r28+4]
2050: set _OneAndHalf,%r27
2051: ld [%r27],%f30; ld [%r27+4],%f31
2052: fsubd %f30,%f28,%f26
2053: set _X,%r27
2054: st %f26,[%r27]; st %f27,[%r27+4]
2055: faddd %f30,%f28,%f26
2056: set _Y,%r26
2057: st %f26,[%r26]; st %f27,[%r26+4]
2058: ld [%r27],%f26; ld [%r27+4],%f27
2059: fsubd %f26,%f28,%f24
2060: ld [%r29],%f22; ld [%r29+4],%f23
2061: fmuld %f24,%f22,%f24
2062: set _Z,%r29
2063: st %f24,[%r29]; st %f25,[%r29+4]
2064: ld [%r26],%f24; ld [%r26+4],%f25
2065: ld [%r28],%f20; ld [%r28+4],%f21
2066: fmuld %f24,%f20,%f18
2067: set _T,%r28
2068: st %f18,[%r28]; st %f19,[%r28+4]
2069: ld [%r29],%f18; ld [%r29+4],%f19
2070: fsubd %f18,%f26,%f18
2071: st %f18,[%r29]; st %f19,[%r29+4]
2072: ld [%r28],%f18; ld [%r28+4],%f19
2073: fsubd %f18,%f26,%f18
2074: st %f18,[%r28]; st %f19,[%r28+4]
2075: fmuld %f26,%f22,%f26
2076: st %f26,[%r27]; st %f27,[%r27+4]
2077: faddd %f24,%f28,%f28
2078: fmuld %f28,%f20,%f28
2079: st %f28,[%r26]; st %f29,[%r26+4]
2080: ld [%r27],%f28; ld [%r27+4],%f29
2081: fsubd %f28,%f30,%f28
2082: st %f28,[%r27]; st %f29,[%r27+4]
2083: ld [%r26],%f28; ld [%r26+4],%f29
2084: fsubd %f28,%f30,%f30
2085: st %f30,[%r26]; st %f31,[%r26+4]
2086: ld [%r27],%f30; ld [%r27+4],%f31
2087: set _Zero,%r27
2088: ld [%r27],%f28; ld [%r27+4],%f29
2089: fcmped %f30,%f28; nop; fbne L245; nop
2090: ld [%r26],%f30; ld [%r26+4],%f31
2091: fcmped %f30,%f28; nop; fbne L245; nop
2092: ld [%r29],%f30; ld [%r29+4],%f31
2093: fcmped %f30,%f28; nop; fbne L245; nop
2094: ld [%r28],%f30; ld [%r28+4],%f31
2095: fcmped %f30,%f28; nop; fbug L245; nop
2096: set _OneAndHalf,%r29
2097: ld [%r29],%f30; ld [%r29+4],%f31
2098: set _U2,%r29
2099: ld [%r29],%f28; ld [%r29+4],%f29
2100: faddd %f30,%f28,%f26
2101: set _Y2,%r29
2102: ld [%r29],%f24; ld [%r29+4],%f25
2103: fmuld %f26,%f24,%f22
2104: set _X,%r29
2105: st %f22,[%r29]; st %f23,[%r29+4]
2106: fsubd %f30,%f28,%f30
2107: fsubd %f30,%f28,%f22
2108: set _Y,%r28
2109: st %f22,[%r28]; st %f23,[%r28+4]
2110: faddd %f26,%f28,%f26
2111: set _Z,%r27
2112: st %f26,[%r27]; st %f27,[%r27+4]
2113: set _Y1,%r26
2114: ld [%r26],%f26; ld [%r26+4],%f27
2115: fmuld %f30,%f26,%f30
2116: set _T,%r25
2117: st %f30,[%r25]; st %f31,[%r25+4]
2118: ld [%r29],%f30; ld [%r29+4],%f31
2119: ld [%r27],%f22; ld [%r27+4],%f23
2120: faddd %f22,%f28,%f20
2121: fsubd %f30,%f20,%f30
2122: st %f30,[%r29]; st %f31,[%r29+4]
2123: ld [%r28],%f30; ld [%r28+4],%f31
2124: fmuld %f30,%f26,%f18
2125: set _StickyBit,%r24
2126: st %f18,[%r24]; st %f19,[%r24+4]
2127: fmuld %f22,%f24,%f22
2128: set _S,%r23
2129: st %f22,[%r23]; st %f23,[%r23+4]
2130: ld [%r25],%f22; ld [%r25+4],%f23
2131: fsubd %f22,%f30,%f22
2132: st %f22,[%r25]; st %f23,[%r25+4]
2133: fsubd %f28,%f30,%f30
2134: ld [%r24],%f22; ld [%r24+4],%f23
2135: faddd %f30,%f22,%f30
2136: st %f30,[%r28]; st %f31,[%r28+4]
2137: ld [%r23],%f30; ld [%r23+4],%f31
2138: faddd %f20,%f28,%f22
2139: fsubd %f30,%f22,%f30
2140: st %f30,[%r27]; st %f31,[%r27+4]
2141: faddd %f24,%f28,%f30
2142: fmuld %f30,%f26,%f30
2143: st %f30,[%r24]; st %f31,[%r24+4]
2144: fmuld %f24,%f26,%f30
2145: st %f30,[%r26]; st %f31,[%r26+4]
2146: ld [%r24],%f30; ld [%r24+4],%f31
2147: fsubd %f30,%f24,%f30
2148: st %f30,[%r24]; st %f31,[%r24+4]
2149: ld [%r26],%f30; ld [%r26+4],%f31
2150: set _Half,%r23
2151: ld [%r23],%f28; ld [%r23+4],%f29
2152: fsubd %f30,%f28,%f30
2153: st %f30,[%r26]; st %f31,[%r26+4]
2154: ld [%r29],%f30; ld [%r29+4],%f31
2155: set _Zero,%r29
2156: ld [%r29],%f26; ld [%r29+4],%f27
2157: fcmped %f30,%f26; nop; fbne L247; nop
2158: ld [%r28],%f30; ld [%r28+4],%f31
2159: fcmped %f30,%f26; nop; fbne L247; nop
2160: ld [%r27],%f30; ld [%r27+4],%f31
2161: fcmped %f30,%f26; nop; fbne L247; nop
2162: ld [%r25],%f30; ld [%r25+4],%f31
2163: fcmped %f30,%f26; nop; fbne L247; nop
2164: ld [%r24],%f30; ld [%r24+4],%f31
2165: fcmped %f30,%f26; nop; fbne L247; nop
2166: ld [%r26],%f30; ld [%r26+4],%f31
2167: fcmped %f30,%f28; nop; fbne L247; nop
2168: set 1,%r29
2169: set _RMult,%r28
2170: st %r29,[%r28]
2171: set L249,%r8
2172: call _printf; nop
2173: ba L248; nop
2174: L247:
2175: set _X,%r29
2176: ld [%r29],%f30; ld [%r29+4],%f31
2177: set _U2,%r29
2178: ld [%r29],%f28; ld [%r29+4],%f29
2179: faddd %f30,%f28,%f30
2180: set _Zero,%r29
2181: ld [%r29],%f26; ld [%r29+4],%f27
2182: fcmped %f30,%f26; nop; fbne L250; nop
2183: set _Y,%r29
2184: ld [%r29],%f30; ld [%r29+4],%f31
2185: fcmped %f30,%f26; nop; fbuge L250; nop
2186: set _Z,%r29
2187: ld [%r29],%f30; ld [%r29+4],%f31
2188: faddd %f30,%f28,%f30
2189: fcmped %f30,%f26; nop; fbne L250; nop
2190: set _T,%r29
2191: ld [%r29],%f30; ld [%r29+4],%f31
2192: fcmped %f30,%f26; nop; fbuge L250; nop
2193: set _StickyBit,%r29
2194: ld [%r29],%f30; ld [%r29+4],%f31
2195: faddd %f30,%f28,%f30
2196: fcmped %f30,%f26; nop; fbne L250; nop
2197: set _Y1,%r29
2198: ld [%r29],%f30; ld [%r29+4],%f31
2199: set _Half,%r29
2200: ld [%r29],%f28; ld [%r29+4],%f29
2201: fcmped %f30,%f28; nop; fbuge L250; nop
2202: set 2,%r29
2203: set _RMult,%r28
2204: st %r29,[%r28]
2205: set L252,%r8
2206: call _printf; nop
2207: ba L251; nop
2208: L250:
2209: set L253,%r8
2210: call _printf; nop
2211: L251:
2212: L248:
2213: set _RMult,%r29
2214: ld [%r29],%r29
2215: cmp %r29,1; bne L246; nop
2216: set _GMult,%r29
2217: ld [%r29],%r29
2218: cmp %r29,%r0; bne L246; nop
2219: set L256,%r8
2220: call _notify; nop
2221: ba L246; nop
2222: L245:
2223: set L253,%r8
2224: call _printf; nop
2225: L246:
2226: set 45,%r29
2227: set _Milestone,%r28
2228: st %r29,[%r28]
2229: set _One,%r29
2230: ld [%r29],%f30; ld [%r29+4],%f31
2231: set _U2,%r29
2232: ld [%r29],%f28; ld [%r29+4],%f29
2233: faddd %f30,%f28,%f26
2234: set _Y2,%r29
2235: st %f26,[%r29]; st %f27,[%r29+4]
2236: fsubd %f30,%f28,%f30
2237: set _Y1,%r28
2238: st %f30,[%r28]; st %f31,[%r28+4]
2239: set _OneAndHalf,%r27
2240: ld [%r27],%f30; ld [%r27+4],%f31
2241: faddd %f30,%f28,%f26
2242: faddd %f26,%f28,%f24
2243: set _Z,%r27
2244: st %f24,[%r27]; st %f25,[%r27+4]
2245: ld [%r27],%f24; ld [%r27+4],%f25
2246: ld [%r29],%f22; ld [%r29+4],%f23
2247: fdivd %f24,%f22,%f20
2248: set _X,%r29
2249: st %f20,[%r29]; st %f21,[%r29+4]
2250: fsubd %f30,%f28,%f20
2251: fsubd %f20,%f28,%f20
2252: set _T,%r26
2253: st %f20,[%r26]; st %f21,[%r26+4]
2254: ld [%r26],%f20; ld [%r26+4],%f21
2255: fsubd %f20,%f28,%f18
2256: ld [%r28],%f16; ld [%r28+4],%f17
2257: fdivd %f18,%f16,%f18
2258: set _Y,%r28
2259: st %f18,[%r28]; st %f19,[%r28+4]
2260: faddd %f24,%f28,%f24
2261: fdivd %f24,%f22,%f24
2262: st %f24,[%r27]; st %f25,[%r27+4]
2263: ld [%r29],%f24; ld [%r29+4],%f25
2264: fsubd %f24,%f30,%f24
2265: st %f24,[%r29]; st %f25,[%r29+4]
2266: ld [%r28],%f24; ld [%r28+4],%f25
2267: fsubd %f24,%f20,%f24
2268: st %f24,[%r28]; st %f25,[%r28+4]
2269: fdivd %f20,%f16,%f24
2270: st %f24,[%r26]; st %f25,[%r26+4]
2271: ld [%r27],%f24; ld [%r27+4],%f25
2272: fsubd %f24,%f26,%f26
2273: st %f26,[%r27]; st %f27,[%r27+4]
2274: fsubd %f28,%f30,%f30
2275: ld [%r26],%f28; ld [%r26+4],%f29
2276: faddd %f30,%f28,%f30
2277: st %f30,[%r26]; st %f31,[%r26+4]
2278: ld [%r29],%f30; ld [%r29+4],%f31
2279: set _Zero,%r29
2280: ld [%r29],%f28; ld [%r29+4],%f29
2281: fcmped %f30,%f28; nop; fbug L257; nop
2282: ld [%r28],%f30; ld [%r28+4],%f31
2283: fcmped %f30,%f28; nop; fbug L257; nop
2284: ld [%r27],%f30; ld [%r27+4],%f31
2285: fcmped %f30,%f28; nop; fbug L257; nop
2286: ld [%r26],%f30; ld [%r26+4],%f31
2287: fcmped %f30,%f28; nop; fbug L257; nop
2288: set _OneAndHalf,%r29
2289: ld [%r29],%f30; ld [%r29+4],%f31
2290: set _Y2,%r29
2291: ld [%r29],%f28; ld [%r29+4],%f29
2292: fdivd %f30,%f28,%f26
2293: set _X,%r28
2294: st %f26,[%r28]; st %f27,[%r28+4]
2295: set _U2,%r27
2296: ld [%r27],%f26; ld [%r27+4],%f27
2297: fsubd %f30,%f26,%f24
2298: set _Y,%r27
2299: st %f24,[%r27]; st %f25,[%r27+4]
2300: faddd %f30,%f26,%f24
2301: set _Z,%r26
2302: st %f24,[%r26]; st %f25,[%r26+4]
2303: ld [%r28],%f24; ld [%r28+4],%f25
2304: ld [%r27],%f22; ld [%r27+4],%f23
2305: fsubd %f24,%f22,%f24
2306: st %f24,[%r28]; st %f25,[%r28+4]
2307: set _Y1,%r25
2308: ld [%r25],%f24; ld [%r25+4],%f25
2309: fdivd %f30,%f24,%f20
2310: set _T,%r24
2311: st %f20,[%r24]; st %f21,[%r24+4]
2312: fdivd %f22,%f24,%f24
2313: st %f24,[%r27]; st %f25,[%r27+4]
2314: ld [%r24],%f24; ld [%r24+4],%f25
2315: ld [%r26],%f22; ld [%r26+4],%f23
2316: faddd %f22,%f26,%f20
2317: fsubd %f24,%f20,%f24
2318: st %f24,[%r24]; st %f25,[%r24+4]
2319: ld [%r27],%f24; ld [%r27+4],%f25
2320: fsubd %f24,%f22,%f24
2321: st %f24,[%r27]; st %f25,[%r27+4]
2322: fdivd %f22,%f28,%f24
2323: st %f24,[%r26]; st %f25,[%r26+4]
2324: faddd %f28,%f26,%f26
2325: fdivd %f26,%f28,%f26
2326: st %f26,[%r25]; st %f27,[%r25+4]
2327: ld [%r26],%f26; ld [%r26+4],%f27
2328: fsubd %f26,%f30,%f30
2329: st %f30,[%r26]; st %f31,[%r26+4]
2330: ld [%r25],%f30; ld [%r25+4],%f31
2331: fsubd %f30,%f28,%f30
2332: st %f30,[%r29]; st %f31,[%r29+4]
2333: set _F9,%r23
2334: ld [%r23],%f30; ld [%r23+4],%f31
2335: set _U1,%r23
2336: ld [%r23],%f28; ld [%r23+4],%f29
2337: fsubd %f30,%f28,%f28
2338: fdivd %f28,%f30,%f28
2339: st %f28,[%r25]; st %f29,[%r25+4]
2340: ld [%r28],%f28; ld [%r28+4],%f29
2341: set _Zero,%r28
2342: ld [%r28],%f26; ld [%r28+4],%f27
2343: fcmped %f28,%f26; nop; fbne L259; nop
2344: ld [%r27],%f28; ld [%r27+4],%f29
2345: fcmped %f28,%f26; nop; fbne L259; nop
2346: ld [%r26],%f28; ld [%r26+4],%f29
2347: fcmped %f28,%f26; nop; fbne L259; nop
2348: ld [%r24],%f28; ld [%r24+4],%f29
2349: fcmped %f28,%f26; nop; fbne L259; nop
2350: ld [%r29],%f28; ld [%r29+4],%f29
2351: fcmped %f28,%f26; nop; fbne L259; nop
2352: fcmped %f28,%f26; nop; fbne L259; nop
2353: ld [%r25],%f28; ld [%r25+4],%f29
2354: set _Half,%r29
2355: ld [%r29],%f26; ld [%r29+4],%f27
2356: fsubd %f28,%f26,%f28
2357: fsubd %f30,%f26,%f30
2358: fcmped %f28,%f30; nop; fbne L259; nop
2359: set 1,%r29
2360: set _RDiv,%r28
2361: st %r29,[%r28]
2362: set L261,%r8
2363: call _printf; nop
2364: set _GDiv,%r29
2365: ld [%r29],%r29
2366: cmp %r29,%r0; bne L260; nop
2367: set L264,%r8
2368: call _notify; nop
2369: ba L260; nop
2370: L259:
2371: set _X,%r29
2372: ld [%r29],%f30; ld [%r29+4],%f31
2373: set _Zero,%r29
2374: ld [%r29],%f28; ld [%r29+4],%f29
2375: fcmped %f30,%f28; nop; fbuge L265; nop
2376: set _Y,%r29
2377: ld [%r29],%f30; ld [%r29+4],%f31
2378: fcmped %f30,%f28; nop; fbuge L265; nop
2379: set _Z,%r29
2380: ld [%r29],%f30; ld [%r29+4],%f31
2381: fcmped %f30,%f28; nop; fbuge L265; nop
2382: set _T,%r29
2383: ld [%r29],%f30; ld [%r29+4],%f31
2384: fcmped %f30,%f28; nop; fbuge L265; nop
2385: set _Y2,%r29
2386: ld [%r29],%f30; ld [%r29+4],%f31
2387: fcmped %f30,%f28; nop; fbuge L265; nop
2388: set _Y1,%r29
2389: ld [%r29],%f30; ld [%r29+4],%f31
2390: set _Half,%r29
2391: ld [%r29],%f28; ld [%r29+4],%f29
2392: fsubd %f30,%f28,%f30
2393: set _F9,%r29
2394: ld [%r29],%f26; ld [%r29+4],%f27
2395: fsubd %f26,%f28,%f28
2396: fcmped %f30,%f28; nop; fbuge L265; nop
2397: set 2,%r29
2398: set _RDiv,%r28
2399: st %r29,[%r28]
2400: set L267,%r8
2401: call _printf; nop
2402: L265:
2403: L260:
2404: L257:
2405: set _RDiv,%r29
2406: ld [%r29],%r29
2407: cmp %r29,%r0; bne L268; nop
2408: set L270,%r8
2409: call _printf; nop
2410: L268:
2411: set _One,%r28
2412: ld [%r28],%f30; ld [%r28+4],%f31
2413: set _Radix,%r28
2414: ld [%r28],%f28; ld [%r28+4],%f29
2415: fdivd %f30,%f28,%f30
2416: set _BInvrse,%r28
2417: st %f30,[%r28]; st %f31,[%r28+4]
2418: mov %r0,%r8
2419: set _BInvrse,%r28
2420: ld [%r28],%f30; ld [%r28+4],%f31
2421: set _Radix,%r28
2422: ld [%r28],%f28; ld [%r28+4],%f29
2423: fmuld %f30,%f28,%f30
2424: set _Half,%r28
2425: ld [%r28],%f28; ld [%r28+4],%f29
2426: fsubd %f30,%f28,%f30
2427: fcmped %f30,%f28; nop; fbne L273; nop
2428: set 1,%r29
2429: ba L274; nop
2430: L273:
2431: mov %r0,%r29
2432: L274:
2433: mov %r29,%r9
2434: set L272,%r10
2435: call _TstCond; nop
2436: set 50,%r28
2437: set _Milestone,%r27
2438: st %r28,[%r27]
2439: mov %r0,%r8
2440: set _F9,%r28
2441: ld [%r28],%f30; ld [%r28+4],%f31
2442: set _U1,%r28
2443: ld [%r28],%f28; ld [%r28+4],%f29
2444: faddd %f30,%f28,%f30
2445: set _Half,%r28
2446: ld [%r28],%f28; ld [%r28+4],%f29
2447: fsubd %f30,%f28,%f30
2448: fcmped %f30,%f28; nop; fbne L277; nop
2449: set _BMinusU2,%r28
2450: ld [%r28],%f30; ld [%r28+4],%f31
2451: set _U2,%r28
2452: ld [%r28],%f28; ld [%r28+4],%f29
2453: faddd %f30,%f28,%f30
2454: set _One,%r28
2455: ld [%r28],%f28; ld [%r28+4],%f29
2456: fsubd %f30,%f28,%f30
2457: set _Radix,%r28
2458: ld [%r28],%f26; ld [%r28+4],%f27
2459: fsubd %f26,%f28,%f28
2460: fcmped %f30,%f28; nop; fbne L277; nop
2461: set 1,%r29
2462: ba L278; nop
2463: L277:
2464: mov %r0,%r29
2465: L278:
2466: mov %r29,%r9
2467: set L276,%r10
2468: call _TstCond; nop
2469: set _One,%r29
2470: ld [%r29],%f30; ld [%r29+4],%f31
2471: set _U1,%r29
2472: ld [%r29],%f28; ld [%r29+4],%f29
2473: fmuld %f28,%f28,%f28
2474: fsubd %f30,%f28,%f28
2475: set _X,%r29
2476: st %f28,[%r29]; st %f29,[%r29+4]
2477: set _U2,%r28
2478: ld [%r28],%f28; ld [%r28+4],%f29
2479: fsubd %f30,%f28,%f26
2480: fmuld %f28,%f26,%f28
2481: faddd %f30,%f28,%f28
2482: set _Y,%r28
2483: st %f28,[%r28]; st %f29,[%r28+4]
2484: set _F9,%r27
2485: ld [%r27],%f28; ld [%r27+4],%f29
2486: set _Half,%r27
2487: ld [%r27],%f26; ld [%r27+4],%f27
2488: fsubd %f28,%f26,%f28
2489: set _Z,%r27
2490: st %f28,[%r27]; st %f29,[%r27+4]
2491: ld [%r29],%f28; ld [%r29+4],%f29
2492: fsubd %f28,%f26,%f28
2493: ld [%r27],%f26; ld [%r27+4],%f27
2494: fsubd %f28,%f26,%f28
2495: st %f28,[%r29]; st %f29,[%r29+4]
2496: ld [%r28],%f28; ld [%r28+4],%f29
2497: fsubd %f28,%f30,%f30
2498: st %f30,[%r28]; st %f31,[%r28+4]
2499: ld [%r29],%f30; ld [%r29+4],%f31
2500: set _Zero,%r29
2501: ld [%r29],%f28; ld [%r29+4],%f29
2502: fcmped %f30,%f28; nop; fbne L279; nop
2503: ld [%r28],%f30; ld [%r28+4],%f31
2504: fcmped %f30,%f28; nop; fbne L279; nop
2505: set 2,%r29
2506: set _RAddSub,%r28
2507: st %r29,[%r28]
2508: set L281,%r8
2509: call _printf; nop
2510: L279:
2511: set _GAddSub,%r29
2512: ld [%r29],%r29
2513: cmp %r29,1; bne L282; nop
2514: set _Half,%r29
2515: ld [%r29],%f30; ld [%r29+4],%f31
2516: set _U2,%r29
2517: ld [%r29],%f28; ld [%r29+4],%f29
2518: faddd %f30,%f28,%f26
2519: fmuld %f26,%f28,%f26
2520: set _X,%r29
2521: st %f26,[%r29]; st %f27,[%r29+4]
2522: fsubd %f30,%f28,%f30
2523: fmuld %f30,%f28,%f30
2524: set _Y,%r28
2525: st %f30,[%r28]; st %f31,[%r28+4]
2526: set _One,%r27
2527: ld [%r27],%f30; ld [%r27+4],%f31
2528: ld [%r29],%f26; ld [%r29+4],%f27
2529: faddd %f30,%f26,%f26
2530: st %f26,[%r29]; st %f27,[%r29+4]
2531: ld [%r28],%f26; ld [%r28+4],%f27
2532: faddd %f30,%f26,%f26
2533: st %f26,[%r28]; st %f27,[%r28+4]
2534: faddd %f30,%f28,%f28
2535: ld [%r29],%f26; ld [%r29+4],%f27
2536: fsubd %f28,%f26,%f28
2537: st %f28,[%r29]; st %f29,[%r29+4]
2538: ld [%r28],%f28; ld [%r28+4],%f29
2539: fsubd %f30,%f28,%f30
2540: st %f30,[%r28]; st %f31,[%r28+4]
2541: ld [%r29],%f30; ld [%r29+4],%f31
2542: set _Zero,%r29
2543: ld [%r29],%f28; ld [%r29+4],%f29
2544: fcmped %f30,%f28; nop; fbne L284; nop
2545: ld [%r28],%f30; ld [%r28+4],%f31
2546: fcmped %f30,%f28; nop; fbne L284; nop
2547: set _Half,%r29
2548: ld [%r29],%f30; ld [%r29+4],%f31
2549: set _U2,%r29
2550: ld [%r29],%f28; ld [%r29+4],%f29
2551: faddd %f30,%f28,%f26
2552: set _U1,%r29
2553: ld [%r29],%f24; ld [%r29+4],%f25
2554: fmuld %f26,%f24,%f26
2555: set _X,%r29
2556: st %f26,[%r29]; st %f27,[%r29+4]
2557: fsubd %f30,%f28,%f30
2558: fmuld %f30,%f24,%f30
2559: set _Y,%r28
2560: st %f30,[%r28]; st %f31,[%r28+4]
2561: set _One,%r27
2562: ld [%r27],%f30; ld [%r27+4],%f31
2563: ld [%r29],%f28; ld [%r29+4],%f29
2564: fsubd %f30,%f28,%f28
2565: st %f28,[%r29]; st %f29,[%r29+4]
2566: ld [%r28],%f28; ld [%r28+4],%f29
2567: fsubd %f30,%f28,%f28
2568: st %f28,[%r28]; st %f29,[%r28+4]
2569: set _F9,%r27
2570: ld [%r27],%f28; ld [%r27+4],%f29
2571: ld [%r29],%f26; ld [%r29+4],%f27
2572: fsubd %f28,%f26,%f28
2573: st %f28,[%r29]; st %f29,[%r29+4]
2574: ld [%r28],%f28; ld [%r28+4],%f29
2575: fsubd %f30,%f28,%f30
2576: st %f30,[%r28]; st %f31,[%r28+4]
2577: ld [%r29],%f30; ld [%r29+4],%f31
2578: set _Zero,%r29
2579: ld [%r29],%f28; ld [%r29+4],%f29
2580: fcmped %f30,%f28; nop; fbne L286; nop
2581: ld [%r28],%f30; ld [%r28+4],%f31
2582: fcmped %f30,%f28; nop; fbne L286; nop
2583: set 1,%r29
2584: set _RAddSub,%r28
2585: st %r29,[%r28]
2586: set L288,%r8
2587: call _printf; nop
2588: set _GAddSub,%r29
2589: ld [%r29],%r29
2590: cmp %r29,%r0; bne L283; nop
2591: set L291,%r8
2592: call _notify; nop
2593: ba L283; nop
2594: L286:
2595: set L292,%r8
2596: call _printf; nop
2597: ba L283; nop
2598: L284:
2599: set L292,%r8
2600: call _printf; nop
2601: ba L283; nop
2602: L282:
2603: set L292,%r8
2604: call _printf; nop
2605: L283:
2606: set _One,%r29
2607: ld [%r29],%f30; ld [%r29+4],%f31
2608: set _S,%r29
2609: st %f30,[%r29]; st %f31,[%r29+4]
2610: set _Half,%r29
2611: ld [%r29],%f28; ld [%r29+4],%f29
2612: faddd %f30,%f28,%f26
2613: fmuld %f28,%f26,%f26
2614: faddd %f30,%f26,%f26
2615: set _X,%r29
2616: st %f26,[%r29]; st %f27,[%r29+4]
2617: set _U2,%r28
2618: ld [%r28],%f26; ld [%r28+4],%f27
2619: faddd %f30,%f26,%f30
2620: fmuld %f30,%f28,%f30
2621: set _Y,%r28
2622: st %f30,[%r28]; st %f31,[%r28+4]
2623: ld [%r29],%f30; ld [%r29+4],%f31
2624: ld [%r28],%f28; ld [%r28+4],%f29
2625: fsubd %f30,%f28,%f26
2626: set _Z,%r29
2627: st %f26,[%r29]; st %f27,[%r29+4]
2628: fsubd %f28,%f30,%f30
2629: set _T,%r28
2630: st %f30,[%r28]; st %f31,[%r28+4]
2631: ld [%r29],%f30; ld [%r29+4],%f31
2632: ld [%r28],%f28; ld [%r28+4],%f29
2633: faddd %f30,%f28,%f30
2634: set _StickyBit,%r29
2635: st %f30,[%r29]; st %f31,[%r29+4]
2636: ld [%r29],%f30; ld [%r29+4],%f31
2637: set _Zero,%r29
2638: ld [%r29],%f28; ld [%r29+4],%f29
2639: fcmped %f30,%f28; nop; fbue L293; nop
2640: set _Zero,%r29
2641: ld [%r29],%f30; ld [%r29+4],%f31
2642: set _S,%r29
2643: st %f30,[%r29]; st %f31,[%r29+4]
2644: set 3,%r8
2645: set L295,%r9
2646: call _BadCond; nop
2647: L293:
2648: set _Zero,%r29
2649: ld [%r29],%f30; ld [%r29+4],%f31
2650: set _StickyBit,%r29
2651: st %f30,[%r29]; st %f31,[%r29+4]
2652: set _GMult,%r29
2653: ld [%r29],%r29
2654: cmp %r29,1; bne L296; nop
2655: set _GDiv,%r29
2656: ld [%r29],%r29
2657: cmp %r29,1; bne L296; nop
2658: set _GAddSub,%r29
2659: ld [%r29],%r29
2660: cmp %r29,1; bne L296; nop
2661: set _RMult,%r29
2662: ld [%r29],%r29
2663: cmp %r29,1; bne L296; nop
2664: set _RDiv,%r29
2665: ld [%r29],%r29
2666: cmp %r29,1; bne L296; nop
2667: set _RAddSub,%r29
2668: ld [%r29],%r29
2669: cmp %r29,1; bne L296; nop
2670: set _RadixD2,%r29
2671: ld [%r29],%f30; ld [%r29+4],%f31
2672: st %f30,[%sp+4*0+68]
2673: st %f31,[%sp+4*1+68]
2674: ld [%sp+4*0+68],%o0
2675: ld [%sp+4*1+68],%o1
2676: call _floor; nop
2677: set _RadixD2,%r29
2678: ld [%r29],%f30; ld [%r29+4],%f31
2679: fcmped %f0,%f30; nop; fbne L296; nop
2680: set L298,%r8
2681: call _printf; nop
2682: set _Half,%r29
2683: ld [%r29],%f30; ld [%r29+4],%f31
2684: set _U1,%r29
2685: ld [%r29],%f28; ld [%r29+4],%f29
2686: faddd %f30,%f28,%f28
2687: set _U2,%r29
2688: ld [%r29],%f26; ld [%r29+4],%f27
2689: fmuld %f28,%f26,%f28
2690: set _X,%r29
2691: st %f28,[%r29]; st %f29,[%r29+4]
2692: fmuld %f30,%f26,%f30
2693: set _Y,%r28
2694: st %f30,[%r28]; st %f31,[%r28+4]
2695: set _One,%r27
2696: ld [%r27],%f30; ld [%r27+4],%f31
2697: ld [%r28],%f28; ld [%r28+4],%f29
2698: faddd %f30,%f28,%f28
2699: set _Z,%r28
2700: st %f28,[%r28]; st %f29,[%r28+4]
2701: ld [%r29],%f28; ld [%r29+4],%f29
2702: faddd %f30,%f28,%f28
2703: set _T,%r29
2704: st %f28,[%r29]; st %f29,[%r29+4]
2705: ld [%r28],%f28; ld [%r28+4],%f29
2706: fsubd %f28,%f30,%f28
2707: set _Zero,%r28
2708: ld [%r28],%f24; ld [%r28+4],%f25
2709: fcmped %f28,%f24; nop; fbug L299; nop
2710: ld [%r29],%f28; ld [%r29+4],%f29
2711: fsubd %f28,%f30,%f30
2712: fcmped %f30,%f26; nop; fbul L299; nop
2713: set _T,%r29
2714: ld [%r29],%f30; ld [%r29+4],%f31
2715: set _Y,%r29
2716: ld [%r29],%f28; ld [%r29+4],%f29
2717: faddd %f30,%f28,%f28
2718: set _Z,%r28
2719: st %f28,[%r28]; st %f29,[%r28+4]
2720: ld [%r28],%f28; ld [%r28+4],%f29
2721: set _X,%r28
2722: ld [%r28],%f26; ld [%r28+4],%f27
2723: fsubd %f28,%f26,%f26
2724: st %f26,[%r29]; st %f27,[%r29+4]
2725: fsubd %f28,%f30,%f28
2726: set _U2,%r28
2727: ld [%r28],%f26; ld [%r28+4],%f27
2728: fcmped %f28,%f26; nop; fbul L301; nop
2729: ld [%r29],%f28; ld [%r29+4],%f29
2730: fsubd %f28,%f30,%f30
2731: set _Zero,%r29
2732: ld [%r29],%f28; ld [%r29+4],%f29
2733: fcmped %f30,%f28; nop; fbne L301; nop
2734: set _Half,%r29
2735: ld [%r29],%f30; ld [%r29+4],%f31
2736: set _U1,%r29
2737: ld [%r29],%f28; ld [%r29+4],%f29
2738: faddd %f30,%f28,%f26
2739: fmuld %f26,%f28,%f26
2740: set _X,%r29
2741: st %f26,[%r29]; st %f27,[%r29+4]
2742: fmuld %f30,%f28,%f30
2743: set _Y,%r28
2744: st %f30,[%r28]; st %f31,[%r28+4]
2745: set _One,%r27
2746: ld [%r27],%f30; ld [%r27+4],%f31
2747: ld [%r28],%f28; ld [%r28+4],%f29
2748: fsubd %f30,%f28,%f28
2749: set _Z,%r28
2750: st %f28,[%r28]; st %f29,[%r28+4]
2751: ld [%r29],%f28; ld [%r29+4],%f29
2752: fsubd %f30,%f28,%f28
2753: set _T,%r29
2754: st %f28,[%r29]; st %f29,[%r29+4]
2755: ld [%r28],%f28; ld [%r28+4],%f29
2756: fsubd %f28,%f30,%f30
2757: set _Zero,%r28
2758: ld [%r28],%f28; ld [%r28+4],%f29
2759: fcmped %f30,%f28; nop; fbne L303; nop
2760: ld [%r29],%f30; ld [%r29+4],%f31
2761: set _F9,%r29
2762: ld [%r29],%f26; ld [%r29+4],%f27
2763: fsubd %f30,%f26,%f30
2764: fcmped %f30,%f28; nop; fbne L303; nop
2765: set _Half,%r29
2766: ld [%r29],%f30; ld [%r29+4],%f31
2767: set _U1,%r29
2768: ld [%r29],%f28; ld [%r29+4],%f29
2769: fsubd %f30,%f28,%f30
2770: fmuld %f30,%f28,%f30
2771: set _Z,%r29
2772: st %f30,[%r29]; st %f31,[%r29+4]
2773: set _F9,%r28
2774: ld [%r28],%f30; ld [%r28+4],%f31
2775: ld [%r29],%f26; ld [%r29+4],%f27
2776: fsubd %f30,%f26,%f26
2777: set _T,%r29
2778: st %f26,[%r29]; st %f27,[%r29+4]
2779: set _Y,%r28
2780: ld [%r28],%f26; ld [%r28+4],%f27
2781: fsubd %f30,%f26,%f26
2782: set _Q,%r28
2783: st %f26,[%r28]; st %f27,[%r28+4]
2784: ld [%r29],%f26; ld [%r29+4],%f27
2785: fsubd %f26,%f30,%f26
2786: set _Zero,%r29
2787: ld [%r29],%f24; ld [%r29+4],%f25
2788: fcmped %f26,%f24; nop; fbne L305; nop
2789: fsubd %f30,%f28,%f30
2790: ld [%r28],%f28; ld [%r28+4],%f29
2791: fsubd %f30,%f28,%f30
2792: fcmped %f30,%f24; nop; fbne L305; nop
2793: set _One,%r29
2794: ld [%r29],%f30; ld [%r29+4],%f31
2795: set _U2,%r29
2796: ld [%r29],%f28; ld [%r29+4],%f29
2797: faddd %f30,%f28,%f26
2798: set _OneAndHalf,%r29
2799: ld [%r29],%f24; ld [%r29+4],%f25
2800: fmuld %f26,%f24,%f26
2801: set _Z,%r29
2802: st %f26,[%r29]; st %f27,[%r29+4]
2803: faddd %f24,%f28,%f26
2804: ld [%r29],%f24; ld [%r29+4],%f25
2805: fsubd %f26,%f24,%f26
2806: faddd %f26,%f28,%f26
2807: set _T,%r28
2808: st %f26,[%r28]; st %f27,[%r28+4]
2809: set _Half,%r27
2810: ld [%r27],%f26; ld [%r27+4],%f27
2811: set _Radix,%r27
2812: ld [%r27],%f24; ld [%r27+4],%f25
2813: fdivd %f26,%f24,%f26
2814: faddd %f30,%f26,%f26
2815: set _X,%r27
2816: st %f26,[%r27]; st %f27,[%r27+4]
2817: fmuld %f24,%f28,%f28
2818: faddd %f30,%f28,%f30
2819: set _Y,%r26
2820: st %f30,[%r26]; st %f31,[%r26+4]
2821: ld [%r27],%f30; ld [%r27+4],%f31
2822: ld [%r26],%f26; ld [%r26+4],%f27
2823: fmuld %f30,%f26,%f26
2824: st %f26,[%r29]; st %f27,[%r29+4]
2825: ld [%r28],%f26; ld [%r28+4],%f27
2826: set _Zero,%r28
2827: ld [%r28],%f24; ld [%r28+4],%f25
2828: fcmped %f26,%f24; nop; fbne L307; nop
2829: faddd %f30,%f28,%f30
2830: ld [%r29],%f28; ld [%r29+4],%f29
2831: fsubd %f30,%f28,%f30
2832: fcmped %f30,%f24; nop; fbne L307; nop
2833: set _Radix,%r29
2834: ld [%r29],%f30; ld [%r29+4],%f31
2835: set _Two,%r29
2836: ld [%r29],%f28; ld [%r29+4],%f29
2837: fcmped %f30,%f28; nop; fbue L309; nop
2838: set _Two,%r29
2839: ld [%r29],%f30; ld [%r29+4],%f31
2840: set _U2,%r29
2841: ld [%r29],%f28; ld [%r29+4],%f29
2842: faddd %f30,%f28,%f28
2843: set _X,%r29
2844: st %f28,[%r29]; st %f29,[%r29+4]
2845: ld [%r29],%f28; ld [%r29+4],%f29
2846: fdivd %f28,%f30,%f30
2847: set _Y,%r29
2848: st %f30,[%r29]; st %f31,[%r29+4]
2849: ld [%r29],%f30; ld [%r29+4],%f31
2850: set _One,%r29
2851: ld [%r29],%f28; ld [%r29+4],%f29
2852: fsubd %f30,%f28,%f30
2853: set _Zero,%r29
2854: ld [%r29],%f28; ld [%r29+4],%f29
2855: fcmped %f30,%f28; nop; fbne L310; nop
2856: set _S,%r29
2857: ld [%r29],%f30; ld [%r29+4],%f31
2858: set _StickyBit,%r29
2859: st %f30,[%r29]; st %f31,[%r29+4]
2860: ba L310; nop
2861: L309:
2862: set _S,%r29
2863: ld [%r29],%f30; ld [%r29+4],%f31
2864: set _StickyBit,%r29
2865: st %f30,[%r29]; st %f31,[%r29+4]
2866: L310:
2867: L307:
2868: L305:
2869: L303:
2870: L301:
2871: L299:
2872: L296:
2873: set _StickyBit,%r29
2874: ld [%r29],%f30; ld [%r29+4],%f31
2875: set _One,%r29
2876: ld [%r29],%f28; ld [%r29+4],%f29
2877: fcmped %f30,%f28; nop; fbne L313; nop
2878: set L315,%r8
2879: call _printf; nop
2880: ba L314; nop
2881: L313:
2882: set L316,%r8
2883: call _printf; nop
2884: L314:
2885: set 3,%r8
2886: set _GMult,%r28
2887: ld [%r28],%r28
2888: cmp %r28,%r0; be L319; nop
2889: set _GDiv,%r28
2890: ld [%r28],%r28
2891: cmp %r28,%r0; be L319; nop
2892: set _GAddSub,%r28
2893: ld [%r28],%r28
2894: cmp %r28,%r0; be L319; nop
2895: set _RMult,%r28
2896: ld [%r28],%r28
2897: cmp %r28,%r0; be L319; nop
2898: set _RDiv,%r28
2899: ld [%r28],%r28
2900: cmp %r28,%r0; be L319; nop
2901: set _RAddSub,%r28
2902: ld [%r28],%r28
2903: cmp %r28,%r0; be L319; nop
2904: set 1,%r29
2905: ba L320; nop
2906: L319:
2907: mov %r0,%r29
2908: L320:
2909: mov %r29,%r9
2910: set L318,%r10
2911: call _TstCond; nop
2912: set 60,%r29
2913: set _Milestone,%r28
2914: st %r29,[%r28]
2915: set L44,%r8
2916: call _printf; nop
2917: set L321,%r8
2918: call _printf; nop
2919: set L322,%r8
2920: set _NoTrials,%r29
2921: ld [%r29],%r9
2922: call _printf; nop
2923: set L323,%r29
2924: ld [%r29],%f30; ld [%r29+4],%f31
2925: st %f30,[%sp+4*0+68]
2926: st %f31,[%sp+4*1+68]
2927: ld [%sp+4*0+68],%o0
2928: ld [%sp+4*1+68],%o1
2929: call _sqrt; nop
2930: set _Random9,%r29
2931: st %f0,[%r29]; st %f1,[%r29+4]
2932: set _Third,%r29
2933: ld [%r29],%f30; ld [%r29+4],%f31
2934: set _Random1,%r29
2935: st %f30,[%r29]; st %f31,[%r29+4]
2936: set 1,%r29
2937: set _I,%r28
2938: st %r29,[%r28]
2939: L324:
2940: call _Random; nop
2941: set _X,%r29
2942: st %f0,[%r29]; st %f1,[%r29+4]
2943: call _Random; nop
2944: set _Y,%r29
2945: st %f0,[%r29]; st %f1,[%r29+4]
2946: set _Y,%r29
2947: ld [%r29],%f30; ld [%r29+4],%f31
2948: set _X,%r29
2949: ld [%r29],%f28; ld [%r29+4],%f29
2950: fmuld %f30,%f28,%f26
2951: set _Z9,%r29
2952: st %f26,[%r29]; st %f27,[%r29+4]
2953: fmuld %f28,%f30,%f30
2954: set _Z,%r28
2955: st %f30,[%r28]; st %f31,[%r28+4]
2956: ld [%r28],%f30; ld [%r28+4],%f31
2957: ld [%r29],%f28; ld [%r29+4],%f29
2958: fsubd %f30,%f28,%f30
2959: st %f30,[%r29]; st %f31,[%r29+4]
2960: set _I,%r29
2961: ld [%r29],%r28
2962: add %r28,1,%r28
2963: st %r28,[%r29]
2964: L325:
2965: set _I,%r29
2966: ld [%r29],%r29
2967: set _NoTrials,%r28
2968: ld [%r28],%r28
2969: cmp %r29,%r28; bg L327; nop
2970: set _Z9,%r29
2971: ld [%r29],%f30; ld [%r29+4],%f31
2972: set _Zero,%r29
2973: ld [%r29],%f28; ld [%r29+4],%f29
2974: fcmped %f30,%f28; nop; fbue L324; nop
2975: L327:
2976: set _I,%r29
2977: ld [%r29],%r29
2978: set _NoTrials,%r28
2979: ld [%r28],%r28
2980: cmp %r29,%r28; bne L328; nop
2981: set _One,%r29
2982: ld [%r29],%f30; ld [%r29+4],%f31
2983: set _Half,%r29
2984: ld [%r29],%f28; ld [%r29+4],%f29
2985: set _Three,%r29
2986: ld [%r29],%f26; ld [%r29+4],%f27
2987: fdivd %f28,%f26,%f28
2988: faddd %f30,%f28,%f28
2989: set _Random1,%r29
2990: st %f28,[%r29]; st %f29,[%r29+4]
2991: set _U2,%r28
2992: ld [%r28],%f26; ld [%r28+4],%f27
2993: set _U1,%r28
2994: ld [%r28],%f24; ld [%r28+4],%f25
2995: faddd %f26,%f24,%f26
2996: faddd %f26,%f30,%f30
2997: set _Random2,%r28
2998: st %f30,[%r28]; st %f31,[%r28+4]
2999: ld [%r29],%f26; ld [%r29+4],%f27
3000: ld [%r28],%f24; ld [%r28+4],%f25
3001: fmuld %f26,%f24,%f22
3002: set _Z,%r29
3003: st %f22,[%r29]; st %f23,[%r29+4]
3004: fmuld %f24,%f26,%f26
3005: set _Y,%r29
3006: st %f26,[%r29]; st %f27,[%r29+4]
3007: fmuld %f28,%f30,%f30
3008: fsubd %f30,%f30,%f30
3009: set _Z9,%r29
3010: st %f30,[%r29]; st %f31,[%r29+4]
3011: L328:
3012: set _I,%r29
3013: ld [%r29],%r29
3014: set _NoTrials,%r28
3015: ld [%r28],%r28
3016: cmp %r29,%r28; be L330; nop
3017: set _Z9,%r29
3018: ld [%r29],%f30; ld [%r29+4],%f31
3019: set _Zero,%r29
3020: ld [%r29],%f28; ld [%r29+4],%f29
3021: fcmped %f30,%f28; nop; fbue L330; nop
3022: set 2,%r8
3023: set L332,%r9
3024: call _BadCond; nop
3025: ba L331; nop
3026: L330:
3027: set L333,%r8
3028: set _NoTrials,%r29
3029: ld [%r29],%r9
3030: call _printf; nop
3031: L331:
3032: set 70,%r29
3033: set _Milestone,%r28
3034: st %r29,[%r28]
3035: set L334,%r8
3036: call _printf; nop
3037: set _Zero,%r28
3038: ld [%r28],%f30; ld [%r28+4],%f31
3039: st %f30,[%fp+-24]; st %f31,[%fp+-24+4]
3040: st %f30,[%sp+4*0+68]
3041: st %f31,[%sp+4*1+68]
3042: ld [%sp+4*0+68],%o0
3043: ld [%sp+4*1+68],%o1
3044: call _sqrt; nop
3045: ld [%fp+-24],%f30; ld [%fp+-24+4],%f31
3046: fcmped %f30,%f0; nop; fbne L337; nop
3047: set _Zero,%r28
3048: ld [%r28],%f30; ld [%r28+4],%f31
3049: fnegs %f30,%f30; fmovs %f31,%f31
3050: st %f30,[%fp+-32]; st %f31,[%fp+-32+4]
3051: st %f30,[%sp+4*0+68]
3052: st %f31,[%sp+4*1+68]
3053: ld [%sp+4*0+68],%o0
3054: ld [%sp+4*1+68],%o1
3055: call _sqrt; nop
3056: ld [%fp+-32],%f30; ld [%fp+-32+4],%f31
3057: fcmped %f30,%f0; nop; fbne L337; nop
3058: set _One,%r28
3059: ld [%r28],%f30; ld [%r28+4],%f31
3060: st %f30,[%fp+-40]; st %f31,[%fp+-40+4]
3061: st %f30,[%sp+4*0+68]
3062: st %f31,[%sp+4*1+68]
3063: ld [%sp+4*0+68],%o0
3064: ld [%sp+4*1+68],%o1
3065: call _sqrt; nop
3066: ld [%fp+-40],%f30; ld [%fp+-40+4],%f31
3067: fcmped %f30,%f0; nop; fbne L337; nop
3068: set 1,%r29
3069: ba L338; nop
3070: L337:
3071: mov %r0,%r29
3072: L338:
3073: mov %r0,%r8
3074: mov %r29,%r9
3075: set L336,%r10
3076: call _TstCond; nop
3077: set _Zero,%r29
3078: ld [%r29],%f30; ld [%r29+4],%f31
3079: set _MinSqEr,%r29
3080: st %f30,[%r29]; st %f31,[%r29+4]
3081: set _MaxSqEr,%r29
3082: st %f30,[%r29]; st %f31,[%r29+4]
3083: set _J,%r29
3084: st %f30,[%r29]; st %f31,[%r29+4]
3085: set _Radix,%r29
3086: ld [%r29],%f30; ld [%r29+4],%f31
3087: set _X,%r29
3088: st %f30,[%r29]; st %f31,[%r29+4]
3089: set _U2,%r29
3090: ld [%r29],%f30; ld [%r29+4],%f31
3091: set _OneUlp,%r29
3092: st %f30,[%r29]; st %f31,[%r29+4]
3093: set 1,%r8
3094: call _SqXMinX; nop
3095: set _BInvrse,%r29
3096: ld [%r29],%f30; ld [%r29+4],%f31
3097: set _X,%r29
3098: st %f30,[%r29]; st %f31,[%r29+4]
3099: set _U1,%r29
3100: ld [%r29],%f28; ld [%r29+4],%f29
3101: fmuld %f30,%f28,%f30
3102: set _OneUlp,%r29
3103: st %f30,[%r29]; st %f31,[%r29+4]
3104: set 1,%r8
3105: call _SqXMinX; nop
3106: set _U1,%r29
3107: ld [%r29],%f30; ld [%r29+4],%f31
3108: set _X,%r29
3109: st %f30,[%r29]; st %f31,[%r29+4]
3110: fmuld %f30,%f30,%f30
3111: set _OneUlp,%r29
3112: st %f30,[%r29]; st %f31,[%r29+4]
3113: set 1,%r8
3114: call _SqXMinX; nop
3115: set _J,%r29
3116: ld [%r29],%f30; ld [%r29+4],%f31
3117: set _Zero,%r29
3118: ld [%r29],%f28; ld [%r29+4],%f29
3119: fcmped %f30,%f28; nop; fbue L339; nop
3120: call _Pause; nop
3121: L339:
3122: set L341,%r8
3123: set _NoTrials,%r29
3124: ld [%r29],%r9
3125: call _printf; nop
3126: set _Zero,%r29
3127: ld [%r29],%f30; ld [%r29+4],%f31
3128: set _J,%r29
3129: st %f30,[%r29]; st %f31,[%r29+4]
3130: set _Two,%r29
3131: ld [%r29],%f30; ld [%r29+4],%f31
3132: set _X,%r29
3133: st %f30,[%r29]; st %f31,[%r29+4]
3134: set _Radix,%r29
3135: ld [%r29],%f30; ld [%r29+4],%f31
3136: set _Y,%r29
3137: st %f30,[%r29]; st %f31,[%r29+4]
3138: set _One,%r29
3139: ld [%r29],%f28; ld [%r29+4],%f29
3140: fcmped %f30,%f28; nop; fbue L342; nop
3141: L344:
3142: set _Y,%r29
3143: ld [%r29],%f30; ld [%r29+4],%f31
3144: set _X,%r28
3145: st %f30,[%r28]; st %f31,[%r28+4]
3146: set _Radix,%r28
3147: ld [%r28],%f28; ld [%r28+4],%f29
3148: fmuld %f28,%f30,%f30
3149: st %f30,[%r29]; st %f31,[%r29+4]
3150: L345:
3151: set _Y,%r29
3152: ld [%r29],%f30; ld [%r29+4],%f31
3153: set _X,%r29
3154: ld [%r29],%f28; ld [%r29+4],%f29
3155: fsubd %f30,%f28,%f30
3156: set _NoTrials,%r29
3157: ld [%r29],%r29
3158: st %r29,[%sp+64]; ld [%sp+64],%f28; fitod %f28,%f28
3159: fcmped %f30,%f28; nop; fbul L344; nop
3160: L342:
3161: set _X,%r29
3162: ld [%r29],%f30; ld [%r29+4],%f31
3163: set _U2,%r29
3164: ld [%r29],%f28; ld [%r29+4],%f29
3165: fmuld %f30,%f28,%f30
3166: set _OneUlp,%r29
3167: st %f30,[%r29]; st %f31,[%r29+4]
3168: set 1,%r29
3169: set _I,%r28
3170: st %r29,[%r28]
3171: ba L348; nop
3172: L347:
3173: set _X,%r29
3174: ld [%r29],%f30; ld [%r29+4],%f31
3175: set _One,%r28
3176: ld [%r28],%f28; ld [%r28+4],%f29
3177: faddd %f30,%f28,%f30
3178: st %f30,[%r29]; st %f31,[%r29+4]
3179: set 2,%r8
3180: call _SqXMinX; nop
3181: set _J,%r29
3182: ld [%r29],%f30; ld [%r29+4],%f31
3183: set _Zero,%r29
3184: ld [%r29],%f28; ld [%r29+4],%f29
3185: fcmped %f30,%f28; nop; fbule L350; nop
3186: ba L349; nop
3187: L350:
3188: set _I,%r29
3189: ld [%r29],%r28
3190: add %r28,1,%r28
3191: st %r28,[%r29]
3192: L348:
3193: set _I,%r29
3194: ld [%r29],%r29
3195: set _NoTrials,%r28
3196: ld [%r28],%r28
3197: cmp %r29,%r28; ble L347; nop
3198: L349:
3199: set L352,%r8
3200: call _printf; nop
3201: set -1,%r29
3202: set _I,%r28
3203: st %r29,[%r28]
3204: set _BMinusU2,%r29
3205: ld [%r29],%f30; ld [%r29+4],%f31
3206: set _X,%r29
3207: st %f30,[%r29]; st %f31,[%r29+4]
3208: set _Radix,%r29
3209: ld [%r29],%f30; ld [%r29+4],%f31
3210: set _Y,%r29
3211: st %f30,[%r29]; st %f31,[%r29+4]
3212: set _U2,%r29
3213: ld [%r29],%f28; ld [%r29+4],%f29
3214: fmuld %f30,%f28,%f28
3215: faddd %f30,%f28,%f30
3216: set _Z,%r29
3217: st %f30,[%r29]; st %f31,[%r29+4]
3218: set _NotMonot,%r29
3219: st %r0,[%r29]
3220: set _Monot,%r29
3221: st %r0,[%r29]
3222: ba L354; nop
3223: L353:
3224: set _I,%r29
3225: ld [%r29],%r28
3226: add %r28,1,%r28
3227: st %r28,[%r29]
3228: set _X,%r29
3229: ld [%r29],%f30; ld [%r29+4],%f31
3230: st %f30,[%sp+4*0+68]
3231: st %f31,[%sp+4*1+68]
3232: ld [%sp+4*0+68],%o0
3233: ld [%sp+4*1+68],%o1
3234: call _sqrt; nop
3235: st %f0,[%r29]; st %f1,[%r29+4]
3236: set _Y,%r29
3237: ld [%r29],%f30; ld [%r29+4],%f31
3238: st %f30,[%sp+4*0+68]
3239: st %f31,[%sp+4*1+68]
3240: ld [%sp+4*0+68],%o0
3241: ld [%sp+4*1+68],%o1
3242: call _sqrt; nop
3243: set _Q,%r29
3244: st %f0,[%r29]; st %f1,[%r29+4]
3245: set _Z,%r29
3246: ld [%r29],%f30; ld [%r29+4],%f31
3247: st %f30,[%sp+4*0+68]
3248: st %f31,[%sp+4*1+68]
3249: ld [%sp+4*0+68],%o0
3250: ld [%sp+4*1+68],%o1
3251: call _sqrt; nop
3252: st %f0,[%r29]; st %f1,[%r29+4]
3253: set _X,%r29
3254: ld [%r29],%f30; ld [%r29+4],%f31
3255: set _Q,%r29
3256: ld [%r29],%f28; ld [%r29+4],%f29
3257: fcmped %f30,%f28; nop; fbug L358; nop
3258: set _Z,%r29
3259: ld [%r29],%f30; ld [%r29+4],%f31
3260: fcmped %f28,%f30; nop; fbule L356; nop
3261: L358:
3262: set 1,%r29
3263: set _NotMonot,%r28
3264: st %r29,[%r28]
3265: ba L357; nop
3266: L356:
3267: set _Q,%r29
3268: ld [%r29],%f30; ld [%r29+4],%f31
3269: set _Half,%r28
3270: ld [%r28],%f28; ld [%r28+4],%f29
3271: faddd %f30,%f28,%f30
3272: st %f30,[%sp+4*0+68]
3273: st %f31,[%sp+4*1+68]
3274: ld [%sp+4*0+68],%o0
3275: ld [%sp+4*1+68],%o1
3276: call _floor; nop
3277: st %f0,[%r29]; st %f1,[%r29+4]
3278: set _I,%r29
3279: ld [%r29],%r29
3280: cmp %r29,%r0; bg L361; nop
3281: set _Radix,%r29
3282: ld [%r29],%f30; ld [%r29+4],%f31
3283: set _Q,%r29
3284: ld [%r29],%f28; ld [%r29+4],%f29
3285: fmuld %f28,%f28,%f28
3286: fcmped %f30,%f28; nop; fbne L359; nop
3287: L361:
3288: set 1,%r29
3289: set _Monot,%r28
3290: st %r29,[%r28]
3291: ba L360; nop
3292: L359:
3293: set _I,%r29
3294: ld [%r29],%r29
3295: cmp %r29,%r0; ble L362; nop
3296: set _I,%r29
3297: ld [%r29],%r29
3298: cmp %r29,1; ble L364; nop
3299: set 1,%r29
3300: set _Monot,%r28
3301: st %r29,[%r28]
3302: ba L363; nop
3303: L364:
3304: set _Y,%r29
3305: ld [%r29],%f30; ld [%r29+4],%f31
3306: set _BInvrse,%r28
3307: ld [%r28],%f28; ld [%r28+4],%f29
3308: fmuld %f30,%f28,%f30
3309: st %f30,[%r29]; st %f31,[%r29+4]
3310: ld [%r29],%f30; ld [%r29+4],%f31
3311: set _U1,%r29
3312: ld [%r29],%f28; ld [%r29+4],%f29
3313: fsubd %f30,%f28,%f26
3314: set _X,%r29
3315: st %f26,[%r29]; st %f27,[%r29+4]
3316: faddd %f30,%f28,%f30
3317: set _Z,%r29
3318: st %f30,[%r29]; st %f31,[%r29+4]
3319: ba L363; nop
3320: L362:
3321: set _Q,%r29
3322: ld [%r29],%f30; ld [%r29+4],%f31
3323: set _Y,%r29
3324: st %f30,[%r29]; st %f31,[%r29+4]
3325: ld [%r29],%f30; ld [%r29+4],%f31
3326: set _U2,%r29
3327: ld [%r29],%f28; ld [%r29+4],%f29
3328: fsubd %f30,%f28,%f26
3329: set _X,%r29
3330: st %f26,[%r29]; st %f27,[%r29+4]
3331: faddd %f30,%f28,%f30
3332: set _Z,%r29
3333: st %f30,[%r29]; st %f31,[%r29+4]
3334: L363:
3335: L360:
3336: L357:
3337: L354:
3338: set _NotMonot,%r29
3339: ld [%r29],%r29
3340: cmp %r29,%r0; bne L366; nop
3341: set _Monot,%r29
3342: ld [%r29],%r29
3343: cmp %r29,%r0; be L353; nop
3344: L366:
3345: set _Monot,%r29
3346: ld [%r29],%r29
3347: cmp %r29,%r0; be L367; nop
3348: set L369,%r8
3349: call _printf; nop
3350: ba L368; nop
3351: L367:
3352: set 2,%r8
3353: set L157,%r9
3354: call _BadCond; nop
3355: set L370,%r8
3356: set _Y,%r29
3357: ld [%r29],%f30; ld [%r29+4],%f31
3358: st %f30,[%sp+4*1+68]
3359: st %f31,[%sp+4*2+68]
3360: ld [%sp+4*1+68],%o1
3361: ld [%sp+4*2+68],%o2
3362: call _printf; nop
3363: L368:
3364: set 80,%r29
3365: set _Milestone,%r28
3366: st %r29,[%r28]
3367: set _MinSqEr,%r29
3368: ld [%r29],%f30; ld [%r29+4],%f31
3369: set _Half,%r28
3370: ld [%r28],%f28; ld [%r28+4],%f29
3371: faddd %f30,%f28,%f30
3372: st %f30,[%r29]; st %f31,[%r29+4]
3373: set _MaxSqEr,%r29
3374: ld [%r29],%f30; ld [%r29+4],%f31
3375: fsubd %f30,%f28,%f30
3376: st %f30,[%r29]; st %f31,[%r29+4]
3377: set _One,%r29
3378: ld [%r29],%f30; ld [%r29+4],%f31
3379: set _U2,%r29
3380: ld [%r29],%f28; ld [%r29+4],%f29
3381: faddd %f30,%f28,%f30
3382: st %f30,[%sp+4*0+68]
3383: st %f31,[%sp+4*1+68]
3384: ld [%sp+4*0+68],%o0
3385: ld [%sp+4*1+68],%o1
3386: call _sqrt; nop
3387: set _One,%r29
3388: ld [%r29],%f30; ld [%r29+4],%f31
3389: fsubd %f0,%f30,%f28
3390: set _U2,%r29
3391: ld [%r29],%f26; ld [%r29+4],%f27
3392: fdivd %f28,%f26,%f28
3393: set _Y,%r29
3394: st %f28,[%r29]; st %f29,[%r29+4]
3395: set _Y,%r29
3396: ld [%r29],%f28; ld [%r29+4],%f29
3397: fsubd %f28,%f30,%f30
3398: set _Eight,%r29
3399: ld [%r29],%f28; ld [%r29+4],%f29
3400: fdivd %f26,%f28,%f28
3401: faddd %f30,%f28,%f30
3402: set _SqEr,%r29
3403: st %f30,[%r29]; st %f31,[%r29+4]
3404: ld [%r29],%f30; ld [%r29+4],%f31
3405: set _MaxSqEr,%r29
3406: ld [%r29],%f28; ld [%r29+4],%f29
3407: fcmped %f30,%f28; nop; fbule L371; nop
3408: set _SqEr,%r29
3409: ld [%r29],%f30; ld [%r29+4],%f31
3410: set _MaxSqEr,%r29
3411: st %f30,[%r29]; st %f31,[%r29+4]
3412: L371:
3413: set _Y,%r29
3414: ld [%r29],%f30; ld [%r29+4],%f31
3415: set _U2,%r29
3416: ld [%r29],%f28; ld [%r29+4],%f29
3417: set _Eight,%r29
3418: ld [%r29],%f26; ld [%r29+4],%f27
3419: fdivd %f28,%f26,%f28
3420: faddd %f30,%f28,%f30
3421: set _SqEr,%r29
3422: st %f30,[%r29]; st %f31,[%r29+4]
3423: ld [%r29],%f30; ld [%r29+4],%f31
3424: set _MinSqEr,%r29
3425: ld [%r29],%f28; ld [%r29+4],%f29
3426: fcmped %f30,%f28; nop; fbuge L373; nop
3427: set _SqEr,%r29
3428: ld [%r29],%f30; ld [%r29+4],%f31
3429: set _MinSqEr,%r29
3430: st %f30,[%r29]; st %f31,[%r29+4]
3431: L373:
3432: set _F9,%r29
3433: ld [%r29],%f30; ld [%r29+4],%f31
3434: st %f30,[%sp+4*0+68]
3435: st %f31,[%sp+4*1+68]
3436: ld [%sp+4*0+68],%o0
3437: ld [%sp+4*1+68],%o1
3438: call _sqrt; nop
3439: set _U2,%r29
3440: ld [%r29],%f30; ld [%r29+4],%f31
3441: fsubd %f0,%f30,%f28
3442: set _One,%r29
3443: ld [%r29],%f26; ld [%r29+4],%f27
3444: fsubd %f26,%f30,%f30
3445: fsubd %f28,%f30,%f30
3446: set _U1,%r29
3447: ld [%r29],%f28; ld [%r29+4],%f29
3448: fdivd %f30,%f28,%f30
3449: set _Y,%r29
3450: st %f30,[%r29]; st %f31,[%r29+4]
3451: set _Y,%r29
3452: ld [%r29],%f30; ld [%r29+4],%f31
3453: set _Eight,%r29
3454: ld [%r29],%f26; ld [%r29+4],%f27
3455: fdivd %f28,%f26,%f28
3456: faddd %f30,%f28,%f30
3457: set _SqEr,%r29
3458: st %f30,[%r29]; st %f31,[%r29+4]
3459: ld [%r29],%f30; ld [%r29+4],%f31
3460: set _MaxSqEr,%r29
3461: ld [%r29],%f28; ld [%r29+4],%f29
3462: fcmped %f30,%f28; nop; fbule L375; nop
3463: set _SqEr,%r29
3464: ld [%r29],%f30; ld [%r29+4],%f31
3465: set _MaxSqEr,%r29
3466: st %f30,[%r29]; st %f31,[%r29+4]
3467: L375:
3468: set _Y,%r29
3469: ld [%r29],%f30; ld [%r29+4],%f31
3470: set _One,%r29
3471: ld [%r29],%f28; ld [%r29+4],%f29
3472: faddd %f30,%f28,%f30
3473: set _U1,%r29
3474: ld [%r29],%f28; ld [%r29+4],%f29
3475: set _Eight,%r29
3476: ld [%r29],%f26; ld [%r29+4],%f27
3477: fdivd %f28,%f26,%f28
3478: faddd %f30,%f28,%f30
3479: set _SqEr,%r29
3480: st %f30,[%r29]; st %f31,[%r29+4]
3481: ld [%r29],%f30; ld [%r29+4],%f31
3482: set _MinSqEr,%r29
3483: ld [%r29],%f28; ld [%r29+4],%f29
3484: fcmped %f30,%f28; nop; fbuge L377; nop
3485: set _SqEr,%r29
3486: ld [%r29],%f30; ld [%r29+4],%f31
3487: set _MinSqEr,%r29
3488: st %f30,[%r29]; st %f31,[%r29+4]
3489: L377:
3490: set _U2,%r29
3491: ld [%r29],%f30; ld [%r29+4],%f31
3492: set _OneUlp,%r29
3493: st %f30,[%r29]; st %f31,[%r29+4]
3494: ld [%r29],%f30; ld [%r29+4],%f31
3495: set _X,%r29
3496: st %f30,[%r29]; st %f31,[%r29+4]
3497: set 1,%r29
3498: set _Indx,%r28
3499: st %r29,[%r28]
3500: L379:
3501: set _X,%r29
3502: ld [%r29],%f30; ld [%r29+4],%f31
3503: set _U1,%r29
3504: ld [%r29],%f28; ld [%r29+4],%f29
3505: faddd %f30,%f28,%f28
3506: faddd %f28,%f30,%f30
3507: set _F9,%r29
3508: ld [%r29],%f28; ld [%r29+4],%f29
3509: faddd %f30,%f28,%f30
3510: st %f30,[%sp+4*0+68]
3511: st %f31,[%sp+4*1+68]
3512: ld [%sp+4*0+68],%o0
3513: ld [%sp+4*1+68],%o1
3514: call _sqrt; nop
3515: set _Y,%r29
3516: st %f0,[%r29]; st %f1,[%r29+4]
3517: set _Y,%r29
3518: ld [%r29],%f30; ld [%r29+4],%f31
3519: set _U2,%r28
3520: ld [%r28],%f28; ld [%r28+4],%f29
3521: fsubd %f30,%f28,%f30
3522: set _One,%r28
3523: ld [%r28],%f26; ld [%r28+4],%f27
3524: fsubd %f26,%f28,%f28
3525: set _X,%r28
3526: ld [%r28],%f26; ld [%r28+4],%f27
3527: faddd %f28,%f26,%f28
3528: fsubd %f30,%f28,%f30
3529: set _OneUlp,%r28
3530: ld [%r28],%f28; ld [%r28+4],%f29
3531: fdivd %f30,%f28,%f30
3532: st %f30,[%r29]; st %f31,[%r29+4]
3533: set _U1,%r28
3534: ld [%r28],%f30; ld [%r28+4],%f31
3535: fsubd %f30,%f26,%f30
3536: set _F9,%r28
3537: ld [%r28],%f24; ld [%r28+4],%f25
3538: faddd %f30,%f24,%f30
3539: set _Half,%r28
3540: ld [%r28],%f24; ld [%r28+4],%f25
3541: fmuld %f30,%f24,%f30
3542: fmuld %f30,%f26,%f30
3543: fmuld %f30,%f26,%f30
3544: fdivd %f30,%f28,%f30
3545: set _Z,%r28
3546: st %f30,[%r28]; st %f31,[%r28+4]
3547: ld [%r29],%f30; ld [%r29+4],%f31
3548: faddd %f30,%f24,%f30
3549: ld [%r28],%f28; ld [%r28+4],%f29
3550: faddd %f30,%f28,%f30
3551: set _SqEr,%r29
3552: st %f30,[%r29]; st %f31,[%r29+4]
3553: ld [%r29],%f30; ld [%r29+4],%f31
3554: set _MinSqEr,%r29
3555: ld [%r29],%f28; ld [%r29+4],%f29
3556: fcmped %f30,%f28; nop; fbuge L383; nop
3557: set _SqEr,%r29
3558: ld [%r29],%f30; ld [%r29+4],%f31
3559: set _MinSqEr,%r29
3560: st %f30,[%r29]; st %f31,[%r29+4]
3561: L383:
3562: set _Y,%r29
3563: ld [%r29],%f30; ld [%r29+4],%f31
3564: set _Half,%r29
3565: ld [%r29],%f28; ld [%r29+4],%f29
3566: fsubd %f30,%f28,%f30
3567: set _Z,%r29
3568: ld [%r29],%f28; ld [%r29+4],%f29
3569: faddd %f30,%f28,%f30
3570: set _SqEr,%r29
3571: st %f30,[%r29]; st %f31,[%r29+4]
3572: ld [%r29],%f30; ld [%r29+4],%f31
3573: set _MaxSqEr,%r29
3574: ld [%r29],%f28; ld [%r29+4],%f29
3575: fcmped %f30,%f28; nop; fbule L385; nop
3576: set _SqEr,%r29
3577: ld [%r29],%f30; ld [%r29+4],%f31
3578: set _MaxSqEr,%r29
3579: st %f30,[%r29]; st %f31,[%r29+4]
3580: L385:
3581: set _Indx,%r29
3582: ld [%r29],%r29
3583: cmp %r29,1; be L389; nop
3584: cmp %r29,3; bne L387; nop
3585: L389:
3586: set _X,%r29
3587: ld [%r29],%f30; ld [%r29+4],%f31
3588: st %f30,[%sp+4*0+68]
3589: st %f31,[%sp+4*1+68]
3590: ld [%sp+4*0+68],%o0
3591: ld [%sp+4*1+68],%o1
3592: call _Sign; nop
3593: st %f0,[%fp+-48]; st %f1,[%fp+-48+4]
3594: set _OneUlp,%r28
3595: ld [%r28],%f30; ld [%r28+4],%f31
3596: st %f30,[%sp+4*0+68]
3597: st %f31,[%sp+4*1+68]
3598: ld [%sp+4*0+68],%o0
3599: ld [%sp+4*1+68],%o1
3600: call _sqrt; nop
3601: set _Eight,%r28
3602: ld [%r28],%f30; ld [%r28+4],%f31
3603: set _Nine,%r28
3604: ld [%r28],%f28; ld [%r28+4],%f29
3605: fmuld %f28,%f0,%f28
3606: fdivd %f30,%f28,%f30
3607: st %f30,[%sp+4*0+68]
3608: st %f31,[%sp+4*1+68]
3609: ld [%sp+4*0+68],%o0
3610: ld [%sp+4*1+68],%o1
3611: call _floor; nop
3612: set _OneUlp,%r28
3613: ld [%r28],%f30; ld [%r28+4],%f31
3614: ld [%fp+-48],%f28; ld [%fp+-48+4],%f29
3615: fmuld %f30,%f28,%f30
3616: fmuld %f30,%f0,%f30
3617: st %f30,[%r29]; st %f31,[%r29+4]
3618: ba L388; nop
3619: L387:
3620: set _U1,%r29
3621: ld [%r29],%f30; ld [%r29+4],%f31
3622: set _OneUlp,%r29
3623: st %f30,[%r29]; st %f31,[%r29+4]
3624: ld [%r29],%f30; ld [%r29+4],%f31
3625: fnegs %f30,%f30; fmovs %f31,%f31
3626: set _X,%r29
3627: st %f30,[%r29]; st %f31,[%r29+4]
3628: L388:
3629: L380:
3630: set _Indx,%r29
3631: ld [%r29],%r28
3632: add %r28,1,%r28
3633: st %r28,[%r29]
3634: set _Indx,%r29
3635: ld [%r29],%r29
3636: cmp %r29,3; ble L379; nop
3637: set 85,%r29
3638: set _Milestone,%r28
3639: st %r29,[%r28]
3640: set _SqRWrng,%r29
3641: st %r0,[%r29]
3642: set _Anomaly,%r29
3643: st %r0,[%r29]
3644: set _RSqrt,%r29
3645: st %r0,[%r29]
3646: set _Radix,%r29
3647: ld [%r29],%f30; ld [%r29+4],%f31
3648: set _One,%r29
3649: ld [%r29],%f28; ld [%r29+4],%f29
3650: fcmped %f30,%f28; nop; fbue L390; nop
3651: set L392,%r8
3652: call _printf; nop
3653: set _Precision,%r29
3654: ld [%r29],%f30; ld [%r29+4],%f31
3655: st %f30,[%fp+-48]; st %f31,[%fp+-48+4]
3656: st %f30,[%sp+4*0+68]
3657: st %f31,[%sp+4*1+68]
3658: ld [%sp+4*0+68],%o0
3659: ld [%sp+4*1+68],%o1
3660: call _floor; nop
3661: set _Radix,%r29
3662: ld [%r29],%f30; ld [%r29+4],%f31
3663: st %f30,[%sp+4*0+68]
3664: st %f31,[%sp+4*1+68]
3665: ld [%sp+4*0+68],%o0
3666: ld [%sp+4*1+68],%o1
3667: set _One,%r29
3668: ld [%r29],%f30; ld [%r29+4],%f31
3669: ld [%fp+-48],%f28; ld [%fp+-48+4],%f29
3670: faddd %f30,%f28,%f30
3671: fsubd %f30,%f0,%f30
3672: st %f30,[%sp+4*2+68]
3673: st %f31,[%sp+4*3+68]
3674: ld [%sp+4*2+68],%o2
3675: ld [%sp+4*3+68],%o3
3676: call _pow; nop
3677: set _Half,%r29
3678: ld [%r29],%f30; ld [%r29+4],%f31
3679: faddd %f30,%f0,%f30
3680: st %f30,[%sp+4*0+68]
3681: st %f31,[%sp+4*1+68]
3682: ld [%sp+4*0+68],%o0
3683: ld [%sp+4*1+68],%o1
3684: call _floor; nop
3685: set _D,%r29
3686: st %f0,[%r29]; st %f1,[%r29+4]
3687: set _D,%r29
3688: ld [%r29],%f30; ld [%r29+4],%f31
3689: set _Radix,%r29
3690: ld [%r29],%f28; ld [%r29+4],%f29
3691: fdivd %f30,%f28,%f28
3692: set _X,%r29
3693: st %f28,[%r29]; st %f29,[%r29+4]
3694: set _A1,%r28
3695: ld [%r28],%f28; ld [%r28+4],%f29
3696: fdivd %f30,%f28,%f30
3697: set _Y,%r28
3698: st %f30,[%r28]; st %f31,[%r28+4]
3699: ld [%r29],%f30; ld [%r29+4],%f31
3700: st %f30,[%fp+-56]; st %f31,[%fp+-56+4]
3701: st %f30,[%sp+4*0+68]
3702: st %f31,[%sp+4*1+68]
3703: ld [%sp+4*0+68],%o0
3704: ld [%sp+4*1+68],%o1
3705: call _floor; nop
3706: ld [%fp+-56],%f30; ld [%fp+-56+4],%f31
3707: fcmped %f30,%f0; nop; fbne L395; nop
3708: set _Y,%r29
3709: ld [%r29],%f30; ld [%r29+4],%f31
3710: st %f30,[%fp+-64]; st %f31,[%fp+-64+4]
3711: st %f30,[%sp+4*0+68]
3712: st %f31,[%sp+4*1+68]
3713: ld [%sp+4*0+68],%o0
3714: ld [%sp+4*1+68],%o1
3715: call _floor; nop
3716: ld [%fp+-64],%f30; ld [%fp+-64+4],%f31
3717: fcmped %f30,%f0; nop; fbue L393; nop
3718: L395:
3719: set 1,%r29
3720: set _Anomaly,%r28
3721: st %r29,[%r28]
3722: ba L394; nop
3723: L393:
3724: set _Zero,%r29
3725: ld [%r29],%f30; ld [%r29+4],%f31
3726: set _X,%r29
3727: st %f30,[%r29]; st %f31,[%r29+4]
3728: ld [%r29],%f30; ld [%r29+4],%f31
3729: set _Z2,%r29
3730: st %f30,[%r29]; st %f31,[%r29+4]
3731: set _One,%r29
3732: ld [%r29],%f30; ld [%r29+4],%f31
3733: set _Y,%r29
3734: st %f30,[%r29]; st %f31,[%r29+4]
3735: ld [%r29],%f28; ld [%r29+4],%f29
3736: set _Y2,%r29
3737: st %f28,[%r29]; st %f29,[%r29+4]
3738: set _Radix,%r29
3739: ld [%r29],%f28; ld [%r29+4],%f29
3740: fsubd %f28,%f30,%f30
3741: set _Z1,%r29
3742: st %f30,[%r29]; st %f31,[%r29+4]
3743: set _Four,%r29
3744: ld [%r29],%f30; ld [%r29+4],%f31
3745: set _D,%r29
3746: ld [%r29],%f28; ld [%r29+4],%f29
3747: fmuld %f30,%f28,%f30
3748: set _FourD,%r29
3749: st %f30,[%r29]; st %f31,[%r29+4]
3750: L396:
3751: set _Y2,%r29
3752: ld [%r29],%f30; ld [%r29+4],%f31
3753: set _Z2,%r29
3754: ld [%r29],%f28; ld [%r29+4],%f29
3755: fcmped %f30,%f28; nop; fbule L399; nop
3756: set _Radix,%r29
3757: ld [%r29],%f30; ld [%r29+4],%f31
3758: set _Q,%r29
3759: st %f30,[%r29]; st %f31,[%r29+4]
3760: set _Y,%r29
3761: ld [%r29],%f30; ld [%r29+4],%f31
3762: set _Y1,%r29
3763: st %f30,[%r29]; st %f31,[%r29+4]
3764: L401:
3765: set _Half,%r29
3766: ld [%r29],%f30; ld [%r29+4],%f31
3767: set _Q,%r29
3768: ld [%r29],%f28; ld [%r29+4],%f29
3769: st %f28,[%fp+-72]; st %f29,[%fp+-72+4]
3770: set _Y1,%r29
3771: ld [%r29],%f26; ld [%r29+4],%f27
3772: fdivd %f28,%f26,%f26
3773: fsubd %f30,%f26,%f30
3774: st %f30,[%sp+4*0+68]
3775: st %f31,[%sp+4*1+68]
3776: ld [%sp+4*0+68],%o0
3777: ld [%sp+4*1+68],%o1
3778: call _floor; nop
3779: set _Y1,%r29
3780: ld [%r29],%f30; ld [%r29+4],%f31
3781: fmuld %f0,%f30,%f30
3782: ld [%fp+-72],%f28; ld [%fp+-72+4],%f29
3783: faddd %f28,%f30,%f30
3784: st %f30,[%sp+4*0+68]
3785: st %f31,[%sp+4*1+68]
3786: ld [%sp+4*0+68],%o0
3787: ld [%sp+4*1+68],%o1
3788: call _fabs; nop
3789: set _X1,%r29
3790: st %f0,[%r29]; st %f1,[%r29+4]
3791: set _Y1,%r29
3792: ld [%r29],%f30; ld [%r29+4],%f31
3793: set _Q,%r28
3794: st %f30,[%r28]; st %f31,[%r28+4]
3795: set _X1,%r28
3796: ld [%r28],%f30; ld [%r28+4],%f31
3797: st %f30,[%r29]; st %f31,[%r29+4]
3798: L402:
3799: set _X1,%r29
3800: ld [%r29],%f30; ld [%r29+4],%f31
3801: set _Zero,%r29
3802: ld [%r29],%f28; ld [%r29+4],%f29
3803: fcmped %f30,%f28; nop; fbug L401; nop
3804: set _Q,%r29
3805: ld [%r29],%f30; ld [%r29+4],%f31
3806: set _One,%r29
3807: ld [%r29],%f28; ld [%r29+4],%f29
3808: fcmped %f30,%f28; nop; fbug L404; nop
3809: set _Y2,%r29
3810: ld [%r29],%f30; ld [%r29+4],%f31
3811: set _Z2,%r29
3812: st %f30,[%r29]; st %f31,[%r29+4]
3813: set _Y,%r29
3814: ld [%r29],%f30; ld [%r29+4],%f31
3815: set _Z,%r29
3816: st %f30,[%r29]; st %f31,[%r29+4]
3817: L404:
3818: L399:
3819: set _Y,%r29
3820: ld [%r29],%f30; ld [%r29+4],%f31
3821: set _Two,%r28
3822: ld [%r28],%f28; ld [%r28+4],%f29
3823: faddd %f30,%f28,%f30
3824: st %f30,[%r29]; st %f31,[%r29+4]
3825: set _X,%r29
3826: ld [%r29],%f30; ld [%r29+4],%f31
3827: set _Eight,%r28
3828: ld [%r28],%f28; ld [%r28+4],%f29
3829: faddd %f30,%f28,%f30
3830: st %f30,[%r29]; st %f31,[%r29+4]
3831: set _Y2,%r28
3832: ld [%r28],%f30; ld [%r28+4],%f31
3833: ld [%r29],%f28; ld [%r29+4],%f29
3834: faddd %f30,%f28,%f30
3835: st %f30,[%r28]; st %f31,[%r28+4]
3836: ld [%r28],%f30; ld [%r28+4],%f31
3837: set _FourD,%r29
3838: ld [%r29],%f28; ld [%r29+4],%f29
3839: fcmped %f30,%f28; nop; fbul L406; nop
3840: set _Y2,%r29
3841: ld [%r29],%f30; ld [%r29+4],%f31
3842: set _FourD,%r28
3843: ld [%r28],%f28; ld [%r28+4],%f29
3844: fsubd %f30,%f28,%f30
3845: st %f30,[%r29]; st %f31,[%r29+4]
3846: L406:
3847: L397:
3848: set _Y,%r29
3849: ld [%r29],%f30; ld [%r29+4],%f31
3850: set _D,%r29
3851: ld [%r29],%f28; ld [%r29+4],%f29
3852: fcmped %f30,%f28; nop; fbul L396; nop
3853: set _FourD,%r29
3854: ld [%r29],%f30; ld [%r29+4],%f31
3855: set _Z2,%r29
3856: ld [%r29],%f28; ld [%r29+4],%f29
3857: fsubd %f30,%f28,%f28
3858: set _X8,%r29
3859: st %f28,[%r29]; st %f29,[%r29+4]
3860: ld [%r29],%f28; ld [%r29+4],%f29
3861: set _Z,%r28
3862: ld [%r28],%f26; ld [%r28+4],%f27
3863: fmuld %f26,%f26,%f26
3864: faddd %f28,%f26,%f26
3865: fdivd %f26,%f30,%f30
3866: set _Q,%r28
3867: st %f30,[%r28]; st %f31,[%r28+4]
3868: set _Eight,%r27
3869: ld [%r27],%f30; ld [%r27+4],%f31
3870: fdivd %f28,%f30,%f30
3871: st %f30,[%r29]; st %f31,[%r29+4]
3872: ld [%r28],%f30; ld [%r28+4],%f31
3873: st %f30,[%fp+-72]; st %f31,[%fp+-72+4]
3874: st %f30,[%sp+4*0+68]
3875: st %f31,[%sp+4*1+68]
3876: ld [%sp+4*0+68],%o0
3877: ld [%sp+4*1+68],%o1
3878: call _floor; nop
3879: ld [%fp+-72],%f30; ld [%fp+-72+4],%f31
3880: fcmped %f30,%f0; nop; fbue L408; nop
3881: set 1,%r29
3882: set _Anomaly,%r28
3883: st %r29,[%r28]
3884: ba L409; nop
3885: L408:
3886: set _Break,%r29
3887: st %r0,[%r29]
3888: L410:
3889: set _Z1,%r29
3890: ld [%r29],%f30; ld [%r29+4],%f31
3891: set _Z,%r29
3892: ld [%r29],%f28; ld [%r29+4],%f29
3893: fmuld %f30,%f28,%f30
3894: set _X,%r29
3895: st %f30,[%r29]; st %f31,[%r29+4]
3896: ld [%r29],%f30; ld [%r29+4],%f31
3897: st %f30,[%fp+-80]; st %f31,[%fp+-80+4]
3898: set _Radix,%r28
3899: ld [%r28],%f28; ld [%r28+4],%f29
3900: fdivd %f30,%f28,%f28
3901: st %f28,[%sp+4*0+68]
3902: st %f29,[%sp+4*1+68]
3903: ld [%sp+4*0+68],%o0
3904: ld [%sp+4*1+68],%o1
3905: call _floor; nop
3906: set _Radix,%r28
3907: ld [%r28],%f30; ld [%r28+4],%f31
3908: fmuld %f0,%f30,%f30
3909: ld [%fp+-80],%f28; ld [%fp+-80+4],%f29
3910: fsubd %f28,%f30,%f30
3911: st %f30,[%r29]; st %f31,[%r29+4]
3912: set _X,%r29
3913: ld [%r29],%f30; ld [%r29+4],%f31
3914: set _One,%r29
3915: ld [%r29],%f28; ld [%r29+4],%f29
3916: fcmped %f30,%f28; nop; fbne L413; nop
3917: set 1,%r29
3918: set _Break,%r28
3919: st %r29,[%r28]
3920: ba L414; nop
3921: L413:
3922: set _Z1,%r29
3923: ld [%r29],%f30; ld [%r29+4],%f31
3924: set _One,%r28
3925: ld [%r28],%f28; ld [%r28+4],%f29
3926: fsubd %f30,%f28,%f30
3927: st %f30,[%r29]; st %f31,[%r29+4]
3928: L414:
3929: L411:
3930: set _Break,%r29
3931: ld [%r29],%r29
3932: cmp %r29,%r0; bne L415; nop
3933: set _Z1,%r29
3934: ld [%r29],%f30; ld [%r29+4],%f31
3935: set _Zero,%r29
3936: ld [%r29],%f28; ld [%r29+4],%f29
3937: fcmped %f30,%f28; nop; fbug L410; nop
3938: L415:
3939: set _Z1,%r29
3940: ld [%r29],%f30; ld [%r29+4],%f31
3941: set _Zero,%r29
3942: ld [%r29],%f28; ld [%r29+4],%f29
3943: fcmped %f30,%f28; nop; fbug L416; nop
3944: set _Break,%r29
3945: ld [%r29],%r29
3946: cmp %r29,%r0; bne L416; nop
3947: set 1,%r29
3948: set _Anomaly,%r28
3949: st %r29,[%r28]
3950: ba L417; nop
3951: L416:
3952: set _Z1,%r29
3953: ld [%r29],%f30; ld [%r29+4],%f31
3954: set _RadixD2,%r29
3955: ld [%r29],%f28; ld [%r29+4],%f29
3956: fcmped %f30,%f28; nop; fbule L418; nop
3957: set _Z1,%r29
3958: ld [%r29],%f30; ld [%r29+4],%f31
3959: set _Radix,%r28
3960: ld [%r28],%f28; ld [%r28+4],%f29
3961: fsubd %f30,%f28,%f30
3962: st %f30,[%r29]; st %f31,[%r29+4]
3963: L418:
3964: L420:
3965: call _NewD; nop
3966: L421:
3967: set _U2,%r29
3968: ld [%r29],%f30; ld [%r29+4],%f31
3969: set _D,%r29
3970: ld [%r29],%f28; ld [%r29+4],%f29
3971: fmuld %f30,%f28,%f30
3972: set _F9,%r29
3973: ld [%r29],%f28; ld [%r29+4],%f29
3974: fcmped %f30,%f28; nop; fbul L420; nop
3975: set _D,%r29
3976: ld [%r29],%f30; ld [%r29+4],%f31
3977: set _Radix,%r29
3978: ld [%r29],%f28; ld [%r29+4],%f29
3979: fmuld %f30,%f28,%f28
3980: fsubd %f28,%f30,%f28
3981: set _W,%r29
3982: ld [%r29],%f26; ld [%r29+4],%f27
3983: fsubd %f26,%f30,%f30
3984: fcmped %f28,%f30; nop; fbue L423; nop
3985: set 1,%r29
3986: set _Anomaly,%r28
3987: st %r29,[%r28]
3988: ba L424; nop
3989: L423:
3990: set _D,%r29
3991: ld [%r29],%f30; ld [%r29+4],%f31
3992: set _Z2,%r29
3993: st %f30,[%r29]; st %f31,[%r29+4]
3994: set _I,%r29
3995: st %r0,[%r29]
3996: set _One,%r29
3997: ld [%r29],%f28; ld [%r29+4],%f29
3998: set _Z,%r29
3999: ld [%r29],%f26; ld [%r29+4],%f27
4000: faddd %f28,%f26,%f28
4001: set _Half,%r29
4002: ld [%r29],%f24; ld [%r29+4],%f25
4003: fmuld %f28,%f24,%f28
4004: faddd %f30,%f28,%f28
4005: set _Y,%r29
4006: st %f28,[%r29]; st %f29,[%r29+4]
4007: faddd %f30,%f26,%f30
4008: set _Q,%r29
4009: ld [%r29],%f28; ld [%r29+4],%f29
4010: faddd %f30,%f28,%f30
4011: set _X,%r29
4012: st %f30,[%r29]; st %f31,[%r29+4]
4013: call _SR3750; nop
4014: set _D,%r29
4015: ld [%r29],%f30; ld [%r29+4],%f31
4016: set _One,%r29
4017: ld [%r29],%f28; ld [%r29+4],%f29
4018: set _Z,%r29
4019: ld [%r29],%f26; ld [%r29+4],%f27
4020: fsubd %f28,%f26,%f28
4021: set _Half,%r29
4022: ld [%r29],%f24; ld [%r29+4],%f25
4023: fmuld %f28,%f24,%f28
4024: faddd %f30,%f28,%f28
4025: faddd %f28,%f30,%f28
4026: set _Y,%r29
4027: st %f28,[%r29]; st %f29,[%r29+4]
4028: fsubd %f30,%f26,%f28
4029: faddd %f28,%f30,%f30
4030: set _X,%r29
4031: st %f30,[%r29]; st %f31,[%r29+4]
4032: ld [%r29],%f30; ld [%r29+4],%f31
4033: set _Q,%r28
4034: ld [%r28],%f28; ld [%r28+4],%f29
4035: faddd %f30,%f28,%f28
4036: faddd %f28,%f30,%f30
4037: st %f30,[%r29]; st %f31,[%r29+4]
4038: call _SR3750; nop
4039: call _NewD; nop
4040: set _D,%r29
4041: ld [%r29],%f30; ld [%r29+4],%f31
4042: set _Z2,%r29
4043: ld [%r29],%f28; ld [%r29+4],%f29
4044: fsubd %f30,%f28,%f30
4045: set _W,%r29
4046: ld [%r29],%f26; ld [%r29+4],%f27
4047: fsubd %f26,%f28,%f28
4048: fcmped %f30,%f28; nop; fbue L425; nop
4049: set 1,%r29
4050: set _Anomaly,%r28
4051: st %r29,[%r28]
4052: ba L426; nop
4053: L425:
4054: set _D,%r29
4055: ld [%r29],%f30; ld [%r29+4],%f31
4056: set _Z2,%r29
4057: ld [%r29],%f28; ld [%r29+4],%f29
4058: fsubd %f30,%f28,%f30
4059: set _One,%r29
4060: ld [%r29],%f26; ld [%r29+4],%f27
4061: set _Z,%r29
4062: ld [%r29],%f24; ld [%r29+4],%f25
4063: fsubd %f26,%f24,%f26
4064: set _Half,%r29
4065: ld [%r29],%f22; ld [%r29+4],%f23
4066: fmuld %f26,%f22,%f26
4067: faddd %f28,%f26,%f26
4068: faddd %f30,%f26,%f26
4069: set _Y,%r29
4070: st %f26,[%r29]; st %f27,[%r29+4]
4071: fsubd %f28,%f24,%f28
4072: set _Q,%r29
4073: ld [%r29],%f26; ld [%r29+4],%f27
4074: faddd %f28,%f26,%f28
4075: faddd %f30,%f28,%f30
4076: set _X,%r29
4077: st %f30,[%r29]; st %f31,[%r29+4]
4078: call _SR3750; nop
4079: set _One,%r29
4080: ld [%r29],%f30; ld [%r29+4],%f31
4081: set _Z,%r29
4082: ld [%r29],%f28; ld [%r29+4],%f29
4083: faddd %f30,%f28,%f30
4084: set _Half,%r29
4085: ld [%r29],%f28; ld [%r29+4],%f29
4086: fmuld %f30,%f28,%f30
4087: set _Y,%r29
4088: st %f30,[%r29]; st %f31,[%r29+4]
4089: set _Q,%r29
4090: ld [%r29],%f30; ld [%r29+4],%f31
4091: set _X,%r29
4092: st %f30,[%r29]; st %f31,[%r29+4]
4093: call _SR3750; nop
4094: set _I,%r29
4095: ld [%r29],%r29
4096: cmp %r29,%r0; bne L427; nop
4097: set 1,%r29
4098: set _Anomaly,%r28
4099: st %r29,[%r28]
4100: L427:
4101: L426:
4102: L424:
4103: L417:
4104: L409:
4105: L394:
4106: set _I,%r29
4107: ld [%r29],%r29
4108: cmp %r29,%r0; be L431; nop
4109: set _Anomaly,%r29
4110: ld [%r29],%r29
4111: cmp %r29,%r0; be L429; nop
4112: L431:
4113: mov %r0,%r8
4114: set L432,%r9
4115: call _BadCond; nop
4116: set L433,%r8
4117: set _W,%r29
4118: ld [%r29],%f30; ld [%r29+4],%f31
4119: st %f30,[%sp+4*1+68]
4120: st %f31,[%sp+4*2+68]
4121: ld [%sp+4*1+68],%o1
4122: ld [%sp+4*2+68],%o2
4123: call _printf; nop
4124: set L434,%r8
4125: call _printf; nop
4126: set 1,%r29
4127: set _SqRWrng,%r28
4128: st %r29,[%r28]
4129: L429:
4130: L390:
4131: set _Anomaly,%r29
4132: ld [%r29],%r29
4133: cmp %r29,%r0; bne L435; nop
4134: set _MinSqEr,%r29
4135: ld [%r29],%f30; ld [%r29+4],%f31
4136: set _Zero,%r29
4137: ld [%r29],%f28; ld [%r29+4],%f29
4138: fcmped %f30,%f28; nop; fbul L437; nop
4139: set _MaxSqEr,%r29
4140: ld [%r29],%f30; ld [%r29+4],%f31
4141: fcmped %f30,%f28; nop; fbug L437; nop
4142: set 1,%r29
4143: set _RSqrt,%r28
4144: st %r29,[%r28]
4145: set L439,%r8
4146: call _printf; nop
4147: ba L438; nop
4148: L437:
4149: set _MaxSqEr,%r29
4150: ld [%r29],%f30; ld [%r29+4],%f31
4151: set _U2,%r29
4152: ld [%r29],%f28; ld [%r29+4],%f29
4153: faddd %f30,%f28,%f30
4154: set _Half,%r29
4155: ld [%r29],%f26; ld [%r29+4],%f27
4156: fsubd %f28,%f26,%f28
4157: fcmped %f30,%f28; nop; fbug L443; nop
4158: set _MinSqEr,%r29
4159: ld [%r29],%f30; ld [%r29+4],%f31
4160: fcmped %f30,%f26; nop; fbug L443; nop
4161: set _Radix,%r29
4162: ld [%r29],%f28; ld [%r29+4],%f29
4163: faddd %f30,%f28,%f30
4164: fcmped %f30,%f26; nop; fbuge L440; nop
4165: L443:
4166: set 1,%r29
4167: set _SqRWrng,%r28
4168: st %r29,[%r28]
4169: ba L441; nop
4170: L440:
4171: set 2,%r29
4172: set _RSqrt,%r28
4173: st %r29,[%r28]
4174: set L444,%r8
4175: call _printf; nop
4176: L441:
4177: L438:
4178: L435:
4179: set _SqRWrng,%r29
4180: ld [%r29],%r29
4181: cmp %r29,%r0; be L445; nop
4182: set L447,%r8
4183: call _printf; nop
4184: set L448,%r8
4185: set _MinSqEr,%r29
4186: ld [%r29],%f30; ld [%r29+4],%f31
4187: set _Half,%r29
4188: ld [%r29],%f28; ld [%r29+4],%f29
4189: fsubd %f30,%f28,%f30
4190: st %f30,[%sp+4*1+68]
4191: st %f31,[%sp+4*2+68]
4192: ld [%sp+4*1+68],%o1
4193: ld [%sp+4*2+68],%o2
4194: call _printf; nop
4195: set L449,%r8
4196: set _Half,%r29
4197: ld [%r29],%f30; ld [%r29+4],%f31
4198: set _MaxSqEr,%r29
4199: ld [%r29],%f28; ld [%r29+4],%f29
4200: faddd %f30,%f28,%f30
4201: st %f30,[%sp+4*1+68]
4202: st %f31,[%sp+4*2+68]
4203: ld [%sp+4*1+68],%o1
4204: ld [%sp+4*2+68],%o2
4205: call _printf; nop
4206: set 1,%r8
4207: set _MaxSqEr,%r28
4208: ld [%r28],%f30; ld [%r28+4],%f31
4209: set _MinSqEr,%r28
4210: ld [%r28],%f28; ld [%r28+4],%f29
4211: fsubd %f30,%f28,%f30
4212: set _Radix,%r28
4213: ld [%r28],%f28; ld [%r28+4],%f29
4214: fmuld %f28,%f28,%f28
4215: fcmped %f30,%f28; nop; fbuge L452; nop
4216: set 1,%r29
4217: ba L453; nop
4218: L452:
4219: mov %r0,%r29
4220: L453:
4221: mov %r29,%r9
4222: set L451,%r10
4223: call _TstCond; nop
4224: L445:
4225: set 90,%r29
4226: set _Milestone,%r28
4227: st %r29,[%r28]
4228: call _Pause; nop
4229: set L454,%r8
4230: call _printf; nop
4231: set _N,%r29
4232: st %r0,[%r29]
4233: set _I,%r29
4234: st %r0,[%r29]
4235: set _Zero,%r29
4236: ld [%r29],%f30; ld [%r29+4],%f31
4237: fnegs %f30,%f30; fmovs %f31,%f31
4238: set _Z,%r29
4239: st %f30,[%r29]; st %f31,[%r29+4]
4240: set 3,%r29
4241: set _M,%r28
4242: st %r29,[%r28]
4243: set _Break,%r29
4244: st %r0,[%r29]
4245: L455:
4246: set _One,%r29
4247: ld [%r29],%f30; ld [%r29+4],%f31
4248: set _X,%r29
4249: st %f30,[%r29]; st %f31,[%r29+4]
4250: call _SR3980; nop
4251: set _I,%r29
4252: ld [%r29],%r29
4253: cmp %r29,10; bg L458; nop
4254: set 1023,%r29
4255: set _I,%r28
4256: st %r29,[%r28]
4257: call _SR3980; nop
4258: L458:
4259: set _Z,%r29
4260: ld [%r29],%f30; ld [%r29+4],%f31
4261: set _MinusOne,%r29
4262: ld [%r29],%f28; ld [%r29+4],%f29
4263: fcmped %f30,%f28; nop; fbne L460; nop
4264: set 1,%r29
4265: set _Break,%r28
4266: st %r29,[%r28]
4267: ba L461; nop
4268: L460:
4269: set _MinusOne,%r29
4270: ld [%r29],%f30; ld [%r29+4],%f31
4271: set _Z,%r29
4272: st %f30,[%r29]; st %f31,[%r29+4]
4273: call _PrintIfNPositive; nop
4274: set _N,%r29
4275: st %r0,[%r29]
4276: set -4,%r29
4277: set _I,%r28
4278: st %r29,[%r28]
4279: L461:
4280: L456:
4281: set _Break,%r29
4282: ld [%r29],%r29
4283: cmp %r29,%r0; be L455; nop
4284: call _PrintIfNPositive; nop
4285: set _N,%r29
4286: ld [%r29],%r28
4287: set _N1,%r27
4288: st %r28,[%r27]
4289: st %r0,[%r29]
4290: set _A1,%r29
4291: ld [%r29],%f30; ld [%r29+4],%f31
4292: set _Z,%r29
4293: st %f30,[%r29]; st %f31,[%r29+4]
4294: set _W,%r29
4295: ld [%r29],%f30; ld [%r29+4],%f31
4296: st %f30,[%sp+4*0+68]
4297: st %f31,[%sp+4*1+68]
4298: ld [%sp+4*0+68],%o0
4299: ld [%sp+4*1+68],%o1
4300: call _log; nop
4301: st %f0,[%fp+-48]; st %f1,[%fp+-48+4]
4302: set _A1,%r29
4303: ld [%r29],%f30; ld [%r29+4],%f31
4304: st %f30,[%sp+4*0+68]
4305: st %f31,[%sp+4*1+68]
4306: ld [%sp+4*0+68],%o0
4307: ld [%sp+4*1+68],%o1
4308: call _log; nop
4309: set _Two,%r29
4310: ld [%r29],%f30; ld [%r29+4],%f31
4311: ld [%fp+-48],%f28; ld [%fp+-48+4],%f29
4312: fmuld %f30,%f28,%f30
4313: fdivd %f30,%f0,%f30
4314: st %f30,[%sp+4*0+68]
4315: st %f31,[%sp+4*1+68]
4316: ld [%sp+4*0+68],%o0
4317: ld [%sp+4*1+68],%o1
4318: call _floor; nop
4319: fdtoi %f0,%f0; st %f0,[%sp+64]; ld [%sp+64],%r29
4320: set _M,%r28
4321: st %r29,[%r28]
4322: set _Break,%r29
4323: st %r0,[%r29]
4324: L462:
4325: set _Z,%r29
4326: ld [%r29],%f30; ld [%r29+4],%f31
4327: set _X,%r29
4328: st %f30,[%r29]; st %f31,[%r29+4]
4329: set 1,%r29
4330: set _I,%r28
4331: st %r29,[%r28]
4332: call _SR3980; nop
4333: set _Z,%r29
4334: ld [%r29],%f30; ld [%r29+4],%f31
4335: set _AInvrse,%r29
4336: ld [%r29],%f28; ld [%r29+4],%f29
4337: fcmped %f30,%f28; nop; fbne L465; nop
4338: set 1,%r29
4339: set _Break,%r28
4340: st %r29,[%r28]
4341: ba L466; nop
4342: L465:
4343: set _AInvrse,%r29
4344: ld [%r29],%f30; ld [%r29+4],%f31
4345: set _Z,%r29
4346: st %f30,[%r29]; st %f31,[%r29+4]
4347: L466:
4348: L463:
4349: set _Break,%r29
4350: ld [%r29],%r29
4351: cmp %r29,%r0; be L462; nop
4352: set 100,%r29
4353: set _Milestone,%r28
4354: st %r29,[%r28]
4355: set _NoTrials,%r29
4356: ld [%r29],%r29
4357: set _M,%r28
4358: st %r29,[%r28]
4359: set _Three,%r29
4360: ld [%r29],%f30; ld [%r29+4],%f31
4361: set _Z,%r29
4362: st %f30,[%r29]; st %f31,[%r29+4]
4363: L467:
4364: set _Z,%r29
4365: ld [%r29],%f30; ld [%r29+4],%f31
4366: set _X,%r29
4367: st %f30,[%r29]; st %f31,[%r29+4]
4368: set 1,%r29
4369: set _I,%r28
4370: st %r29,[%r28]
4371: call _SR3980; nop
4372: L470:
4373: set _Z,%r29
4374: ld [%r29],%f30; ld [%r29+4],%f31
4375: set _Two,%r28
4376: ld [%r28],%f28; ld [%r28+4],%f29
4377: faddd %f30,%f28,%f30
4378: st %f30,[%r29]; st %f31,[%r29+4]
4379: L471:
4380: set _Z,%r29
4381: ld [%r29],%f30; ld [%r29+4],%f31
4382: set _Three,%r29
4383: ld [%r29],%f28; ld [%r29+4],%f29
4384: st %f28,[%fp+-56]; st %f29,[%fp+-56+4]
4385: fdivd %f30,%f28,%f30
4386: st %f30,[%sp+4*0+68]
4387: st %f31,[%sp+4*1+68]
4388: ld [%sp+4*0+68],%o0
4389: ld [%sp+4*1+68],%o1
4390: call _floor; nop
4391: ld [%fp+-56],%f30; ld [%fp+-56+4],%f31
4392: fmuld %f30,%f0,%f30
4393: set _Z,%r29
4394: ld [%r29],%f28; ld [%r29+4],%f29
4395: fcmped %f30,%f28; nop; fbue L470; nop
4396: L468:
4397: set _Z,%r29
4398: ld [%r29],%f30; ld [%r29+4],%f31
4399: set _Eight,%r29
4400: ld [%r29],%f28; ld [%r29+4],%f29
4401: set _Three,%r29
4402: ld [%r29],%f26; ld [%r29+4],%f27
4403: fmuld %f28,%f26,%f28
4404: fcmped %f30,%f28; nop; fbul L467; nop
4405: set _N,%r29
4406: ld [%r29],%r29
4407: cmp %r29,%r0; ble L473; nop
4408: set L475,%r8
4409: call _printf; nop
4410: set L476,%r8
4411: call _printf; nop
4412: L473:
4413: call _PrintIfNPositive; nop
4414: set _N,%r29
4415: ld [%r29],%r28
4416: set _N1,%r27
4417: ld [%r27],%r27
4418: add %r28,%r27,%r28
4419: st %r28,[%r29]
4420: ld [%r29],%r29
4421: cmp %r29,%r0; bne L477; nop
4422: set L479,%r8
4423: call _printf; nop
4424: L477:
4425: set _N,%r29
4426: ld [%r29],%r29
4427: cmp %r29,%r0; ble L480; nop
4428: call _Pause; nop
4429: ba L481; nop
4430: L480:
4431: set L44,%r8
4432: call _printf; nop
4433: L481:
4434: set 110,%r29
4435: set _Milestone,%r28
4436: st %r29,[%r28]
4437: set L482,%r8
4438: call _printf; nop
4439: set _U1,%r29
4440: ld [%r29],%f30; ld [%r29+4],%f31
4441: set _D,%r29
4442: st %f30,[%r29]; st %f31,[%r29+4]
4443: set _Precision,%r29
4444: ld [%r29],%f30; ld [%r29+4],%f31
4445: st %f30,[%fp+-56]; st %f31,[%fp+-56+4]
4446: st %f30,[%sp+4*0+68]
4447: st %f31,[%sp+4*1+68]
4448: ld [%sp+4*0+68],%o0
4449: ld [%sp+4*1+68],%o1
4450: call _floor; nop
4451: ld [%fp+-56],%f30; ld [%fp+-56+4],%f31
4452: fcmped %f30,%f0; nop; fbue L483; nop
4453: set _BInvrse,%r29
4454: ld [%r29],%f30; ld [%r29+4],%f31
4455: set _D,%r29
4456: st %f30,[%r29]; st %f31,[%r29+4]
4457: set _Precision,%r29
4458: ld [%r29],%f30; ld [%r29+4],%f31
4459: set _X,%r29
4460: st %f30,[%r29]; st %f31,[%r29+4]
4461: L485:
4462: set _D,%r29
4463: ld [%r29],%f30; ld [%r29+4],%f31
4464: set _BInvrse,%r28
4465: ld [%r28],%f28; ld [%r28+4],%f29
4466: fmuld %f30,%f28,%f30
4467: st %f30,[%r29]; st %f31,[%r29+4]
4468: set _X,%r29
4469: ld [%r29],%f30; ld [%r29+4],%f31
4470: set _One,%r28
4471: ld [%r28],%f28; ld [%r28+4],%f29
4472: fsubd %f30,%f28,%f30
4473: st %f30,[%r29]; st %f31,[%r29+4]
4474: L486:
4475: set _X,%r29
4476: ld [%r29],%f30; ld [%r29+4],%f31
4477: set _Zero,%r29
4478: ld [%r29],%f28; ld [%r29+4],%f29
4479: fcmped %f30,%f28; nop; fbug L485; nop
4480: L483:
4481: set _One,%r29
4482: ld [%r29],%f30; ld [%r29+4],%f31
4483: set _Y,%r29
4484: st %f30,[%r29]; st %f31,[%r29+4]
4485: set _D,%r29
4486: ld [%r29],%f30; ld [%r29+4],%f31
4487: set _Z,%r29
4488: st %f30,[%r29]; st %f31,[%r29+4]
4489: L488:
4490: set _Y,%r29
4491: ld [%r29],%f30; ld [%r29+4],%f31
4492: set _C,%r28
4493: st %f30,[%r28]; st %f31,[%r28+4]
4494: set _Z,%r28
4495: ld [%r28],%f30; ld [%r28+4],%f31
4496: st %f30,[%r29]; st %f31,[%r29+4]
4497: ld [%r29],%f30; ld [%r29+4],%f31
4498: fmuld %f30,%f30,%f30
4499: st %f30,[%r28]; st %f31,[%r28+4]
4500: L489:
4501: set _Y,%r29
4502: ld [%r29],%f30; ld [%r29+4],%f31
4503: set _Z,%r29
4504: ld [%r29],%f28; ld [%r29+4],%f29
4505: fcmped %f30,%f28; nop; fbule L491; nop
4506: faddd %f28,%f28,%f30
4507: fcmped %f30,%f28; nop; fbug L488; nop
4508: L491:
4509: set _C,%r29
4510: ld [%r29],%f30; ld [%r29+4],%f31
4511: set _Y,%r29
4512: st %f30,[%r29]; st %f31,[%r29+4]
4513: ld [%r29],%f30; ld [%r29+4],%f31
4514: set _D,%r29
4515: ld [%r29],%f28; ld [%r29+4],%f29
4516: fmuld %f30,%f28,%f30
4517: set _Z,%r29
4518: st %f30,[%r29]; st %f31,[%r29+4]
4519: L492:
4520: set _Y,%r29
4521: ld [%r29],%f30; ld [%r29+4],%f31
4522: set _C,%r28
4523: st %f30,[%r28]; st %f31,[%r28+4]
4524: set _Z,%r28
4525: ld [%r28],%f30; ld [%r28+4],%f31
4526: st %f30,[%r29]; st %f31,[%r29+4]
4527: ld [%r29],%f30; ld [%r29+4],%f31
4528: set _D,%r29
4529: ld [%r29],%f28; ld [%r29+4],%f29
4530: fmuld %f30,%f28,%f30
4531: st %f30,[%r28]; st %f31,[%r28+4]
4532: L493:
4533: set _Y,%r29
4534: ld [%r29],%f30; ld [%r29+4],%f31
4535: set _Z,%r29
4536: ld [%r29],%f28; ld [%r29+4],%f29
4537: fcmped %f30,%f28; nop; fbule L495; nop
4538: faddd %f28,%f28,%f30
4539: fcmped %f30,%f28; nop; fbug L492; nop
4540: L495:
4541: set _Radix,%r29
4542: ld [%r29],%f30; ld [%r29+4],%f31
4543: set _Two,%r29
4544: ld [%r29],%f28; ld [%r29+4],%f29
4545: fcmped %f30,%f28; nop; fbuge L496; nop
4546: set _Two,%r29
4547: ld [%r29],%f30; ld [%r29+4],%f31
4548: set _HInvrse,%r29
4549: st %f30,[%r29]; st %f31,[%r29+4]
4550: ba L497; nop
4551: L496:
4552: set _Radix,%r29
4553: ld [%r29],%f30; ld [%r29+4],%f31
4554: set _HInvrse,%r29
4555: st %f30,[%r29]; st %f31,[%r29+4]
4556: L497:
4557: set _One,%r29
4558: ld [%r29],%f30; ld [%r29+4],%f31
4559: set _HInvrse,%r29
4560: ld [%r29],%f28; ld [%r29+4],%f29
4561: fdivd %f30,%f28,%f28
4562: set _H,%r29
4563: st %f28,[%r29]; st %f29,[%r29+4]
4564: set _C,%r28
4565: ld [%r28],%f28; ld [%r28+4],%f29
4566: fdivd %f30,%f28,%f30
4567: set _CInvrse,%r28
4568: st %f30,[%r28]; st %f31,[%r28+4]
4569: set _E0,%r28
4570: st %f28,[%r28]; st %f29,[%r28+4]
4571: ld [%r28],%f30; ld [%r28+4],%f31
4572: ld [%r29],%f28; ld [%r29+4],%f29
4573: fmuld %f30,%f28,%f30
4574: set _Z,%r29
4575: st %f30,[%r29]; st %f31,[%r29+4]
4576: L498:
4577: set _E0,%r29
4578: ld [%r29],%f30; ld [%r29+4],%f31
4579: set _Y,%r28
4580: st %f30,[%r28]; st %f31,[%r28+4]
4581: set _Z,%r28
4582: ld [%r28],%f30; ld [%r28+4],%f31
4583: st %f30,[%r29]; st %f31,[%r29+4]
4584: ld [%r29],%f30; ld [%r29+4],%f31
4585: set _H,%r29
4586: ld [%r29],%f28; ld [%r29+4],%f29
4587: fmuld %f30,%f28,%f30
4588: st %f30,[%r28]; st %f31,[%r28+4]
4589: L499:
4590: set _E0,%r29
4591: ld [%r29],%f30; ld [%r29+4],%f31
4592: set _Z,%r29
4593: ld [%r29],%f28; ld [%r29+4],%f29
4594: fcmped %f30,%f28; nop; fbule L501; nop
4595: faddd %f28,%f28,%f30
4596: fcmped %f30,%f28; nop; fbug L498; nop
4597: L501:
4598: set _E0,%r29
4599: ld [%r29],%f30; ld [%r29+4],%f31
4600: set _UfThold,%r29
4601: st %f30,[%r29]; st %f31,[%r29+4]
4602: set _Zero,%r29
4603: ld [%r29],%f30; ld [%r29+4],%f31
4604: set _E1,%r29
4605: st %f30,[%r29]; st %f31,[%r29+4]
4606: set _Q,%r29
4607: st %f30,[%r29]; st %f31,[%r29+4]
4608: set _U2,%r29
4609: ld [%r29],%f30; ld [%r29+4],%f31
4610: set _E9,%r29
4611: st %f30,[%r29]; st %f31,[%r29+4]
4612: set _One,%r28
4613: ld [%r28],%f30; ld [%r28+4],%f31
4614: ld [%r29],%f28; ld [%r29+4],%f29
4615: faddd %f30,%f28,%f30
4616: set _S,%r29
4617: st %f30,[%r29]; st %f31,[%r29+4]
4618: set _C,%r28
4619: ld [%r28],%f30; ld [%r28+4],%f31
4620: ld [%r29],%f28; ld [%r29+4],%f29
4621: fmuld %f30,%f28,%f28
4622: set _D,%r29
4623: st %f28,[%r29]; st %f29,[%r29+4]
4624: ld [%r29],%f28; ld [%r29+4],%f29
4625: fcmped %f28,%f30; nop; fbug L502; nop
4626: set _Radix,%r29
4627: ld [%r29],%f30; ld [%r29+4],%f31
4628: set _U2,%r29
4629: ld [%r29],%f28; ld [%r29+4],%f29
4630: fmuld %f30,%f28,%f30
4631: set _E9,%r29
4632: st %f30,[%r29]; st %f31,[%r29+4]
4633: set _One,%r28
4634: ld [%r28],%f30; ld [%r28+4],%f31
4635: ld [%r29],%f28; ld [%r29+4],%f29
4636: faddd %f30,%f28,%f30
4637: set _S,%r29
4638: st %f30,[%r29]; st %f31,[%r29+4]
4639: set _C,%r28
4640: ld [%r28],%f30; ld [%r28+4],%f31
4641: ld [%r29],%f28; ld [%r29+4],%f29
4642: fmuld %f30,%f28,%f28
4643: set _D,%r29
4644: st %f28,[%r29]; st %f29,[%r29+4]
4645: ld [%r29],%f28; ld [%r29+4],%f29
4646: fcmped %f28,%f30; nop; fbug L503; nop
4647: mov %r0,%r8
4648: set L506,%r9
4649: call _BadCond; nop
4650: set _E0,%r29
4651: ld [%r29],%f30; ld [%r29+4],%f31
4652: set _Underflow,%r29
4653: st %f30,[%r29]; st %f31,[%r29+4]
4654: set _Zero,%r29
4655: ld [%r29],%f30; ld [%r29+4],%f31
4656: set _Y1,%r29
4657: st %f30,[%r29]; st %f31,[%r29+4]
4658: set _Z,%r29
4659: ld [%r29],%f30; ld [%r29+4],%f31
4660: set _PseudoZero,%r29
4661: st %f30,[%r29]; st %f31,[%r29+4]
4662: call _Pause; nop
4663: ba L503; nop
4664: L502:
4665: set _D,%r29
4666: ld [%r29],%f30; ld [%r29+4],%f31
4667: set _Underflow,%r29
4668: st %f30,[%r29]; st %f31,[%r29+4]
4669: ld [%r29],%f30; ld [%r29+4],%f31
4670: set _H,%r29
4671: ld [%r29],%f28; ld [%r29+4],%f29
4672: fmuld %f30,%f28,%f30
4673: set _PseudoZero,%r29
4674: st %f30,[%r29]; st %f31,[%r29+4]
4675: set _Zero,%r29
4676: ld [%r29],%f30; ld [%r29+4],%f31
4677: set _UfThold,%r29
4678: st %f30,[%r29]; st %f31,[%r29+4]
4679: L507:
4680: set _Underflow,%r29
4681: ld [%r29],%f30; ld [%r29+4],%f31
4682: set _Y1,%r28
4683: st %f30,[%r28]; st %f31,[%r28+4]
4684: set _PseudoZero,%r28
4685: ld [%r28],%f30; ld [%r28+4],%f31
4686: st %f30,[%r29]; st %f31,[%r29+4]
4687: set _E1,%r29
4688: ld [%r29],%f30; ld [%r29+4],%f31
4689: faddd %f30,%f30,%f28
4690: fcmped %f28,%f30; nop; fbug L510; nop
4691: set _Underflow,%r29
4692: ld [%r29],%f30; ld [%r29+4],%f31
4693: set _HInvrse,%r29
4694: ld [%r29],%f28; ld [%r29+4],%f29
4695: fmuld %f30,%f28,%f30
4696: set _Y2,%r29
4697: st %f30,[%r29]; st %f31,[%r29+4]
4698: set _Y1,%r28
4699: ld [%r28],%f30; ld [%r28+4],%f31
4700: ld [%r29],%f28; ld [%r29+4],%f29
4701: fsubd %f30,%f28,%f30
4702: st %f30,[%sp+4*0+68]
4703: st %f31,[%sp+4*1+68]
4704: ld [%sp+4*0+68],%o0
4705: ld [%sp+4*1+68],%o1
4706: call _fabs; nop
4707: set _E1,%r29
4708: st %f0,[%r29]; st %f1,[%r29+4]
4709: set _Y1,%r29
4710: ld [%r29],%f30; ld [%r29+4],%f31
4711: set _Q,%r29
4712: st %f30,[%r29]; st %f31,[%r29+4]
4713: set _UfThold,%r29
4714: ld [%r29],%f28; ld [%r29+4],%f29
4715: set _Zero,%r29
4716: ld [%r29],%f26; ld [%r29+4],%f27
4717: fcmped %f28,%f26; nop; fbne L512; nop
4718: set _Y2,%r29
4719: ld [%r29],%f28; ld [%r29+4],%f29
4720: fcmped %f30,%f28; nop; fbue L512; nop
4721: set _Y1,%r29
4722: ld [%r29],%f30; ld [%r29+4],%f31
4723: set _UfThold,%r29
4724: st %f30,[%r29]; st %f31,[%r29+4]
4725: L512:
4726: L510:
4727: set _PseudoZero,%r29
4728: ld [%r29],%f30; ld [%r29+4],%f31
4729: set _H,%r28
4730: ld [%r28],%f28; ld [%r28+4],%f29
4731: fmuld %f30,%f28,%f30
4732: st %f30,[%r29]; st %f31,[%r29+4]
4733: L508:
4734: set _Underflow,%r29
4735: ld [%r29],%f30; ld [%r29+4],%f31
4736: set _PseudoZero,%r29
4737: ld [%r29],%f28; ld [%r29+4],%f29
4738: fcmped %f30,%f28; nop; fbule L514; nop
4739: faddd %f28,%f28,%f30
4740: fcmped %f30,%f28; nop; fbug L507; nop
4741: L514:
4742: L503:
4743: set _PseudoZero,%r29
4744: ld [%r29],%f30; ld [%r29+4],%f31
4745: set _Zero,%r29
4746: ld [%r29],%f28; ld [%r29+4],%f29
4747: fcmped %f30,%f28; nop; fbue L515; nop
4748: set L44,%r8
4749: call _printf; nop
4750: set _PseudoZero,%r29
4751: ld [%r29],%f30; ld [%r29+4],%f31
4752: set _Z,%r29
4753: st %f30,[%r29]; st %f31,[%r29+4]
4754: set _Zero,%r29
4755: ld [%r29],%f28; ld [%r29+4],%f29
4756: fcmped %f30,%f28; nop; fbug L517; nop
4757: mov %r0,%r8
4758: set L519,%r9
4759: call _BadCond; nop
4760: set L520,%r8
4761: call _printf; nop
4762: set L521,%r8
4763: set _PseudoZero,%r29
4764: ld [%r29],%f30; ld [%r29+4],%f31
4765: st %f30,[%sp+4*1+68]
4766: st %f31,[%sp+4*2+68]
4767: ld [%sp+4*1+68],%o1
4768: ld [%sp+4*2+68],%o2
4769: call _printf; nop
4770: set _PseudoZero,%r29
4771: ld [%r29],%f30; ld [%r29+4],%f31
4772: fnegs %f30,%f30; fmovs %f31,%f31
4773: set _X,%r29
4774: st %f30,[%r29]; st %f31,[%r29+4]
4775: ld [%r29],%f30; ld [%r29+4],%f31
4776: set _Zero,%r29
4777: ld [%r29],%f28; ld [%r29+4],%f29
4778: fcmped %f30,%f28; nop; fbug L518; nop
4779: set L524,%r8
4780: call _printf; nop
4781: set L525,%r8
4782: set _X,%r29
4783: ld [%r29],%f30; ld [%r29+4],%f31
4784: st %f30,[%sp+4*1+68]
4785: st %f31,[%sp+4*2+68]
4786: ld [%sp+4*1+68],%o1
4787: ld [%sp+4*2+68],%o2
4788: call _printf; nop
4789: ba L518; nop
4790: L517:
4791: set 3,%r8
4792: set L526,%r9
4793: call _BadCond; nop
4794: set L527,%r8
4795: set _PseudoZero,%r29
4796: ld [%r29],%f30; ld [%r29+4],%f31
4797: st %f30,[%sp+4*1+68]
4798: st %f31,[%sp+4*2+68]
4799: ld [%sp+4*1+68],%o1
4800: ld [%sp+4*2+68],%o2
4801: call _printf; nop
4802: L518:
4803: call _TstPtUf; nop
4804: L515:
4805: set 120,%r29
4806: set _Milestone,%r28
4807: st %r29,[%r28]
4808: set _CInvrse,%r29
4809: ld [%r29],%f30; ld [%r29+4],%f31
4810: set _Y,%r29
4811: ld [%r29],%f28; ld [%r29+4],%f29
4812: fmuld %f30,%f28,%f28
4813: set _Y1,%r29
4814: ld [%r29],%f26; ld [%r29+4],%f27
4815: fmuld %f30,%f26,%f30
4816: fcmped %f28,%f30; nop; fbule L528; nop
4817: set _H,%r29
4818: ld [%r29],%f30; ld [%r29+4],%f31
4819: set _S,%r29
4820: ld [%r29],%f28; ld [%r29+4],%f29
4821: fmuld %f30,%f28,%f30
4822: st %f30,[%r29]; st %f31,[%r29+4]
4823: set _Underflow,%r29
4824: ld [%r29],%f30; ld [%r29+4],%f31
4825: set _E0,%r29
4826: st %f30,[%r29]; st %f31,[%r29+4]
4827: L528:
4828: set _E1,%r29
4829: ld [%r29],%f30; ld [%r29+4],%f31
4830: set _Zero,%r29
4831: ld [%r29],%f28; ld [%r29+4],%f29
4832: fcmped %f30,%f28; nop; fbue L530; nop
4833: set _E0,%r29
4834: ld [%r29],%f28; ld [%r29+4],%f29
4835: fcmped %f30,%f28; nop; fbue L530; nop
4836: set 2,%r8
4837: set L157,%r9
4838: call _BadCond; nop
4839: set _E1,%r29
4840: ld [%r29],%f30; ld [%r29+4],%f31
4841: set _E0,%r29
4842: ld [%r29],%f28; ld [%r29+4],%f29
4843: fcmped %f30,%f28; nop; fbuge L532; nop
4844: set L534,%r8
4845: call _printf; nop
4846: set L535,%r8
4847: call _printf; nop
4848: set _PseudoZero,%r29
4849: ld [%r29],%f30; ld [%r29+4],%f31
4850: set _Zero,%r29
4851: ld [%r29],%f28; ld [%r29+4],%f29
4852: fcmped %f30,%f28; nop; fbne L533; nop
4853: set _E1,%r29
4854: ld [%r29],%f30; ld [%r29+4],%f31
4855: set _E0,%r29
4856: st %f30,[%r29]; st %f31,[%r29+4]
4857: ba L533; nop
4858: L532:
4859: set L538,%r8
4860: call _printf; nop
4861: set L539,%r8
4862: call _printf; nop
4863: L533:
4864: L530:
4865: set L540,%r8
4866: set _E0,%r29
4867: ld [%r29],%f30; ld [%r29+4],%f31
4868: st %f30,[%sp+4*1+68]
4869: st %f31,[%sp+4*2+68]
4870: ld [%sp+4*1+68],%o1
4871: ld [%sp+4*2+68],%o2
4872: call _printf; nop
4873: set _E0,%r29
4874: ld [%r29],%f30; ld [%r29+4],%f31
4875: set _Z,%r29
4876: st %f30,[%r29]; st %f31,[%r29+4]
4877: call _TstPtUf; nop
4878: set _E0,%r29
4879: ld [%r29],%f30; ld [%r29+4],%f31
4880: set _Underflow,%r29
4881: st %f30,[%r29]; st %f31,[%r29+4]
4882: set _N,%r29
4883: ld [%r29],%r29
4884: cmp %r29,1; bne L541; nop
4885: set _Y,%r29
4886: ld [%r29],%f30; ld [%r29+4],%f31
4887: set _Underflow,%r29
4888: st %f30,[%r29]; st %f31,[%r29+4]
4889: L541:
4890: set 4,%r29
4891: set _I,%r28
4892: st %r29,[%r28]
4893: set _E1,%r29
4894: ld [%r29],%f30; ld [%r29+4],%f31
4895: set _Zero,%r29
4896: ld [%r29],%f28; ld [%r29+4],%f29
4897: fcmped %f30,%f28; nop; fbne L543; nop
4898: set 3,%r29
4899: set _I,%r28
4900: st %r29,[%r28]
4901: L543:
4902: set _UfThold,%r29
4903: ld [%r29],%f30; ld [%r29+4],%f31
4904: set _Zero,%r29
4905: ld [%r29],%f28; ld [%r29+4],%f29
4906: fcmped %f30,%f28; nop; fbne L545; nop
4907: set _I,%r29
4908: ld [%r29],%r28
4909: sub %r28,2,%r28
4910: st %r28,[%r29]
4911: L545:
4912: set 1,%r29
4913: set _UfNGrad,%r28
4914: st %r29,[%r28]
4915: set _I,%r29
4916: ld [%r29],%r29
4917: cmp %r29,1; bl L547; nop
4918: cmp %r29,4; bg L547; nop
4919: sll %r29,2,%r29
4920: set L571-4,%r28
4921: ld [%r29+%r28],%r29
4922: jmp %r29; nop
4923: L571:
4924: .align 4; .word L549
4925: .align 4; .word L556
4926: .align 4; .word L561
4927: .align 4; .word L562
4928: L549:
4929: set _Underflow,%r29
4930: ld [%r29],%f30; ld [%r29+4],%f31
4931: set _UfThold,%r29
4932: st %f30,[%r29]; st %f31,[%r29+4]
4933: set _CInvrse,%r29
4934: ld [%r29],%f30; ld [%r29+4],%f31
4935: set _Q,%r29
4936: ld [%r29],%f28; ld [%r29+4],%f29
4937: fmuld %f30,%f28,%f28
4938: set _Y,%r29
4939: ld [%r29],%f26; ld [%r29+4],%f27
4940: fmuld %f30,%f26,%f30
4941: set _S,%r29
4942: ld [%r29],%f26; ld [%r29+4],%f27
4943: fmuld %f30,%f26,%f30
4944: fcmped %f28,%f30; nop; fbue L550; nop
4945: set _Y,%r29
4946: ld [%r29],%f30; ld [%r29+4],%f31
4947: set _UfThold,%r29
4948: st %f30,[%r29]; st %f31,[%r29+4]
4949: mov %r0,%r8
4950: set L552,%r9
4951: call _BadCond; nop
4952: set L553,%r8
4953: set _UfThold,%r29
4954: ld [%r29],%f30; ld [%r29+4],%f31
4955: st %f30,[%sp+4*1+68]
4956: st %f31,[%sp+4*2+68]
4957: ld [%sp+4*1+68],%o1
4958: ld [%sp+4*2+68],%o2
4959: call _printf; nop
4960: set L554,%r8
4961: set _C,%r29
4962: ld [%r29],%f30; ld [%r29+4],%f31
4963: st %f30,[%sp+4*1+68]
4964: st %f31,[%sp+4*2+68]
4965: ld [%sp+4*1+68],%o1
4966: ld [%sp+4*2+68],%o2
4967: call _printf; nop
4968: set L555,%r8
4969: call _printf; nop
4970: L550:
4971: call _Pause; nop
4972: ba L548; nop
4973: L556:
4974: mov %r0,%r8
4975: set L557,%r9
4976: call _BadCond; nop
4977: set L558,%r8
4978: call _printf; nop
4979: set L559,%r8
4980: set _Q,%r29
4981: ld [%r29],%f30; ld [%r29+4],%f31
4982: st %f30,[%sp+4*1+68]
4983: st %f31,[%sp+4*2+68]
4984: ld [%sp+4*1+68],%o1
4985: ld [%sp+4*2+68],%o2
4986: set _Y2,%r29
4987: ld [%r29],%f30; ld [%r29+4],%f31
4988: st %f30,[%sp+4*3+68]
4989: st %f31,[%sp+4*4+68]
4990: ld [%sp+4*3+68],%o3
4991: ld [%sp+4*4+68],%o4
4992: call _printf; nop
4993: set _Q,%r29
4994: ld [%r29],%f30; ld [%r29+4],%f31
4995: set _Y2,%r29
4996: ld [%r29],%f28; ld [%r29+4],%f29
4997: fsubd %f30,%f28,%f30
4998: st %f30,[%sp+4*0+68]
4999: st %f31,[%sp+4*1+68]
5000: ld [%sp+4*0+68],%o0
5001: ld [%sp+4*1+68],%o1
5002: call _fabs; nop
5003: set L560,%r8
5004: st %f0,[%sp+4*1+68]
5005: st %f1,[%sp+4*2+68]
5006: ld [%sp+4*1+68],%o1
5007: ld [%sp+4*2+68],%o2
5008: call _printf; nop
5009: set _Q,%r29
5010: ld [%r29],%f30; ld [%r29+4],%f31
5011: set _UfThold,%r29
5012: st %f30,[%r29]; st %f31,[%r29+4]
5013: ba L548; nop
5014: L561:
5015: set _X,%r29
5016: ld [%r29],%f30; ld [%r29+4],%f31
5017: st %f30,[%r29]; st %f31,[%r29+4]
5018: ba L548; nop
5019: L562:
5020: set _Q,%r29
5021: ld [%r29],%f30; ld [%r29+4],%f31
5022: set _UfThold,%r29
5023: ld [%r29],%f28; ld [%r29+4],%f29
5024: fcmped %f30,%f28; nop; fbne L563; nop
5025: set _E1,%r29
5026: ld [%r29],%f30; ld [%r29+4],%f31
5027: set _E0,%r29
5028: ld [%r29],%f26; ld [%r29+4],%f27
5029: fcmped %f30,%f26; nop; fbne L563; nop
5030: set _E9,%r29
5031: ld [%r29],%f26; ld [%r29+4],%f27
5032: fdivd %f30,%f26,%f30
5033: fsubd %f28,%f30,%f30
5034: st %f30,[%sp+4*0+68]
5035: st %f31,[%sp+4*1+68]
5036: ld [%sp+4*0+68],%o0
5037: ld [%sp+4*1+68],%o1
5038: call _fabs; nop
5039: set _E1,%r29
5040: ld [%r29],%f30; ld [%r29+4],%f31
5041: fcmped %f0,%f30; nop; fbug L563; nop
5042: set _UfNGrad,%r29
5043: st %r0,[%r29]
5044: set L565,%r8
5045: call _printf; nop
5046: set L566,%r8
5047: call _printf; nop
5048: set _E0,%r28
5049: ld [%r28],%f30; ld [%r28+4],%f31
5050: set _CInvrse,%r28
5051: ld [%r28],%f28; ld [%r28+4],%f29
5052: fmuld %f30,%f28,%f30
5053: set _Y,%r28
5054: st %f30,[%r28]; st %f31,[%r28+4]
5055: ld [%r28],%f30; ld [%r28+4],%f31
5056: set _OneAndHalf,%r27
5057: ld [%r27],%f26; ld [%r27+4],%f27
5058: set _U2,%r27
5059: ld [%r27],%f24; ld [%r27+4],%f25
5060: faddd %f26,%f24,%f26
5061: fmuld %f30,%f26,%f30
5062: st %f30,[%r28]; st %f31,[%r28+4]
5063: set _One,%r27
5064: ld [%r27],%f30; ld [%r27+4],%f31
5065: faddd %f30,%f24,%f30
5066: fmuld %f28,%f30,%f30
5067: set _X,%r27
5068: st %f30,[%r27]; st %f31,[%r27+4]
5069: ld [%r28],%f30; ld [%r28+4],%f31
5070: ld [%r27],%f28; ld [%r27+4],%f29
5071: fdivd %f30,%f28,%f30
5072: st %f30,[%r28]; st %f31,[%r28+4]
5073: set _Y,%r28
5074: ld [%r28],%f30; ld [%r28+4],%f31
5075: set _E0,%r28
5076: ld [%r28],%f28; ld [%r28+4],%f29
5077: fcmped %f30,%f28; nop; fbne L568; nop
5078: set 1,%r29
5079: ba L569; nop
5080: L568:
5081: mov %r0,%r29
5082: L569:
5083: set _IEEE,%r28
5084: st %r29,[%r28]
5085: L563:
5086: L547:
5087: L548:
5088: set _UfNGrad,%r29
5089: ld [%r29],%r29
5090: cmp %r29,%r0; be L573; nop
5091: set L44,%r8
5092: call _printf; nop
5093: set _sigfpe,%r29
5094: set _sigsave,%r28
5095: st %r29,[%r28]
5096: set _ovfl_buf,%r8
5097: call _setjmp; nop
5098: cmp %r8,%r0; be L575; nop
5099: set L577,%r8
5100: call _printf; nop
5101: set _H,%r29
5102: ld [%r29],%f30; ld [%r29+4],%f31
5103: faddd %f30,%f30,%f30
5104: set _R,%r29
5105: st %f30,[%r29]; st %f31,[%r29+4]
5106: ba L576; nop
5107: L575:
5108: set _Underflow,%r29
5109: ld [%r29],%f30; ld [%r29+4],%f31
5110: set _UfThold,%r29
5111: ld [%r29],%f28; ld [%r29+4],%f29
5112: fdivd %f30,%f28,%f30
5113: st %f30,[%sp+4*0+68]
5114: st %f31,[%sp+4*1+68]
5115: ld [%sp+4*0+68],%o0
5116: ld [%sp+4*1+68],%o1
5117: call _sqrt; nop
5118: set _R,%r29
5119: st %f0,[%r29]; st %f1,[%r29+4]
5120: L576:
5121: set _sigsave,%r29
5122: st %r0,[%r29]
5123: set _R,%r29
5124: ld [%r29],%f30; ld [%r29+4],%f31
5125: set _H,%r29
5126: ld [%r29],%f28; ld [%r29+4],%f29
5127: fcmped %f30,%f28; nop; fbug L578; nop
5128: set _R,%r29
5129: ld [%r29],%f30; ld [%r29+4],%f31
5130: set _UfThold,%r29
5131: ld [%r29],%f28; ld [%r29+4],%f29
5132: fmuld %f30,%f28,%f28
5133: set _Z,%r29
5134: st %f28,[%r29]; st %f29,[%r29+4]
5135: ld [%r29],%f28; ld [%r29+4],%f29
5136: set _One,%r29
5137: ld [%r29],%f26; ld [%r29+4],%f27
5138: set _H,%r29
5139: ld [%r29],%f24; ld [%r29+4],%f25
5140: fmuld %f30,%f24,%f30
5141: faddd %f26,%f24,%f24
5142: fmuld %f30,%f24,%f30
5143: faddd %f26,%f30,%f30
5144: fmuld %f28,%f30,%f30
5145: set _X,%r29
5146: st %f30,[%r29]; st %f31,[%r29+4]
5147: ba L579; nop
5148: L578:
5149: set _UfThold,%r29
5150: ld [%r29],%f30; ld [%r29+4],%f31
5151: set _Z,%r29
5152: st %f30,[%r29]; st %f31,[%r29+4]
5153: ld [%r29],%f30; ld [%r29+4],%f31
5154: set _One,%r29
5155: ld [%r29],%f28; ld [%r29+4],%f29
5156: set _H,%r29
5157: ld [%r29],%f26; ld [%r29+4],%f27
5158: fmuld %f26,%f26,%f24
5159: faddd %f28,%f26,%f26
5160: fmuld %f24,%f26,%f26
5161: faddd %f28,%f26,%f28
5162: fmuld %f30,%f28,%f30
5163: set _X,%r29
5164: st %f30,[%r29]; st %f31,[%r29+4]
5165: L579:
5166: set _X,%r29
5167: ld [%r29],%f30; ld [%r29+4],%f31
5168: set _Z,%r29
5169: ld [%r29],%f28; ld [%r29+4],%f29
5170: fcmped %f30,%f28; nop; fbue L580; nop
5171: fsubd %f30,%f28,%f30
5172: set _Zero,%r29
5173: ld [%r29],%f28; ld [%r29+4],%f29
5174: fcmped %f30,%f28; nop; fbne L580; nop
5175: set 3,%r8
5176: set L157,%r9
5177: call _BadCond; nop
5178: set L582,%r8
5179: set _X,%r29
5180: ld [%r29],%f30; ld [%r29+4],%f31
5181: st %f30,[%sp+4*1+68]
5182: st %f31,[%sp+4*2+68]
5183: ld [%sp+4*1+68],%o1
5184: ld [%sp+4*2+68],%o2
5185: set _Z,%r29
5186: ld [%r29],%f30; ld [%r29+4],%f31
5187: st %f30,[%sp+4*3+68]
5188: st %f31,[%sp+4*4+68]
5189: ld [%sp+4*3+68],%o3
5190: ld [%sp+4*4+68],%o4
5191: call _printf; nop
5192: set _X,%r29
5193: ld [%r29],%f30; ld [%r29+4],%f31
5194: set _Z,%r29
5195: ld [%r29],%f28; ld [%r29+4],%f29
5196: fsubd %f30,%f28,%f30
5197: set _Z9,%r29
5198: st %f30,[%r29]; st %f31,[%r29+4]
5199: set L583,%r8
5200: ld [%r29],%f30; ld [%r29+4],%f31
5201: st %f30,[%sp+4*1+68]
5202: st %f31,[%sp+4*2+68]
5203: ld [%sp+4*1+68],%o1
5204: ld [%sp+4*2+68],%o2
5205: call _printf; nop
5206: set L584,%r8
5207: call _printf; nop
5208: set L585,%r8
5209: call _printf; nop
5210: set L586,%r8
5211: call _printf; nop
5212: set L587,%r8
5213: call _printf; nop
5214: set L588,%r8
5215: call _printf; nop
5216: set L589,%r8
5217: call _printf; nop
5218: set _sigfpe,%r29
5219: set _sigsave,%r28
5220: st %r29,[%r28]
5221: set _ovfl_buf,%r8
5222: call _setjmp; nop
5223: cmp %r8,%r0; be L590; nop
5224: set L592,%r8
5225: call _printf; nop
5226: ba L591; nop
5227: L590:
5228: set L593,%r8
5229: set _X,%r29
5230: ld [%r29],%f30; ld [%r29+4],%f31
5231: set _Z,%r29
5232: ld [%r29],%f28; ld [%r29+4],%f29
5233: fdivd %f30,%f28,%f30
5234: set _Half,%r29
5235: ld [%r29],%f28; ld [%r29+4],%f29
5236: fsubd %f30,%f28,%f30
5237: fsubd %f30,%f28,%f30
5238: st %f30,[%sp+4*1+68]
5239: st %f31,[%sp+4*2+68]
5240: ld [%sp+4*1+68],%o1
5241: ld [%sp+4*2+68],%o2
5242: call _printf; nop
5243: L591:
5244: set _sigsave,%r29
5245: st %r0,[%r29]
5246: L580:
5247: L573:
5248: set L594,%r8
5249: set _UfThold,%r29
5250: ld [%r29],%f30; ld [%r29+4],%f31
5251: st %f30,[%sp+4*1+68]
5252: st %f31,[%sp+4*2+68]
5253: ld [%sp+4*1+68],%o1
5254: ld [%sp+4*2+68],%o2
5255: set L595,%r11
5256: call _printf; nop
5257: set L596,%r8
5258: call _printf; nop
5259: set L597,%r8
5260: call _printf; nop
5261: set _U1,%r29
5262: ld [%r29],%f30; ld [%r29+4],%f31
5263: fmuld %f30,%f30,%f28
5264: set _Y2,%r29
5265: st %f28,[%r29]; st %f29,[%r29+4]
5266: ld [%r29],%f28; ld [%r29+4],%f29
5267: fmuld %f28,%f28,%f28
5268: set _Y,%r28
5269: st %f28,[%r28]; st %f29,[%r28+4]
5270: ld [%r28],%f28; ld [%r28+4],%f29
5271: fmuld %f28,%f30,%f30
5272: st %f30,[%r29]; st %f31,[%r29+4]
5273: ld [%r29],%f30; ld [%r29+4],%f31
5274: set _UfThold,%r29
5275: ld [%r29],%f28; ld [%r29+4],%f29
5276: fcmped %f30,%f28; nop; fbug L598; nop
5277: set _Y,%r29
5278: ld [%r29],%f30; ld [%r29+4],%f31
5279: set _E0,%r29
5280: ld [%r29],%f28; ld [%r29+4],%f29
5281: fcmped %f30,%f28; nop; fbule L600; nop
5282: set 2,%r8
5283: set L157,%r9
5284: call _BadCond; nop
5285: set 5,%r29
5286: set _I,%r28
5287: st %r29,[%r28]
5288: ba L601; nop
5289: L600:
5290: set 1,%r8
5291: set L157,%r9
5292: call _BadCond; nop
5293: set 4,%r29
5294: set _I,%r28
5295: st %r29,[%r28]
5296: L601:
5297: set L602,%r8
5298: set _I,%r29
5299: ld [%r29],%r9
5300: call _printf; nop
5301: L598:
5302: set 130,%r29
5303: set _Milestone,%r28
5304: st %r29,[%r28]
5305: set _UfThold,%r29
5306: ld [%r29],%f30; ld [%r29+4],%f31
5307: st %f30,[%sp+4*0+68]
5308: st %f31,[%sp+4*1+68]
5309: ld [%sp+4*0+68],%o0
5310: ld [%sp+4*1+68],%o1
5311: call _log; nop
5312: st %f0,[%fp+-64]; st %f1,[%fp+-64+4]
5313: set _HInvrse,%r29
5314: ld [%r29],%f30; ld [%r29+4],%f31
5315: st %f30,[%sp+4*0+68]
5316: st %f31,[%sp+4*1+68]
5317: ld [%sp+4*0+68],%o0
5318: ld [%sp+4*1+68],%o1
5319: call _log; nop
5320: set _Half,%r29
5321: ld [%r29],%f30; ld [%r29+4],%f31
5322: set _TwoForty,%r29
5323: ld [%r29],%f28; ld [%r29+4],%f29
5324: ld [%fp+-64],%f26; ld [%fp+-64+4],%f27
5325: fmuld %f28,%f26,%f28
5326: fdivd %f28,%f0,%f28
5327: fsubd %f30,%f28,%f30
5328: st %f30,[%sp+4*0+68]
5329: st %f31,[%sp+4*1+68]
5330: ld [%sp+4*0+68],%o0
5331: ld [%sp+4*1+68],%o1
5332: call _floor; nop
5333: fnegs %f0,%f30; fmovs %f1,%f31
5334: set _TwoForty,%r29
5335: ld [%r29],%f28; ld [%r29+4],%f29
5336: fdivd %f30,%f28,%f30
5337: set _Y,%r29
5338: st %f30,[%r29]; st %f31,[%r29+4]
5339: set _Y,%r29
5340: ld [%r29],%f30; ld [%r29+4],%f31
5341: faddd %f30,%f30,%f30
5342: set _Y2,%r29
5343: st %f30,[%r29]; st %f31,[%r29+4]
5344: set L603,%r8
5345: call _printf; nop
5346: set L604,%r8
5347: set _HInvrse,%r29
5348: ld [%r29],%f30; ld [%r29+4],%f31
5349: st %f30,[%sp+4*1+68]
5350: st %f31,[%sp+4*2+68]
5351: ld [%sp+4*1+68],%o1
5352: ld [%sp+4*2+68],%o2
5353: set _Y,%r29
5354: ld [%r29],%f30; ld [%r29+4],%f31
5355: st %f30,[%sp+4*3+68]
5356: st %f31,[%sp+4*4+68]
5357: ld [%sp+4*3+68],%o3
5358: ld [%sp+4*4+68],%o4
5359: call _printf; nop
5360: set L605,%r8
5361: set _HInvrse,%r29
5362: ld [%r29],%f30; ld [%r29+4],%f31
5363: st %f30,[%sp+4*1+68]
5364: st %f31,[%sp+4*2+68]
5365: ld [%sp+4*1+68],%o1
5366: ld [%sp+4*2+68],%o2
5367: set _Y,%r29
5368: ld [%r29],%f30; ld [%r29+4],%f31
5369: st %f30,[%sp+4*3+68]
5370: st %f31,[%sp+4*4+68]
5371: ld [%sp+4*3+68],%o3
5372: ld [%sp+4*4+68],%o4
5373: call _printf; nop
5374: set _HInvrse,%r29
5375: ld [%r29],%f30; ld [%r29+4],%f31
5376: st %f30,[%sp+4*0+68]
5377: st %f31,[%sp+4*1+68]
5378: ld [%sp+4*0+68],%o0
5379: ld [%sp+4*1+68],%o1
5380: set _Y2,%r29
5381: ld [%r29],%f30; ld [%r29+4],%f31
5382: st %f30,[%sp+4*2+68]
5383: st %f31,[%sp+4*3+68]
5384: ld [%sp+4*2+68],%o2
5385: ld [%sp+4*3+68],%o3
5386: call _pow; nop
5387: set _V9,%r29
5388: st %f0,[%r29]; st %f1,[%r29+4]
5389: set L606,%r8
5390: set _V9,%r29
5391: ld [%r29],%f30; ld [%r29+4],%f31
5392: st %f30,[%sp+4*1+68]
5393: st %f31,[%sp+4*2+68]
5394: ld [%sp+4*1+68],%o1
5395: ld [%sp+4*2+68],%o2
5396: call _printf; nop
5397: set _V9,%r29
5398: ld [%r29],%f30; ld [%r29+4],%f31
5399: set _Zero,%r29
5400: ld [%r29],%f28; ld [%r29+4],%f29
5401: fcmped %f30,%f28; nop; fbul L609; nop
5402: set _Radix,%r29
5403: ld [%r29],%f28; ld [%r29+4],%f29
5404: faddd %f28,%f28,%f28
5405: set _E9,%r29
5406: ld [%r29],%f26; ld [%r29+4],%f27
5407: faddd %f28,%f26,%f28
5408: set _UfThold,%r29
5409: ld [%r29],%f26; ld [%r29+4],%f27
5410: fmuld %f28,%f26,%f28
5411: fcmped %f30,%f28; nop; fbule L607; nop
5412: L609:
5413: set 1,%r8
5414: set L610,%r9
5415: call _BadCond; nop
5416: set L611,%r8
5417: set _UfThold,%r29
5418: ld [%r29],%f30; ld [%r29+4],%f31
5419: st %f30,[%sp+4*1+68]
5420: st %f31,[%sp+4*2+68]
5421: ld [%sp+4*1+68],%o1
5422: ld [%sp+4*2+68],%o2
5423: call _printf; nop
5424: ba L608; nop
5425: L607:
5426: set _V9,%r29
5427: ld [%r29],%f30; ld [%r29+4],%f31
5428: set _UfThold,%r29
5429: ld [%r29],%f28; ld [%r29+4],%f29
5430: set _One,%r29
5431: ld [%r29],%f26; ld [%r29+4],%f27
5432: set _E9,%r29
5433: ld [%r29],%f24; ld [%r29+4],%f25
5434: faddd %f26,%f24,%f26
5435: fmuld %f28,%f26,%f28
5436: fcmped %f30,%f28; nop; fbug L612; nop
5437: set L614,%r8
5438: call _printf; nop
5439: ba L613; nop
5440: L612:
5441: set 2,%r8
5442: set L610,%r9
5443: call _BadCond; nop
5444: set L611,%r8
5445: set _UfThold,%r29
5446: ld [%r29],%f30; ld [%r29+4],%f31
5447: st %f30,[%sp+4*1+68]
5448: st %f31,[%sp+4*2+68]
5449: ld [%sp+4*1+68],%o1
5450: ld [%sp+4*2+68],%o2
5451: call _printf; nop
5452: L613:
5453: L608:
5454: set 140,%r29
5455: set _Milestone,%r28
5456: st %r29,[%r28]
5457: set L44,%r8
5458: call _printf; nop
5459: set _Zero,%r29
5460: ld [%r29],%f30; ld [%r29+4],%f31
5461: set _X,%r29
5462: st %f30,[%r29]; st %f31,[%r29+4]
5463: set 2,%r29
5464: set _I,%r28
5465: st %r29,[%r28]
5466: set _Two,%r29
5467: ld [%r29],%f28; ld [%r29+4],%f29
5468: set _Three,%r29
5469: ld [%r29],%f26; ld [%r29+4],%f27
5470: fmuld %f28,%f26,%f28
5471: set _Y,%r29
5472: st %f28,[%r29]; st %f29,[%r29+4]
5473: set _Q,%r29
5474: st %f30,[%r29]; st %f31,[%r29+4]
5475: set _N,%r29
5476: st %r0,[%r29]
5477: L615:
5478: set _X,%r29
5479: ld [%r29],%f30; ld [%r29+4],%f31
5480: set _Z,%r28
5481: st %f30,[%r28]; st %f31,[%r28+4]
5482: set _I,%r27
5483: ld [%r27],%r26
5484: add %r26,1,%r26
5485: st %r26,[%r27]
5486: set _Y,%r26
5487: ld [%r26],%f30; ld [%r26+4],%f31
5488: ld [%r27],%r27
5489: add %r27,%r27,%r27
5490: st %r27,[%sp+64]; ld [%sp+64],%f28; fitod %f28,%f28
5491: fdivd %f30,%f28,%f30
5492: st %f30,[%r26]; st %f31,[%r26+4]
5493: ld [%r26],%f30; ld [%r26+4],%f31
5494: set _Q,%r27
5495: ld [%r27],%f28; ld [%r27+4],%f29
5496: faddd %f30,%f28,%f30
5497: set _R,%r26
5498: st %f30,[%r26]; st %f31,[%r26+4]
5499: ld [%r28],%f30; ld [%r28+4],%f31
5500: ld [%r26],%f28; ld [%r26+4],%f29
5501: faddd %f30,%f28,%f26
5502: st %f26,[%r29]; st %f27,[%r29+4]
5503: ld [%r29],%f26; ld [%r29+4],%f27
5504: fsubd %f30,%f26,%f30
5505: faddd %f30,%f28,%f30
5506: st %f30,[%r27]; st %f31,[%r27+4]
5507: L616:
5508: set _X,%r29
5509: ld [%r29],%f30; ld [%r29+4],%f31
5510: set _Z,%r29
5511: ld [%r29],%f28; ld [%r29+4],%f29
5512: fcmped %f30,%f28; nop; fbug L615; nop
5513: set _OneAndHalf,%r29
5514: ld [%r29],%f30; ld [%r29+4],%f31
5515: set _One,%r29
5516: ld [%r29],%f28; ld [%r29+4],%f29
5517: set _Eight,%r29
5518: ld [%r29],%f26; ld [%r29+4],%f27
5519: fdivd %f28,%f26,%f28
5520: faddd %f30,%f28,%f28
5521: set _X,%r29
5522: ld [%r29],%f26; ld [%r29+4],%f27
5523: set _ThirtyTwo,%r28
5524: ld [%r28],%f24; ld [%r28+4],%f25
5525: fmuld %f30,%f24,%f30
5526: fdivd %f26,%f30,%f30
5527: faddd %f28,%f30,%f30
5528: set _Z,%r28
5529: st %f30,[%r28]; st %f31,[%r28+4]
5530: ld [%r28],%f30; ld [%r28+4],%f31
5531: fmuld %f30,%f30,%f30
5532: st %f30,[%r29]; st %f31,[%r29+4]
5533: ld [%r29],%f30; ld [%r29+4],%f31
5534: fmuld %f30,%f30,%f30
5535: set _Exp2,%r28
5536: st %f30,[%r28]; st %f31,[%r28+4]
5537: set _F9,%r27
5538: ld [%r27],%f30; ld [%r27+4],%f31
5539: st %f30,[%r29]; st %f31,[%r29+4]
5540: ld [%r29],%f30; ld [%r29+4],%f31
5541: set _U1,%r29
5542: ld [%r29],%f28; ld [%r29+4],%f29
5543: fsubd %f30,%f28,%f30
5544: set _Y,%r29
5545: st %f30,[%r29]; st %f31,[%r29+4]
5546: set L618,%r8
5547: ld [%r28],%f30; ld [%r28+4],%f31
5548: st %f30,[%sp+4*1+68]
5549: st %f31,[%sp+4*2+68]
5550: ld [%sp+4*1+68],%o1
5551: ld [%sp+4*2+68],%o2
5552: call _printf; nop
5553: set 1,%r29
5554: set _I,%r28
5555: st %r29,[%r28]
5556: L619:
5557: set _X,%r29
5558: ld [%r29],%f30; ld [%r29+4],%f31
5559: set _BInvrse,%r29
5560: ld [%r29],%f28; ld [%r29+4],%f29
5561: fsubd %f30,%f28,%f26
5562: set _Z,%r29
5563: st %f26,[%r29]; st %f27,[%r29+4]
5564: set _One,%r28
5565: ld [%r28],%f26; ld [%r28+4],%f27
5566: faddd %f30,%f26,%f24
5567: ld [%r29],%f22; ld [%r29+4],%f23
5568: fsubd %f26,%f28,%f28
5569: fsubd %f22,%f28,%f28
5570: fdivd %f24,%f28,%f28
5571: st %f28,[%r29]; st %f29,[%r29+4]
5572: st %f30,[%sp+4*0+68]
5573: st %f31,[%sp+4*1+68]
5574: ld [%sp+4*0+68],%o0
5575: ld [%sp+4*1+68],%o1
5576: ld [%r29],%f30; ld [%r29+4],%f31
5577: st %f30,[%sp+4*2+68]
5578: st %f31,[%sp+4*3+68]
5579: ld [%sp+4*2+68],%o2
5580: ld [%sp+4*3+68],%o3
5581: call _pow; nop
5582: set _Exp2,%r29
5583: ld [%r29],%f30; ld [%r29+4],%f31
5584: fsubd %f0,%f30,%f30
5585: set _Q,%r29
5586: st %f30,[%r29]; st %f31,[%r29+4]
5587: set _Q,%r29
5588: ld [%r29],%f30; ld [%r29+4],%f31
5589: st %f30,[%sp+4*0+68]
5590: st %f31,[%sp+4*1+68]
5591: ld [%sp+4*0+68],%o0
5592: ld [%sp+4*1+68],%o1
5593: call _fabs; nop
5594: set _TwoForty,%r29
5595: ld [%r29],%f30; ld [%r29+4],%f31
5596: set _U2,%r29
5597: ld [%r29],%f28; ld [%r29+4],%f29
5598: fmuld %f30,%f28,%f30
5599: fcmped %f0,%f30; nop; fbule L623; nop
5600: set 1,%r29
5601: set _N,%r28
5602: st %r29,[%r28]
5603: set _X,%r29
5604: ld [%r29],%f30; ld [%r29+4],%f31
5605: set _BInvrse,%r29
5606: ld [%r29],%f28; ld [%r29+4],%f29
5607: fsubd %f30,%f28,%f30
5608: set _One,%r29
5609: ld [%r29],%f26; ld [%r29+4],%f27
5610: fsubd %f26,%f28,%f28
5611: fsubd %f30,%f28,%f30
5612: set _V9,%r29
5613: st %f30,[%r29]; st %f31,[%r29+4]
5614: set 2,%r8
5615: set L625,%r9
5616: call _BadCond; nop
5617: set _X,%r29
5618: ld [%r29],%f30; ld [%r29+4],%f31
5619: st %f30,[%sp+4*0+68]
5620: st %f31,[%sp+4*1+68]
5621: ld [%sp+4*0+68],%o0
5622: ld [%sp+4*1+68],%o1
5623: set _Z,%r29
5624: ld [%r29],%f30; ld [%r29+4],%f31
5625: st %f30,[%sp+4*2+68]
5626: st %f31,[%sp+4*3+68]
5627: ld [%sp+4*2+68],%o2
5628: ld [%sp+4*3+68],%o3
5629: call _pow; nop
5630: set L626,%r8
5631: st %f0,[%sp+4*1+68]
5632: st %f1,[%sp+4*2+68]
5633: ld [%sp+4*1+68],%o1
5634: ld [%sp+4*2+68],%o2
5635: call _printf; nop
5636: set L627,%r8
5637: set _V9,%r29
5638: ld [%r29],%f30; ld [%r29+4],%f31
5639: st %f30,[%sp+4*1+68]
5640: st %f31,[%sp+4*2+68]
5641: ld [%sp+4*1+68],%o1
5642: ld [%sp+4*2+68],%o2
5643: set _Z,%r29
5644: ld [%r29],%f30; ld [%r29+4],%f31
5645: st %f30,[%sp+4*3+68]
5646: st %f31,[%sp+4*4+68]
5647: ld [%sp+4*3+68],%o3
5648: ld [%sp+4*4+68],%o4
5649: call _printf; nop
5650: set L628,%r8
5651: set _Q,%r29
5652: ld [%r29],%f30; ld [%r29+4],%f31
5653: st %f30,[%sp+4*1+68]
5654: st %f31,[%sp+4*2+68]
5655: ld [%sp+4*1+68],%o1
5656: ld [%sp+4*2+68],%o2
5657: call _printf; nop
5658: set L629,%r8
5659: call _printf; nop
5660: set L630,%r8
5661: call _printf; nop
5662: ba L621; nop
5663: L623:
5664: set _Y,%r29
5665: ld [%r29],%f30; ld [%r29+4],%f31
5666: set _X,%r28
5667: ld [%r28],%f28; ld [%r28+4],%f29
5668: fsubd %f30,%f28,%f28
5669: set _Two,%r27
5670: ld [%r27],%f26; ld [%r27+4],%f27
5671: fmuld %f28,%f26,%f28
5672: faddd %f28,%f30,%f28
5673: set _Z,%r27
5674: st %f28,[%r27]; st %f29,[%r27+4]
5675: st %f30,[%r28]; st %f31,[%r28+4]
5676: ld [%r27],%f30; ld [%r27+4],%f31
5677: st %f30,[%r29]; st %f31,[%r29+4]
5678: set _One,%r29
5679: ld [%r29],%f30; ld [%r29+4],%f31
5680: ld [%r28],%f28; ld [%r28+4],%f29
5681: set _F9,%r29
5682: ld [%r29],%f26; ld [%r29+4],%f27
5683: fsubd %f28,%f26,%f28
5684: fmuld %f28,%f28,%f28
5685: faddd %f30,%f28,%f28
5686: st %f28,[%r27]; st %f29,[%r27+4]
5687: ld [%r27],%f28; ld [%r27+4],%f29
5688: fcmped %f28,%f30; nop; fbule L631; nop
5689: set _I,%r29
5690: ld [%r29],%r29
5691: set _NoTrials,%r28
5692: ld [%r28],%r28
5693: cmp %r29,%r28; bge L631; nop
5694: set _I,%r29
5695: ld [%r29],%r28
5696: add %r28,1,%r28
5697: st %r28,[%r29]
5698: ba L619; nop
5699: L631:
5700: set _X,%r29
5701: ld [%r29],%f30; ld [%r29+4],%f31
5702: set _One,%r29
5703: ld [%r29],%f28; ld [%r29+4],%f29
5704: fcmped %f30,%f28; nop; fbule L633; nop
5705: set _N,%r29
5706: ld [%r29],%r29
5707: cmp %r29,%r0; bne L621; nop
5708: set L637,%r8
5709: call _printf; nop
5710: ba L621; nop
5711: L633:
5712: set _One,%r29
5713: ld [%r29],%f30; ld [%r29+4],%f31
5714: set _U2,%r29
5715: ld [%r29],%f28; ld [%r29+4],%f29
5716: faddd %f30,%f28,%f30
5717: set _X,%r29
5718: st %f30,[%r29]; st %f31,[%r29+4]
5719: faddd %f28,%f28,%f30
5720: set _Y,%r28
5721: st %f30,[%r28]; st %f31,[%r28+4]
5722: ld [%r28],%f30; ld [%r28+4],%f31
5723: ld [%r29],%f28; ld [%r29+4],%f29
5724: faddd %f30,%f28,%f30
5725: st %f30,[%r28]; st %f31,[%r28+4]
5726: set 1,%r29
5727: set _I,%r28
5728: st %r29,[%r28]
5729: ba L619; nop
5730: L621:
5731: set 150,%r29
5732: set _Milestone,%r28
5733: st %r29,[%r28]
5734: set L638,%r8
5735: call _printf; nop
5736: set _N,%r29
5737: st %r0,[%r29]
5738: set _A1,%r29
5739: ld [%r29],%f30; ld [%r29+4],%f31
5740: set _Z,%r29
5741: st %f30,[%r29]; st %f31,[%r29+4]
5742: set _C,%r29
5743: ld [%r29],%f30; ld [%r29+4],%f31
5744: st %f30,[%sp+4*0+68]
5745: st %f31,[%sp+4*1+68]
5746: ld [%sp+4*0+68],%o0
5747: ld [%sp+4*1+68],%o1
5748: call _log; nop
5749: st %f0,[%fp+-72]; st %f1,[%fp+-72+4]
5750: set _A1,%r29
5751: ld [%r29],%f30; ld [%r29+4],%f31
5752: st %f30,[%sp+4*0+68]
5753: st %f31,[%sp+4*1+68]
5754: ld [%sp+4*0+68],%o0
5755: ld [%sp+4*1+68],%o1
5756: call _log; nop
5757: set _Half,%r29
5758: ld [%r29],%f30; ld [%r29+4],%f31
5759: ld [%fp+-72],%f28; ld [%fp+-72+4],%f29
5760: fdivd %f28,%f0,%f28
5761: fsubd %f30,%f28,%f30
5762: st %f30,[%sp+4*0+68]
5763: st %f31,[%sp+4*1+68]
5764: ld [%sp+4*0+68],%o0
5765: ld [%sp+4*1+68],%o1
5766: call _floor; nop
5767: set _Q,%r29
5768: st %f0,[%r29]; st %f1,[%r29+4]
5769: set _Break,%r29
5770: st %r0,[%r29]
5771: L639:
5772: set _CInvrse,%r29
5773: ld [%r29],%f30; ld [%r29+4],%f31
5774: set _X,%r29
5775: st %f30,[%r29]; st %f31,[%r29+4]
5776: set _Z,%r29
5777: ld [%r29],%f30; ld [%r29+4],%f31
5778: st %f30,[%sp+4*0+68]
5779: st %f31,[%sp+4*1+68]
5780: ld [%sp+4*0+68],%o0
5781: ld [%sp+4*1+68],%o1
5782: set _Q,%r29
5783: ld [%r29],%f30; ld [%r29+4],%f31
5784: st %f30,[%sp+4*2+68]
5785: st %f31,[%sp+4*3+68]
5786: ld [%sp+4*2+68],%o2
5787: ld [%sp+4*3+68],%o3
5788: call _pow; nop
5789: set _Y,%r29
5790: st %f0,[%r29]; st %f1,[%r29+4]
5791: call _IsYeqX; nop
5792: set _Q,%r29
5793: ld [%r29],%f30; ld [%r29+4],%f31
5794: fnegs %f30,%f30; fmovs %f31,%f31
5795: st %f30,[%r29]; st %f31,[%r29+4]
5796: set _C,%r28
5797: ld [%r28],%f30; ld [%r28+4],%f31
5798: set _X,%r28
5799: st %f30,[%r28]; st %f31,[%r28+4]
5800: set _Z,%r28
5801: ld [%r28],%f30; ld [%r28+4],%f31
5802: st %f30,[%sp+4*0+68]
5803: st %f31,[%sp+4*1+68]
5804: ld [%sp+4*0+68],%o0
5805: ld [%sp+4*1+68],%o1
5806: ld [%r29],%f30; ld [%r29+4],%f31
5807: st %f30,[%sp+4*2+68]
5808: st %f31,[%sp+4*3+68]
5809: ld [%sp+4*2+68],%o2
5810: ld [%sp+4*3+68],%o3
5811: call _pow; nop
5812: set _Y,%r29
5813: st %f0,[%r29]; st %f1,[%r29+4]
5814: call _IsYeqX; nop
5815: set _Z,%r29
5816: ld [%r29],%f30; ld [%r29+4],%f31
5817: set _One,%r29
5818: ld [%r29],%f28; ld [%r29+4],%f29
5819: fcmped %f30,%f28; nop; fbuge L642; nop
5820: set 1,%r29
5821: set _Break,%r28
5822: st %r29,[%r28]
5823: ba L643; nop
5824: L642:
5825: set _AInvrse,%r29
5826: ld [%r29],%f30; ld [%r29+4],%f31
5827: set _Z,%r29
5828: st %f30,[%r29]; st %f31,[%r29+4]
5829: L643:
5830: L640:
5831: set _Break,%r29
5832: ld [%r29],%r29
5833: cmp %r29,%r0; be L639; nop
5834: call _PrintIfNPositive; nop
5835: set _N,%r29
5836: ld [%r29],%r29
5837: cmp %r29,%r0; bne L644; nop
5838: set L646,%r8
5839: call _printf; nop
5840: L644:
5841: set L44,%r8
5842: call _printf; nop
5843: set 160,%r29
5844: set _Milestone,%r28
5845: st %r29,[%r28]
5846: call _Pause; nop
5847: set L647,%r8
5848: call _printf; nop
5849: set L648,%r8
5850: call _printf; nop
5851: set _CInvrse,%r29
5852: ld [%r29],%f30; ld [%r29+4],%f31
5853: fnegs %f30,%f30; fmovs %f31,%f31
5854: set _Y,%r29
5855: st %f30,[%r29]; st %f31,[%r29+4]
5856: set _HInvrse,%r28
5857: ld [%r28],%f30; ld [%r28+4],%f31
5858: ld [%r29],%f28; ld [%r29+4],%f29
5859: fmuld %f30,%f28,%f30
5860: set _V9,%r29
5861: st %f30,[%r29]; st %f31,[%r29+4]
5862: set _sigfpe,%r29
5863: set _sigsave,%r28
5864: st %r29,[%r28]
5865: set _ovfl_buf,%r8
5866: call _setjmp; nop
5867: cmp %r8,%r0; be L649; nop
5868: set _I,%r29
5869: st %r0,[%r29]
5870: set _Y,%r29
5871: ld [%r29],%f30; ld [%r29+4],%f31
5872: set _V9,%r29
5873: st %f30,[%r29]; st %f31,[%r29+4]
5874: ba L651; nop
5875: L649:
5876: L652:
5877: set _Y,%r29
5878: ld [%r29],%f30; ld [%r29+4],%f31
5879: set _V,%r28
5880: st %f30,[%r28]; st %f31,[%r28+4]
5881: set _V9,%r28
5882: ld [%r28],%f30; ld [%r28+4],%f31
5883: st %f30,[%r29]; st %f31,[%r29+4]
5884: set _HInvrse,%r27
5885: ld [%r27],%f30; ld [%r27+4],%f31
5886: ld [%r29],%f28; ld [%r29+4],%f29
5887: fmuld %f30,%f28,%f30
5888: st %f30,[%r28]; st %f31,[%r28+4]
5889: L653:
5890: set _V9,%r29
5891: ld [%r29],%f30; ld [%r29+4],%f31
5892: set _Y,%r29
5893: ld [%r29],%f28; ld [%r29+4],%f29
5894: fcmped %f30,%f28; nop; fbul L652; nop
5895: set 1,%r29
5896: set _I,%r28
5897: st %r29,[%r28]
5898: L651:
5899: set _sigsave,%r29
5900: st %r0,[%r29]
5901: set _V9,%r29
5902: ld [%r29],%f30; ld [%r29+4],%f31
5903: set _Z,%r29
5904: st %f30,[%r29]; st %f31,[%r29+4]
5905: set L655,%r8
5906: call _printf; nop
5907: set L656,%r8
5908: set _Y,%r29
5909: ld [%r29],%f30; ld [%r29+4],%f31
5910: st %f30,[%sp+4*1+68]
5911: st %f31,[%sp+4*2+68]
5912: ld [%sp+4*1+68],%o1
5913: ld [%sp+4*2+68],%o2
5914: call _printf; nop
5915: set _Y,%r29
5916: ld [%r29],%f30; ld [%r29+4],%f31
5917: fnegs %f30,%f28; fmovs %f31,%f29
5918: set _V9,%r29
5919: st %f28,[%r29]; st %f29,[%r29+4]
5920: ld [%r29],%f28; ld [%r29+4],%f29
5921: set _V0,%r29
5922: st %f28,[%r29]; st %f29,[%r29+4]
5923: set _V,%r28
5924: ld [%r28],%f28; ld [%r28+4],%f29
5925: fsubd %f28,%f30,%f30
5926: ld [%r29],%f26; ld [%r29+4],%f27
5927: faddd %f28,%f26,%f28
5928: fcmped %f30,%f28; nop; fbne L657; nop
5929: set L659,%r8
5930: call _printf; nop
5931: ba L658; nop
5932: L657:
5933: set L660,%r8
5934: call _printf; nop
5935: set 3,%r8
5936: set L661,%r9
5937: call _BadCond; nop
5938: L658:
5939: set _Z,%r29
5940: ld [%r29],%f30; ld [%r29+4],%f31
5941: set _Y,%r29
5942: ld [%r29],%f28; ld [%r29+4],%f29
5943: fcmped %f30,%f28; nop; fbue L662; nop
5944: set 1,%r8
5945: set L157,%r9
5946: call _BadCond; nop
5947: set L664,%r8
5948: set _Y,%r29
5949: ld [%r29],%f30; ld [%r29+4],%f31
5950: st %f30,[%sp+4*1+68]
5951: st %f31,[%sp+4*2+68]
5952: ld [%sp+4*1+68],%o1
5953: ld [%sp+4*2+68],%o2
5954: set _Z,%r29
5955: ld [%r29],%f30; ld [%r29+4],%f31
5956: st %f30,[%sp+4*3+68]
5957: st %f31,[%sp+4*4+68]
5958: ld [%sp+4*3+68],%o3
5959: ld [%sp+4*4+68],%o4
5960: call _printf; nop
5961: L662:
5962: set _I,%r29
5963: ld [%r29],%r29
5964: cmp %r29,%r0; be L665; nop
5965: set _V,%r29
5966: ld [%r29],%f30; ld [%r29+4],%f31
5967: set _HInvrse,%r29
5968: ld [%r29],%f28; ld [%r29+4],%f29
5969: set _U2,%r29
5970: ld [%r29],%f26; ld [%r29+4],%f27
5971: fmuld %f28,%f26,%f24
5972: fsubd %f24,%f28,%f24
5973: fmuld %f30,%f24,%f24
5974: set _Y,%r29
5975: st %f24,[%r29]; st %f25,[%r29+4]
5976: ld [%r29],%f24; ld [%r29+4],%f25
5977: set _One,%r29
5978: ld [%r29],%f22; ld [%r29+4],%f23
5979: fsubd %f22,%f28,%f28
5980: fmuld %f28,%f26,%f28
5981: fmuld %f28,%f30,%f30
5982: faddd %f24,%f30,%f30
5983: set _Z,%r29
5984: st %f30,[%r29]; st %f31,[%r29+4]
5985: ld [%r29],%f30; ld [%r29+4],%f31
5986: set _V0,%r29
5987: ld [%r29],%f28; ld [%r29+4],%f29
5988: fcmped %f30,%f28; nop; fbuge L667; nop
5989: set _Z,%r29
5990: ld [%r29],%f30; ld [%r29+4],%f31
5991: set _Y,%r29
5992: st %f30,[%r29]; st %f31,[%r29+4]
5993: L667:
5994: set _Y,%r29
5995: ld [%r29],%f30; ld [%r29+4],%f31
5996: set _V0,%r29
5997: ld [%r29],%f28; ld [%r29+4],%f29
5998: fcmped %f30,%f28; nop; fbuge L669; nop
5999: set _Y,%r29
6000: ld [%r29],%f30; ld [%r29+4],%f31
6001: set _V,%r29
6002: st %f30,[%r29]; st %f31,[%r29+4]
6003: L669:
6004: set _V0,%r29
6005: ld [%r29],%f30; ld [%r29+4],%f31
6006: set _V,%r29
6007: ld [%r29],%f28; ld [%r29+4],%f29
6008: fsubd %f30,%f28,%f28
6009: fcmped %f28,%f30; nop; fbuge L666; nop
6010: set _V0,%r29
6011: ld [%r29],%f30; ld [%r29+4],%f31
6012: set _V,%r29
6013: st %f30,[%r29]; st %f31,[%r29+4]
6014: ba L666; nop
6015: L665:
6016: set _Y,%r29
6017: ld [%r29],%f30; ld [%r29+4],%f31
6018: set _HInvrse,%r29
6019: ld [%r29],%f28; ld [%r29+4],%f29
6020: set _U2,%r29
6021: ld [%r29],%f26; ld [%r29+4],%f27
6022: fmuld %f28,%f26,%f24
6023: fsubd %f24,%f28,%f24
6024: fmuld %f30,%f24,%f24
6025: set _V,%r29
6026: st %f24,[%r29]; st %f25,[%r29+4]
6027: ld [%r29],%f24; ld [%r29+4],%f25
6028: set _One,%r28
6029: ld [%r28],%f22; ld [%r28+4],%f23
6030: fsubd %f22,%f28,%f28
6031: fmuld %f28,%f26,%f28
6032: fmuld %f28,%f30,%f30
6033: faddd %f24,%f30,%f30
6034: st %f30,[%r29]; st %f31,[%r29+4]
6035: L666:
6036: set L673,%r8
6037: set _V,%r29
6038: ld [%r29],%f30; ld [%r29+4],%f31
6039: st %f30,[%sp+4*1+68]
6040: st %f31,[%sp+4*2+68]
6041: ld [%sp+4*1+68],%o1
6042: ld [%sp+4*2+68],%o2
6043: call _printf; nop
6044: set _I,%r29
6045: ld [%r29],%r29
6046: cmp %r29,%r0; be L674; nop
6047: set L676,%r8
6048: set _V0,%r29
6049: ld [%r29],%f30; ld [%r29+4],%f31
6050: st %f30,[%sp+4*1+68]
6051: st %f31,[%sp+4*2+68]
6052: ld [%sp+4*1+68],%o1
6053: ld [%sp+4*2+68],%o2
6054: call _printf; nop
6055: ba L675; nop
6056: L674:
6057: set L677,%r8
6058: call _printf; nop
6059: L675:
6060: set _V,%r29
6061: ld [%r29],%f30; ld [%r29+4],%f31
6062: set _One,%r29
6063: ld [%r29],%f28; ld [%r29+4],%f29
6064: fmuld %f30,%f28,%f30
6065: set _V9,%r29
6066: st %f30,[%r29]; st %f31,[%r29+4]
6067: set L678,%r8
6068: ld [%r29],%f30; ld [%r29+4],%f31
6069: st %f30,[%sp+4*1+68]
6070: st %f31,[%sp+4*2+68]
6071: ld [%sp+4*1+68],%o1
6072: ld [%sp+4*2+68],%o2
6073: call _printf; nop
6074: set _V,%r29
6075: ld [%r29],%f30; ld [%r29+4],%f31
6076: set _One,%r29
6077: ld [%r29],%f28; ld [%r29+4],%f29
6078: fdivd %f30,%f28,%f30
6079: set _V9,%r29
6080: st %f30,[%r29]; st %f31,[%r29+4]
6081: set L679,%r8
6082: ld [%r29],%f30; ld [%r29+4],%f31
6083: st %f30,[%sp+4*1+68]
6084: st %f31,[%sp+4*2+68]
6085: ld [%sp+4*1+68],%o1
6086: ld [%sp+4*2+68],%o2
6087: call _printf; nop
6088: set L680,%r8
6089: call _printf; nop
6090: set L681,%r8
6091: call _printf; nop
6092: set 170,%r29
6093: set _Milestone,%r28
6094: st %r29,[%r28]
6095: set _V,%r29
6096: ld [%r29],%f30; ld [%r29+4],%f31
6097: fnegs %f30,%f28; fmovs %f31,%f29
6098: fcmped %f28,%f30; nop; fbuge L686; nop
6099: set _V0,%r29
6100: ld [%r29],%f28; ld [%r29+4],%f29
6101: fnegs %f28,%f26; fmovs %f29,%f27
6102: fcmped %f26,%f28; nop; fbuge L686; nop
6103: set _UfThold,%r29
6104: ld [%r29],%f28; ld [%r29+4],%f29
6105: fnegs %f28,%f26; fmovs %f29,%f27
6106: fcmped %f26,%f30; nop; fbuge L686; nop
6107: fcmped %f28,%f30; nop; fbul L682; nop
6108: L686:
6109: mov %r0,%r8
6110: set L687,%r9
6111: call _BadCond; nop
6112: set L688,%r8
6113: set _V,%r29
6114: ld [%r29],%f30; ld [%r29+4],%f31
6115: st %f30,[%sp+4*1+68]
6116: st %f31,[%sp+4*2+68]
6117: ld [%sp+4*1+68],%o1
6118: ld [%sp+4*2+68],%o2
6119: set _V0,%r29
6120: ld [%r29],%f30; ld [%r29+4],%f31
6121: st %f30,[%sp+4*3+68]
6122: st %f31,[%sp+4*4+68]
6123: ld [%sp+4*3+68],%o3
6124: ld [%sp+4*4+68],%o4
6125: set _UfThold,%r29
6126: ld [%r29],%f30; ld [%r29+4],%f31
6127: st %f30,[%sp+4*5+68]
6128: st %f31,[%sp+4*6+68]
6129: ld [%sp+4*5+68],%o5
6130: call _printf; nop
6131: L682:
6132: set 175,%r29
6133: set _Milestone,%r28
6134: st %r29,[%r28]
6135: set L44,%r8
6136: call _printf; nop
6137: set 1,%r29
6138: set _Indx,%r28
6139: st %r29,[%r28]
6140: L689:
6141: set _Indx,%r29
6142: ld [%r29],%r29
6143: cmp %r29,1; be L695; nop
6144: cmp %r29,2; be L696; nop
6145: cmp %r29,3; be L697; nop
6146: ba L693; nop
6147: L695:
6148: set _UfThold,%r29
6149: ld [%r29],%f30; ld [%r29+4],%f31
6150: set _Z,%r29
6151: st %f30,[%r29]; st %f31,[%r29+4]
6152: ba L694; nop
6153: L696:
6154: set _E0,%r29
6155: ld [%r29],%f30; ld [%r29+4],%f31
6156: set _Z,%r29
6157: st %f30,[%r29]; st %f31,[%r29+4]
6158: ba L694; nop
6159: L697:
6160: set _PseudoZero,%r29
6161: ld [%r29],%f30; ld [%r29+4],%f31
6162: set _Z,%r29
6163: st %f30,[%r29]; st %f31,[%r29+4]
6164: L693:
6165: L694:
6166: set _Z,%r29
6167: ld [%r29],%f30; ld [%r29+4],%f31
6168: set _Zero,%r29
6169: ld [%r29],%f28; ld [%r29+4],%f29
6170: fcmped %f30,%f28; nop; fbue L698; nop
6171: set _Z,%r29
6172: ld [%r29],%f30; ld [%r29+4],%f31
6173: st %f30,[%sp+4*0+68]
6174: st %f31,[%sp+4*1+68]
6175: ld [%sp+4*0+68],%o0
6176: ld [%sp+4*1+68],%o1
6177: call _sqrt; nop
6178: set _V9,%r29
6179: st %f0,[%r29]; st %f1,[%r29+4]
6180: set _V9,%r29
6181: ld [%r29],%f30; ld [%r29+4],%f31
6182: fmuld %f30,%f30,%f30
6183: set _Y,%r29
6184: st %f30,[%r29]; st %f31,[%r29+4]
6185: ld [%r29],%f30; ld [%r29+4],%f31
6186: set _One,%r29
6187: ld [%r29],%f28; ld [%r29+4],%f29
6188: set _Radix,%r29
6189: ld [%r29],%f26; ld [%r29+4],%f27
6190: set _E9,%r29
6191: ld [%r29],%f24; ld [%r29+4],%f25
6192: fmuld %f26,%f24,%f26
6193: fsubd %f28,%f26,%f24
6194: fdivd %f30,%f24,%f24
6195: set _Z,%r29
6196: ld [%r29],%f22; ld [%r29+4],%f23
6197: fcmped %f24,%f22; nop; fbul L702; nop
6198: faddd %f28,%f26,%f28
6199: fmuld %f28,%f22,%f28
6200: fcmped %f30,%f28; nop; fbule L700; nop
6201: L702:
6202: set _V9,%r29
6203: ld [%r29],%f30; ld [%r29+4],%f31
6204: set _U1,%r29
6205: ld [%r29],%f28; ld [%r29+4],%f29
6206: fcmped %f30,%f28; nop; fbule L703; nop
6207: set 1,%r8
6208: set L157,%r9
6209: call _BadCond; nop
6210: ba L704; nop
6211: L703:
6212: set 2,%r8
6213: set L157,%r9
6214: call _BadCond; nop
6215: L704:
6216: set L705,%r8
6217: set _Z,%r29
6218: ld [%r29],%f30; ld [%r29+4],%f31
6219: st %f30,[%sp+4*1+68]
6220: st %f31,[%sp+4*2+68]
6221: ld [%sp+4*1+68],%o1
6222: ld [%sp+4*2+68],%o2
6223: call _printf; nop
6224: set L706,%r8
6225: set _Y,%r29
6226: ld [%r29],%f30; ld [%r29+4],%f31
6227: st %f30,[%sp+4*1+68]
6228: st %f31,[%sp+4*2+68]
6229: ld [%sp+4*1+68],%o1
6230: ld [%sp+4*2+68],%o2
6231: call _printf; nop
6232: L700:
6233: L698:
6234: L690:
6235: set _Indx,%r29
6236: ld [%r29],%r28
6237: add %r28,1,%r28
6238: st %r28,[%r29]
6239: set _Indx,%r29
6240: ld [%r29],%r29
6241: cmp %r29,3; ble L689; nop
6242: set 180,%r29
6243: set _Milestone,%r28
6244: st %r29,[%r28]
6245: set 1,%r29
6246: set _Indx,%r28
6247: st %r29,[%r28]
6248: L707:
6249: set _Indx,%r29
6250: ld [%r29],%r29
6251: cmp %r29,1; bne L711; nop
6252: set _V,%r29
6253: ld [%r29],%f30; ld [%r29+4],%f31
6254: set _Z,%r29
6255: st %f30,[%r29]; st %f31,[%r29+4]
6256: ba L712; nop
6257: L711:
6258: set _V0,%r29
6259: ld [%r29],%f30; ld [%r29+4],%f31
6260: set _Z,%r29
6261: st %f30,[%r29]; st %f31,[%r29+4]
6262: L712:
6263: set _Z,%r29
6264: ld [%r29],%f30; ld [%r29+4],%f31
6265: st %f30,[%sp+4*0+68]
6266: st %f31,[%sp+4*1+68]
6267: ld [%sp+4*0+68],%o0
6268: ld [%sp+4*1+68],%o1
6269: call _sqrt; nop
6270: set _V9,%r29
6271: st %f0,[%r29]; st %f1,[%r29+4]
6272: set _One,%r29
6273: ld [%r29],%f30; ld [%r29+4],%f31
6274: set _Radix,%r29
6275: ld [%r29],%f28; ld [%r29+4],%f29
6276: set _E9,%r29
6277: ld [%r29],%f26; ld [%r29+4],%f27
6278: fmuld %f28,%f26,%f24
6279: fsubd %f30,%f24,%f24
6280: set _V9,%r29
6281: ld [%r29],%f22; ld [%r29+4],%f23
6282: fmuld %f24,%f22,%f24
6283: set _X,%r28
6284: st %f24,[%r28]; st %f25,[%r28+4]
6285: ld [%r28],%f24; ld [%r28+4],%f25
6286: fmuld %f22,%f24,%f24
6287: st %f24,[%r29]; st %f25,[%r29+4]
6288: ld [%r29],%f24; ld [%r29+4],%f25
6289: set _Two,%r29
6290: ld [%r29],%f22; ld [%r29+4],%f23
6291: fmuld %f22,%f28,%f28
6292: fmuld %f28,%f26,%f28
6293: fsubd %f30,%f28,%f30
6294: set _Z,%r29
6295: ld [%r29],%f28; ld [%r29+4],%f29
6296: fmuld %f30,%f28,%f30
6297: fcmped %f24,%f30; nop; fbul L715; nop
6298: fcmped %f24,%f28; nop; fbule L713; nop
6299: L715:
6300: set _V9,%r29
6301: ld [%r29],%f30; ld [%r29+4],%f31
6302: set _Y,%r29
6303: st %f30,[%r29]; st %f31,[%r29+4]
6304: set _X,%r29
6305: ld [%r29],%f30; ld [%r29+4],%f31
6306: set _W,%r29
6307: ld [%r29],%f28; ld [%r29+4],%f29
6308: fcmped %f30,%f28; nop; fbuge L716; nop
6309: set 1,%r8
6310: set L157,%r9
6311: call _BadCond; nop
6312: ba L717; nop
6313: L716:
6314: set 2,%r8
6315: set L157,%r9
6316: call _BadCond; nop
6317: L717:
6318: set L718,%r8
6319: set _Z,%r29
6320: ld [%r29],%f30; ld [%r29+4],%f31
6321: st %f30,[%sp+4*1+68]
6322: st %f31,[%sp+4*2+68]
6323: ld [%sp+4*1+68],%o1
6324: ld [%sp+4*2+68],%o2
6325: call _printf; nop
6326: set L719,%r8
6327: set _Y,%r29
6328: ld [%r29],%f30; ld [%r29+4],%f31
6329: st %f30,[%sp+4*1+68]
6330: st %f31,[%sp+4*2+68]
6331: ld [%sp+4*1+68],%o1
6332: ld [%sp+4*2+68],%o2
6333: call _printf; nop
6334: L713:
6335: L708:
6336: set _Indx,%r29
6337: ld [%r29],%r28
6338: add %r28,1,%r28
6339: st %r28,[%r29]
6340: set _Indx,%r29
6341: ld [%r29],%r29
6342: cmp %r29,2; ble L707; nop
6343: set 190,%r29
6344: set _Milestone,%r28
6345: st %r29,[%r28]
6346: call _Pause; nop
6347: set _UfThold,%r29
6348: ld [%r29],%f30; ld [%r29+4],%f31
6349: set _V,%r29
6350: ld [%r29],%f28; ld [%r29+4],%f29
6351: fmuld %f30,%f28,%f30
6352: set _X,%r29
6353: st %f30,[%r29]; st %f31,[%r29+4]
6354: set _Radix,%r28
6355: ld [%r28],%f30; ld [%r28+4],%f31
6356: fmuld %f30,%f30,%f30
6357: set _Y,%r28
6358: st %f30,[%r28]; st %f31,[%r28+4]
6359: ld [%r29],%f30; ld [%r29+4],%f31
6360: ld [%r28],%f28; ld [%r28+4],%f29
6361: fmuld %f30,%f28,%f26
6362: set _One,%r29
6363: ld [%r29],%f24; ld [%r29+4],%f25
6364: fcmped %f26,%f24; nop; fbul L722; nop
6365: fcmped %f30,%f28; nop; fbule L720; nop
6366: L722:
6367: set _X,%r29
6368: ld [%r29],%f30; ld [%r29+4],%f31
6369: set _Y,%r29
6370: ld [%r29],%f28; ld [%r29+4],%f29
6371: fmuld %f30,%f28,%f26
6372: set _U1,%r29
6373: ld [%r29],%f24; ld [%r29+4],%f25
6374: fcmped %f26,%f24; nop; fbul L725; nop
6375: fdivd %f28,%f24,%f28
6376: fcmped %f30,%f28; nop; fbule L723; nop
6377: L725:
6378: set 2,%r8
6379: set L726,%r9
6380: call _BadCond; nop
6381: ba L724; nop
6382: L723:
6383: set 3,%r8
6384: set L157,%r9
6385: call _BadCond; nop
6386: L724:
6387: set L727,%r8
6388: set _X,%r29
6389: ld [%r29],%f30; ld [%r29+4],%f31
6390: st %f30,[%sp+4*1+68]
6391: st %f31,[%sp+4*2+68]
6392: ld [%sp+4*1+68],%o1
6393: ld [%sp+4*2+68],%o2
6394: set L728,%r11
6395: call _printf; nop
6396: L720:
6397: set 200,%r29
6398: set _Milestone,%r28
6399: st %r29,[%r28]
6400: set 1,%r29
6401: set _Indx,%r28
6402: st %r29,[%r28]
6403: L729:
6404: set _F9,%r29
6405: ld [%r29],%f30; ld [%r29+4],%f31
6406: set _X,%r29
6407: st %f30,[%r29]; st %f31,[%r29+4]
6408: set _Indx,%r29
6409: ld [%r29],%r29
6410: cmp %r29,2; bl L733; nop
6411: cmp %r29,5; bg L733; nop
6412: sll %r29,2,%r29
6413: set L740-8,%r28
6414: ld [%r29+%r28],%r29
6415: jmp %r29; nop
6416: L740:
6417: .align 4; .word L735
6418: .align 4; .word L736
6419: .align 4; .word L737
6420: .align 4; .word L738
6421: L735:
6422: set _One,%r29
6423: ld [%r29],%f30; ld [%r29+4],%f31
6424: set _U2,%r29
6425: ld [%r29],%f28; ld [%r29+4],%f29
6426: faddd %f30,%f28,%f30
6427: set _X,%r29
6428: st %f30,[%r29]; st %f31,[%r29+4]
6429: ba L734; nop
6430: L736:
6431: set _V,%r29
6432: ld [%r29],%f30; ld [%r29+4],%f31
6433: set _X,%r29
6434: st %f30,[%r29]; st %f31,[%r29+4]
6435: ba L734; nop
6436: L737:
6437: set _UfThold,%r29
6438: ld [%r29],%f30; ld [%r29+4],%f31
6439: set _X,%r29
6440: st %f30,[%r29]; st %f31,[%r29+4]
6441: ba L734; nop
6442: L738:
6443: set _Radix,%r29
6444: ld [%r29],%f30; ld [%r29+4],%f31
6445: set _X,%r29
6446: st %f30,[%r29]; st %f31,[%r29+4]
6447: L733:
6448: L734:
6449: set _X,%r29
6450: ld [%r29],%f30; ld [%r29+4],%f31
6451: set _Y,%r29
6452: st %f30,[%r29]; st %f31,[%r29+4]
6453: set _sigfpe,%r29
6454: set _sigsave,%r28
6455: st %r29,[%r28]
6456: set _ovfl_buf,%r8
6457: call _setjmp; nop
6458: cmp %r8,%r0; be L742; nop
6459: set L744,%r8
6460: set _X,%r29
6461: ld [%r29],%f30; ld [%r29+4],%f31
6462: st %f30,[%sp+4*1+68]
6463: st %f31,[%sp+4*2+68]
6464: ld [%sp+4*1+68],%o1
6465: ld [%sp+4*2+68],%o2
6466: call _printf; nop
6467: ba L743; nop
6468: L742:
6469: set _Y,%r29
6470: ld [%r29],%f30; ld [%r29+4],%f31
6471: set _X,%r29
6472: ld [%r29],%f28; ld [%r29+4],%f29
6473: fdivd %f30,%f28,%f30
6474: set _Half,%r29
6475: ld [%r29],%f28; ld [%r29+4],%f29
6476: fsubd %f30,%f28,%f30
6477: fsubd %f30,%f28,%f30
6478: set _V9,%r29
6479: st %f30,[%r29]; st %f31,[%r29+4]
6480: ld [%r29],%f30; ld [%r29+4],%f31
6481: set _Zero,%r29
6482: ld [%r29],%f28; ld [%r29+4],%f29
6483: fcmped %f30,%f28; nop; fbne L745; nop
6484: ba L730; nop
6485: L745:
6486: set _V9,%r29
6487: ld [%r29],%f30; ld [%r29+4],%f31
6488: set _U1,%r29
6489: ld [%r29],%f28; ld [%r29+4],%f29
6490: fnegs %f28,%f28; fmovs %f29,%f29
6491: fcmped %f30,%f28; nop; fbne L747; nop
6492: set _Indx,%r29
6493: ld [%r29],%r29
6494: cmp %r29,5; bge L747; nop
6495: set 3,%r8
6496: set L157,%r9
6497: call _BadCond; nop
6498: ba L748; nop
6499: L747:
6500: set 1,%r8
6501: set L157,%r9
6502: call _BadCond; nop
6503: L748:
6504: set L749,%r8
6505: set _X,%r29
6506: ld [%r29],%f30; ld [%r29+4],%f31
6507: st %f30,[%sp+4*1+68]
6508: st %f31,[%sp+4*2+68]
6509: ld [%sp+4*1+68],%o1
6510: ld [%sp+4*2+68],%o2
6511: call _printf; nop
6512: set L750,%r8
6513: set _V9,%r29
6514: ld [%r29],%f30; ld [%r29+4],%f31
6515: st %f30,[%sp+4*1+68]
6516: st %f31,[%sp+4*2+68]
6517: ld [%sp+4*1+68],%o1
6518: ld [%sp+4*2+68],%o2
6519: call _printf; nop
6520: L743:
6521: set _sigsave,%r29
6522: st %r0,[%r29]
6523: L730:
6524: set _Indx,%r29
6525: ld [%r29],%r28
6526: add %r28,1,%r28
6527: st %r28,[%r29]
6528: set _Indx,%r29
6529: ld [%r29],%r29
6530: cmp %r29,5; ble L729; nop
6531: set 210,%r29
6532: set _Milestone,%r28
6533: st %r29,[%r28]
6534: set _Zero,%r29
6535: ld [%r29],%f30; ld [%r29+4],%f31
6536: set _MyZero,%r29
6537: st %f30,[%r29]; st %f31,[%r29+4]
6538: set L44,%r8
6539: call _printf; nop
6540: set L751,%r8
6541: call _printf; nop
6542: set _sigfpe,%r29
6543: set _sigsave,%r28
6544: st %r29,[%r28]
6545: set L752,%r8
6546: call _printf; nop
6547: set _ovfl_buf,%r8
6548: call _setjmp; nop
6549: cmp %r8,%r0; bne L753; nop
6550: set L755,%r8
6551: set _One,%r29
6552: ld [%r29],%f30; ld [%r29+4],%f31
6553: set _MyZero,%r29
6554: ld [%r29],%f28; ld [%r29+4],%f29
6555: fdivd %f30,%f28,%f30
6556: st %f30,[%sp+4*1+68]
6557: st %f31,[%sp+4*2+68]
6558: ld [%sp+4*1+68],%o1
6559: ld [%sp+4*2+68],%o2
6560: call _printf; nop
6561: L753:
6562: set _sigsave,%r29
6563: st %r0,[%r29]
6564: set _sigfpe,%r28
6565: st %r28,[%r29]
6566: set L756,%r8
6567: call _printf; nop
6568: set _ovfl_buf,%r8
6569: call _setjmp; nop
6570: cmp %r8,%r0; bne L757; nop
6571: set L755,%r8
6572: set _Zero,%r29
6573: ld [%r29],%f30; ld [%r29+4],%f31
6574: set _MyZero,%r29
6575: ld [%r29],%f28; ld [%r29+4],%f29
6576: fdivd %f30,%f28,%f30
6577: st %f30,[%sp+4*1+68]
6578: st %f31,[%sp+4*2+68]
6579: ld [%sp+4*1+68],%o1
6580: ld [%sp+4*2+68],%o2
6581: call _printf; nop
6582: L757:
6583: set _sigsave,%r29
6584: st %r0,[%r29]
6585: set 220,%r29
6586: set _Milestone,%r28
6587: st %r29,[%r28]
6588: call _Pause; nop
6589: set L44,%r8
6590: call _printf; nop
6591: mov %r0,%r29
6592: L764:
6593: sll %r29,2,%r28
6594: set _ErrCnt,%r27
6595: ld [%r28+%r27],%r28
6596: cmp %r28,%r0; be L768; nop
6597: set L770,%r8
6598: sll %r29,2,%r28
6599: set _759,%r27
6600: ld [%r28+%r27],%r9
6601: set _ErrCnt,%r27
6602: ld [%r28+%r27],%r10
6603: call _printf; nop
6604: L768:
6605: L765:
6606: add %r29,1,%r29
6607: cmp %r29,4; bl L764; nop
6608: set L44,%r8
6609: call _printf; nop
6610: set _ErrCnt,%r29
6611: ld [%r29],%r29
6612: set _ErrCnt+4,%r28
6613: ld [%r28],%r28
6614: add %r29,%r28,%r29
6615: set _ErrCnt+8,%r28
6616: ld [%r28],%r28
6617: add %r29,%r28,%r29
6618: set _ErrCnt+12,%r28
6619: ld [%r28],%r28
6620: add %r29,%r28,%r29
6621: cmp %r29,%r0; ble L771; nop
6622: set _ErrCnt,%r29
6623: ld [%r29],%r29
6624: set _ErrCnt+4,%r28
6625: ld [%r28],%r28
6626: add %r29,%r28,%r29
6627: set _ErrCnt+8,%r28
6628: ld [%r28],%r28
6629: add %r29,%r28,%r29
6630: cmp %r29,%r0; bne L776; nop
6631: set _ErrCnt+12,%r29
6632: ld [%r29],%r29
6633: cmp %r29,%r0; ble L776; nop
6634: set L781,%r8
6635: call _printf; nop
6636: set L782,%r8
6637: call _printf; nop
6638: L776:
6639: set _ErrCnt,%r29
6640: ld [%r29],%r29
6641: set _ErrCnt+4,%r28
6642: ld [%r28],%r28
6643: add %r29,%r28,%r29
6644: cmp %r29,%r0; bne L783; nop
6645: set _ErrCnt+8,%r29
6646: ld [%r29],%r29
6647: cmp %r29,%r0; ble L783; nop
6648: set L787,%r8
6649: call _printf; nop
6650: set L788,%r8
6651: call _printf; nop
6652: L783:
6653: set _ErrCnt,%r29
6654: ld [%r29],%r29
6655: set _ErrCnt+4,%r28
6656: ld [%r28],%r28
6657: add %r29,%r28,%r29
6658: cmp %r29,%r0; ble L789; nop
6659: set L792,%r8
6660: call _printf; nop
6661: set L793,%r8
6662: call _printf; nop
6663: L789:
6664: set _ErrCnt,%r29
6665: ld [%r29],%r29
6666: cmp %r29,%r0; ble L772; nop
6667: set L796,%r8
6668: call _printf; nop
6669: set L797,%r8
6670: call _printf; nop
6671: ba L772; nop
6672: L771:
6673: set L798,%r8
6674: call _printf; nop
6675: set _RMult,%r29
6676: ld [%r29],%r29
6677: cmp %r29,1; bne L803; nop
6678: set _RDiv,%r29
6679: ld [%r29],%r29
6680: cmp %r29,1; bne L803; nop
6681: set _RAddSub,%r29
6682: ld [%r29],%r29
6683: cmp %r29,1; bne L803; nop
6684: set _RSqrt,%r29
6685: ld [%r29],%r29
6686: cmp %r29,1; be L799; nop
6687: L803:
6688: set L804,%r8
6689: call _printf; nop
6690: ba L800; nop
6691: L799:
6692: set _StickyBit,%r29
6693: ld [%r29],%f30; ld [%r29+4],%f31
6694: set _One,%r29
6695: ld [%r29],%f28; ld [%r29+4],%f29
6696: fcmped %f30,%f28; nop; fbul L805; nop
6697: set _Radix,%r29
6698: ld [%r29],%f30; ld [%r29+4],%f31
6699: set _Two,%r29
6700: ld [%r29],%f26; ld [%r29+4],%f27
6701: fsubd %f30,%f26,%f26
6702: set _Nine,%r29
6703: ld [%r29],%f24; ld [%r29+4],%f25
6704: fsubd %f30,%f24,%f30
6705: fsubd %f30,%f28,%f30
6706: fmuld %f26,%f30,%f30
6707: set _Zero,%r29
6708: ld [%r29],%f28; ld [%r29+4],%f29
6709: fcmped %f30,%f28; nop; fbne L805; nop
6710: set L807,%r8
6711: call _printf; nop
6712: set L808,%r8
6713: call _printf; nop
6714: set _Radix,%r29
6715: ld [%r29],%f30; ld [%r29+4],%f31
6716: set _Two,%r29
6717: ld [%r29],%f28; ld [%r29+4],%f29
6718: fcmped %f30,%f28; nop; fbne L809; nop
6719: set _Precision,%r29
6720: ld [%r29],%f30; ld [%r29+4],%f31
6721: set _Four,%r29
6722: ld [%r29],%f26; ld [%r29+4],%f27
6723: set _Three,%r29
6724: ld [%r29],%f24; ld [%r29+4],%f25
6725: fmuld %f26,%f24,%f26
6726: fmuld %f26,%f28,%f28
6727: fsubd %f30,%f28,%f28
6728: set _TwentySeven,%r29
6729: ld [%r29],%f26; ld [%r29+4],%f27
6730: fsubd %f30,%f26,%f30
6731: fsubd %f30,%f26,%f30
6732: set _One,%r29
6733: ld [%r29],%f26; ld [%r29+4],%f27
6734: faddd %f30,%f26,%f30
6735: fmuld %f28,%f30,%f30
6736: set _Zero,%r29
6737: ld [%r29],%f28; ld [%r29+4],%f29
6738: fcmped %f30,%f28; nop; fbne L809; nop
6739: set L811,%r8
6740: call _printf; nop
6741: ba L810; nop
6742: L809:
6743: set L812,%r8
6744: call _printf; nop
6745: L810:
6746: set _IEEE,%r29
6747: ld [%r29],%r29
6748: cmp %r29,%r0; be L813; nop
6749: set L815,%r8
6750: call _printf; nop
6751: ba L814; nop
6752: L813:
6753: set L816,%r8
6754: call _printf; nop
6755: set L817,%r8
6756: call _printf; nop
6757: L814:
6758: L805:
6759: set L818,%r8
6760: call _printf; nop
6761: L800:
6762: L772:
6763: set _fpecount,%r29
6764: ld [%r29],%r29
6765: cmp %r29,%r0; be L819; nop
6766: set L821,%r8
6767: set _fpecount,%r29
6768: ld [%r29],%r9
6769: call _printf; nop
6770: L819:
6771: set L822,%r8
6772: call _printf; nop
6773: L6:
6774: ret; restore
6775: .global _Sign
6776: .align 4
6777: .proc 4
6778: _Sign:save %sp,-104,%sp
6779: st %r24,[%fp+68]
6780: st %r25,[%fp+72]
6781: ld [%fp+68],%f30; ld [%fp+68+4],%f31
6782: set L7,%r29
6783: ld [%r29],%f28; ld [%r29+4],%f29
6784: fcmped %f30,%f28; nop; fbul L843; nop
6785: set L8,%r29
6786: ld [%r29],%f30; ld [%r29+4],%f31
6787: st %f30,[%fp+-8]; st %f31,[%fp+-8+4]
6788: ba L844; nop
6789: L843:
6790: set L845,%r29
6791: ld [%r29],%f30; ld [%r29+4],%f31
6792: st %f30,[%fp+-8]; st %f31,[%fp+-8+4]
6793: L844:
6794: ld [%fp+-8],%f0; ld [%fp+-8+4],%f1
6795: L841:
6796: ret; restore
6797: .global _Pause
6798: .align 4
6799: .proc 4
6800: _Pause:save %sp,-96,%sp
6801: set L847,%r8
6802: set _Milestone,%r29
6803: ld [%r29],%r9
6804: call _printf; nop
6805: set L848,%r8
6806: set _PageNo,%r29
6807: ld [%r29],%r9
6808: call _printf; nop
6809: set _Milestone,%r29
6810: ld [%r29],%r28
6811: add %r28,1,%r28
6812: st %r28,[%r29]
6813: set _PageNo,%r29
6814: ld [%r29],%r28
6815: add %r28,1,%r28
6816: st %r28,[%r29]
6817: L846:
6818: ret; restore
6819: .global _TstCond
6820: .align 4
6821: .proc 4
6822: _TstCond:save %sp,-96,%sp
6823: cmp %r25,%r0; bne L850; nop
6824: mov %r24,%r8
6825: mov %r26,%r9
6826: call _BadCond; nop
6827: set L815,%r8
6828: call _printf; nop
6829: L850:
6830: L849:
6831: ret; restore
6832: .seg "data"
6833: .align 4; _853:.word L854
6834: .word L855
6835: .word L856
6836: .word L857
6837: .seg "text"
6838: .global _BadCond
6839: .align 4
6840: .proc 4
6841: _BadCond:save %sp,-96,%sp
6842: sll %r24,2,%r29
6843: set _ErrCnt,%r28
6844: add %r29,%r28,%r29
6845: ld [%r29],%r28
6846: add %r28,1,%r28
6847: st %r28,[%r29]
6848: set L858,%r8
6849: sll %r24,2,%r29
6850: set _853,%r28
6851: ld [%r29+%r28],%r9
6852: mov %r25,%r10
6853: call _printf; nop
6854: L852:
6855: ret; restore
6856: .global _Random
6857: .align 4
6858: .proc 4
6859: _Random:save %sp,-120,%sp
6860: set _Random1,%r29
6861: ld [%r29],%f30; ld [%r29+4],%f31
6862: set _Random9,%r29
6863: ld [%r29],%f28; ld [%r29+4],%f29
6864: faddd %f30,%f28,%f30
6865: st %f30,[%fp+-8]; st %f31,[%fp+-8+4]
6866: ld [%fp+-8],%f30; ld [%fp+-8+4],%f31
6867: fmuld %f30,%f30,%f28
6868: st %f28,[%fp+-16]; st %f29,[%fp+-16+4]
6869: ld [%fp+-16],%f28; ld [%fp+-16+4],%f29
6870: fmuld %f28,%f28,%f28
6871: st %f28,[%fp+-16]; st %f29,[%fp+-16+4]
6872: ld [%fp+-16],%f28; ld [%fp+-16+4],%f29
6873: fmuld %f30,%f28,%f30
6874: st %f30,[%fp+-8]; st %f31,[%fp+-8+4]
6875: ld [%fp+-8],%f30; ld [%fp+-8+4],%f31
6876: st %f30,[%fp+-24]; st %f31,[%fp+-24+4]
6877: st %f30,[%sp+4*0+68]
6878: st %f31,[%sp+4*1+68]
6879: ld [%sp+4*0+68],%o0
6880: ld [%sp+4*1+68],%o1
6881: call _floor; nop
6882: ld [%fp+-24],%f30; ld [%fp+-24+4],%f31
6883: fsubd %f30,%f0,%f30
6884: st %f30,[%fp+-16]; st %f31,[%fp+-16+4]
6885: ld [%fp+-16],%f30; ld [%fp+-16+4],%f31
6886: set L860,%r29
6887: ld [%r29],%f28; ld [%r29+4],%f29
6888: ld [%fp+-8],%f26; ld [%fp+-8+4],%f27
6889: fmuld %f28,%f26,%f28
6890: faddd %f30,%f28,%f30
6891: set _Random1,%r29
6892: st %f30,[%r29]; st %f31,[%r29+4]
6893: ld [%r29],%f0; ld [%r29+4],%f1
6894: L859:
6895: ret; restore
6896: .global _SqXMinX
6897: .align 4
6898: .proc 4
6899: _SqXMinX:save %sp,-112,%sp
6900: set _X,%r29
6901: ld [%r29],%f30; ld [%r29+4],%f31
6902: set _BInvrse,%r29
6903: ld [%r29],%f28; ld [%r29+4],%f29
6904: fmuld %f30,%f28,%f28
6905: st %f28,[%fp+-8]; st %f29,[%fp+-8+4]
6906: ld [%fp+-8],%f28; ld [%fp+-8+4],%f29
6907: fsubd %f30,%f28,%f28
6908: st %f28,[%fp+-16]; st %f29,[%fp+-16+4]
6909: fmuld %f30,%f30,%f30
6910: st %f30,[%sp+4*0+68]
6911: st %f31,[%sp+4*1+68]
6912: ld [%sp+4*0+68],%o0
6913: ld [%sp+4*1+68],%o1
6914: call _sqrt; nop
6915: ld [%fp+-8],%f30; ld [%fp+-8+4],%f31
6916: fsubd %f0,%f30,%f30
6917: ld [%fp+-16],%f28; ld [%fp+-16+4],%f29
6918: fsubd %f30,%f28,%f30
6919: set _OneUlp,%r29
6920: ld [%r29],%f28; ld [%r29+4],%f29
6921: fdivd %f30,%f28,%f30
6922: set _SqEr,%r29
6923: st %f30,[%r29]; st %f31,[%r29+4]
6924: set _SqEr,%r29
6925: ld [%r29],%f30; ld [%r29+4],%f31
6926: set _Zero,%r29
6927: ld [%r29],%f28; ld [%r29+4],%f29
6928: fcmped %f30,%f28; nop; fbue L863; nop
6929: set _SqEr,%r29
6930: ld [%r29],%f30; ld [%r29+4],%f31
6931: set _MinSqEr,%r29
6932: ld [%r29],%f28; ld [%r29+4],%f29
6933: fcmped %f30,%f28; nop; fbuge L865; nop
6934: set _SqEr,%r29
6935: ld [%r29],%f30; ld [%r29+4],%f31
6936: set _MinSqEr,%r29
6937: st %f30,[%r29]; st %f31,[%r29+4]
6938: L865:
6939: set _SqEr,%r29
6940: ld [%r29],%f30; ld [%r29+4],%f31
6941: set _MaxSqEr,%r29
6942: ld [%r29],%f28; ld [%r29+4],%f29
6943: fcmped %f30,%f28; nop; fbule L867; nop
6944: set _SqEr,%r29
6945: ld [%r29],%f30; ld [%r29+4],%f31
6946: set _MaxSqEr,%r29
6947: st %f30,[%r29]; st %f31,[%r29+4]
6948: L867:
6949: set _J,%r29
6950: ld [%r29],%f30; ld [%r29+4],%f31
6951: set L8,%r28
6952: ld [%r28],%f28; ld [%r28+4],%f29
6953: faddd %f30,%f28,%f30
6954: st %f30,[%r29]; st %f31,[%r29+4]
6955: mov %r24,%r8
6956: set L44,%r9
6957: call _BadCond; nop
6958: set L869,%r8
6959: set _X,%r29
6960: ld [%r29],%f30; ld [%r29+4],%f31
6961: fmuld %f30,%f30,%f28
6962: st %f28,[%sp+4*1+68]
6963: st %f29,[%sp+4*2+68]
6964: ld [%sp+4*1+68],%o1
6965: ld [%sp+4*2+68],%o2
6966: st %f30,[%sp+4*3+68]
6967: st %f31,[%sp+4*4+68]
6968: ld [%sp+4*3+68],%o3
6969: ld [%sp+4*4+68],%o4
6970: set _OneUlp,%r29
6971: ld [%r29],%f30; ld [%r29+4],%f31
6972: set _SqEr,%r29
6973: ld [%r29],%f28; ld [%r29+4],%f29
6974: fmuld %f30,%f28,%f30
6975: st %f30,[%sp+4*5+68]
6976: st %f31,[%sp+4*6+68]
6977: ld [%sp+4*5+68],%o5
6978: call _printf; nop
6979: set L870,%r8
6980: call _printf; nop
6981: L863:
6982: L862:
6983: ret; restore
6984: .global _NewD
6985: .align 4
6986: .proc 4
6987: _NewD:save %sp,-96,%sp
6988: set _Z1,%r29
6989: ld [%r29],%f30; ld [%r29+4],%f31
6990: set _Q,%r29
6991: ld [%r29],%f28; ld [%r29+4],%f29
6992: fmuld %f30,%f28,%f30
6993: set _X,%r29
6994: st %f30,[%r29]; st %f31,[%r29+4]
6995: set _Half,%r28
6996: ld [%r28],%f30; ld [%r28+4],%f31
6997: ld [%r29],%f28; ld [%r29+4],%f29
6998: set _Radix,%r28
6999: ld [%r28],%f26; ld [%r28+4],%f27
7000: fdivd %f28,%f26,%f28
7001: fsubd %f30,%f28,%f30
7002: st %f30,[%sp+4*0+68]
7003: st %f31,[%sp+4*1+68]
7004: ld [%sp+4*0+68],%o0
7005: ld [%sp+4*1+68],%o1
7006: call _floor; nop
7007: set _Radix,%r28
7008: ld [%r28],%f30; ld [%r28+4],%f31
7009: fmuld %f0,%f30,%f28
7010: set _X,%r28
7011: ld [%r28],%f26; ld [%r28+4],%f27
7012: faddd %f28,%f26,%f28
7013: st %f28,[%r29]; st %f29,[%r29+4]
7014: set _Q,%r29
7015: ld [%r29],%f28; ld [%r29+4],%f29
7016: ld [%r28],%f26; ld [%r28+4],%f27
7017: set _Z,%r28
7018: ld [%r28],%f24; ld [%r28+4],%f25
7019: fmuld %f26,%f24,%f22
7020: fsubd %f28,%f22,%f28
7021: fdivd %f28,%f30,%f28
7022: fmuld %f26,%f26,%f22
7023: set _D,%r27
7024: ld [%r27],%f20; ld [%r27+4],%f21
7025: fdivd %f20,%f30,%f30
7026: fmuld %f22,%f30,%f30
7027: faddd %f28,%f30,%f30
7028: st %f30,[%r29]; st %f31,[%r29+4]
7029: set _Two,%r29
7030: ld [%r29],%f30; ld [%r29+4],%f31
7031: fmuld %f30,%f26,%f30
7032: fmuld %f30,%f20,%f30
7033: fsubd %f24,%f30,%f30
7034: st %f30,[%r28]; st %f31,[%r28+4]
7035: ld [%r28],%f30; ld [%r28+4],%f31
7036: set _Zero,%r29
7037: ld [%r29],%f28; ld [%r29+4],%f29
7038: fcmped %f30,%f28; nop; fbug L872; nop
7039: set _Z,%r29
7040: ld [%r29],%f30; ld [%r29+4],%f31
7041: fnegs %f30,%f30; fmovs %f31,%f31
7042: st %f30,[%r29]; st %f31,[%r29+4]
7043: set _Z1,%r29
7044: ld [%r29],%f30; ld [%r29+4],%f31
7045: fnegs %f30,%f30; fmovs %f31,%f31
7046: st %f30,[%r29]; st %f31,[%r29+4]
7047: L872:
7048: set _Radix,%r29
7049: ld [%r29],%f30; ld [%r29+4],%f31
7050: set _D,%r29
7051: ld [%r29],%f28; ld [%r29+4],%f29
7052: fmuld %f30,%f28,%f30
7053: st %f30,[%r29]; st %f31,[%r29+4]
7054: L871:
7055: ret; restore
7056: .global _SR3750
7057: .align 4
7058: .proc 4
7059: _SR3750:save %sp,-96,%sp
7060: set _X,%r29
7061: ld [%r29],%f30; ld [%r29+4],%f31
7062: set _Radix,%r29
7063: ld [%r29],%f28; ld [%r29+4],%f29
7064: fsubd %f30,%f28,%f26
7065: set _Z2,%r29
7066: ld [%r29],%f24; ld [%r29+4],%f25
7067: fsubd %f24,%f28,%f28
7068: fcmped %f26,%f28; nop; fbul L875; nop
7069: fsubd %f30,%f24,%f30
7070: set _W,%r29
7071: ld [%r29],%f28; ld [%r29+4],%f29
7072: fsubd %f28,%f24,%f28
7073: fcmped %f30,%f28; nop; fbug L875; nop
7074: set _I,%r29
7075: ld [%r29],%r28
7076: add %r28,1,%r28
7077: st %r28,[%r29]
7078: set _X,%r29
7079: ld [%r29],%f30; ld [%r29+4],%f31
7080: set _D,%r29
7081: ld [%r29],%f28; ld [%r29+4],%f29
7082: fmuld %f30,%f28,%f30
7083: st %f30,[%sp+4*0+68]
7084: st %f31,[%sp+4*1+68]
7085: ld [%sp+4*0+68],%o0
7086: ld [%sp+4*1+68],%o1
7087: call _sqrt; nop
7088: set _X2,%r29
7089: st %f0,[%r29]; st %f1,[%r29+4]
7090: set _X2,%r29
7091: ld [%r29],%f30; ld [%r29+4],%f31
7092: set _Z2,%r28
7093: ld [%r28],%f28; ld [%r28+4],%f29
7094: fsubd %f30,%f28,%f30
7095: set _Y,%r28
7096: ld [%r28],%f26; ld [%r28+4],%f27
7097: fsubd %f26,%f28,%f28
7098: fsubd %f30,%f28,%f30
7099: set _Y2,%r28
7100: st %f30,[%r28]; st %f31,[%r28+4]
7101: set _X8,%r27
7102: ld [%r27],%f30; ld [%r27+4],%f31
7103: set _Half,%r27
7104: ld [%r27],%f28; ld [%r27+4],%f29
7105: fsubd %f26,%f28,%f26
7106: fdivd %f30,%f26,%f30
7107: st %f30,[%r29]; st %f31,[%r29+4]
7108: ld [%r29],%f30; ld [%r29+4],%f31
7109: fmuld %f28,%f30,%f26
7110: fmuld %f26,%f30,%f26
7111: fsubd %f30,%f26,%f30
7112: st %f30,[%r29]; st %f31,[%r29+4]
7113: ld [%r28],%f30; ld [%r28+4],%f31
7114: faddd %f30,%f28,%f30
7115: ld [%r29],%f26; ld [%r29+4],%f27
7116: fsubd %f28,%f26,%f28
7117: faddd %f30,%f28,%f30
7118: set _SqEr,%r29
7119: st %f30,[%r29]; st %f31,[%r29+4]
7120: ld [%r29],%f30; ld [%r29+4],%f31
7121: set _MinSqEr,%r29
7122: ld [%r29],%f28; ld [%r29+4],%f29
7123: fcmped %f30,%f28; nop; fbuge L877; nop
7124: set _SqEr,%r29
7125: ld [%r29],%f30; ld [%r29+4],%f31
7126: set _MinSqEr,%r29
7127: st %f30,[%r29]; st %f31,[%r29+4]
7128: L877:
7129: set _Y2,%r29
7130: ld [%r29],%f30; ld [%r29+4],%f31
7131: set _X2,%r29
7132: ld [%r29],%f28; ld [%r29+4],%f29
7133: fsubd %f30,%f28,%f30
7134: set _SqEr,%r29
7135: st %f30,[%r29]; st %f31,[%r29+4]
7136: ld [%r29],%f30; ld [%r29+4],%f31
7137: set _MaxSqEr,%r29
7138: ld [%r29],%f28; ld [%r29+4],%f29
7139: fcmped %f30,%f28; nop; fbule L879; nop
7140: set _SqEr,%r29
7141: ld [%r29],%f30; ld [%r29+4],%f31
7142: set _MaxSqEr,%r29
7143: st %f30,[%r29]; st %f31,[%r29+4]
7144: L879:
7145: L875:
7146: L874:
7147: ret; restore
7148: .global _IsYeqX
7149: .align 4
7150: .proc 4
7151: _IsYeqX:save %sp,-96,%sp
7152: set _Y,%r29
7153: ld [%r29],%f30; ld [%r29+4],%f31
7154: set _X,%r29
7155: ld [%r29],%f28; ld [%r29+4],%f29
7156: fcmped %f30,%f28; nop; fbue L882; nop
7157: set _N,%r29
7158: ld [%r29],%r29
7159: cmp %r29,%r0; bg L884; nop
7160: set _Z,%r29
7161: ld [%r29],%f30; ld [%r29+4],%f31
7162: set _Zero,%r29
7163: ld [%r29],%f28; ld [%r29+4],%f29
7164: fcmped %f30,%f28; nop; fbne L886; nop
7165: set _Q,%r29
7166: ld [%r29],%f30; ld [%r29+4],%f31
7167: fcmped %f30,%f28; nop; fbug L886; nop
7168: set L888,%r8
7169: call _printf; nop
7170: ba L887; nop
7171: L886:
7172: set 2,%r8
7173: set L889,%r9
7174: call _BadCond; nop
7175: L887:
7176: set L890,%r8
7177: set _Z,%r29
7178: ld [%r29],%f30; ld [%r29+4],%f31
7179: st %f30,[%sp+4*1+68]
7180: st %f31,[%sp+4*2+68]
7181: ld [%sp+4*1+68],%o1
7182: ld [%sp+4*2+68],%o2
7183: set _Q,%r29
7184: ld [%r29],%f30; ld [%r29+4],%f31
7185: st %f30,[%sp+4*3+68]
7186: st %f31,[%sp+4*4+68]
7187: ld [%sp+4*3+68],%o3
7188: ld [%sp+4*4+68],%o4
7189: call _printf; nop
7190: set L891,%r8
7191: set _Y,%r29
7192: ld [%r29],%f30; ld [%r29+4],%f31
7193: st %f30,[%sp+4*1+68]
7194: st %f31,[%sp+4*2+68]
7195: ld [%sp+4*1+68],%o1
7196: ld [%sp+4*2+68],%o2
7197: call _printf; nop
7198: set L892,%r8
7199: set _X,%r29
7200: ld [%r29],%f30; ld [%r29+4],%f31
7201: st %f30,[%sp+4*1+68]
7202: st %f31,[%sp+4*2+68]
7203: ld [%sp+4*1+68],%o1
7204: ld [%sp+4*2+68],%o2
7205: call _printf; nop
7206: set L893,%r8
7207: set _Y,%r29
7208: ld [%r29],%f30; ld [%r29+4],%f31
7209: set _X,%r29
7210: ld [%r29],%f28; ld [%r29+4],%f29
7211: fsubd %f30,%f28,%f30
7212: st %f30,[%sp+4*1+68]
7213: st %f31,[%sp+4*2+68]
7214: ld [%sp+4*1+68],%o1
7215: ld [%sp+4*2+68],%o2
7216: call _printf; nop
7217: L884:
7218: set _N,%r29
7219: ld [%r29],%r28
7220: add %r28,1,%r28
7221: st %r28,[%r29]
7222: L882:
7223: L881:
7224: ret; restore
7225: .global _SR3980
7226: .align 4
7227: .proc 4
7228: _SR3980:save %sp,-96,%sp
7229: L895:
7230: set _I,%r29
7231: ld [%r29],%r29
7232: st %r29,[%sp+64]; ld [%sp+64],%f30; fitod %f30,%f30
7233: set _Q,%r29
7234: st %f30,[%r29]; st %f31,[%r29+4]
7235: set _Z,%r28
7236: ld [%r28],%f30; ld [%r28+4],%f31
7237: st %f30,[%sp+4*0+68]
7238: st %f31,[%sp+4*1+68]
7239: ld [%sp+4*0+68],%o0
7240: ld [%sp+4*1+68],%o1
7241: ld [%r29],%f30; ld [%r29+4],%f31
7242: st %f30,[%sp+4*2+68]
7243: st %f31,[%sp+4*3+68]
7244: ld [%sp+4*2+68],%o2
7245: ld [%sp+4*3+68],%o3
7246: call _pow; nop
7247: set _Y,%r29
7248: st %f0,[%r29]; st %f1,[%r29+4]
7249: call _IsYeqX; nop
7250: set _I,%r29
7251: ld [%r29],%r28
7252: add %r28,1,%r28
7253: st %r28,[%r29]
7254: set _M,%r29
7255: ld [%r29],%r29
7256: cmp %r28,%r29; ble L898; nop
7257: ba L897; nop
7258: L898:
7259: set _Z,%r29
7260: ld [%r29],%f30; ld [%r29+4],%f31
7261: set _X,%r29
7262: ld [%r29],%f28; ld [%r29+4],%f29
7263: fmuld %f30,%f28,%f30
7264: st %f30,[%r29]; st %f31,[%r29+4]
7265: L896:
7266: set _X,%r29
7267: ld [%r29],%f30; ld [%r29+4],%f31
7268: set _W,%r29
7269: ld [%r29],%f28; ld [%r29+4],%f29
7270: fcmped %f30,%f28; nop; fbul L895; nop
7271: L897:
7272: L894:
7273: ret; restore
7274: .global _PrintIfNPositive
7275: .align 4
7276: .proc 4
7277: _PrintIfNPositive:save %sp,-96,%sp
7278: set _N,%r29
7279: ld [%r29],%r29
7280: cmp %r29,%r0; ble L901; nop
7281: set L903,%r8
7282: set _N,%r29
7283: ld [%r29],%r9
7284: call _printf; nop
7285: L901:
7286: L900:
7287: ret; restore
7288: .global _TstPtUf
7289: .align 4
7290: .proc 4
7291: _TstPtUf:save %sp,-96,%sp
7292: set _N,%r29
7293: st %r0,[%r29]
7294: set _Z,%r29
7295: ld [%r29],%f30; ld [%r29+4],%f31
7296: set _Zero,%r29
7297: ld [%r29],%f28; ld [%r29+4],%f29
7298: fcmped %f30,%f28; nop; fbue L905; nop
7299: set L907,%r8
7300: call _printf; nop
7301: set L908,%r8
7302: call _printf; nop
7303: set _sigfpe,%r29
7304: set _sigsave,%r28
7305: st %r29,[%r28]
7306: set _ovfl_buf,%r8
7307: call _setjmp; nop
7308: cmp %r8,%r0; be L909; nop
7309: ba L911; nop
7310: L909:
7311: set _Z,%r29
7312: ld [%r29],%f30; ld [%r29+4],%f31
7313: faddd %f30,%f30,%f28
7314: fdivd %f28,%f30,%f30
7315: set _Q9,%r29
7316: st %f30,[%r29]; st %f31,[%r29+4]
7317: set L912,%r8
7318: ld [%r29],%f30; ld [%r29+4],%f31
7319: st %f30,[%sp+4*1+68]
7320: st %f31,[%sp+4*2+68]
7321: ld [%sp+4*1+68],%o1
7322: ld [%sp+4*2+68],%o2
7323: call _printf; nop
7324: set _Q9,%r29
7325: ld [%r29],%f30; ld [%r29+4],%f31
7326: set _Two,%r29
7327: ld [%r29],%f28; ld [%r29+4],%f29
7328: fsubd %f30,%f28,%f30
7329: st %f30,[%sp+4*0+68]
7330: st %f31,[%sp+4*1+68]
7331: ld [%sp+4*0+68],%o0
7332: ld [%sp+4*1+68],%o1
7333: call _fabs; nop
7334: set _Radix,%r29
7335: ld [%r29],%f30; ld [%r29+4],%f31
7336: set _U2,%r29
7337: ld [%r29],%f28; ld [%r29+4],%f29
7338: fmuld %f30,%f28,%f30
7339: fcmped %f0,%f30; nop; fbuge L913; nop
7340: set L915,%r8
7341: call _printf; nop
7342: set L916,%r8
7343: call _printf; nop
7344: ba L914; nop
7345: L913:
7346: set _Q9,%r29
7347: ld [%r29],%f30; ld [%r29+4],%f31
7348: set _One,%r29
7349: ld [%r29],%f28; ld [%r29+4],%f29
7350: fcmped %f30,%f28; nop; fbul L919; nop
7351: set _Two,%r29
7352: ld [%r29],%f28; ld [%r29+4],%f29
7353: fcmped %f30,%f28; nop; fbule L917; nop
7354: L919:
7355: L911:
7356: set 1,%r29
7357: set _N,%r28
7358: st %r29,[%r28]
7359: set _ErrCnt+4,%r29
7360: ld [%r29],%r29
7361: add %r29,1,%r29
7362: set _ErrCnt+4,%r28
7363: st %r29,[%r28]
7364: set L922,%r8
7365: call _printf; nop
7366: ba L918; nop
7367: L917:
7368: set 1,%r29
7369: set _N,%r28
7370: st %r29,[%r28]
7371: set _ErrCnt+8,%r29
7372: ld [%r29],%r29
7373: add %r29,1,%r29
7374: set _ErrCnt+8,%r28
7375: st %r29,[%r28]
7376: set L925,%r8
7377: call _printf; nop
7378: L918:
7379: L914:
7380: set _sigsave,%r29
7381: st %r0,[%r29]
7382: set _Z,%r29
7383: ld [%r29],%f30; ld [%r29+4],%f31
7384: set _One,%r29
7385: ld [%r29],%f28; ld [%r29+4],%f29
7386: fmuld %f30,%f28,%f26
7387: set _V9,%r29
7388: st %f26,[%r29]; st %f27,[%r29+4]
7389: ld [%r29],%f26; ld [%r29+4],%f27
7390: set _Random1,%r28
7391: st %f26,[%r28]; st %f27,[%r28+4]
7392: fmuld %f28,%f30,%f26
7393: st %f26,[%r29]; st %f27,[%r29+4]
7394: ld [%r29],%f26; ld [%r29+4],%f27
7395: set _Random2,%r27
7396: st %f26,[%r27]; st %f27,[%r27+4]
7397: fdivd %f30,%f28,%f28
7398: st %f28,[%r29]; st %f29,[%r29+4]
7399: ld [%r28],%f28; ld [%r28+4],%f29
7400: fcmped %f30,%f28; nop; fbne L926; nop
7401: ld [%r27],%f28; ld [%r27+4],%f29
7402: fcmped %f30,%f28; nop; fbne L926; nop
7403: ld [%r29],%f28; ld [%r29+4],%f29
7404: fcmped %f30,%f28; nop; fbne L926; nop
7405: set _N,%r29
7406: ld [%r29],%r29
7407: cmp %r29,%r0; ble L927; nop
7408: call _Pause; nop
7409: ba L927; nop
7410: L926:
7411: set 1,%r29
7412: set _N,%r28
7413: st %r29,[%r28]
7414: set 2,%r8
7415: set L930,%r9
7416: call _BadCond; nop
7417: set L931,%r8
7418: set _Z,%r29
7419: ld [%r29],%f30; ld [%r29+4],%f31
7420: st %f30,[%sp+4*1+68]
7421: st %f31,[%sp+4*2+68]
7422: ld [%sp+4*1+68],%o1
7423: ld [%sp+4*2+68],%o2
7424: call _printf; nop
7425: set _Z,%r29
7426: ld [%r29],%f30; ld [%r29+4],%f31
7427: set _Random1,%r29
7428: ld [%r29],%f28; ld [%r29+4],%f29
7429: fcmped %f30,%f28; nop; fbue L932; nop
7430: set L934,%r8
7431: set _Random1,%r29
7432: ld [%r29],%f30; ld [%r29+4],%f31
7433: st %f30,[%sp+4*1+68]
7434: st %f31,[%sp+4*2+68]
7435: ld [%sp+4*1+68],%o1
7436: ld [%sp+4*2+68],%o2
7437: call _printf; nop
7438: L932:
7439: set _Z,%r29
7440: ld [%r29],%f30; ld [%r29+4],%f31
7441: set _Random2,%r29
7442: ld [%r29],%f28; ld [%r29+4],%f29
7443: fcmped %f30,%f28; nop; fbue L935; nop
7444: set _Random1,%r29
7445: ld [%r29],%f30; ld [%r29+4],%f31
7446: fcmped %f28,%f30; nop; fbue L935; nop
7447: set L937,%r8
7448: set _Random2,%r29
7449: ld [%r29],%f30; ld [%r29+4],%f31
7450: st %f30,[%sp+4*1+68]
7451: st %f31,[%sp+4*2+68]
7452: ld [%sp+4*1+68],%o1
7453: ld [%sp+4*2+68],%o2
7454: call _printf; nop
7455: L935:
7456: set _Z,%r29
7457: ld [%r29],%f30; ld [%r29+4],%f31
7458: set _V9,%r29
7459: ld [%r29],%f28; ld [%r29+4],%f29
7460: fcmped %f30,%f28; nop; fbue L938; nop
7461: set L940,%r8
7462: set _V9,%r29
7463: ld [%r29],%f30; ld [%r29+4],%f31
7464: st %f30,[%sp+4*1+68]
7465: st %f31,[%sp+4*2+68]
7466: ld [%sp+4*1+68],%o1
7467: ld [%sp+4*2+68],%o2
7468: call _printf; nop
7469: L938:
7470: set _Random2,%r29
7471: ld [%r29],%f30; ld [%r29+4],%f31
7472: set _Random1,%r29
7473: ld [%r29],%f28; ld [%r29+4],%f29
7474: fcmped %f30,%f28; nop; fbue L941; nop
7475: set _ErrCnt+8,%r29
7476: ld [%r29],%r29
7477: add %r29,1,%r29
7478: set _ErrCnt+8,%r28
7479: st %r29,[%r28]
7480: set 2,%r8
7481: set L945,%r9
7482: call _BadCond; nop
7483: set L946,%r8
7484: set _Random2,%r29
7485: ld [%r29],%f30; ld [%r29+4],%f31
7486: st %f30,[%sp+4*1+68]
7487: st %f31,[%sp+4*2+68]
7488: ld [%sp+4*1+68],%o1
7489: ld [%sp+4*2+68],%o2
7490: call _printf; nop
7491: set L947,%r8
7492: set _Random1,%r29
7493: ld [%r29],%f30; ld [%r29+4],%f31
7494: st %f30,[%sp+4*1+68]
7495: st %f31,[%sp+4*2+68]
7496: ld [%sp+4*1+68],%o1
7497: ld [%sp+4*2+68],%o2
7498: call _printf; nop
7499: L941:
7500: call _Pause; nop
7501: L927:
7502: L905:
7503: L904:
7504: ret; restore
7505: .global _notify
7506: .align 4
7507: .proc 4
7508: _notify:save %sp,-96,%sp
7509: set L949,%r8
7510: mov %r24,%r9
7511: call _printf; nop
7512: set L950,%r8
7513: call _printf; nop
7514: L948:
7515: ret; restore
7516: .global _msglist
7517: .align 4
7518: .proc 4
7519: _msglist:save %sp,-96,%sp
7520: ba L953; nop
7521: L952:
7522: set L955,%r8
7523: mov %r24,%r29
7524: add %r29,4,%r24
7525: ld [%r29],%r9
7526: call _printf; nop
7527: L953:
7528: ld [%r24],%r29
7529: cmp %r29,%r0; bne L952; nop
7530: L951:
7531: ret; restore
7532: .seg "data"
7533: .align 4; _957:.word L958
7534: .word L959
7535: .word L960
7536: .word L961
7537: .word L962
7538: .word L963
7539: .word L964
7540: .word L965
7541: .word L966
7542: .word 0x0
7543: .seg "text"
7544: .global _Instructions
7545: .align 4
7546: .proc 4
7547: _Instructions:save %sp,-96,%sp
7548: set _957,%r8
7549: call _msglist; nop
7550: L956:
7551: ret; restore
7552: .seg "data"
7553: .align 4; _968:.word L969
7554: .word L970
7555: .word L971
7556: .word L972
7557: .word L973
7558: .word L974
7559: .word L975
7560: .word L976
7561: .word L977
7562: .word L978
7563: .word L979
7564: .word L980
7565: .word L981
7566: .word L982
7567: .word 0x0
7568: .seg "text"
7569: .global _Heading
7570: .align 4
7571: .proc 4
7572: _Heading:save %sp,-96,%sp
7573: set _968,%r8
7574: call _msglist; nop
7575: L967:
7576: ret; restore
7577: .seg "data"
7578: .align 4; _984:.word L985
7579: .word L986
7580: .word L987
7581: .word L988
7582: .word L989
7583: .word L990
7584: .word L991
7585: .word L992
7586: .word L993
7587: .word L994
7588: .word L995
7589: .word L996
7590: .word L997
7591: .word L998
7592: .word L999
7593: .word L1000
7594: .word L1001
7595: .word L1002
7596: .word L1003
7597: .word 0x0
7598: .seg "text"
7599: .global _Characteristics
7600: .align 4
7601: .proc 4
7602: _Characteristics:save %sp,-96,%sp
7603: set _984,%r8
7604: call _msglist; nop
7605: L983:
7606: ret; restore
7607: .seg "data"
7608: .align 4; _1005:.word L1006
7609: .word L1007
7610: .word L1008
7611: .word L1009
7612: .word L1010
7613: .word L1011
7614: .word L1012
7615: .word L1013
7616: .word L1014
7617: .word L1015
7618: .word L1016
7619: .word L1017
7620: .word L1018
7621: .word L1019
7622: .word L1020
7623: .word L1021
7624: .word L1022
7625: .word 0x0
7626: .seg "text"
7627: .global _History
7628: .align 4
7629: .proc 4
7630: _History:save %sp,-96,%sp
7631: set _1005,%r8
7632: call _msglist; nop
7633: L1004:
7634: ret; restore
7635: .global _pow
7636: .align 4
7637: .proc 4
7638: _pow:save %sp,-120,%sp
7639: st %r24,[%fp+68]
7640: st %r25,[%fp+72]
7641: st %r26,[%fp+76]
7642: st %r27,[%fp+80]
7643: mov %r0,%r28
7644: mov %r0,%r27
7645: ld [%fp+76],%f30; ld [%fp+76+4],%f31
7646: set L7,%r26
7647: ld [%r26],%f28; ld [%r26+4],%f29
7648: fcmped %f30,%f28; nop; fbne L1024; nop
7649: set L8,%r26
7650: ld [%r26],%f0; ld [%r26+4],%f1
7651: ba L1023; nop
7652: L1024:
7653: ld [%fp+76],%f30; ld [%fp+76+4],%f31
7654: set L1029,%r26
7655: ld [%r26],%f28; ld [%r26+4],%f29
7656: fcmped %f30,%f28; nop; fbul L1028; nop
7657: set L1030,%r26
7658: ld [%r26],%f28; ld [%r26+4],%f29
7659: fcmped %f30,%f28; nop; fbule L1026; nop
7660: L1028:
7661: ld [%fp+68],%f30; ld [%fp+68+4],%f31
7662: set L845,%r26
7663: ld [%r26],%f28; ld [%r26+4],%f29
7664: fcmped %f30,%f28; nop; fbue L1026; nop
7665: ld [%fp+68],%f30; ld [%fp+68+4],%f31
7666: st %f30,[%sp+4*0+68]
7667: st %f31,[%sp+4*1+68]
7668: ld [%sp+4*0+68],%o0
7669: ld [%sp+4*1+68],%o1
7670: call _log; nop
7671: ld [%fp+76],%f30; ld [%fp+76+4],%f31
7672: fmuld %f30,%f0,%f30
7673: st %f30,[%sp+4*0+68]
7674: st %f31,[%sp+4*1+68]
7675: ld [%sp+4*0+68],%o0
7676: ld [%sp+4*1+68],%o1
7677: call _exp; nop
7678: ba L1023; nop
7679: L1026:
7680: ld [%fp+76],%f30; ld [%fp+76+4],%f31
7681: set L7,%r26
7682: ld [%r26],%f28; ld [%r26+4],%f29
7683: fcmped %f30,%f28; nop; fbuge L1031; nop
7684: ld [%fp+76],%f30; ld [%fp+76+4],%f31
7685: fnegs %f30,%f30; fmovs %f31,%f31
7686: st %f30,[%fp+76]; st %f31,[%fp+76+4]
7687: set 1,%r27
7688: L1031:
7689: ld [%fp+76],%f30; ld [%fp+76+4],%f31
7690: st %f30,[%sp+4*0+68]
7691: st %f31,[%sp+4*1+68]
7692: ld [%sp+4*0+68],%o0
7693: ld [%sp+4*1+68],%o1
7694: add -24,%fp,%r10
7695: call _modf; nop
7696: st %f0,[%fp+76]; st %f1,[%fp+76+4]
7697: ld [%fp+76],%f30; ld [%fp+76+4],%f31
7698: set L7,%r26
7699: ld [%r26],%f28; ld [%r26+4],%f29
7700: fcmped %f30,%f28; nop; fbue L1033; nop
7701: ld [%fp+68],%f30; ld [%fp+68+4],%f31
7702: st %f30,[%sp+4*0+68]
7703: st %f31,[%sp+4*1+68]
7704: ld [%sp+4*0+68],%o0
7705: ld [%sp+4*1+68],%o1
7706: call _log; nop
7707: ld [%fp+76],%f30; ld [%fp+76+4],%f31
7708: fmuld %f30,%f0,%f30
7709: st %f30,[%sp+4*0+68]
7710: st %f31,[%sp+4*1+68]
7711: ld [%sp+4*0+68],%o0
7712: ld [%sp+4*1+68],%o1
7713: call _exp; nop
7714: st %f0,[%fp+-16]; st %f1,[%fp+-16+4]
7715: ba L1034; nop
7716: L1033:
7717: set L8,%r26
7718: ld [%r26],%f30; ld [%r26+4],%f31
7719: st %f30,[%fp+-16]; st %f31,[%fp+-16+4]
7720: L1034:
7721: ld [%fp+68],%f30; ld [%fp+68+4],%f31
7722: st %f30,[%sp+4*0+68]
7723: st %f31,[%sp+4*1+68]
7724: ld [%sp+4*0+68],%o0
7725: ld [%sp+4*1+68],%o1
7726: add -4,%fp,%r10
7727: call _frexp; nop
7728: st %f0,[%fp+68]; st %f1,[%fp+68+4]
7729: ld [%fp+-24],%f30; ld [%fp+-24+4],%f31
7730: fdtoi %f30,%f0; st %f0,[%sp+64]; ld [%sp+64],%r26
7731: mov %r26,%r29
7732: cmp %r26,%r0; be L1035; nop
7733: L1037:
7734: and %r29,1,%r26
7735: cmp %r26,%r0; be L1041; nop
7736: ld [%fp+-16],%f30; ld [%fp+-16+4],%f31
7737: ld [%fp+68],%f28; ld [%fp+68+4],%f29
7738: fmuld %f30,%f28,%f30
7739: st %f30,[%fp+-16]; st %f31,[%fp+-16+4]
7740: ld [%fp+-4],%r26
7741: add %r28,%r26,%r28
7742: L1041:
7743: sra %r29,1,%r26
7744: mov %r26,%r29
7745: cmp %r26,%r0; bne L1043; nop
7746: ba L1039; nop
7747: L1043:
7748: ld [%fp+68],%f30; ld [%fp+68+4],%f31
7749: fmuld %f30,%f30,%f30
7750: st %f30,[%fp+68]; st %f31,[%fp+68+4]
7751: ld [%fp+-4],%r26
7752: sll %r26,1,%r26
7753: st %r26,[%fp+-4]
7754: ld [%fp+68],%f30; ld [%fp+68+4],%f31
7755: set L1047,%r26
7756: ld [%r26],%f28; ld [%r26+4],%f29
7757: fcmped %f30,%f28; nop; fbuge L1037; nop
7758: set L1048,%r26
7759: ld [%r26],%f30; ld [%r26+4],%f31
7760: ld [%fp+68],%f28; ld [%fp+68+4],%f29
7761: fmuld %f30,%f28,%f30
7762: st %f30,[%fp+68]; st %f31,[%fp+68+4]
7763: ld [%fp+-4],%r26
7764: sub %r26,1,%r26
7765: st %r26,[%fp+-4]
7766: ba L1037; nop
7767: L1039:
7768: L1035:
7769: cmp %r27,%r0; be L1049; nop
7770: set L8,%r26
7771: ld [%r26],%f30; ld [%r26+4],%f31
7772: ld [%fp+-16],%f28; ld [%fp+-16+4],%f29
7773: fdivd %f30,%f28,%f30
7774: st %f30,[%fp+-16]; st %f31,[%fp+-16+4]
7775: sub %g0,%r28,%r28
7776: L1049:
7777: ld [%fp+-16],%f30; ld [%fp+-16+4],%f31
7778: st %f30,[%sp+4*0+68]
7779: st %f31,[%sp+4*1+68]
7780: ld [%sp+4*0+68],%o0
7781: ld [%sp+4*1+68],%o1
7782: mov %r28,%r10
7783: call _ldexp; nop
7784: L1023:
7785: ret; restore
7786: .seg "bss"
7787: .global _UfNGrad
7788: .align 4; .common _UfNGrad,4
7789: .global _SqRWrng
7790: .align 4; .common _SqRWrng,4
7791: .global _IEEE
7792: .align 4; .common _IEEE,4
7793: .global _Anomaly
7794: .align 4; .common _Anomaly,4
7795: .global _Monot
7796: .align 4; .common _Monot,4
7797: .global _NotMonot
7798: .align 4; .common _NotMonot,4
7799: .global _Done
7800: .align 4; .common _Done,4
7801: .global _Break
7802: .align 4; .common _Break,4
7803: .global _RSqrt
7804: .align 4; .common _RSqrt,4
7805: .global _RAddSub
7806: .align 4; .common _RAddSub,4
7807: .global _RDiv
7808: .align 4; .common _RDiv,4
7809: .global _RMult
7810: .align 4; .common _RMult,4
7811: .global _GAddSub
7812: .align 4; .common _GAddSub,4
7813: .global _GDiv
7814: .align 4; .common _GDiv,4
7815: .global _GMult
7816: .align 4; .common _GMult,4
7817: .global _N1
7818: .align 4; .common _N1,4
7819: .global _N
7820: .align 4; .common _N,4
7821: .global _M
7822: .align 4; .common _M,4
7823: .global _PageNo
7824: .align 4; .common _PageNo,4
7825: .global _Milestone
7826: .align 4; .common _Milestone,4
7827: .global _fpecount
7828: .align 4; .common _fpecount,4
7829: .global _ErrCnt
7830: .align 4; .common _ErrCnt,16
7831: .global _Z9
7832: .align 8; .common _Z9,8
7833: .global _Z2
7834: .align 8; .common _Z2,8
7835: .global _Z1
7836: .align 8; .common _Z1,8
7837: .global _PseudoZero
7838: .align 8; .common _PseudoZero,8
7839: .global _Z
7840: .align 8; .common _Z,8
7841: .global _Random2
7842: .align 8; .common _Random2,8
7843: .global _Y2
7844: .align 8; .common _Y2,8
7845: .global _Y1
7846: .align 8; .common _Y1,8
7847: .global _Y
7848: .align 8; .common _Y,8
7849: .global _Random1
7850: .align 8; .common _Random1,8
7851: .global _X8
7852: .align 8; .common _X8,8
7853: .global _X2
7854: .align 8; .common _X2,8
7855: .global _X1
7856: .align 8; .common _X1,8
7857: .global _X
7858: .align 8; .common _X,8
7859: .global _W
7860: .align 8; .common _W,8
7861: .global _V9
7862: .align 8; .common _V9,8
7863: .global _V0
7864: .align 8; .common _V0,8
7865: .global _V
7866: .align 8; .common _V,8
7867: .global _U2
7868: .align 8; .common _U2,8
7869: .global _U1
7870: .align 8; .common _U1,8
7871: .global _UfThold
7872: .align 8; .common _UfThold,8
7873: .global _OneUlp
7874: .align 8; .common _OneUlp,8
7875: .global _S
7876: .align 8; .common _S,8
7877: .global _Underflow
7878: .align 8; .common _Underflow,8
7879: .global _T
7880: .align 8; .common _T,8
7881: .global _Random9
7882: .align 8; .common _Random9,8
7883: .global _R
7884: .align 8; .common _R,8
7885: .global _Q9
7886: .align 8; .common _Q9,8
7887: .global _Q
7888: .align 8; .common _Q,8
7889: .global _Precision
7890: .align 8; .common _Precision,8
7891: .global _MyZero
7892: .align 8; .common _MyZero,8
7893: .global _J
7894: .align 8; .common _J,8
7895: .global _StickyBit
7896: .align 8; .common _StickyBit,8
7897: .global _I
7898: .align 4; .common _I,4
7899: .global _HInvrse
7900: .align 8; .common _HInvrse,8
7901: .global _H
7902: .align 8; .common _H,8
7903: .global _F9
7904: .align 8; .common _F9,8
7905: .global _F6
7906: .align 8; .common _F6,8
7907: .global _Third
7908: .align 8; .common _Third,8
7909: .global _E9
7910: .align 8; .common _E9,8
7911: .global _MaxSqEr
7912: .align 8; .common _MaxSqEr,8
7913: .global _SqEr
7914: .align 8; .common _SqEr,8
7915: .global _MinSqEr
7916: .align 8; .common _MinSqEr,8
7917: .global _E3
7918: .align 8; .common _E3,8
7919: .global _Exp2
7920: .align 8; .common _Exp2,8
7921: .global _E1
7922: .align 8; .common _E1,8
7923: .global _E0
7924: .align 8; .common _E0,8
7925: .global _FourD
7926: .align 8; .common _FourD,8
7927: .global _D
7928: .align 8; .common _D,8
7929: .global _CInvrse
7930: .align 8; .common _CInvrse,8
7931: .global _C
7932: .align 8; .common _C,8
7933: .global _A1
7934: .align 8; .common _A1,8
7935: .global _AInvrse
7936: .align 8; .common _AInvrse,8
7937: .global _ch
7938: .common _ch,8
7939: .global _Indx
7940: .align 4; .common _Indx,4
7941: .global _BMinusU2
7942: .align 8; .common _BMinusU2,8
7943: .global _RadixD2
7944: .align 8; .common _RadixD2,8
7945: .global _BInvrse
7946: .align 8; .common _BInvrse,8
7947: .global _Radix
7948: .align 8; .common _Radix,8
7949: .global _sigsave
7950: .align 4; .common _sigsave,4
7951: .global _ovfl_buf
7952: .align 4; .common _ovfl_buf,36
7953: .seg "text"
7954: .align 8; L1048:.word 0x40000000,0x0
7955: .align 8; L1047:.word 0x3fe00000,0x0
7956: .align 8; L1030:.word 0x40913000,0x0
7957: .align 8; L1029:.word 0xc0913000,0x0
7958: L1022:.ascii "see source comments for more history.\000"
7959: L1021:.ascii "BASIC version of this program (C) 1983 by Prof. W. M. Kahan;\000"
7960: L1020:.ascii "as used by certain early WANG machines.\012\000"
7961: L1019:.ascii "floating-point numbers, but also allows logarithmic encoding\000"
7962: L1018:.ascii "\012The program is based upon a conventional radix representatio"
7963: .ascii "n for\000"
7964: L1017:.ascii "of pathologies, and to say how well the arithmetic is implemente"
7965: .ascii "d.\000"
7966: L1016:.ascii "of the arithmetic, this program tries to cope with a wider varie"
7967: .ascii "ty\000"
7968: L1015:.ascii "the Radix, Precision and range (over/underflow thresholds)\000"
7969: L1014:.ascii "W. J. Cody and W. Waite. Although both programs try to discover\000"
7970: L1013:.ascii "book `Software Manual for the Elementary Functions' (1980) by\000"
7971: L1012:.ascii "program called `MACHAR', which can be found at the end of the\000"
7972: L1011:.ascii "The diagnostic capabilities of this program go beyond an earlier"
7973: .ascii "\000"
7974: L1010:.ascii "Failures may confound subsequent diagnoses.\012\000"
7975: L1009:.ascii " FAILUREs, like 2+2 == 5 .\000"
7976: L1008:.ascii " Serious DEFECTs, like lack of a guard digit, and\000"
7977: L1007:.ascii " FLAWs, like lack of a sticky bit,\000"
7978: L1006:.ascii "The program attempts to discriminate among\000"
7979: L1003:.ascii " Decimal-Binary conversion is NOT YET tested for accuracy.\000"
7980: L1002:.ascii " Extra-precise subexpressions are revealed but NOT YET teste"
7981: .ascii "d.\000"
7982: L1001:.ascii " Sqrt is tested. Y^X is not tested.\000"
7983: L1000:.ascii "\011and for contamination with pseudo-zeros.\000"
7984: L999:.ascii " Comparisions are checked for consistency with subtraction\000"
7985: L998:.ascii " V0 tells, roughly, whether Infinity is represented.\000"
7986: L997:.ascii " V = an overflow threshold, roughly.\000"
7987: L996:.ascii " E0 and PseudoZero tell whether underflow is abrupt, gradual"
7988: .ascii ", or fuzzy.\000"
7989: L995:.ascii " UnderflowThreshold = an underflow threshold.\000"
7990: L994:.ascii " Whether a Sticky Bit used correctly for rounding.\000"
7991: L993:.ascii "\011for Mult., Div., Add/Subt. and Sqrt.\000"
7992: L992:.ascii " Whether arithmetic is chopped, correctly rounded, or someth"
7993: .ascii "ing else\000"
7994: L991:.ascii " Adequacy of guard digits for Mult., Div. and Subt.\000"
7995: L990:.ascii " U1 = 1/Radix^Precision = One Ulp of numbers a little less t"
7996: .ascii "han 1.0 .\000"
7997: L989:.ascii "\011(OneUlpnit in the Last Place) of 1.000xxx .\000"
7998: L988:.ascii " U2 = Radix/Radix^Precision = One Ulp\000"
7999: L987:.ascii " Precision = number of significant digits carried.\000"
8000: L986:.ascii " Radix = 1, 2, 4, 8, 10, 16, 100, 256 ...\000"
8001: L985:.ascii "Running this program should reveal these characteristics:\000"
8002: L982:.ascii "\011Other relevant compiler options:\000"
8003: L981:.ascii "\011Optimization level:\012\000"
8004: L980:.ascii "\011Compiler:\012\000"
8005: L979:.ascii "\011Computer:\012\000"
8006: L978:.ascii "\011Version:\01110 February 1989;\000"
8007: L977:.ascii "\011Precision:\011double;\000"
8008: L976:.ascii "In doing so, please include the following information:\000"
8009: L975:.ascii "\011San Francisco, CA 94143-0704, USA\012\000"
8010: L974:.ascii "\011University of California\000"
8011: L973:.ascii "\011Computer Center U-76\000"
8012: L972:.ascii "\011Richard Karpinski\000"
8013: L971:.ascii "Please send suggestions and interesting results to\000"
8014: L970:.ascii "cope with unanticipated and newly uncovered arithmetic pathologi"
8015: .ascii "es.\012\000"
8016: L969:.ascii "Users are invited to help debug and augment this program so it w"
8017: .ascii "ill\000"
8018: L966:.ascii "Answer questions with Y, y, N or n (unless otherwise indicated)."
8019: .ascii "\012\000"
8020: L965:.ascii "amend it to make further progress.\012\000"
8021: L964:.ascii "program anyway to see how many milestones it passes, and then\000"
8022: L963:.ascii "warning. If persuasion avails naught, don't despair but run thi"
8023: .ascii "s\000"
8024: L962:.ascii "to persevere with a surrogate value after, perhaps, displaying s"
8025: .ascii "ome\000"
8026: L961:.ascii "error like Over/Underflow or Division by Zero occurs, but rather"
8027: .ascii "\000"
8028: L960:.ascii "try to persuade the computer NOT to terminate execution when an\000"
8029: L959:.ascii " `END OF TEST',\012\000"
8030: L958:.ascii "Lest this program stop prematurely, i.e. before displaying\012\000"
8031: L955:.byte 37,115,10,0
8032: L950:.ascii " PLEASE NOTIFY KARPINKSI!\012\000"
8033: L949:.ascii "%s test appears to be inconsistent...\012\000"
8034: L947:.ascii "\011differs from Z * 1 = %.17e\012\000"
8035: L946:.ascii "\011Comparison alleges that 1 * Z = %.17e\012\000"
8036: L945:.ascii "Multiplication does not commute!\012\000"
8037: L940:.ascii "Z / 1 = %.17e\012\000"
8038: L937:.ascii "1 * Z == %g\012\000"
8039: L934:.ascii "Z * 1 = %.17e \000"
8040: L931:.ascii "%.17e\012\011compares different from \000"
8041: L930:.ascii "What prints as Z = \000"
8042: L925:.ascii "This is a DEFECT!\012\000"
8043: L922:.ascii "This is a VERY SERIOUS DEFECT!\012\000"
8044: L916:.ascii " has NOT just been signaled.\012\000"
8045: L915:.ascii "This is O.K., provided Over/Underflow\000"
8046: L912:.ascii "What the machine gets for (Z + Z) / Z is %.17e .\012\000"
8047: L908:.ascii "(Z + Z) / Z should be safe.\012\000"
8048: L907:.ascii "Since comparison denies Z = 0, evaluating \000"
8049: L903:.ascii "Similar discrepancies have occurred %d times.\012\000"
8050: L893:.ascii "\011\011they differ by %.17e .\012\000"
8051: L892:.ascii "\011which compared unequal to correct %.17e ;\012\000"
8052: L891:.ascii "\011yielded %.17e;\012\000"
8053: L890:.ascii "\011(%.17e) ^ (%.17e)\012\000"
8054: L889:.ascii "computing\012\000"
8055: L888:.ascii "WARNING: computing\012\000"
8056: L870:.ascii "\011instead of correct value 0 .\012\000"
8057: L869:.ascii "sqrt( %.17e) - %.17e = %.17e\012\000"
8058: .align 8; L860:.word 0x3ed4f8b5,0x88e368f0
8059: L858:.ascii "%s: %s\000"
8060: L857:.ascii "FLAW\000"
8061: L856:.ascii "DEFECT\000"
8062: L855:.ascii "SERIOUS DEFECT\000"
8063: L854:.ascii "FAILURE\000"
8064: L848:.ascii " Page: %d\012\012\000"
8065: L847:.ascii "\012Diagnosis resumes after milestone Number %d\000"
8066: .align 8; L845:.word 0xbff00000,0x0
8067: L822:.ascii "END OF TEST.\012\000"
8068: L821:.ascii "\012A total of %d floating point exceptions were registered.\012"
8069: .ascii "\000"
8070: L818:.ascii "The arithmetic diagnosed appears to be Excellent!\012\000"
8071: L817:.ascii " during Gradual Underflow.\012\000"
8072: L816:.ascii ",\012except for possibly Double Rounding\000"
8073: L815:.byte 46,10,0
8074: L812:.ascii "854\000"
8075: L811:.ascii "754\000"
8076: L808:.ascii "the proposed IEEE standard P\000"
8077: L807:.ascii "Rounding appears to conform to \000"
8078: L804:.ascii "The arithmetic diagnosed seems Satisfactory.\012\000"
8079: L798:.ascii "No failures, defects nor flaws have been discovered.\012\000"
8080: L797:.ascii " program's subsequent diagnoses.\012\000"
8081: L796:.ascii "Potentially fatal FAILURE may have spoiled this\000"
8082: L793:.ascii "unacceptable Serious Defects.\012\000"
8083: L792:.ascii "The arithmetic diagnosed has \000"
8084: L788:.ascii "despite inconvenient Defects.\012\000"
8085: L787:.ascii "The arithmetic diagnosed may be Acceptable\012\000"
8086: L782:.ascii "Satisfactory though flawed.\012\000"
8087: L781:.ascii "The arithmetic diagnosed seems \000"
8088: L770:.ascii "The number of %-29s %d.\012\000"
8089: L763:.ascii "FLAWs discovered =\000"
8090: L762:.ascii "DEFECTs discovered =\000"
8091: L761:.ascii "SERIOUS DEFECTs discovered =\000"
8092: L760:.ascii "FAILUREs encountered =\000"
8093: L756:.ascii "\012 Trying to compute 0 / 0 produces ...\000"
8094: L755:.ascii " %.7e .\012\000"
8095: L752:.ascii " Trying to compute 1 / 0 produces ...\000"
8096: L751:.ascii "What message and/or values does Division by Zero produce?\012\000"
8097: L750:.ascii " instead, X / X - 1/2 - 1/2 = %.17e .\012\000"
8098: L749:.ascii " X / X differs from 1 when X = %.17e\012\000"
8099: L744:.ascii " X / X traps when X = %g\012\000"
8100: L728:.ascii "is too far from 1.\012\000"
8101: L727:.ascii " unbalanced range; UfThold * V = %.17e\012\011%s\012\000"
8102: L726:.ascii "Badly\000"
8103: L719:.ascii " is too far from sqrt(Z) ^ 2 (%.17e) .\012\000"
8104: L718:.ascii "Comparison alleges that Z = %17e\012\000"
8105: L706:.ascii " is too far from sqrt(Z) ^ 2 = %.17e .\012\000"
8106: L705:.ascii "Comparison alleges that what prints as Z = %.17e\012\000"
8107: L688:.ascii "+-%g, +-%g\012and +-%g are confused by Overflow.\000"
8108: L687:.ascii "Comparisons involving \000"
8109: L681:.ascii "above is a DEFECT.\012\000"
8110: L680:.ascii "Any overflow signal separating this * from the one\012\000"
8111: L679:.ascii " nor for V / 1 = %.17e .\012\000"
8112: L678:.ascii "No Overflow should be signaled for V * 1 = %.17e\012\000"
8113: L677:.ascii "There is no saturation value because the system traps on overflo"
8114: .ascii "w.\012\000"
8115: L676:.ascii "Overflow saturates at V0 = %.17e .\012\000"
8116: L673:.ascii "Overflow threshold is V = %.17e .\012\000"
8117: L664:.ascii "overflow past %.17e\012\011shrinks to %.17e .\012\000"
8118: L661:.ascii "-(-Y) differs from Y.\012\000"
8119: L660:.ascii "finds a \000"
8120: L659:.ascii "Seems O.K.\012\000"
8121: L656:.ascii "Trying it on Y = %.17e .\012\000"
8122: L655:.ascii "Can `Z = -Y' overflow?\012\000"
8123: L648:.ascii "This may generate an error.\012\000"
8124: L647:.ascii "Searching for Overflow threshold:\012\000"
8125: L646:.ascii " ... no discrepancies found.\012\000"
8126: L638:.ascii "Testing powers Z^Q at four nearly extreme values.\012\000"
8127: L637:.ascii "Accuracy seems adequate.\012\000"
8128: L630:.ascii "\011calculations involving tiny interest rates.\012\000"
8129: L629:.ascii "\011This much error may spoil financial\012\000"
8130: L628:.ascii "\011differs from correct value by %.17e .\012\000"
8131: L627:.ascii "\011(1 + (%.17e) ^ (%.17e);\012\000"
8132: L626:.ascii " %.17e for\012\000"
8133: L625:.ascii "Calculated\000"
8134: L618:.ascii "Testing X^((X + 1) / (X - 1)) vs. exp(2) = %.17e as X -> 1.\012\000"
8135: L614:.ascii "This computed value is O.K.\012\000"
8136: L611:.ascii " threshold = %.17e .\012\000"
8137: L610:.ascii "this is not between 0 and underflow\012\000"
8138: L606:.ascii "actually calculating yields: %.17e .\012\000"
8139: L605:.ascii "should afflict the expression\012\011(%.17e) ^ (%.17e);\012\000"
8140: L604:.ascii "UfThold = (%.17e) ^ (%.17e)\012only underflow \000"
8141: L603:.ascii "Since underflow occurs below the threshold\012\000"
8142: L602:.ascii "Range is too narrow; U1^%d Underflows.\012\000"
8143: L597:.ascii "merely roundoff.\012\000"
8144: L596:.ascii "calculation may suffer larger Relative error than \000"
8145: L595:.ascii " below which\000"
8146: L594:.ascii "The Underflow threshold is %.17e, %s\012\000"
8147: L593:.ascii "X / Z = 1 + %g .\012\000"
8148: L592:.ascii "X / Z fails!\012\000"
8149: L589:.ascii "encounter Division by Zero although actually\012\000"
8150: L588:.ascii " ... (f(X) - f(Z)) / (X - Z) ...\012\000"
8151: L587:.ascii " if (X == Z) ... else\000"
8152: L586:.ascii "confusion when innocent statements like\012\000"
8153: L585:.ascii "this is a SERIOUS DEFECT\012that causes \000"
8154: L584:.ascii " Should this NOT signal Underflow, \000"
8155: L583:.ascii "yet X - Z yields %.17e .\012\000"
8156: L582:.ascii "X = %.17e\012\011is not equal to Z = %.17e .\012\000"
8157: L577:.ascii "Underflow / UfThold failed!\012\000"
8158: L566:.ascii "(roundoff in UfThold) < E0.\012\000"
8159: L565:.ascii "Underflow is gradual; it incurs Absolute Error =\012\000"
8160: L560:.ascii "|Q - Y| = %.17e .\012\000"
8161: L559:.ascii "print out as Q = %.17e, Y = %.17e .\012\000"
8162: L558:.ascii "Q == Y while denying that |Q - Y| == 0; these values\012\000"
8163: L557:.ascii "Underflow confuses Comparison, which alleges that\012\000"
8164: L555:.ascii " or else multiplication gets too many last digits wrong.\012\000"
8165: L554:.ascii " coming down from %.17e\012\000"
8166: L553:.ascii "approach a threshold = %.17e\012\000"
8167: L552:.ascii "Either accuracy deteriorates as numbers\012\000"
8168: L540:.ascii "Smallest strictly positive number found is E0 = %g .\012\000"
8169: L539:.ascii " threshold than products.\012\000"
8170: L538:.ascii "Difference underflows at a higher\000"
8171: L535:.ascii " threshold than differences.\012\000"
8172: L534:.ascii "Products underflow at a higher\000"
8173: L527:.ascii "value PseudoZero that prints out as %g .\012\000"
8174: L526:.ascii "Underflow can stick at an allegedly positive\012\000"
8175: L525:.ascii "positive, isn't; it prints out as %g .\012\000"
8176: L524:.ascii "But -PseudoZero, which should be\012\000"
8177: L521:.ascii "PseudoZero that prints out as: %g .\012\000"
8178: L520:.ascii "allegedly negative value\012\000"
8179: L519:.ascii "Positive expressions can underflow to an\012\000"
8180: L506:.ascii "multiplication gets too many last digits wrong.\012\000"
8181: L482:.ascii "Seeking Underflow thresholds UfThold and E0.\012\000"
8182: L479:.ascii "... no discrepancis found.\012\000"
8183: L476:.ascii "\011involving interest rates.\012\000"
8184: L475:.ascii "Errors like this may invalidate financial calculations\012\000"
8185: L454:.ascii "Testing powers Z^i for small Integers Z and i.\012\000"
8186: L451:.ascii "sqrt gets too many last digits wrong\000"
8187: L449:.ascii "to %.7e ulps.\012\000"
8188: L448:.ascii "Observed errors run from %.7e \000"
8189: L447:.ascii "Square root is neither chopped nor correctly rounded.\012\000"
8190: L444:.ascii "Square root appears to be chopped.\012\000"
8191: L439:.ascii "Square root appears to be correctly rounded.\012\000"
8192: L434:.ascii " fails test whether sqrt rounds or chops.\012\000"
8193: L433:.ascii "Radix^Precision = %.7e\012\000"
8194: L432:.ascii "Anomalous arithmetic with Integer < \000"
8195: L392:.ascii "Testing whether sqrt is rounded or chopped.\012\000"
8196: L370:.ascii "sqrt(X) is non-monotonic for X near %.7e .\012\000"
8197: L369:.ascii "sqrt has passed a test for Monotonicity.\012\000"
8198: L352:.ascii "Test for sqrt monotonicity.\012\000"
8199: L341:.ascii "Testing if sqrt(X * X) == X for %d Integers X.\012\000"
8200: L336:.ascii "Square root of 0.0, -0.0 or 1.0 wrong\000"
8201: L334:.ascii "\012Running test of square root(x).\012\000"
8202: L333:.ascii " No failures found in %d integer pairs.\012\000"
8203: L332:.ascii "X * Y == Y * X trial fails.\012\000"
8204: .align 8; L323:.word 0x40080000,0x0
8205: L322:.ascii "Testing on %d random pairs.\012\000"
8206: L321:.ascii "Does Multiplication commute? \000"
8207: L318:.ascii "lack(s) of guard digits or failure(s) to correctly round or chop"
8208: .ascii "\012(noted above) count as one flaw in the final tally below\000"
8209: L316:.ascii "Sticky bit used incorrectly or not at all.\012\000"
8210: L315:.ascii "Sticky bit apparently used correctly.\012\000"
8211: L298:.ascii "Checking for sticky bit.\012\000"
8212: L295:.ascii "(X - Y) + (Y - X) is non zero!\012\000"
8213: L292:.ascii "Addition/Subtraction neither rounds nor chops.\012\000"
8214: L291:.ascii "Add/Subtract\000"
8215: L288:.ascii "Addition/Subtraction appears to round correctly.\012\000"
8216: L281:.ascii "Add/Subtract appears to be chopped.\012\000"
8217: L276:.ascii "Incomplete carry-propagation in Addition\000"
8218: L272:.ascii "Radix * ( 1 / Radix ) differs from 1\000"
8219: L270:.ascii "/ is neither chopped nor correctly rounded.\012\000"
8220: L267:.ascii "Division appears to chop.\012\000"
8221: L264:.ascii "Division\000"
8222: L261:.ascii "Division appears to round correctly.\012\000"
8223: L256:.ascii "Multiplication\000"
8224: L253:.ascii "* is neither chopped nor correctly rounded.\012\000"
8225: L252:.ascii "Multiplication appears to chop.\012\000"
8226: L249:.ascii "Multiplication appears to round correctly.\012\000"
8227: L239:.ascii "X * (1/X) differs from 1\000"
8228: L220:.ascii "Checking rounding on multiply, divide and add/subtract.\012\000"
8229: L219:.ascii " *, /, and - appear to have guard digits, as they should.\012"
8230: .ascii "\000"
8231: L216:.ascii " ... if (X == 1.0) {.....} else {.../(X-1.0)...}\012\000"
8232: L215:.ascii " such precautions against division by zero as\012\000"
8233: L214:.ascii " subtraction yields (1-U1) - 1 = 0 , thereby vitiating\012\000"
8234: L213:.ascii "comparison alleges (1-U1) < 1 although\012\000"
8235: L210:.ascii "- lacks Guard Digit, so cancellation is obscured\000"
8236: L205:.ascii "* and/or / gets too many last digits wrong\000"
8237: L201:.ascii "Computed value of 1/1.000..1 >= 1\000"
8238: L199:.ascii "Division lacks a Guard Digit, so X/1 != X\000"
8239: L194:.ascii "Division lacks a Guard Digit, so error can exceed 1 ulp\012or 1"
8240: .ascii "/3 and 3/9 and 9/27 may disagree\000"
8241: L190:.ascii "* gets too many final digits wrong.\012\000"
8242: L188:.ascii "* lacks a Guard Digit, so 1*X != X\000"
8243: L185:.ascii "\012Checking for guard digit in *, /, and -.\012\000"
8244: L184:.ascii "Subtraction appears to be normalized, as it should be.\000"
8245: L179:.ascii "Subtraction is not normalized X=Y,X+Z != Y+Z!\000"
8246: L175:.ascii "roughly %g extra significant decimals.\012\000"
8247: L174:.ascii "precisely with about %g extra B-digits, i.e.\012\000"
8248: L173:.ascii "Some subexpressions appear to be calculated extra\012\000"
8249: L167:.ascii "of an\012extra-precision\000"
8250: L166:.ascii "Z1 = %.7e, or Z2 = %.7e \000"
8251: L165:.ascii ", or exact rational arithmetic a result\012\000"
8252: L164:.ascii "Because of unusual Radix = %f\000"
8253: L160:.ascii "\011U2 = %.7e, Z2 - U2 = %.7e\012\000"
8254: L159:.ascii "\011U1 = %.7e, Z1 - U1 = %.7e\012\000"
8255: L158:.ascii "Precision\000"
8256: L157:.byte 0
8257: L150:.ascii "That feature is not tested further by this program.\012\000"
8258: L145:.ascii "Possibly some part of this\000"
8259: L144:.ascii "by extra-precise evaluation of arithmetic subexpressions.\012\000"
8260: L143:.ascii "are symptoms of inconsistencies introduced\012\000"
8261: L142:.ascii "respectively %.7e, %.7e, %.7e,\012\000"
8262: L141:.ascii "Disagreements among the values X1, Y1, Z1,\012\000"
8263: L119:.ascii "Precision worse than 5 decimal figures \000"
8264: L117:.ascii "The number of significant digits of the Radix is %f .\012\000"
8265: L116:.ascii "logarithmic encoding has precision characterized solely by U1.\012"
8266: .ascii "\000"
8267: L113:.ascii "of significant digits but, by itself, this is a minor flaw.\012\000"
8268: L112:.ascii "Precision cannot be characterized by an Integer number\012\000"
8269: L99:.ascii "Comparison is fuzzy,X=1 but X-1/2-1/2 != 0\000"
8270: L95:.ascii "(1-U1)-1/2 < 1/2 is FALSE, prog. fails?\000"
8271: .align 8; L93:.word 0x40240000,0x0
8272: L88:.ascii "Radix is not as good as 2 or 10\000"
8273: L84:.ascii "Radix is too big: roundoff problems\000"
8274: L82:.ascii "MYSTERY: recalculated Radix = %.7e .\012\000"
8275: L81:.ascii "Radix confirmed.\012\000"
8276: .align 8; L78:.word 0x3f847ae1,0x47ae147a
8277: L77:.ascii "gets better closest relative separation U1 = %.7e .\012\000"
8278: L76:.ascii "confirms closest relative separation U1 .\012\000"
8279: L61:.ascii "Recalculating radix and precision\012 \000"
8280: L60:.ascii "Closest relative separation found is U1 = %.7e .\012\012\000"
8281: L54:.ascii "Radix = %f .\012\000"
8282: L45:.ascii "Searching for Radix and Precision.\012\000"
8283: L44:.byte 10,0
8284: L43:.ascii "-1, 0, 1/2, 1, 2, 3, 4, 5, 9, 27, 32 & 240 are O.K.\012\000"
8285: L38:.ascii "5 != 4+1, 240/3 != 80, 240/4 != 60, or 240/5 != 48\000"
8286: L34:.ascii "9 != 3*3, 27 != 9*3, 32 != 8*4, or 32-27-4-1 != 0\000"
8287: L30:.ascii "1/2 + (-1) + 1/2 != 0\000"
8288: L26:.ascii "-1+1 != 0, (-1)+abs(1) != 0, or -1+(-1)*(-1) != 0\000"
8289: L22:.ascii "3 != 2+1, 4 != 3+1, 4+2*(-2) != 0, or 4-3-1 != 0\000"
8290: .align 8; L20:.word 0x3f50624d,0xd2f1a9fb
8291: L19:.ascii "Comparison alleges that -0.0 is Non-zero!\012\000"
8292: L14:.ascii "0+0 != 0, 1-1 != 0, 1 <= 0, or 1+1 != 2\000"
8293: L12:.ascii "Program is now RUNNING tests on small integers:\012\000"
8294: .align 8; L8:.word 0x3ff00000,0x0
8295: .align 8; L7:.word 0x0,0x0
8296: L2:.ascii "\012* * * FLOATING-POINT ERROR * * *\012\000"
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.