paranoia.sbk

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

fcmped %f28,%f30; nop; fbule .L74; nop
set Zero,%l7
ld2 [%l7],%f28
fcmped %f30,%f28; nop; fbug .L71; nop
.L74:
set U1,%l7
ld2 [%l7],%f30
set E1,%l7
ld2 [%l7],%f28
fcmped %f30,%f28; nop; fbne .L75; nop
set .L77,%o0
call printf; nop
ba .L76; nop
.L75:
set .L78,%o0
set U1,%l7
ld2 [%l7],%f30
st %f30,[%sp+4*1+68]
st %f31,[%sp+4*2+68]
ld [%sp+4*1+68],%o1
ld [%sp+4*2+68],%o2
call printf; nop
.L76:
set U1,%l7
ld2 [%l7],%f30
set W,%l7
set One,%l6
ld2 [%l6],%f28
fdivd %f28,%f30,%f28
st2 %f28,[%l7]
set Half,%l7
ld2 [%l7],%f28
set F9,%l7
fsubd %f28,%f30,%f26
faddd %f26,%f28,%f28
st2 %f28,[%l7]
set U2,%l7
ld2 [%l7],%f28
fdivd %f28,%f30,%f30
set .L79,%l7
ld2 [%l7],%f28
faddd %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 floor; nop
fmovs %f0,%f30; fmovs %f1,%f31
set Radix,%l7
st2 %f30,[%l7]
set Radix,%l7
ld2 [%l7],%f30
set E0,%l7
ld2 [%l7],%f28
fcmped %f30,%f28; nop; fbne .L80; nop
set .L82,%o0
call printf; nop
ba .L81; nop
.L80:
set .L83,%o0
set Radix,%l7
ld2 [%l7],%f30
st %f30,[%sp+4*1+68]
st %f31,[%sp+4*2+68]
ld [%sp+4*1+68],%o1
ld [%sp+4*2+68],%o2
call printf; nop
.L81:
set 2,%o0
set Eight,%l6
ld2 [%l6],%f30
set Radix,%l6
ld2 [%l6],%f28
faddd %f30,%f30,%f30
fcmped %f28,%f30; nop; fbug .L86; nop
set 1,%l7
ba .L87; nop
.L86:
mov %g0,%l7
.L87:
mov %l7,%o1
set .L85,%o2
call TstCond; nop
set 3,%o0
set Radix,%l5
ld2 [%l5],%f30
set Two,%l5
ld2 [%l5],%f28
fcmped %f30,%f28; nop; fbue .L93; nop
set .L94,%l5
ld2 [%l5],%f28
fcmped %f30,%f28; nop; fbue .L93; nop
set One,%l5
ld2 [%l5],%f28
fcmped %f30,%f28; nop; fbne .L90; nop
.L93:
set 1,%l6
ba .L91; nop
.L90:
mov %g0,%l6
.L91:
mov %l6,%o1
set .L89,%o2
call TstCond; nop
set Milestone,%l4
set 20,%l3
st %l3,[%l4]
mov %g0,%o0
set Half,%l4
ld2 [%l4],%f30
set F9,%l4
ld2 [%l4],%f28
fsubd %f28,%f30,%f28
fcmped %f28,%f30; nop; fbuge .L97; nop
set 1,%l5
ba .L98; nop
.L97:
mov %g0,%l5
.L98:
mov %l5,%o1
set .L96,%o2
call TstCond; nop
set X,%l3
set F9,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
set I,%l2
set 1,%l1
st %l1,[%l2]
set Y,%l2
set Half,%l1
ld2 [%l1],%f30
ld2 [%l3],%f28
fsubd %f28,%f30,%f28
st2 %f28,[%l2]
set Z,%l3
ld2 [%l2],%f28
fsubd %f28,%f30,%f30
st2 %f30,[%l3]
mov %g0,%o0
set X,%l3
ld2 [%l3],%f30
set One,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L103; nop
set Z,%l3
ld2 [%l3],%f30
set Zero,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L101; nop
.L103:
set 1,%l4
ba .L102; nop
.L101:
mov %g0,%l4
.L102:
mov %l4,%o1
set .L100,%o2
call TstCond; nop
set One,%l3
ld2 [%l3],%f30
set U2,%l3
ld2 [%l3],%f28
set X,%l3
faddd %f30,%f28,%f26
st2 %f26,[%l3]
set I,%l3
st %g0,[%l3]
set Milestone,%l3
set 25,%l2
st %l2,[%l3]
set BMinusU2,%l3
set Radix,%l2
ld2 [%l2],%f26
fsubd %f26,%f30,%f24
st2 %f24,[%l3]
ld2 [%l3],%f24
fsubd %f24,%f28,%f28
faddd %f28,%f30,%f28
st2 %f28,[%l3]
fcmped %f26,%f30; nop; fbue .L104; nop
set U1,%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 log; nop
fmovs %f0,%f30; fmovs %f1,%f31
std %f30,[%fp+-16]
set Radix,%l3
ld2 [%l3],%f28
st %f28,[%sp+4*0+68]
st %f29,[%sp+4*1+68]
ld [%sp+4*0+68],%o0
ld [%sp+4*1+68],%o1
call log; nop
fmovs %f0,%f30; fmovs %f1,%f31
set X,%l3
set TwoForty,%l2
ld2 [%l2],%f28
fnegs %f28,%f28; fmovs %f29,%f29
ldd [%fp+-16],%f26
fmuld %f28,%f26,%f28
fdivd %f28,%f30,%f30
st2 %f30,[%l3]
set Half,%l3
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
faddd %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 floor; nop
fmovs %f0,%f30; fmovs %f1,%f31
set Y,%l3
st2 %f30,[%l3]
set X,%l3
ld2 [%l3],%f30
set Y,%l3
ld2 [%l3],%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 Four,%l3
ld2 [%l3],%f28
fmuld %f30,%f28,%f30
set One,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbuge .L106; nop
set X,%l3
set Y,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
.L106:
set Precision,%l3
set X,%l2
ld2 [%l2],%f30
set TwoForty,%l2
ld2 [%l2],%f28
fdivd %f30,%f28,%f30
st2 %f30,[%l3]
set Half,%l2
ld2 [%l2],%f30
ld2 [%l3],%f28
faddd %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 floor; nop
fmovs %f0,%f30; fmovs %f1,%f31
set Y,%l3
st2 %f30,[%l3]
set Precision,%l3
ld2 [%l3],%f30
set Y,%l3
ld2 [%l3],%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 TwoForty,%l3
ld2 [%l3],%f28
fmuld %f30,%f28,%f30
set Half,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbuge .L108; nop
set Precision,%l3
set Y,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
.L108:
.L104:
set Precision,%l3
ld2 [%l3],%f30
std %f30,[%fp+-16]
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
ldd [%fp+-16],%f28
fcmped %f28,%f30; nop; fbne .L112; nop
set Radix,%l3
ld2 [%l3],%f30
set One,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L110; nop
.L112:
set .L113,%o0
call printf; nop
set .L114,%o0
call printf; nop
.L110:
set Radix,%l3
ld2 [%l3],%f30
set One,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L115; nop
set .L117,%o0
call printf; nop
ba .L116; nop
.L115:
set .L118,%o0
set Precision,%l3
ld2 [%l3],%f30
st %f30,[%sp+4*1+68]
st %f31,[%sp+4*2+68]
ld [%sp+4*1+68],%o1
ld [%sp+4*2+68],%o2
call printf; nop
.L116:
set 1,%o0
set Nine,%l3
ld2 [%l3],%f30
set U2,%l3
ld2 [%l3],%f28
fmuld %f28,%f30,%f28
fmuld %f28,%f30,%f30
set TwoForty,%l3
ld2 [%l3],%f28
fmuld %f30,%f28,%f30
set One,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbuge .L121; nop
set 1,%l3
st %l3,[%fp+-20]
ba .L122; nop
.L121:
st %g0,[%fp+-20]
.L122:
ld [%fp+-20],%o1
set .L120,%o2
call TstCond; nop
set Milestone,%l3
set 30,%l2
st %l2,[%l3]
set Four,%l3
ld2 [%l3],%f30
set Three,%l3
ld2 [%l3],%f28
set One,%l3
ld2 [%l3],%f26
fdivd %f26,%f30,%f24
fdivd %f30,%f28,%f30
fsubd %f30,%f26,%f30
fsubd %f30,%f24,%f30
fmuld %f30,%f28,%f30
fsubd %f30,%f24,%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 X,%l3
st2 %f30,[%l3]
.L123:
set Z2,%l3
set X,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
set One,%l1
ld2 [%l1],%f30
ld2 [%l3],%f28
set Half,%l3
ld2 [%l3],%f26
fmuld %f26,%f28,%f26
set ThirtyTwo,%l3
ld2 [%l3],%f24
fmuld %f24,%f28,%f24
fmuld %f24,%f28,%f28
faddd %f26,%f28,%f28
faddd %f30,%f28,%f28
fsubd %f28,%f30,%f30
st2 %f30,[%l2]
.L124:
set X,%l3
ld2 [%l3],%f30
set Z2,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbule .L126; nop
set Zero,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbug .L123; nop
.L126:
set Three,%l3
ld2 [%l3],%f30
set Four,%l3
ld2 [%l3],%f28
fdivd %f30,%f28,%f26
set Two,%l3
ld2 [%l3],%f24
fdivd %f24,%f30,%f24
fsubd %f26,%f24,%f26
fmuld %f26,%f30,%f30
set One,%l3
ld2 [%l3],%f26
fdivd %f26,%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 Z,%l3
st2 %f30,[%l3]
set Y,%l3
st2 %f30,[%l3]
set X,%l3
st2 %f30,[%l3]
.L127:
set Z1,%l3
set Z,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
set One,%l1
ld2 [%l1],%f30
set Two,%l1
ld2 [%l1],%f28
fdivd %f30,%f28,%f30
ld2 [%l3],%f28
set Half,%l3
ld2 [%l3],%f26
fmuld %f26,%f28,%f26
set ThirtyTwo,%l3
ld2 [%l3],%f24
fmuld %f24,%f28,%f24
fmuld %f24,%f28,%f28
faddd %f26,%f28,%f28
fsubd %f30,%f28,%f28
faddd %f28,%f30,%f28
fsubd %f30,%f28,%f28
faddd %f28,%f30,%f30
st2 %f30,[%l2]
.L128:
set Z,%l3
ld2 [%l3],%f30
set Z1,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbule .L130; nop
set Zero,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbug .L127; nop
.L130:
.L131:
.L134:
set Y1,%l3
set Y,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
set Half,%l1
ld2 [%l1],%f30
ld2 [%l3],%f28
fmuld %f30,%f28,%f26
set ThirtyTwo,%l3
ld2 [%l3],%f24
fmuld %f24,%f28,%f24
fmuld %f24,%f28,%f28
faddd %f26,%f28,%f28
fsubd %f30,%f28,%f28
faddd %f28,%f30,%f28
fsubd %f30,%f28,%f28
faddd %f28,%f30,%f30
st2 %f30,[%l2]
.L135:
set Y,%l3
ld2 [%l3],%f30
set Y1,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbule .L137; nop
set Zero,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbug .L134; nop
.L137:
set X1,%l3
set X,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
ld2 [%l3],%f30
set F9,%l3
ld2 [%l3],%f28
set Half,%l3
ld2 [%l3],%f26
fmuld %f26,%f30,%f26
set ThirtyTwo,%l3
ld2 [%l3],%f24
fmuld %f24,%f30,%f24
fmuld %f24,%f30,%f30
faddd %f26,%f30,%f30
fsubd %f30,%f28,%f30
faddd %f30,%f28,%f30
st2 %f30,[%l2]
.L132:
set X,%l3
ld2 [%l3],%f30
set X1,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbule .L138; nop
set Zero,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbug .L131; nop
.L138:
set X1,%l3
ld2 [%l3],%f30
set Y1,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L141; nop
set Z1,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbue .L139; nop
.L141:
set 1,%o0
set .L142,%o1
call BadCond; nop
set .L143,%o0
set X1,%l3
ld2 [%l3],%f30
st %f30,[%sp+4*1+68]
st %f31,[%sp+4*2+68]
ld [%sp+4*1+68],%o1
ld [%sp+4*2+68],%o2
set Y1,%l3
ld2 [%l3],%f30
st %f30,[%sp+4*3+68]
st %f31,[%sp+4*4+68]
ld [%sp+4*3+68],%o3
ld [%sp+4*4+68],%o4
set Z1,%l3
ld2 [%l3],%f30
st %f30,[%sp+4*5+68]
st %f31,[%sp+4*6+68]
ld [%sp+4*5+68],%o5
call printf; nop
set .L144,%o0
call printf; nop
set .L145,%o0
call printf; nop
set .L146,%o0
call notify; nop
set U1,%l3
ld2 [%l3],%f30
set X1,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbue .L150; nop
set Y1,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbue .L150; nop
set Z1,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L140; nop
.L150:
set .L151,%o0
call printf; nop
ba .L140; nop
.L139:
set Z1,%l3
ld2 [%l3],%f30
set U1,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L154; nop
set Z2,%l3
ld2 [%l3],%f30
set U2,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbue .L152; nop
.L154:
set Z1,%l3
ld2 [%l3],%f30
set U1,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbuge .L157; nop
set Z2,%l3
ld2 [%l3],%f30
set U2,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbul .L155; nop
.L157:
mov %g0,%o0
set .L158,%o1
call BadCond; nop
set .L159,%o0
call notify; nop
set .L160,%o0
set U1,%l3
ld2 [%l3],%f30
st %f30,[%sp+4*1+68]
st %f31,[%sp+4*2+68]
ld [%sp+4*1+68],%o1
ld [%sp+4*2+68],%o2
set Z1,%l3
ld2 [%l3],%f28
fsubd %f28,%f30,%f30
st %f30,[%sp+4*3+68]
st %f31,[%sp+4*4+68]
ld [%sp+4*3+68],%o3
ld [%sp+4*4+68],%o4
call printf; nop
set .L161,%o0
set U2,%l3
ld2 [%l3],%f30
st %f30,[%sp+4*1+68]
st %f31,[%sp+4*2+68]
ld [%sp+4*1+68],%o1
ld [%sp+4*2+68],%o2
set Z2,%l3
ld2 [%l3],%f28
fsubd %f28,%f30,%f30
st %f30,[%sp+4*3+68]
st %f31,[%sp+4*4+68]
ld [%sp+4*3+68],%o3
ld [%sp+4*4+68],%o4
call printf; nop
ba .L156; nop
.L155:
set Zero,%l3
ld2 [%l3],%f30
set Z1,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbule .L164; nop
set Z2,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbug .L162; nop
.L164:
set .L165,%o0
set Radix,%l3
ld2 [%l3],%f30
st %f30,[%sp+4*1+68]
st %f31,[%sp+4*2+68]
ld [%sp+4*1+68],%o1
ld [%sp+4*2+68],%o2
call printf; nop
set .L166,%o0
call printf; nop
set .L167,%o0
set Z1,%l3
ld2 [%l3],%f30
st %f30,[%sp+4*1+68]
st %f31,[%sp+4*2+68]
ld [%sp+4*1+68],%o1
ld [%sp+4*2+68],%o2
set Z2,%l3
ld2 [%l3],%f30
st %f30,[%sp+4*3+68]
st %f31,[%sp+4*4+68]
ld [%sp+4*3+68],%o3
ld [%sp+4*4+68],%o4
call printf; nop
set .L168,%o0
call notify; nop
.L162:
set Z1,%l3
ld2 [%l3],%f30
set Z2,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L171; nop
set Zero,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbule .L169; nop
.L171:
set X,%l3
set Z1,%l2
ld2 [%l2],%f30
set U1,%l2
ld2 [%l2],%f28
fdivd %f30,%f28,%f30
st2 %f30,[%l3]
set Y,%l2
set Z2,%l1
ld2 [%l1],%f30
set U2,%l1
ld2 [%l1],%f28
fdivd %f30,%f28,%f30
st2 %f30,[%l2]
ld2 [%l2],%f30
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbule .L172; nop
set X,%l3
set Y,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
.L172:
set X,%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 log; nop
fmovs %f0,%f30; fmovs %f1,%f31
set Q,%l3
fnegs %f30,%f30; fmovs %f31,%f31
st2 %f30,[%l3]
set .L174,%o0
call printf; nop
set Radix,%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 log; nop
fmovs %f0,%f30; fmovs %f1,%f31
set .L175,%o0
set Q,%l3
ld2 [%l3],%f28
fdivd %f28,%f30,%f30
st %f30,[%sp+4*1+68]
st %f31,[%sp+4*2+68]
ld [%sp+4*1+68],%o1
ld [%sp+4*2+68],%o2
call printf; nop
set .L94,%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 log; nop
fmovs %f0,%f30; fmovs %f1,%f31
set .L176,%o0
set Q,%l3
ld2 [%l3],%f28
fdivd %f28,%f30,%f30
st %f30,[%sp+4*1+68]
st %f31,[%sp+4*2+68]
ld [%sp+4*1+68],%o1
ld [%sp+4*2+68],%o2
call printf; nop
.L169:
set .L151,%o0
call printf; nop
.L156:
.L152:
.L140:
call Pause; nop
set Milestone,%l3
set 35,%l2
st %l2,[%l3]
set Radix,%l3
ld2 [%l3],%f30
set Two,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbul .L177; nop
set X,%l3
set Radix,%l2
ld2 [%l2],%f30
set W,%l2
ld2 [%l2],%f28
fmuld %f30,%f30,%f30