jae .LC372
fldl SqEr
fstpl MaxSqEr
.LC372:
fldl Y
fldl U2
fdivl Eight
faddp %st(1),%st
fstpl SqEr
fldl MinSqEr
fcompl SqEr
fstsw %ax
sahf
jbe .LC374
fldl SqEr
fstpl MinSqEr
.LC374:
fldl F9
subl $8,%esp
fstpl (%esp)
call sqrt
addl $8,%esp
fstpl -1324(%ebp)
fldl -1324(%ebp)
fsubl U2
fldl One
fsubl U2
fsubp %st(1),%st
fdivl U1
fstpl Y
fldl Y
fldl U1
fdivl Eight
faddp %st(1),%st
fstpl SqEr
fldl MaxSqEr
fcompl SqEr
fstsw %ax
sahf
jae .LC376
fldl SqEr
fstpl MaxSqEr
.LC376:
fldl Y
faddl One
fldl U1
fdivl Eight
faddp %st(1),%st
fstpl SqEr
fldl MinSqEr
fcompl SqEr
fstsw %ax
sahf
jbe .LC378
fldl SqEr
fstpl MinSqEr
.LC378:
fldl U2
fstpl OneUlp
fldl OneUlp
fstpl X
movl $1,Indx
.LC380:
fldl X
faddl U1
faddl X
faddl F9
subl $8,%esp
fstpl (%esp)
call sqrt
addl $8,%esp
fstpl -1356(%ebp)
fldl -1356(%ebp)
fstpl Y
fldl Y
fsubl U2
fldl One
fsubl U2
faddl X
fsubp %st(1),%st
fdivl OneUlp
fstpl Y
fldl U1
fsubl X
faddl F9
fmull Half
fmull X
fmull X
fdivl OneUlp
fstpl Z
fldl Y
faddl Half
faddl Z
fstpl SqEr
fldl MinSqEr
fcompl SqEr
fstsw %ax
sahf
jbe .LC384
fldl SqEr
fstpl MinSqEr
.LC384:
fldl Y
fsubl Half
faddl Z
fstpl SqEr
fldl MaxSqEr
fcompl SqEr
fstsw %ax
sahf
jae .LC386
fldl SqEr
fstpl MaxSqEr
.LC386:
movl Indx,%edi
cmpl $1,%edi
je .LC390
cmpl $3,%edi
jne .LC388
.LC390:
fldl X
subl $8,%esp
fstpl (%esp)
call Sign
addl $8,%esp
fstpl -1396(%ebp)
fldl OneUlp
subl $8,%esp
fstpl (%esp)
call sqrt
addl $8,%esp
fstpl -1404(%ebp)
fldl Eight
fldl Nine
fmull -1404(%ebp)
fdivp %st(1),%st
subl $8,%esp
fstpl (%esp)
call floor
addl $8,%esp
fstpl -1412(%ebp)
fldl OneUlp
fmull -1396(%ebp)
fmull -1412(%ebp)
fstpl X
jmp .LC389
.LC388:
fldl U1
fstpl OneUlp
fldl OneUlp
fchs
fstpl X
.LC389:
.LC381:
incl Indx
cmpl $3,Indx
jle .LC380
movl $85,Milestone
movl $0,SqRWrng
movl $0,Anomaly
movl $0,RSqrt
fldl One
fcompl Radix
fstsw %ax
sahf
je .LC391
pushl $.LC393
call printf
addl $4,%esp
fldl Precision
subl $8,%esp
fstpl (%esp)
call floor
addl $8,%esp
fstpl -1356(%ebp)
fldl One
faddl Precision
fsubl -1356(%ebp)
subl $8,%esp
fstpl (%esp)
fldl Radix
subl $8,%esp
fstpl (%esp)
call pow
addl $16,%esp
fstpl -1364(%ebp)
fldl Half
faddl -1364(%ebp)
subl $8,%esp
fstpl (%esp)
call floor
addl $8,%esp
fstpl -1372(%ebp)
fldl -1372(%ebp)
fstpl D
fldl D
fdivl Radix
fstpl X
fldl D
fdivl A1
fstpl Y
fldl X
subl $8,%esp
fstpl (%esp)
call floor
addl $8,%esp
fstpl -1396(%ebp)
fldl -1396(%ebp)
fcompl X
fstsw %ax
sahf
jne .LC396
fldl Y
subl $8,%esp
fstpl (%esp)
call floor
addl $8,%esp
fstpl -1412(%ebp)
fldl -1412(%ebp)
fcompl Y
fstsw %ax
sahf
je .LC394
.LC396:
movl $1,Anomaly
jmp .LC395
.LC394:
fldl Zero
fstpl X
fldl X
fstpl Z2
fldl One
fstpl Y
fldl Y
fstpl Y2
fldl Radix
fsubl One
fstpl Z1
fldl Four
fmull D
fstpl FourD
.LC397:
fldl Z2
fcompl Y2
fstsw %ax
sahf
jae .LC400
fldl Radix
fstpl Q
fldl Y
fstpl Y1
.LC402:
fldl Half
fldl Q
fdivl Y1
fsubp %st(1),%st
subl $8,%esp
fstpl (%esp)
call floor
addl $8,%esp
fstpl -1436(%ebp)
fldl Q
fldl -1436(%ebp)
fmull Y1
faddp %st(1),%st
subl $8,%esp
fstpl (%esp)
call fabs
addl $8,%esp
fstpl -1444(%ebp)
fldl -1444(%ebp)
fstpl X1
fldl Y1
fstpl Q
fldl X1
fstpl Y1
.LC403:
fldl Zero
fcompl X1
fstsw %ax
sahf
jb .LC402
fldl One
fcompl Q
fstsw %ax
sahf
jb .LC405
fldl Y2
fstpl Z2
fldl Y
fstpl Z
.LC405:
.LC400:
fldl Y
faddl Two
fstpl Y
fldl X
faddl Eight
fstpl X
fldl Y2
faddl X
fstpl Y2
fldl FourD
fcompl Y2
fstsw %ax
sahf
ja .LC407
fldl Y2
fsubl FourD
fstpl Y2
.LC407:
.LC398:
fldl D
fcompl Y
fstsw %ax
sahf
ja .LC397
fldl FourD
fsubl Z2
fstpl X8
fldl X8
fstpl -1436(%ebp)
fldl -1436(%ebp)
fldl Z
fmull Z
faddp %st(1),%st
fdivl FourD
fstpl Q
fldl -1436(%ebp)
fdivl Eight
fstpl X8
fldl Q
fstpl -1452(%ebp)
fldl -1452(%ebp)
subl $8,%esp
fstpl (%esp)
call floor
addl $8,%esp
fstpl -1460(%ebp)
fldl -1460(%ebp)
fcompl -1452(%ebp)
fstsw %ax
sahf
je .LC409
movl $1,Anomaly
jmp .LC410
.LC409:
movl $0,Break
.LC411:
fldl Z1
fmull Z
fstpl X
fldl X
fstpl -1468(%ebp)
fldl -1468(%ebp)
fdivl Radix
subl $8,%esp
fstpl (%esp)
call floor
addl $8,%esp
fstpl -1476(%ebp)
fldl -1468(%ebp)
fldl -1476(%ebp)
fmull Radix
fsubp %st(1),%st
fstpl X
fldl One
fcompl X
fstsw %ax
sahf
jne .LC414
movl $1,Break
jmp .LC415
.LC414:
fldl Z1
fsubl One
fstpl Z1
.LC415:
.LC412:
cmpl $0,Break
jne .LC416
fldl Zero
fcompl Z1
fstsw %ax
sahf
jb .LC411
.LC416:
fldl Zero
fcompl Z1
fstsw %ax
sahf
jb .LC417
cmpl $0,Break
jne .LC417
movl $1,Anomaly
jmp .LC418
.LC417:
fldl RadixD2
fcompl Z1
fstsw %ax
sahf
jae .LC419
fldl Z1
fsubl Radix
fstpl Z1
.LC419:
.LC421:
call NewD
.LC422:
fldl U2
fmull D
fldl F9
fcompp
fstsw %ax
sahf
ja .LC421
fldl D
fmull Radix
fsubl D
fldl W
fsubl D
fcompp
fstsw %ax
sahf
je .LC424
movl $1,Anomaly
jmp .LC425
.LC424:
fldl D
fstpl Z2
movl $0,I
fldl D
fldl One
faddl Z
fmull Half
faddp %st(1),%st
fstpl Y
fldl D
faddl Z
faddl Q
fstpl X
call SR3750
fldl D
fldl One
fsubl Z
fmull Half
faddp %st(1),%st
faddl D
fstpl Y
fldl D
fsubl Z
faddl D
fstpl X
fldl X
fstpl -1508(%ebp)
fldl -1508(%ebp)
faddl Q
faddl -1508(%ebp)
fstpl X
call SR3750
call NewD
fldl D
fsubl Z2
fldl W
fsubl Z2
fcompp
fstsw %ax
sahf
je .LC426
movl $1,Anomaly
jmp .LC427
.LC426:
fldl D
fsubl Z2
fstpl -1532(%ebp)
fldl -1532(%ebp)
fldl Z2
fldl One
fsubl Z
fmull Half
faddp %st(1),%st
faddp %st(1),%st
fstpl Y
fldl -1532(%ebp)
fldl Z2
fsubl Z
faddl Q
faddp %st(1),%st
fstpl X
call SR3750
fldl One
faddl Z
fmull Half
fstpl Y
fldl Q
fstpl X
call SR3750
cmpl $0,I
jne .LC428
movl $1,Anomaly
.LC428:
.LC427:
.LC425:
.LC418:
.LC410:
.LC395:
cmpl $0,I
je .LC432
cmpl $0,Anomaly
je .LC430
.LC432:
pushl $.LC433
pushl $0
call BadCond
addl $8,%esp
fldl W
subl $8,%esp
fstpl (%esp)
pushl $.LC434
call printf
addl $12,%esp
pushl $.LC435
call printf
addl $4,%esp
movl $1,SqRWrng
.LC430:
.LC391:
cmpl $0,Anomaly
jne .LC436
fldl Zero
fcompl MinSqEr
fstsw %ax
sahf
ja .LC438
fldl Zero
fcompl MaxSqEr
fstsw %ax
sahf
jb .LC438
movl $1,RSqrt
pushl $.LC440
call printf
addl $4,%esp
jmp .LC439
.LC438:
fldl MaxSqEr
faddl U2
fldl U2
fsubl Half
fcompp
fstsw %ax
sahf
jb .LC444
fldl Half
fcompl MinSqEr
fstsw %ax
sahf
jb .LC444
fldl MinSqEr
faddl Radix
fldl Half
fcompp
fstsw %ax
sahf
jbe .LC441
.LC444:
movl $1,SqRWrng
jmp .LC442
.LC441:
movl $2,RSqrt
pushl $.LC445
call printf
addl $4,%esp
.LC442:
.LC439:
.LC436:
cmpl $0,SqRWrng
je .LC446
pushl $.LC448
call printf
addl $4,%esp
fldl MinSqEr
fsubl Half
subl $8,%esp
fstpl (%esp)
pushl $.LC449
call printf
addl $12,%esp
fldl Half
faddl MaxSqEr
subl $8,%esp
fstpl (%esp)
pushl $.LC450
call printf
addl $12,%esp
pushl $.LC452
fldl MaxSqEr
fsubl MinSqEr
fldl Radix
fmull Radix
fcompp
fstsw %ax
sahf
jbe .LC453
movl $1,-1344(%ebp)
jmp .LC454
.LC453:
movl $0,-1344(%ebp)
.LC454:
pushl -1344(%ebp)
pushl $1
call TstCond
addl $12,%esp
.LC446:
movl $90,Milestone
call Pause
pushl $.LC455
call printf
addl $4,%esp
movl $0,N
movl $0,I
fldl Zero
fchs
fstpl Z
movl $3,M
movl $0,Break
.LC456:
fldl One
fstpl X
call SR3980
cmpl $10,I
jg .LC459
movl $1023,I
call SR3980
.LC459:
fldl MinusOne
fcompl Z
fstsw %ax
sahf
jne .LC461
movl $1,Break
jmp .LC462
.LC461:
fldl MinusOne
fstpl Z
call PrintIfNPositive
movl $0,N
movl $-4,I
.LC462:
.LC457:
cmpl $0,Break
je .LC456
call PrintIfNPositive
movl N,%edi
movl %edi,N1
movl $0,N
fldl A1
fstpl Z
fldl W
subl $8,%esp
fstpl (%esp)
call log
addl $8,%esp
fstpl -1348(%ebp)
fldl A1
subl $8,%esp
fstpl (%esp)
call log
addl $8,%esp
fstpl -1356(%ebp)
fldl Two
fmull -1348(%ebp)
fdivl -1356(%ebp)
subl $8,%esp
fstpl (%esp)
call floor
addl $8,%esp
fstpl -1364(%ebp)
fldl -1364(%ebp)
fistpl M
movl $0,Break
.LC463:
fldl Z
fstpl X
movl $1,I
call SR3980
fldl AInvrse
fcompl Z
fstsw %ax
sahf
jne .LC466
movl $1,Break
jmp .LC467
.LC466:
fldl AInvrse
fstpl Z
.LC467:
.LC464:
cmpl $0,Break
je .LC463
movl $100,Milestone
movl NoTrials,%edi
movl %edi,M
fldl Three
fstpl Z
.LC468:
fldl Z
fstpl X
movl $1,I
call SR3980
.LC471:
fldl Z
faddl Two
fstpl Z
.LC472:
fldl Z
fdivl Three
subl $8,%esp
fstpl (%esp)
call floor
addl $8,%esp
fstpl -1380(%ebp)
fldl Three
fmull -1380(%ebp)
fldl Z
fcompp
fstsw %ax
sahf
je .LC471
.LC469:
fldl Eight
fmull Three
fcompl Z
fstsw %ax
sahf
ja .LC468
cmpl $0,N
jle .LC474
pushl $.LC476
call printf
addl $4,%esp
pushl $.LC477
call printf
addl $4,%esp
.LC474:
call PrintIfNPositive
movl N1,%edi
addl %edi,N
cmpl $0,N
jne .LC478
pushl $.LC480
call printf
addl $4,%esp
.LC478:
cmpl $0,N
jle .LC481
call Pause
jmp .LC482
.LC481:
pushl $.LC45
call printf
addl $4,%esp
.LC482:
movl $110,Milestone
pushl $.LC483
call printf
addl $4,%esp
fldl U1
fstpl D
fldl Precision
subl $8,%esp
fstpl (%esp)
call floor
addl $8,%esp
fstpl -1380(%ebp)
fldl -1380(%ebp)
fcompl Precision
fstsw %ax
sahf
je .LC484
fldl BInvrse
fstpl D
fldl Precision
fstpl X
.LC486:
fldl D
fmull BInvrse
fstpl D
fldl X
fsubl One
fstpl X
.LC487:
fldl Zero
fcompl X
fstsw %ax
sahf
jb .LC486
.LC484:
fldl One
fstpl Y
fldl D
fstpl Z
.LC489:
fldl Y
fstpl C
fldl Z
fstpl Y
fldl Y
fstpl -1388(%ebp)
fldl -1388(%ebp)
fmull -1388(%ebp)
fstpl Z
.LC490:
fldl Z
fcompl Y
fstsw %ax
sahf
jae .LC492
fldl Z
faddl Z
fldl Z
fcompp
fstsw %ax
sahf
jb .LC489
.LC492:
fldl C
fstpl Y
fldl Y
fmull D
fstpl Z
.LC493:
fldl Y
fstpl C
fldl Z
fstpl Y
fldl Y
fmull D
fstpl Z
.LC494:
fldl Z
fcompl Y
fstsw %ax
sahf
jae .LC496
fldl Z
faddl Z
fldl Z
fcompp
fstsw %ax
sahf
jb .LC493
.LC496:
fldl Two
fcompl Radix
fstsw %ax
sahf
jbe .LC497
fldl Two
fstpl HInvrse
jmp .LC498
.LC497:
fldl Radix
fstpl HInvrse
.LC498:
fldl One
fdivl HInvrse
fstpl H
fldl One
fdivl C
fstpl CInvrse
fldl C
fstpl E0
fldl E0
fmull H
fstpl Z
.LC499:
fldl E0
fstpl Y
fldl Z
fstpl E0
fldl E0
fmull H
fstpl Z
.LC500:
fldl Z
fcompl E0
fstsw %ax
sahf
jae .LC502
fldl Z
faddl Z
fldl Z
fcompp
fstsw %ax
sahf
jb .LC499
.LC502:
fldl E0
fstpl UfThold
fldl Zero
fstpl E1
fldl Zero
fstpl Q
fldl U2
fstpl E9
fldl One
faddl E9
fstpl S
fldl C
fmull S
fstpl D
fldl C
fcompl D
fstsw %ax
sahf
jb .LC503
fldl Radix
fmull U2
fstpl E9
fldl One
faddl E9
fstpl S
fldl C
fmull S
fstpl D
fldl C
fcompl D
fstsw %ax
sahf
jb .LC504
pushl $.LC507
pushl $0
call BadCond
addl $8,%esp
fldl E0
fstpl Underflow
fldl Zero
fstpl Y1
fldl Z
fstpl PseudoZero
call Pause
jmp .LC504
.LC503:
fldl D
fstpl Underflow
fldl Underflow
fmull H
fstpl PseudoZero
fldl Zero
fstpl UfThold
.LC508:
fldl Underflow
fstpl Y1
fldl PseudoZero
fstpl Underflow
fldl E1
faddl E1
fldl E1
fcompp
fstsw %ax
sahf
jb .LC511
fldl Underflow
fmull HInvrse
fstpl Y2
fldl Y1
fsubl Y2
subl $8,%esp
fstpl (%esp)
call fabs
addl $8,%esp
fstpl -1452(%ebp)
fldl -1452(%ebp)
fstpl E1
fldl Y1
fstpl Q
fldl Zero
fcompl UfThold
fstsw %ax
sahf
jne .LC513
fldl Y2
fcompl Y1
fstsw %ax
sahf
je .LC513
fldl Y1
fstpl UfThold
.LC513:
.LC511:
fldl PseudoZero
fmull H
fstpl PseudoZero
.LC509:
fldl PseudoZero
fcompl Underflow
fstsw %ax
sahf
jae .LC515
fldl PseudoZero
faddl PseudoZero
fldl PseudoZero
fcompp
fstsw %ax
sahf
jb .LC508
.LC515:
.LC504:
fldl Zero
fcompl PseudoZero
fstsw %ax
sahf
je .LC516
pushl $.LC45
call printf
addl $4,%esp
fldl PseudoZero
fstpl Z
fldl Zero
fcompl PseudoZero
fstsw %ax
sahf
jb .LC518
pushl $.LC520
pushl $0
call BadCond
addl $8,%esp
pushl $.LC521
call printf
addl $4,%esp
fldl PseudoZero
subl $8,%esp
fstpl (%esp)
pushl $.LC522
call printf
addl $12,%esp
fldl PseudoZero
fchs
fstpl X
fldl Zero
fcompl X
fstsw %ax
sahf
jb .LC519
pushl $.LC525
call printf
addl $4,%esp
fldl X
subl $8,%esp
fstpl (%esp)
pushl $.LC526
call printf
addl $12,%esp
jmp .LC519
.LC518:
pushl $.LC527
pushl $3
call BadCond
addl $8,%esp
fldl PseudoZero
subl $8,%esp
fstpl (%esp)
pushl $.LC528
call printf
addl $12,%esp
.LC519:
call TstPtUf
.LC516:
movl $120,Milestone
fldl CInvrse
fmull Y
fldl CInvrse
fmull Y1
fcompp
fstsw %ax
sahf
jae .LC529
fldl H
fmull S
fstpl S
fldl Underflow
fstpl E0
.LC529:
fldl Zero
fcompl E1
fstsw %ax
sahf
je .LC531
fldl E0
fcompl E1
fstsw %ax
sahf
je .LC531
pushl $.LC158
pushl $2
call BadCond