![[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.