paranoia.sbk

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

fdivd %f28,%f30,%f30
st2 %f30,[%l3]
set Y,%l2
ld2 [%l3],%f30
set One,%l1
ld2 [%l1],%f28
faddd %f30,%f28,%f28
st2 %f28,[%l2]
set Z,%l1
ld2 [%l2],%f28
fsubd %f28,%f30,%f30
st2 %f30,[%l1]
set T,%l2
ld2 [%l1],%f30
set U2,%l1
ld2 [%l1],%f28
faddd %f30,%f28,%f26
st2 %f26,[%l2]
ld2 [%l2],%f26
fsubd %f26,%f30,%f30
st2 %f30,[%l3]
mov %g0,%o0
ld2 [%l3],%f30
fcmped %f30,%f28; nop; fbne .L181; nop
set 1,%l3
st %l3,[%fp+-24]
ba .L182; nop
.L181:
st %g0,[%fp+-24]
.L182:
ld [%fp+-24],%o1
set .L180,%o2
call TstCond; nop
set X,%l3
ld2 [%l3],%f30
set U2,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L183; nop
set .L185,%o0
call printf; nop
.L183:
.L177:
set .L186,%o0
call printf; nop
set Y,%l3
set F9,%l2
ld2 [%l2],%f30
set One,%l2
ld2 [%l2],%f28
fmuld %f30,%f28,%f26
st2 %f26,[%l3]
set Z,%l2
fmuld %f28,%f30,%f26
st2 %f26,[%l2]
set X,%l1
set Half,%l0
ld2 [%l0],%f26
fsubd %f30,%f26,%f30
st2 %f30,[%l1]
ld2 [%l1],%f30
ld2 [%l3],%f24
fsubd %f24,%f26,%f24
fsubd %f24,%f30,%f24
st2 %f24,[%l3]
ld2 [%l2],%f24
fsubd %f24,%f26,%f26
fsubd %f26,%f30,%f30
st2 %f30,[%l2]
set U2,%l3
ld2 [%l3],%f30
faddd %f28,%f30,%f26
st2 %f26,[%l1]
set T,%l3
ld2 [%l1],%f26
set Radix,%l2
ld2 [%l2],%f24
fmuld %f26,%f24,%f22
st2 %f22,[%l3]
set R,%l2
fmuld %f24,%f26,%f26
st2 %f26,[%l2]
ld2 [%l3],%f26
fsubd %f26,%f24,%f26
st2 %f26,[%l1]
fmuld %f24,%f30,%f30
ld2 [%l1],%f26
fsubd %f26,%f30,%f26
st2 %f26,[%l1]
ld2 [%l2],%f26
fsubd %f26,%f24,%f26
st2 %f26,[%l3]
ld2 [%l3],%f26
fsubd %f26,%f30,%f30
st2 %f30,[%l3]
fsubd %f24,%f28,%f30
ld2 [%l1],%f28
fmuld %f28,%f30,%f28
st2 %f28,[%l1]
ld2 [%l3],%f28
fmuld %f28,%f30,%f30
st2 %f30,[%l3]
set Zero,%l3
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L187; nop
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L187; nop
set Z,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L187; nop
set T,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L187; nop
set GMult,%l3
set 1,%l2
st %l2,[%l3]
ba .L188; nop
.L187:
mov %g0,%l3
set GMult,%l2
st %l3,[%l2]
set 1,%o0
mov %l3,%o1
set .L189,%o2
call TstCond; nop
.L188:
set Z,%l3
set Radix,%l2
ld2 [%l2],%f30
set U2,%l2
ld2 [%l2],%f28
fmuld %f30,%f28,%f30
st2 %f30,[%l3]
set X,%l2
ld2 [%l3],%f30
set One,%l3
ld2 [%l3],%f28
faddd %f28,%f30,%f28
st2 %f28,[%l2]
ld2 [%l2],%f28
faddd %f28,%f30,%f30
fmuld %f28,%f28,%f28
fsubd %f30,%f28,%f30
st %f30,[%sp+4*0+68]
st %f31,[%sp+4*1+68]
ld [%sp+4*0+68],%o0
ld [%sp+4*1+68],%o1
call fabs; nop
fmovs %f0,%f30; fmovs %f1,%f31
set U2,%l3
ld2 [%l3],%f28
set Y,%l3
fsubd %f30,%f28,%f30
st2 %f30,[%l3]
set X,%l3
set One,%l2
ld2 [%l2],%f30
fsubd %f30,%f28,%f30
st2 %f30,[%l3]
ld2 [%l3],%f30
fsubd %f30,%f28,%f28
fmuld %f30,%f30,%f30
fsubd %f28,%f30,%f30
st %f30,[%sp+4*0+68]
st %f31,[%sp+4*1+68]
ld [%sp+4*0+68],%o0
ld [%sp+4*1+68],%o1
call fabs; nop
fmovs %f0,%f30; fmovs %f1,%f31
set Z,%l3
set U1,%l2
ld2 [%l2],%f28
fsubd %f30,%f28,%f30
st2 %f30,[%l3]
mov %g0,%o0
set Zero,%l3
ld2 [%l3],%f30
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbug .L192; nop
set Z,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbug .L192; nop
set 1,%l3
st %l3,[%fp+-24]
ba .L193; nop
.L192:
st %g0,[%fp+-24]
.L193:
ld [%fp+-24],%o1
set .L191,%o2
call TstCond; nop
set Y,%l3
set One,%l2
ld2 [%l2],%f30
set U2,%l2
ld2 [%l2],%f28
fsubd %f30,%f28,%f26
st2 %f26,[%l3]
set X,%l2
faddd %f30,%f28,%f28
st2 %f28,[%l2]
set Z,%l1
ld2 [%l3],%f28
fdivd %f30,%f28,%f28
st2 %f28,[%l1]
ld2 [%l1],%f28
ld2 [%l2],%f26
fsubd %f28,%f26,%f28
st2 %f28,[%l3]
set Three,%l3
ld2 [%l3],%f28
fdivd %f30,%f28,%f30
st2 %f30,[%l2]
set Nine,%l3
ld2 [%l3],%f30
fdivd %f28,%f30,%f28
st2 %f28,[%l1]
ld2 [%l1],%f28
ld2 [%l2],%f26
fsubd %f26,%f28,%f26
st2 %f26,[%l2]
set T,%l3
set TwentySeven,%l2
ld2 [%l2],%f26
fdivd %f30,%f26,%f30
st2 %f30,[%l3]
ld2 [%l3],%f30
fsubd %f28,%f30,%f30
st2 %f30,[%l1]
set 2,%o0
set Zero,%l3
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L196; nop
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L196; nop
set Z,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L196; nop
set 1,%l3
st %l3,[%fp+-28]
ba .L197; nop
.L196:
st %g0,[%fp+-28]
.L197:
ld [%fp+-28],%o1
set .L195,%o2
call TstCond; nop
set Y,%l3
set F9,%l2
ld2 [%l2],%f30
set One,%l2
ld2 [%l2],%f28
fdivd %f30,%f28,%f26
st2 %f26,[%l3]
set X,%l2
set Half,%l1
ld2 [%l1],%f26
fsubd %f30,%f26,%f30
st2 %f30,[%l2]
ld2 [%l3],%f30
fsubd %f30,%f26,%f30
ld2 [%l2],%f26
fsubd %f30,%f26,%f30
st2 %f30,[%l3]
set U2,%l3
ld2 [%l3],%f30
faddd %f28,%f30,%f30
st2 %f30,[%l2]
set T,%l3
ld2 [%l2],%f30
fdivd %f30,%f28,%f28
st2 %f28,[%l3]
ld2 [%l3],%f28
fsubd %f28,%f30,%f30
st2 %f30,[%l2]
set Zero,%l3
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L198; nop
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L198; nop
set Z,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L198; nop
set GDiv,%l3
set 1,%l2
st %l2,[%l3]
ba .L199; nop
.L198:
mov %g0,%l3
set GDiv,%l2
st %l3,[%l2]
set 1,%o0
mov %l3,%o1
set .L200,%o2
call TstCond; nop
.L199:
set X,%l3
set One,%l2
ld2 [%l2],%f30
set U2,%l2
ld2 [%l2],%f28
faddd %f30,%f28,%f28
fdivd %f30,%f28,%f30
st2 %f30,[%l3]
set Y,%l2
set Half,%l1
ld2 [%l1],%f30
ld2 [%l3],%f28
fsubd %f28,%f30,%f28
fsubd %f28,%f30,%f30
st2 %f30,[%l2]
set 1,%o0
ld2 [%l2],%f30
set Zero,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbuge .L203; nop
set 1,%l3
st %l3,[%fp+-32]
ba .L204; nop
.L203:
st %g0,[%fp+-32]
.L204:
ld [%fp+-32],%o1
set .L202,%o2
call TstCond; nop
set X,%l3
set One,%l2
ld2 [%l2],%f30
set U2,%l2
ld2 [%l2],%f28
fsubd %f30,%f28,%f26
st2 %f26,[%l3]
set Y,%l2
set Radix,%l1
ld2 [%l1],%f26
fmuld %f26,%f28,%f28
faddd %f30,%f28,%f30
st2 %f30,[%l2]
set Z,%l1
ld2 [%l3],%f30
fmuld %f30,%f26,%f28
st2 %f28,[%l1]
set T,%l0
ld2 [%l2],%f28
fmuld %f28,%f26,%f24
st2 %f24,[%l0]
set R,%o5
ld2 [%l1],%f24
fdivd %f24,%f26,%f24
st2 %f24,[%o5]
set StickyBit,%l1
ld2 [%l0],%f24
fdivd %f24,%f26,%f26
st2 %f26,[%l1]
ld2 [%o5],%f26
fsubd %f26,%f30,%f30
st2 %f30,[%l3]
ld2 [%l1],%f30
fsubd %f30,%f28,%f30
st2 %f30,[%l2]
mov %g0,%o0
set Zero,%l3
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L207; nop
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L207; nop
set 1,%l3
st %l3,[%fp+-36]
ba .L208; nop
.L207:
st %g0,[%fp+-36]
.L208:
ld [%fp+-36],%o1
set .L206,%o2
call TstCond; nop
set Y,%l3
set One,%l2
ld2 [%l2],%f30
set U1,%l2
ld2 [%l2],%f28
fsubd %f30,%f28,%f28
st2 %f28,[%l3]
set X,%l2
set F9,%l1
ld2 [%l1],%f28
fsubd %f30,%f28,%f28
st2 %f28,[%l2]
ld2 [%l3],%f28
fsubd %f30,%f28,%f30
st2 %f30,[%l3]
set T,%l3
set Radix,%l2
ld2 [%l2],%f30
set U2,%l2
ld2 [%l2],%f28
fsubd %f30,%f28,%f28
st2 %f28,[%l3]
set Z,%l2
set BMinusU2,%l1
ld2 [%l1],%f28
fsubd %f30,%f28,%f28
st2 %f28,[%l2]
ld2 [%l3],%f28
fsubd %f30,%f28,%f30
st2 %f30,[%l3]
set U1,%l3
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L209; nop
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L209; nop
set U2,%l3
ld2 [%l3],%f30
set Z,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L209; nop
set T,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L209; nop
set GAddSub,%l3
set 1,%l2
st %l2,[%l3]
ba .L210; nop
.L209:
mov %g0,%l3
set GAddSub,%l2
st %l3,[%l2]
set 1,%o0
mov %l3,%o1
set .L211,%o2
call TstCond; nop
.L210:
set F9,%l3
ld2 [%l3],%f30
set One,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbue .L212; nop
fsubd %f30,%f28,%f30
set Zero,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbul .L212; nop
set 1,%o0
set .L214,%o1
call BadCond; nop
set .L215,%o0
call printf; nop
set .L216,%o0
call printf; nop
set .L217,%o0
call printf; nop
.L212:
set GMult,%l3
ld [%l3],%l3
cmp %l3,1; bne .L218; nop
set GDiv,%l3
ld [%l3],%l3
cmp %l3,1; bne .L218; nop
set GAddSub,%l3
ld [%l3],%l3
cmp %l3,1; bne .L218; nop
set .L220,%o0
call printf; nop
.L218:
set Milestone,%l3
set 40,%l2
st %l2,[%l3]
call Pause; nop
set .L221,%o0
call printf; nop
set RMult,%l2
st %g0,[%l2]
set RDiv,%l2
st %g0,[%l2]
set RAddSub,%l2
st %g0,[%l2]
set Two,%l2
ld2 [%l2],%f30
set RadixD2,%l2
set Radix,%l1
ld2 [%l1],%f28
fdivd %f28,%f30,%f28
st2 %f28,[%l2]
set A1,%l2
st2 %f30,[%l2]
set Done,%l2
st %g0,[%l2]
.L222:
set AInvrse,%l3
set Radix,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
.L225:
set AInvrse,%l3
ld2 [%l3],%f30
set X,%l2
st2 %f30,[%l2]
set A1,%l2
ld2 [%l2],%f28
fdivd %f30,%f28,%f30
st2 %f30,[%l3]
.L226:
set AInvrse,%l3
ld2 [%l3],%f30
st %f30,[%sp+4*0+68]
st %f31,[%sp+4*1+68]
ld [%sp+4*0+68],%o0
ld [%sp+4*1+68],%o1
call floor; nop
fmovs %f0,%f30; fmovs %f1,%f31
set AInvrse,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbue .L225; nop
set X,%l3
ld2 [%l3],%f30
set One,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbue .L231; nop
set A1,%l3
ld2 [%l3],%f30
set Three,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbule .L229; nop
.L231:
set 1,%l3
st %l3,[%fp+-40]
ba .L230; nop
.L229:
st %g0,[%fp+-40]
.L230:
set Done,%l3
ld [%fp+-40],%l2
st %l2,[%l3]
set Done,%l3
ld [%l3],%l3
cmp %l3,0; bne .L232; nop
set A1,%l3
set Nine,%l2
ld2 [%l2],%f30
set One,%l2
ld2 [%l2],%f28
faddd %f30,%f28,%f30
st2 %f30,[%l3]
.L232:
.L223:
set Done,%l3
ld [%l3],%l3
cmp %l3,0; be .L222; nop
set X,%l3
ld2 [%l3],%f30
set One,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L234; nop
set A1,%l3
set Radix,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
.L234:
set AInvrse,%l3
set A1,%l2
ld2 [%l2],%f30
set One,%l2
ld2 [%l2],%f28
fdivd %f28,%f30,%f28
st2 %f28,[%l3]
set X,%l2
st2 %f30,[%l2]
set Y,%l2
ld2 [%l3],%f30
st2 %f30,[%l2]
set Done,%l3
st %g0,[%l3]
.L236:
set Z,%l3
set Half,%l2
ld2 [%l2],%f30
set X,%l2
ld2 [%l2],%f28
set Y,%l2
ld2 [%l2],%f26
fmuld %f28,%f26,%f28
fsubd %f28,%f30,%f28
st2 %f28,[%l3]
mov %g0,%o0
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L241; nop
set 1,%l3
st %l3,[%fp+-40]
ba .L242; nop
.L241:
st %g0,[%fp+-40]
.L242:
ld [%fp+-40],%o1
set .L240,%o2
call TstCond; nop
set X,%l3
ld2 [%l3],%f30
set Radix,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L244; nop
set 1,%l3
st %l3,[%fp+-44]
ba .L245; nop
.L244:
st %g0,[%fp+-44]
.L245:
set Done,%l3
ld [%fp+-44],%l2
st %l2,[%l3]
set X,%l3
set Radix,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
set Y,%l2
set One,%l1
ld2 [%l1],%f30
ld2 [%l3],%f28
fdivd %f30,%f28,%f30
st2 %f30,[%l2]
.L237:
set Done,%l3
ld [%l3],%l3
cmp %l3,0; be .L236; nop
set Y2,%l3
set One,%l2
ld2 [%l2],%f30
set U2,%l2
ld2 [%l2],%f28
faddd %f30,%f28,%f26
st2 %f26,[%l3]
set Y1,%l2
fsubd %f30,%f28,%f30
st2 %f30,[%l2]
set X,%l1
set OneAndHalf,%l0
ld2 [%l0],%f30
fsubd %f30,%f28,%f26
st2 %f26,[%l1]
set Y,%l0
faddd %f30,%f28,%f26
st2 %f26,[%l0]
set Z,%o5
ld2 [%l1],%f26
ld2 [%l3],%f24
fsubd %f26,%f28,%f22
fmuld %f22,%f24,%f22
st2 %f22,[%o5]
set T,%l3
ld2 [%l0],%f22
ld2 [%l2],%f20
fmuld %f22,%f20,%f18
st2 %f18,[%l3]
ld2 [%o5],%f18
fsubd %f18,%f26,%f18
st2 %f18,[%o5]
ld2 [%l3],%f18
fsubd %f18,%f26,%f18
st2 %f18,[%l3]
fmuld %f26,%f24,%f26
st2 %f26,[%l1]
faddd %f22,%f28,%f28
fmuld %f28,%f20,%f28
st2 %f28,[%l0]
ld2 [%l1],%f28
fsubd %f28,%f30,%f28
st2 %f28,[%l1]
ld2 [%l0],%f28
fsubd %f28,%f30,%f30
st2 %f30,[%l0]
set Zero,%l3
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L246; nop
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L246; nop
set Z,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L246; nop
set T,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbug .L246; nop
set X,%l3
set OneAndHalf,%l2
ld2 [%l2],%f30
set U2,%l2
ld2 [%l2],%f28
faddd %f30,%f28,%f26
set Y2,%l2
ld2 [%l2],%f24
fmuld %f26,%f24,%f22
st2 %f22,[%l3]
set Y,%l2
fsubd %f30,%f28,%f30
fsubd %f30,%f28,%f22
st2 %f22,[%l2]
set Z,%l1
faddd %f26,%f28,%f26
st2 %f26,[%l1]
set T,%l0
set Y1,%o5
ld2 [%o5],%f26
fmuld %f30,%f26,%f30
st2 %f30,[%l0]
ld2 [%l1],%f30
faddd %f30,%f28,%f22
ld2 [%l3],%f20
fsubd %f20,%f22,%f20
st2 %f20,[%l3]
set StickyBit,%l3
ld2 [%l2],%f20
fmuld %f20,%f26,%f18
st2 %f18,[%l3]
set S,%o4
fmuld %f30,%f24,%f30
st2 %f30,[%o4]
ld2 [%l0],%f30
fsubd %f30,%f20,%f30
st2 %f30,[%l0]
fsubd %f28,%f20,%f30
ld2 [%l3],%f20
faddd %f30,%f20,%f30
st2 %f30,[%l2]
ld2 [%o4],%f30
faddd %f22,%f28,%f22
fsubd %f30,%f22,%f30
st2 %f30,[%l1]
faddd %f24,%f28,%f30
fmuld %f30,%f26,%f30
st2 %f30,[%l3]
fmuld %f24,%f26,%f30
st2 %f30,[%o5]
ld2 [%l3],%f30
fsubd %f30,%f24,%f30
st2 %f30,[%l3]
ld2 [%o5],%f30
set Half,%l3
ld2 [%l3],%f28
fsubd %f30,%f28,%f30
st2 %f30,[%o5]
set Zero,%l3
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L248; nop
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L248; nop