paranoia.sbk

游戏界的大牛人终于放出了 Q3 的源代码

addl $8,%esp
fldl E0
fcompl E1
fstsw %ax
sahf
jbe .LC533
pushl $.LC535
call printf
addl $4,%esp
pushl $.LC536
call printf
addl $4,%esp
fldl Zero
fcompl PseudoZero
fstsw %ax
sahf
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
jne .LC544
movl $3,I
.LC544:
fldl Zero
fcompl UfThold
fstsw %ax
sahf
jne .LC546
sub $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
je .LC551
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
jne .LC564
fldl E0
fcompl E1
fstsw %ax
sahf
jne .LC564
fldl UfThold
fldl E1
fdivl E9
fsubp %st(1),%st
subl $8,%esp
fstpl (%esp)
call fabs
addl $8,%esp
fstpl -1492(%ebp)
fldl E1
fcompl -1492(%ebp)
fstsw %ax
sahf
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(1),%st
fstpl Y
fldl CInvrse
fldl One
faddl U2
fmulp %st(1),%st
fstpl X
fldl Y
fdivl X
fstpl Y
fldl E0
fcompl Y
fstsw %ax
sahf
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
jb .LC578
fldl R
fmull UfThold
fstpl Z
fldl Z
fldl One
fldl R
fmull H
fldl One
faddl H
fmulp %st(1),%st
faddp %st(1),%st
fmulp %st(1),%st
fstpl X
jmp .LC579
.LC578:
fldl UfThold
fstpl Z
fldl Z
fldl One
fldl H
fmull H
fldl One
faddl H
fmulp %st(1),%st
faddp %st(1),%st
fmulp %st(1),%st
fstpl X
.LC579:
fldl Z
fcompl X
fstsw %ax
sahf
je .LC580
fldl X
fsubl Z
fldl Zero
fcompp
fstsw %ax
sahf
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
jb .LC598
fldl E0
fcompl Y
fstsw %ax
sahf
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)
fsubp %st(1),%st
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
ja .LC609
fldl Radix
faddl Radix
faddl E9
fmull UfThold
fcompl V9
fstsw %ax
sahf
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(1),%st
fcompl V9
fstsw %ax
sahf
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
fdivp %st(1),%st
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
jb .LC615
fldl OneAndHalf
fldl One
fdivl Eight
faddp %st(1),%st
fldl X
fldl OneAndHalf
fmull ThirtyTwo
fdivp %st(1),%st
faddp %st(1),%st
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
fsubp %st(1),%st
fdivp %st(1),%st
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
jae .LC623
movl $1,N
fldl X
fsubl BInvrse
fldl One
fsubl BInvrse
fsubp %st(1),%st
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(1),%st
fstpl Z
fldl One
fcompl Z
fstsw %ax
sahf
jae .LC631
movl NoTrials,%edi
cmpl %edi,I
jge .LC631
incl I
jmp .LC619
.LC631:
fldl One
fcompl X
fstsw %ax
sahf
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)
fsubp %st(1),%st
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
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
movl %edi,sigsave
pushl $ovfl_buf
call __setjmp
addl $4,%esp
cmpl $0,%eax
je .LC649
movl $0,I
fldl Y
fstpl V9
jmp .LC651
.LC649:
.LC652:
fldl Y
fstpl V
fldl V9
fstpl Y
fldl HInvrse
fmull Y
fstpl V9
.LC653:
fldl Y
fcompl V9
fstsw %ax
sahf
ja .LC652
movl $1,I
.LC651:
movl $0,sigsave
fldl V9
fstpl Z
pushl $.LC655
call printf
addl $4,%esp
fldl Y
subl $8,%esp
fstpl (%esp)
pushl $.LC656
call printf
addl $12,%esp
fldl Y
fchs
fstpl V9
fldl V9
fstpl V0
fldl V
fsubl Y
fldl V
faddl V0
fcompp
fstsw %ax
sahf
jne .LC657
pushl $.LC659
call printf
addl $4,%esp
jmp .LC658
.LC657:
pushl $.LC660
call printf
addl $4,%esp
pushl $.LC661
pushl $3
call BadCond
addl $8,%esp
.LC658:
fldl Y
fcompl Z
fstsw %ax
sahf
je .LC662
pushl $.LC158
pushl $1
call BadCond
addl $8,%esp
fldl Z
subl $8,%esp
fstpl (%esp)
fldl Y
subl $8,%esp
fstpl (%esp)
pushl $.LC664
call printf
addl $20,%esp
.LC662:
cmpl $0,I
je .LC665
fldl V
fldl HInvrse
fmull U2
fsubl HInvrse
fmulp %st(1),%st
fstpl Y
fldl Y
fldl One
fsubl HInvrse
fmull U2
fmull V
faddp %st(1),%st
fstpl Z
fldl V0
fcompl Z
fstsw %ax
sahf
jbe .LC667
fldl Z
fstpl Y
.LC667:
fldl V0
fcompl Y
fstsw %ax
sahf
jbe .LC669
fldl Y
fstpl V
.LC669:
fldl V0
fsubl V
fldl V0
fcompp
fstsw %ax
sahf
jbe .LC666
fldl V0
fstpl V
jmp .LC666
.LC665:
fldl Y
fldl HInvrse
fmull U2
fsubl HInvrse
fmulp %st(1),%st
fstpl V
fldl V
fldl One
fsubl HInvrse
fmull U2
fmull Y
faddp %st(1),%st
fstpl V
.LC666:
fldl V
subl $8,%esp
fstpl (%esp)
pushl $.LC673
call printf
addl $12,%esp
cmpl $0,I
je .LC674
fldl V0
subl $8,%esp
fstpl (%esp)
pushl $.LC676
call printf
addl $12,%esp
jmp .LC675
.LC674:
pushl $.LC677
call printf
addl $4,%esp
.LC675:
fldl V
fmull One
fstpl V9
fldl V9
subl $8,%esp
fstpl (%esp)
pushl $.LC678
call printf
addl $12,%esp
fldl V
fdivl One
fstpl V9
fldl V9
subl $8,%esp
fstpl (%esp)
pushl $.LC679
call printf
addl $12,%esp
pushl $.LC680
call printf
addl $4,%esp
pushl $.LC681
call printf
addl $4,%esp
movl $170,Milestone
fldl V
fchs
fldl V
fcompp
fstsw %ax
sahf
jbe .LC686
fldl V0
fchs
fldl V0
fcompp
fstsw %ax
sahf
jbe .LC686
fldl UfThold
fchs
fldl V
fcompp
fstsw %ax
sahf
jbe .LC686
fldl V
fcompl UfThold
fstsw %ax
sahf
ja .LC682
.LC686:
pushl $.LC687
pushl $0
call BadCond
addl $8,%esp
fldl UfThold
subl $8,%esp
fstpl (%esp)
fldl V0
subl $8,%esp
fstpl (%esp)
fldl V
subl $8,%esp
fstpl (%esp)
pushl $.LC688
call printf
addl $28,%esp
.LC682:
movl $175,Milestone
pushl $.LC45
call printf
addl $4,%esp
movl $1,Indx
.LC689:
movl Indx,%edi
cmpl $1,%edi
je .LC695
cmpl $2,%edi
je .LC696
cmpl $3,%edi
je .LC697
jmp .LC693
.LC695:
fldl UfThold
fstpl Z
jmp .LC694
.LC696:
fldl E0
fstpl Z
jmp .LC694
.LC697:
fldl PseudoZero
fst