paranoia.sbk

lcc source code enjoy your self

fstpl E0
fldl E0
fmull H
fstpl Z
.LC500:
fldl Z
fcompl E0
fstsw %ax
sahf
jp .LC502
jae .LC502
fldl Z
faddl Z
fldl Z
fcompp
fstsw %ax
sahf
jp .LC499
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
jp .LC503
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
jp .LC504
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
jp .LC511
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
jp .LC513
jne .LC513
fldl Y2
fcompl Y1
fstsw %ax
sahf
jp 1f
je .LC513
1:
fldl Y1
fstpl UfThold
.LC513:
.LC511:
fldl PseudoZero
fmull H
fstpl PseudoZero
.LC509:
fldl PseudoZero
fcompl Underflow
fstsw %ax
sahf
jp .LC515
jae .LC515
fldl PseudoZero
faddl PseudoZero
fldl PseudoZero
fcompp
fstsw %ax
sahf
jp .LC508
jb .LC508
.LC515:
.LC504:
fldl Zero
fcompl PseudoZero
fstsw %ax
sahf
jp 1f
je .LC516
1:
pushl $.LC45
call printf
addl $4,%esp
fldl PseudoZero
fstpl Z
fldl Zero
fcompl PseudoZero
fstsw %ax
sahf
jp .LC518
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
jp .LC519
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
jp .LC529
jae .LC529
fldl H
fmull S
fstpl S
fldl Underflow
fstpl E0
.LC529:
fldl Zero
fcompl E1
fstsw %ax
sahf
jp 1f
je .LC531
1:
fldl E0
fcompl E1
fstsw %ax
sahf
jp 1f
je .LC531
1:
pushl $.LC158
pushl $2
call BadCond
addl $8,%esp
fldl E0
fcompl E1
fstsw %ax
sahf
jp .LC533
jbe .LC533
pushl $.LC535
call printf
addl $4,%esp
pushl $.LC536
call printf
addl $4,%esp
fldl Zero
fcompl PseudoZero
fstsw %ax
sahf
jp .LC534
jne .LC534
fldl E1
fstpl E0
jmp .LC534
.LC533:
pushl $.LC539
call printf
addl $4,%esp
pushl $.LC540
call printf
addl $4,%esp
.LC534:
.LC531:
fldl E0
subl $8,%esp
fstpl (%esp)
pushl $.LC541
call printf
addl $12,%esp
fldl E0
fstpl Z
call TstPtUf
fldl E0
fstpl Underflow
cmpl $1,N
jne .LC542
fldl Y
fstpl Underflow
.LC542:
movl $4,I
fldl Zero
fcompl E1
fstsw %ax
sahf
jp .LC544
jne .LC544
movl $3,I
.LC544:
fldl Zero
fcompl UfThold
fstsw %ax
sahf
jp .LC546
jne .LC546
subl $2,I
.LC546:
movl $1,UfNGrad
movl I,%edi
cmpl $1,%edi
jl .LC548
cmpl $4,%edi
jg .LC548
jmp *.LC571-4(,%edi,4)
.data
.align 4
.LC571:
.long .LC550
.long .LC557
.long .LC562
.long .LC563
.text
.LC550:
fldl Underflow
fstpl UfThold
fldl CInvrse
fmull Q
fldl CInvrse
fmull Y
fmull S
fcompp
fstsw %ax
sahf
jp 1f
je .LC551
1:
fldl Y
fstpl UfThold
pushl $.LC553
pushl $0
call BadCond
addl $8,%esp
fldl UfThold
subl $8,%esp
fstpl (%esp)
pushl $.LC554
call printf
addl $12,%esp
fldl C
subl $8,%esp
fstpl (%esp)
pushl $.LC555
call printf
addl $12,%esp
pushl $.LC556
call printf
addl $4,%esp
.LC551:
call Pause
jmp .LC549
.LC557:
pushl $.LC558
pushl $0
call BadCond
addl $8,%esp
pushl $.LC559
call printf
addl $4,%esp
fldl Y2
subl $8,%esp
fstpl (%esp)
fldl Q
subl $8,%esp
fstpl (%esp)
pushl $.LC560
call printf
addl $20,%esp
fldl Q
fsubl Y2
subl $8,%esp
fstpl (%esp)
call fabs
addl $8,%esp
fstpl -1468(%ebp)
fldl -1468(%ebp)
subl $8,%esp
fstpl (%esp)
pushl $.LC561
call printf
addl $12,%esp
fldl Q
fstpl UfThold
jmp .LC549
.LC562:
fldl X
fstpl X
jmp .LC549
.LC563:
fldl UfThold
fcompl Q
fstsw %ax
sahf
jp .LC564
jne .LC564
fldl E0
fcompl E1
fstsw %ax
sahf
jp .LC564
jne .LC564
fldl UfThold
fldl E1
fdivl E9
fsubrp %st,%st(1)
subl $8,%esp
fstpl (%esp)
call fabs
addl $8,%esp
fstpl -1492(%ebp)
fldl E1
fcompl -1492(%ebp)
fstsw %ax
sahf
jp .LC564
jb .LC564
movl $0,UfNGrad
pushl $.LC566
call printf
addl $4,%esp
pushl $.LC567
call printf
addl $4,%esp
fldl E0
fmull CInvrse
fstpl Y
fldl Y
fldl OneAndHalf
faddl U2
fmulp %st,%st(1)
fstpl Y
fldl CInvrse
fldl One
faddl U2
fmulp %st,%st(1)
fstpl X
fldl Y
fdivl X
fstpl Y
fldl E0
fcompl Y
fstsw %ax
sahf
jp .LC569
jne .LC569
movl $1,-1496(%ebp)
jmp .LC570
.LC569:
movl $0,-1496(%ebp)
.LC570:
movl -1496(%ebp),%edi
movl %edi,IEEE
.LC564:
.LC548:
.LC549:
cmpl $0,UfNGrad
je .LC573
pushl $.LC45
call printf
addl $4,%esp
leal sigfpe,%edi
movl %edi,sigsave
pushl $ovfl_buf
call _setjmp
addl $4,%esp
cmpl $0,%eax
je .LC575
pushl $.LC577
call printf
addl $4,%esp
fldl H
faddl H
fstpl R
jmp .LC576
.LC575:
fldl Underflow
fdivl UfThold
subl $8,%esp
fstpl (%esp)
call sqrt
addl $8,%esp
fstpl -1460(%ebp)
fldl -1460(%ebp)
fstpl R
.LC576:
movl $0,sigsave
fldl H
fcompl R
fstsw %ax
sahf
jp .LC578
jb .LC578
fldl R
fmull UfThold
fstpl Z
fldl Z
fldl One
fldl R
fmull H
fldl One
faddl H
fmulp %st,%st(1)
faddp %st,%st(1)
fmulp %st,%st(1)
fstpl X
jmp .LC579
.LC578:
fldl UfThold
fstpl Z
fldl Z
fldl One
fldl H
fmull H
fldl One
faddl H
fmulp %st,%st(1)
faddp %st,%st(1)
fmulp %st,%st(1)
fstpl X
.LC579:
fldl Z
fcompl X
fstsw %ax
sahf
jp 1f
je .LC580
1:
fldl X
fsubl Z
fldl Zero
fcompp
fstsw %ax
sahf
jp .LC580
jne .LC580
pushl $.LC158
pushl $3
call BadCond
addl $8,%esp
fldl Z
subl $8,%esp
fstpl (%esp)
fldl X
subl $8,%esp
fstpl (%esp)
pushl $.LC582
call printf
addl $20,%esp
fldl X
fsubl Z
fstpl Z9
fldl Z9
subl $8,%esp
fstpl (%esp)
pushl $.LC583
call printf
addl $12,%esp
pushl $.LC584
call printf
addl $4,%esp
pushl $.LC585
call printf
addl $4,%esp
pushl $.LC586
call printf
addl $4,%esp
pushl $.LC587
call printf
addl $4,%esp
pushl $.LC588
call printf
addl $4,%esp
pushl $.LC589
call printf
addl $4,%esp
leal sigfpe,%edi
movl %edi,sigsave
pushl $ovfl_buf
call _setjmp
addl $4,%esp
cmpl $0,%eax
je .LC590
pushl $.LC592
call printf
addl $4,%esp
jmp .LC591
.LC590:
fldl X
fdivl Z
fsubl Half
fsubl Half
subl $8,%esp
fstpl (%esp)
pushl $.LC593
call printf
addl $12,%esp
.LC591:
movl $0,sigsave
.LC580:
.LC573:
pushl $.LC595
fldl UfThold
subl $8,%esp
fstpl (%esp)
pushl $.LC594
call printf
addl $16,%esp
pushl $.LC596
call printf
addl $4,%esp
pushl $.LC597
call printf
addl $4,%esp
fldl U1
fmull U1
fstpl Y2
fldl Y2
fstpl -1468(%ebp)
fldl -1468(%ebp)
fmull -1468(%ebp)
fstpl Y
fldl Y
fmull U1
fstpl Y2
fldl UfThold
fcompl Y2
fstsw %ax
sahf
jp .LC598
jb .LC598
fldl E0
fcompl Y
fstsw %ax
sahf
jp .LC600
jae .LC600
pushl $.LC158
pushl $2
call BadCond
addl $8,%esp
movl $5,I
jmp .LC601
.LC600:
pushl $.LC158
pushl $1
call BadCond
addl $8,%esp
movl $4,I
.LC601:
pushl I
pushl $.LC602
call printf
addl $8,%esp
.LC598:
movl $130,Milestone
fldl UfThold
subl $8,%esp
fstpl (%esp)
call log
addl $8,%esp
fstpl -1476(%ebp)
fldl HInvrse
subl $8,%esp
fstpl (%esp)
call log
addl $8,%esp
fstpl -1484(%ebp)
fldl Half
fldl TwoForty
fmull -1476(%ebp)
fdivl -1484(%ebp)
fsubrp %st,%st(1)
subl $8,%esp
fstpl (%esp)
call floor
addl $8,%esp
fstpl -1492(%ebp)
fldl -1492(%ebp)
fchs
fdivl TwoForty
fstpl Y
fldl Y
faddl Y
fstpl Y2
pushl $.LC603
call printf
addl $4,%esp
fldl Y
subl $8,%esp
fstpl (%esp)
fldl HInvrse
subl $8,%esp
fstpl (%esp)
pushl $.LC604
call printf
addl $20,%esp
fldl Y
subl $8,%esp
fstpl (%esp)
fldl HInvrse
subl $8,%esp
fstpl (%esp)
pushl $.LC605
call printf
addl $20,%esp
fldl Y2
subl $8,%esp
fstpl (%esp)
fldl HInvrse
subl $8,%esp
fstpl (%esp)
call pow
addl $16,%esp
fstpl -1508(%ebp)
fldl -1508(%ebp)
fstpl V9
fldl V9
subl $8,%esp
fstpl (%esp)
pushl $.LC606
call printf
addl $12,%esp
fldl Zero
fcompl V9
fstsw %ax
sahf
jp .LC609
ja .LC609
fldl Radix
faddl Radix
faddl E9
fmull UfThold
fcompl V9
fstsw %ax
sahf
jp .LC607
jae .LC607
.LC609:
pushl $.LC610
pushl $1
call BadCond
addl $8,%esp
fldl UfThold
subl $8,%esp
fstpl (%esp)
pushl $.LC611
call printf
addl $12,%esp
jmp .LC608
.LC607:
fldl UfThold
fldl One
faddl E9
fmulp %st,%st(1)
fcompl V9
fstsw %ax
sahf
jp .LC612
jb .LC612
pushl $.LC614
call printf
addl $4,%esp
jmp .LC613
.LC612:
pushl $.LC610
pushl $2
call BadCond
addl $8,%esp
fldl UfThold
subl $8,%esp
fstpl (%esp)
pushl $.LC611
call printf
addl $12,%esp
.LC613:
.LC608:
movl $140,Milestone
pushl $.LC45
call printf
addl $4,%esp
fldl Zero
fstpl X
movl $2,I
fldl Two
fmull Three
fstpl Y
fldl Zero
fstpl Q
movl $0,N
.LC615:
fldl X
fstpl Z
incl I
movl I,%edi
fldl Y
leal (%edi,%edi),%edi
pushl %edi
fildl (%esp)
addl $4,%esp
fdivrp %st,%st(1)
fstpl Y
fldl Y
faddl Q
fstpl R
fldl Z
fstpl -1540(%ebp)
fldl R
fstpl -1548(%ebp)
fldl -1540(%ebp)
faddl -1548(%ebp)
fstpl X
fldl -1540(%ebp)
fsubl X
faddl -1548(%ebp)
fstpl Q
.LC616:
fldl Z
fcompl X
fstsw %ax
sahf
jp .LC615
jb .LC615
fldl OneAndHalf
fldl One
fdivl Eight
faddp %st,%st(1)
fldl X
fldl OneAndHalf
fmull ThirtyTwo
fdivrp %st,%st(1)
faddp %st,%st(1)
fstpl Z
fldl Z
fstpl -1548(%ebp)
fldl -1548(%ebp)
fmull -1548(%ebp)
fstpl X
fldl X
fstpl -1556(%ebp)
fldl -1556(%ebp)
fmull -1556(%ebp)
fstpl Exp2
fldl F9
fstpl X
fldl X
fsubl U1
fstpl Y
fldl Exp2
subl $8,%esp
fstpl (%esp)
pushl $.LC618
call printf
addl $12,%esp
movl $1,I
.LC619:
fldl X
fsubl BInvrse
fstpl Z
fldl X
faddl One
fldl Z
fldl One
fsubl BInvrse
fsubrp %st,%st(1)
fdivrp %st,%st(1)
fstpl Z
fldl Z
subl $8,%esp
fstpl (%esp)
fldl X
subl $8,%esp
fstpl (%esp)
call pow
addl $16,%esp
fstpl -1588(%ebp)
fldl -1588(%ebp)
fsubl Exp2
fstpl Q
fldl Q
subl $8,%esp
fstpl (%esp)
call fabs
addl $8,%esp
fstpl -1596(%ebp)
fldl TwoForty
fmull U2
fcompl -1596(%ebp)
fstsw %ax
sahf
jp .LC623
jae .LC623
movl $1,N
fldl X
fsubl BInvrse
fldl One
fsubl BInvrse
fsubrp %st,%st(1)
fstpl V9
pushl $.LC625
pushl $2
call BadCond
addl $8,%esp
fldl Z
subl $8,%esp
fstpl (%esp)
fldl X
subl $8,%esp
fstpl (%esp)
call pow
addl $16,%esp
fstpl -1612(%ebp)
fldl -1612(%ebp)
subl $8,%esp
fstpl (%esp)
pushl $.LC626
call printf
addl $12,%esp
fldl Z
subl $8,%esp
fstpl (%esp)
fldl V9
subl $8,%esp
fstpl (%esp)
pushl $.LC627
call printf
addl $20,%esp
fldl Q
subl $8,%esp
fstpl (%esp)
pushl $.LC628
call printf
addl $12,%esp
pushl $.LC629
call printf
addl $4,%esp
pushl $.LC630
call printf
addl $4,%esp
jmp .LC621
.LC623:
fldl Y
fstpl -1604(%ebp)
fldl -1604(%ebp)
fsubl X
fmull Two
faddl -1604(%ebp)
fstpl Z
fldl -1604(%ebp)
fstpl X
fldl Z
fstpl Y
fldl X
fsubl F9
fstpl -1612(%ebp)
fldl One
fldl -1612(%ebp)
fmull -1612(%ebp)
faddp %st,%st(1)
fstpl Z
fldl One
fcompl Z
fstsw %ax
sahf
jp .LC631
jae .LC631
movl NoTrials,%edi
cmpl %edi,I
jge .LC631
incl I
jmp .LC619
.LC631:
fldl One
fcompl X
fstsw %ax
sahf
jp .LC633
jae .LC633
cmpl $0,N
jne .LC621
pushl $.LC637
call printf
addl $4,%esp
jmp .LC621
.LC633:
fldl One
faddl U2
fstpl X
fldl U2
faddl U2
fstpl Y
fldl Y
faddl X
fstpl Y
movl $1,I
jmp .LC619
.LC621:
movl $150,Milestone
pushl $.LC638
call printf
addl $4,%esp
movl $0,N
fldl A1
fstpl Z
fldl C
subl $8,%esp
fstpl (%esp)
call log
addl $8,%esp
fstpl -1564(%ebp)
fldl A1
subl $8,%esp
fstpl (%esp)
call log
addl $8,%esp
fstpl -1572(%ebp)
fldl Half
fldl -1564(%ebp)
fdivl -1572(%ebp)
fsubrp %st,%st(1)
subl $8,%esp
fstpl (%esp)
call floor
addl $8,%esp
fstpl -1580(%ebp)
fldl -1580(%ebp)
fstpl Q
movl $0,Break
.LC639:
fldl CInvrse
fstpl X
fldl Q
subl $8,%esp
fstpl (%esp)
fldl Z
subl $8,%esp
fstpl (%esp)
call pow
addl $16,%esp
fstpl -1588(%ebp)
fldl -1588(%ebp)
fstpl Y
call IsYeqX
fldl Q
fchs
fstpl Q
fldl C
fstpl X
fldl Q
subl $8,%esp
fstpl (%esp)
fldl Z
subl $8,%esp
fstpl (%esp)
call pow
addl $16,%esp
fstpl -1596(%ebp)
fldl -1596(%ebp)
fstpl Y
call IsYeqX
fldl One
fcompl Z
fstsw %ax
sahf
jp .LC642
jbe .LC642
movl $1,Break
jmp .LC643
.LC642:
fldl AInvrse
fstpl Z
.LC643:
.LC640:
cmpl $0,Break
je .LC639
call PrintIfNPositive
cmpl $0,N
jne .LC644
pushl $.LC646
call printf
addl $4,%esp
.LC644:
pushl $.LC45
call printf
addl $4,%esp
movl $160,Milestone
call Pause
pushl $.LC647
call printf
addl $4,%esp
pushl $.LC648
call printf
addl $4,%esp
fldl CInvrse
fchs
fstpl Y
fldl HInvrse
fmull Y
fstpl V9
leal sigfpe,%edi
mo