paranoia.sbk

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

set Z,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L248; nop
set T,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L248; nop
set StickyBit,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L248; nop
set Y1,%l3
ld2 [%l3],%f30
set Half,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L248; nop
set RMult,%l3
set 1,%l2
st %l2,[%l3]
set .L250,%o0
call printf; nop
ba .L249; nop
.L248:
set U2,%l3
ld2 [%l3],%f30
set Zero,%l3
ld2 [%l3],%f28
set X,%l3
ld2 [%l3],%f26
faddd %f26,%f30,%f26
fcmped %f26,%f28; nop; fbne .L251; nop
set Y,%l3
ld2 [%l3],%f26
fcmped %f26,%f28; nop; fbuge .L251; nop
set Z,%l3
ld2 [%l3],%f26
faddd %f26,%f30,%f26
fcmped %f26,%f28; nop; fbne .L251; nop
set T,%l3
ld2 [%l3],%f26
fcmped %f26,%f28; nop; fbuge .L251; nop
set StickyBit,%l3
ld2 [%l3],%f26
faddd %f26,%f30,%f30
fcmped %f30,%f28; nop; fbne .L251; nop
set Y1,%l3
ld2 [%l3],%f30
set Half,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbuge .L251; nop
set RMult,%l3
set 2,%l2
st %l2,[%l3]
set .L253,%o0
call printf; nop
ba .L252; nop
.L251:
set .L254,%o0
call printf; nop
.L252:
.L249:
set RMult,%l3
ld [%l3],%l3
cmp %l3,1; bne .L247; nop
set GMult,%l3
ld [%l3],%l3
cmp %l3,0; bne .L247; nop
set .L257,%o0
call notify; nop
ba .L247; nop
.L246:
set .L254,%o0
call printf; nop
.L247:
set Milestone,%l3
set 45,%l2
st %l2,[%l3]
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 Z,%l1
set OneAndHalf,%l0
ld2 [%l0],%f30
faddd %f30,%f28,%f26
faddd %f26,%f28,%f24
st2 %f24,[%l1]
set X,%l0
ld2 [%l1],%f24
ld2 [%l3],%f22
fdivd %f24,%f22,%f20
st2 %f20,[%l0]
set T,%l3
fsubd %f30,%f28,%f20
fsubd %f20,%f28,%f20
st2 %f20,[%l3]
set Y,%o5
ld2 [%l3],%f20
ld2 [%l2],%f18
fsubd %f20,%f28,%f16
fdivd %f16,%f18,%f16
st2 %f16,[%o5]
faddd %f24,%f28,%f24
fdivd %f24,%f22,%f24
st2 %f24,[%l1]
ld2 [%l0],%f24
fsubd %f24,%f30,%f24
st2 %f24,[%l0]
ld2 [%o5],%f24
fsubd %f24,%f20,%f24
st2 %f24,[%o5]
fdivd %f20,%f18,%f24
st2 %f24,[%l3]
ld2 [%l1],%f24
fsubd %f24,%f26,%f26
st2 %f26,[%l1]
fsubd %f28,%f30,%f30
ld2 [%l3],%f28
faddd %f30,%f28,%f30
st2 %f30,[%l3]
set Zero,%l3
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbug .L258; nop
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbug .L258; nop
set Z,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbug .L258; nop
set T,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbug .L258; nop
set X,%l3
set OneAndHalf,%l2
ld2 [%l2],%f30
set Y2,%l2
ld2 [%l2],%f28
fdivd %f30,%f28,%f26
st2 %f26,[%l3]
set Y,%l1
set U2,%l0
ld2 [%l0],%f26
fsubd %f30,%f26,%f24
st2 %f24,[%l1]
set Z,%l0
faddd %f30,%f26,%f24
st2 %f24,[%l0]
ld2 [%l1],%f24
ld2 [%l3],%f22
fsubd %f22,%f24,%f22
st2 %f22,[%l3]
set T,%l3
set Y1,%o5
ld2 [%o5],%f22
fdivd %f30,%f22,%f20
st2 %f20,[%l3]
fdivd %f24,%f22,%f24
st2 %f24,[%l1]
ld2 [%l0],%f24
ld2 [%l3],%f22
faddd %f24,%f26,%f20
fsubd %f22,%f20,%f22
st2 %f22,[%l3]
ld2 [%l1],%f22
fsubd %f22,%f24,%f22
st2 %f22,[%l1]
fdivd %f24,%f28,%f24
st2 %f24,[%l0]
faddd %f28,%f26,%f26
fdivd %f26,%f28,%f26
st2 %f26,[%o5]
ld2 [%l0],%f26
fsubd %f26,%f30,%f30
st2 %f30,[%l0]
ld2 [%o5],%f30
fsubd %f30,%f28,%f30
st2 %f30,[%l2]
set F9,%l3
ld2 [%l3],%f30
set U1,%l3
ld2 [%l3],%f28
fsubd %f30,%f28,%f28
fdivd %f28,%f30,%f30
st2 %f30,[%o5]
set Zero,%l3
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L260; nop
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L260; nop
set Z,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L260; nop
set T,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L260; nop
set Y2,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L260; nop
fcmped %f28,%f30; nop; fbne .L260; nop
set Half,%l3
ld2 [%l3],%f30
set Y1,%l3
ld2 [%l3],%f28
fsubd %f28,%f30,%f28
set F9,%l3
ld2 [%l3],%f26
fsubd %f26,%f30,%f30
fcmped %f28,%f30; nop; fbne .L260; nop
set RDiv,%l3
set 1,%l2
st %l2,[%l3]
set .L262,%o0
call printf; nop
set GDiv,%l3
ld [%l3],%l3
cmp %l3,0; bne .L261; nop
set .L265,%o0
call notify; nop
ba .L261; nop
.L260:
set Zero,%l3
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbuge .L266; nop
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbuge .L266; nop
set Z,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbuge .L266; nop
set T,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbuge .L266; nop
set Y2,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbuge .L266; nop
set Half,%l3
ld2 [%l3],%f30
set Y1,%l3
ld2 [%l3],%f28
fsubd %f28,%f30,%f28
set F9,%l3
ld2 [%l3],%f26
fsubd %f26,%f30,%f30
fcmped %f28,%f30; nop; fbuge .L266; nop
set RDiv,%l3
set 2,%l2
st %l2,[%l3]
set .L268,%o0
call printf; nop
.L266:
.L261:
.L258:
set RDiv,%l3
ld [%l3],%l3
cmp %l3,0; bne .L269; nop
set .L271,%o0
call printf; nop
.L269:
set BInvrse,%l3
set Radix,%l2
ld2 [%l2],%f30
set One,%l2
ld2 [%l2],%f28
fdivd %f28,%f30,%f28
st2 %f28,[%l3]
mov %g0,%o0
set Half,%l2
ld2 [%l2],%f28
ld2 [%l3],%f26
fmuld %f26,%f30,%f30
fsubd %f30,%f28,%f30
fcmped %f30,%f28; nop; fbne .L274; nop
set 1,%l3
st %l3,[%fp+-40]
ba .L275; nop
.L274:
st %g0,[%fp+-40]
.L275:
ld [%fp+-40],%o1
set .L273,%o2
call TstCond; nop
set Milestone,%l3
set 50,%l2
st %l2,[%l3]
mov %g0,%o0
set Half,%l3
ld2 [%l3],%f30
set F9,%l3
ld2 [%l3],%f28
set U1,%l3
ld2 [%l3],%f26
faddd %f28,%f26,%f28
fsubd %f28,%f30,%f28
fcmped %f28,%f30; nop; fbne .L278; nop
set One,%l3
ld2 [%l3],%f30
set BMinusU2,%l3
ld2 [%l3],%f28
set U2,%l3
ld2 [%l3],%f26
faddd %f28,%f26,%f28
fsubd %f28,%f30,%f28
set Radix,%l3
ld2 [%l3],%f26
fsubd %f26,%f30,%f30
fcmped %f28,%f30; nop; fbne .L278; nop
set 1,%l3
st %l3,[%fp+-44]
ba .L279; nop
.L278:
st %g0,[%fp+-44]
.L279:
ld [%fp+-44],%o1
set .L277,%o2
call TstCond; nop
set X,%l3
set One,%l2
ld2 [%l2],%f30
set U1,%l2
ld2 [%l2],%f28
fmuld %f28,%f28,%f28
fsubd %f30,%f28,%f28
st2 %f28,[%l3]
set Y,%l2
set U2,%l1
ld2 [%l1],%f28
fsubd %f30,%f28,%f26
fmuld %f28,%f26,%f28
faddd %f30,%f28,%f28
st2 %f28,[%l2]
set Z,%l1
set Half,%l0
ld2 [%l0],%f28
set F9,%l0
ld2 [%l0],%f26
fsubd %f26,%f28,%f26
st2 %f26,[%l1]
ld2 [%l3],%f26
fsubd %f26,%f28,%f28
ld2 [%l1],%f26
fsubd %f28,%f26,%f28
st2 %f28,[%l3]
ld2 [%l2],%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 .L280; nop
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L280; nop
set RAddSub,%l3
set 2,%l2
st %l2,[%l3]
set .L282,%o0
call printf; nop
.L280:
set GAddSub,%l3
ld [%l3],%l3
cmp %l3,1; bne .L283; nop
set X,%l3
set Half,%l2
ld2 [%l2],%f30
set U2,%l2
ld2 [%l2],%f28
faddd %f30,%f28,%f26
fmuld %f26,%f28,%f26
st2 %f26,[%l3]
set Y,%l2
fsubd %f30,%f28,%f30
fmuld %f30,%f28,%f30
st2 %f30,[%l2]
set One,%l1
ld2 [%l1],%f30
ld2 [%l3],%f26
faddd %f30,%f26,%f26
st2 %f26,[%l3]
ld2 [%l2],%f26
faddd %f30,%f26,%f26
st2 %f26,[%l2]
faddd %f30,%f28,%f28
ld2 [%l3],%f26
fsubd %f28,%f26,%f28
st2 %f28,[%l3]
ld2 [%l2],%f28
fsubd %f30,%f28,%f30
st2 %f30,[%l2]
set Zero,%l3
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L285; nop
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L285; nop
set X,%l3
set Half,%l2
ld2 [%l2],%f30
set U2,%l2
ld2 [%l2],%f28
set U1,%l2
ld2 [%l2],%f26
faddd %f30,%f28,%f24
fmuld %f24,%f26,%f24
st2 %f24,[%l3]
set Y,%l2
fsubd %f30,%f28,%f30
fmuld %f30,%f26,%f30
st2 %f30,[%l2]
set One,%l1
ld2 [%l1],%f30
ld2 [%l3],%f28
fsubd %f30,%f28,%f28
st2 %f28,[%l3]
ld2 [%l2],%f28
fsubd %f30,%f28,%f28
st2 %f28,[%l2]
set F9,%l1
ld2 [%l1],%f28
ld2 [%l3],%f26
fsubd %f28,%f26,%f28
st2 %f28,[%l3]
ld2 [%l2],%f28
fsubd %f30,%f28,%f30
st2 %f30,[%l2]
set Zero,%l3
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L287; nop
set Y,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L287; nop
set RAddSub,%l3
set 1,%l2
st %l2,[%l3]
set .L289,%o0
call printf; nop
set GAddSub,%l3
ld [%l3],%l3
cmp %l3,0; bne .L284; nop
set .L292,%o0
call notify; nop
ba .L284; nop
.L287:
set .L293,%o0
call printf; nop
ba .L284; nop
.L285:
set .L293,%o0
call printf; nop
ba .L284; nop
.L283:
set .L293,%o0
call printf; nop
.L284:
set One,%l3
ld2 [%l3],%f30
set S,%l3
st2 %f30,[%l3]
set X,%l3
set Half,%l2
ld2 [%l2],%f28
faddd %f30,%f28,%f26
fmuld %f28,%f26,%f26
faddd %f30,%f26,%f26
st2 %f26,[%l3]
set Y,%l2
set U2,%l1
ld2 [%l1],%f26
faddd %f30,%f26,%f30
fmuld %f30,%f28,%f30
st2 %f30,[%l2]
set Z,%l1
ld2 [%l3],%f30
ld2 [%l2],%f28
fsubd %f30,%f28,%f26
st2 %f26,[%l1]
set T,%l3
fsubd %f28,%f30,%f30
st2 %f30,[%l3]
set StickyBit,%l2
ld2 [%l1],%f30
ld2 [%l3],%f28
faddd %f30,%f28,%f30
st2 %f30,[%l2]
ld2 [%l2],%f30
set Zero,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbue .L294; nop
set S,%l3
set Zero,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
set 3,%o0
set .L296,%o1
call BadCond; nop
.L294:
set StickyBit,%l3
set Zero,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
set GMult,%l3
ld [%l3],%l3
cmp %l3,1; bne .L297; nop
set GDiv,%l3
ld [%l3],%l3
cmp %l3,1; bne .L297; nop
set GAddSub,%l3
ld [%l3],%l3
cmp %l3,1; bne .L297; nop
set RMult,%l3
ld [%l3],%l3
cmp %l3,1; bne .L297; nop
set RDiv,%l3
ld [%l3],%l3
cmp %l3,1; bne .L297; nop
set RAddSub,%l3
ld [%l3],%l3
cmp %l3,1; bne .L297; nop
set RadixD2,%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 RadixD2,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L297; nop
set .L299,%o0
call printf; nop
set X,%l3
set Half,%l2
ld2 [%l2],%f30
set U2,%l2
ld2 [%l2],%f28
set U1,%l2
ld2 [%l2],%f26
faddd %f30,%f26,%f26
fmuld %f26,%f28,%f26
st2 %f26,[%l3]
set Y,%l2
fmuld %f30,%f28,%f30
st2 %f30,[%l2]
set One,%l1
ld2 [%l1],%f30
set Z,%l1
ld2 [%l2],%f28
faddd %f30,%f28,%f28
st2 %f28,[%l1]
set T,%l2
ld2 [%l3],%f28
faddd %f30,%f28,%f30
st2 %f30,[%l2]
set One,%l3
ld2 [%l3],%f30
set Z,%l3
ld2 [%l3],%f28
fsubd %f28,%f30,%f28
set Zero,%l3
ld2 [%l3],%f26
fcmped %f28,%f26; nop; fbug .L300; nop
set T,%l3
ld2 [%l3],%f28
fsubd %f28,%f30,%f30
set U2,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbul .L300; nop
set Z,%l3
set Y,%l2
set T,%l1
ld2 [%l1],%f30
ld2 [%l2],%f28
faddd %f30,%f28,%f30
st2 %f30,[%l3]
ld2 [%l3],%f30
set X,%l3
ld2 [%l3],%f28
fsubd %f30,%f28,%f30
st2 %f30,[%l2]
set T,%l3
ld2 [%l3],%f30
set Z,%l3
ld2 [%l3],%f28
fsubd %f28,%f30,%f28
set U2,%l3
ld2 [%l3],%f26
fcmped %f28,%f26; nop; fbul .L302; nop
set Y,%l3
ld2 [%l3],%f28
fsubd %f28,%f30,%f30
set Zero,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L302; nop
set X,%l3
set Half,%l2
ld2 [%l2],%f30
set U1,%l2
ld2 [%l2],%f28
faddd %f30,%f28,%f26
fmuld %f26,%f28,%f26
st2 %f26,[%l3]
set Y,%l2
fmuld %f30,%f28,%f30
st2 %f30,[%l2]
set One,%l1
ld2 [%l1],%f30
set Z,%l1
ld2 [%l2],%f28
fsubd %f30,%f28,%f28
st2 %f28,[%l1]
set T,%l2
ld2 [%l3],%f28
fsubd %f30,%f28,%f30
st2 %f30,[%l2]
set Zero,%l3
ld2 [%l3],%f30
set Z,%l3
ld2 [%l3],%f28
set One,%l3
ld2 [%l3],%f26
fsubd %f28,%f26,%f28
fcmped %f28,%f30; nop; fbne .L304; nop
set T,%l3
ld2 [%l3],%f28
set F9,%l3
ld2 [%l3],%f26
fsubd %f28,%f26,%f28
fcmped %f28,%f30; nop; fbne .L304; nop
set Z,%l3
set U1,%l2
ld2 [%l2],%f30
set Half,%l2
ld2 [%l2],%f28
fsubd %f28,%f30,%f28
fmuld %f28,%f30,%f30
st2 %f30,[%l3]
set F9,%l2
ld2 [%l2],%f30
set T,%l2
ld2 [%l3],%f28
fsubd %f30,%f28,%f28
st2 %f28,[%l2]
set Q,%l3
set Y,%l2
ld2 [%l2],%f28
fsubd %f30,%f28,%f30
st2 %f30,[%l3]
set F9,%l3
ld2 [%l3],%f30
set Zero,%l3
ld2 [%l3],%f28
set T,%l3
ld2 [%l3],%f26
fsubd %f26,%f30,%f26
fcmped %f26,%f28; nop; fbne .L306; nop
set U1,%l3
ld2 [%l3],%f26
fsubd %f30,%f26,%f30
set Q,%l3
ld2 [%l3],%f26
fsubd %f30,%f26,%f30
fcmped %f30,%f28; nop; fbne .L306; nop
set Z,%l3
set One,%l2
ld2 [%l2],%f30
set U2,%l2
ld2 [%l2],%f28
set OneAndHalf,%l2
ld2 [%l2],%f26
faddd %f30,%f28,%f24
fmuld %f24,%f26,%f24
st2 %f24,[%l3]
set T,%l2
faddd %f26,%f28,%f26
ld2 [%l3],%f24
fsubd %f26,%f24,%f26
faddd %f26,%f28,%f26
st2 %f26,[%l2]
set X,%l2
set Radix,%l1
ld2 [%l1],%f26
set Half,%l1
ld2 [%l1],%f24
fdivd %f24,%f26,%f24
faddd %f30,%f24,%f24
st2 %f24,[%l2]
set Y,%l1
fmuld %f26,%f28,%f28
faddd %f30,%f28,%f30
st2 %f30,[%l1]
ld2 [%l2],%f30
ld2 [%l1],%f28
fmuld %f30,%f28,%f30
st2 %f30,[%l3]
set Zero,%l3
ld2 [%l3],%f30
set T,%l3
ld2 [%l3],%f28
fcmped %f28,%f30; nop; fbne .L308; nop
set X,%l3
ld2 [%l3],%f28
set Radix,%l3
ld2 [%l3],%f26
set U2,%l3
ld2 [%l3],%f24
fmuld %f26,%f24,%f26
faddd %f28,%f26,%f28
set Z,%l3
ld2 [%l3],%f26
fsubd %f28,%f26,%f28
fcmped %f28,%f30; nop; fbne .L308; nop
set Radix,%l3
ld2 [%l3],%f30
set Two,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbue .L310; nop
set X,%l3
set Two,%l2
ld2 [%l2],%f30
set U2,%l2
ld2 [%l2],%f28
faddd %f30,%f28,%f28
st2 %f28,[%l3]
set Y,%l2
ld2 [%l3],%f28
fdivd %f28,%f30,%f30
st2 %f30,[%l2]
ld2 [%l2],%f30
set One,%l3
ld2 [%l3],%f28
fsubd %f30,%f28,%f30
set Zero,%l3
ld2 [%l3],%f28
fcmped %f30,%f28; nop; fbne .L311; nop
set StickyBit,%l3
set S,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
ba .L311; nop
.L310:
set StickyBit,%l3
set S,%l2
ld2 [%l2],%f30
st2 %f30,[%l3]
.L311:
.L308: