paranoia.sbk

lcc source code enjoy your self

fsubd %f28,%f30,%f30
st %f30,[%l2]; st %f31,[%l2+4]
set Zero,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set X,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L198; nop
set Y,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L198; nop
set Z,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %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
ld [%l2],%f30; ld [%l2+4],%f31
set U2,%l2
ld [%l2],%f28; ld [%l2+4],%f29
faddd %f30,%f28,%f28
fdivd %f30,%f28,%f30
st %f30,[%l3]; st %f31,[%l3+4]
set Y,%l2
set Half,%l1
ld [%l1],%f30; ld [%l1+4],%f31
ld [%l3],%f28; ld [%l3+4],%f29
fsubd %f28,%f30,%f28
fsubd %f28,%f30,%f30
st %f30,[%l2]; st %f31,[%l2+4]
set 1,%o0
ld [%l2],%f30; ld [%l2+4],%f31
set Zero,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %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
ld [%l2],%f30; ld [%l2+4],%f31
set U2,%l2
ld [%l2],%f28; ld [%l2+4],%f29
fsubd %f30,%f28,%f26
st %f26,[%l3]; st %f27,[%l3+4]
set Y,%l2
set Radix,%l1
ld [%l1],%f26; ld [%l1+4],%f27
fmuld %f26,%f28,%f28
faddd %f30,%f28,%f30
st %f30,[%l2]; st %f31,[%l2+4]
set Z,%l1
ld [%l3],%f30; ld [%l3+4],%f31
fmuld %f30,%f26,%f28
st %f28,[%l1]; st %f29,[%l1+4]
set T,%l0
ld [%l2],%f28; ld [%l2+4],%f29
fmuld %f28,%f26,%f24
st %f24,[%l0]; st %f25,[%l0+4]
set R,%o5
ld [%l1],%f24; ld [%l1+4],%f25
fdivd %f24,%f26,%f24
st %f24,[%o5]; st %f25,[%o5+4]
set StickyBit,%l1
ld [%l0],%f24; ld [%l0+4],%f25
fdivd %f24,%f26,%f26
st %f26,[%l1]; st %f27,[%l1+4]
ld [%o5],%f26; ld [%o5+4],%f27
fsubd %f26,%f30,%f30
st %f30,[%l3]; st %f31,[%l3+4]
ld [%l1],%f30; ld [%l1+4],%f31
fsubd %f30,%f28,%f30
st %f30,[%l2]; st %f31,[%l2+4]
mov %g0,%o0
set Zero,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set X,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L207; nop
set Y,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %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
ld [%l2],%f30; ld [%l2+4],%f31
set U1,%l2
ld [%l2],%f28; ld [%l2+4],%f29
fsubd %f30,%f28,%f28
st %f28,[%l3]; st %f29,[%l3+4]
set X,%l2
set F9,%l1
ld [%l1],%f28; ld [%l1+4],%f29
fsubd %f30,%f28,%f28
st %f28,[%l2]; st %f29,[%l2+4]
ld [%l3],%f28; ld [%l3+4],%f29
fsubd %f30,%f28,%f30
st %f30,[%l3]; st %f31,[%l3+4]
set T,%l3
set Radix,%l2
ld [%l2],%f30; ld [%l2+4],%f31
set U2,%l2
ld [%l2],%f28; ld [%l2+4],%f29
fsubd %f30,%f28,%f28
st %f28,[%l3]; st %f29,[%l3+4]
set Z,%l2
set BMinusU2,%l1
ld [%l1],%f28; ld [%l1+4],%f29
fsubd %f30,%f28,%f28
st %f28,[%l2]; st %f29,[%l2+4]
ld [%l3],%f28; ld [%l3+4],%f29
fsubd %f30,%f28,%f30
st %f30,[%l3]; st %f31,[%l3+4]
set U1,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set X,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L209; nop
set Y,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L209; nop
set U2,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set Z,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L209; nop
set T,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %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
ld [%l3],%f30; ld [%l3+4],%f31
set One,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f30,%f28; nop; fbe .L212; nop
fsubd %f30,%f28,%f30
set Zero,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %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
ld [%l2],%f30; ld [%l2+4],%f31
set RadixD2,%l2
set Radix,%l1
ld [%l1],%f28; ld [%l1+4],%f29
fdivd %f28,%f30,%f28
st %f28,[%l2]; st %f29,[%l2+4]
set A1,%l2
st %f30,[%l2]; st %f31,[%l2+4]
set Done,%l2
st %g0,[%l2]
.L222:
set AInvrse,%l3
set Radix,%l2
ld [%l2],%f30; ld [%l2+4],%f31
st %f30,[%l3]; st %f31,[%l3+4]
.L225:
set AInvrse,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set X,%l2
st %f30,[%l2]; st %f31,[%l2+4]
set A1,%l2
ld [%l2],%f28; ld [%l2+4],%f29
fdivd %f30,%f28,%f30
st %f30,[%l3]; st %f31,[%l3+4]
.L226:
set AInvrse,%l3
ld [%l3],%f30; ld [%l3+4],%f31
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
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f30,%f28; nop; fbe .L225; nop
set X,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set One,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f30,%f28; nop; fbe .L231; nop
set A1,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set Three,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %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
ld [%l2],%f30; ld [%l2+4],%f31
set One,%l2
ld [%l2],%f28; ld [%l2+4],%f29
faddd %f30,%f28,%f30
st %f30,[%l3]; st %f31,[%l3+4]
.L232:
.L223:
set Done,%l3
ld [%l3],%l3
cmp %l3,0; be .L222; nop
set X,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set One,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f30,%f28; nop; fbne .L234; nop
set A1,%l3
set Radix,%l2
ld [%l2],%f30; ld [%l2+4],%f31
st %f30,[%l3]; st %f31,[%l3+4]
.L234:
set AInvrse,%l3
set A1,%l2
ld [%l2],%f30; ld [%l2+4],%f31
set One,%l2
ld [%l2],%f28; ld [%l2+4],%f29
fdivd %f28,%f30,%f28
st %f28,[%l3]; st %f29,[%l3+4]
set X,%l2
st %f30,[%l2]; st %f31,[%l2+4]
set Y,%l2
ld [%l3],%f30; ld [%l3+4],%f31
st %f30,[%l2]; st %f31,[%l2+4]
set Done,%l3
st %g0,[%l3]
.L236:
set Z,%l3
set Half,%l2
ld [%l2],%f30; ld [%l2+4],%f31
set X,%l2
ld [%l2],%f28; ld [%l2+4],%f29
set Y,%l2
ld [%l2],%f26; ld [%l2+4],%f27
fmuld %f28,%f26,%f28
fsubd %f28,%f30,%f28
st %f28,[%l3]; st %f29,[%l3+4]
mov %g0,%o0
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %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
ld [%l3],%f30; ld [%l3+4],%f31
set Radix,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %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
ld [%l2],%f30; ld [%l2+4],%f31
st %f30,[%l3]; st %f31,[%l3+4]
set Y,%l2
set One,%l1
ld [%l1],%f30; ld [%l1+4],%f31
ld [%l3],%f28; ld [%l3+4],%f29
fdivd %f30,%f28,%f30
st %f30,[%l2]; st %f31,[%l2+4]
.L237:
set Done,%l3
ld [%l3],%l3
cmp %l3,0; be .L236; nop
set Y2,%l3
set One,%l2
ld [%l2],%f30; ld [%l2+4],%f31
set U2,%l2
ld [%l2],%f28; ld [%l2+4],%f29
faddd %f30,%f28,%f26
st %f26,[%l3]; st %f27,[%l3+4]
set Y1,%l2
fsubd %f30,%f28,%f30
st %f30,[%l2]; st %f31,[%l2+4]
set X,%l1
set OneAndHalf,%l0
ld [%l0],%f30; ld [%l0+4],%f31
fsubd %f30,%f28,%f26
st %f26,[%l1]; st %f27,[%l1+4]
set Y,%l0
faddd %f30,%f28,%f26
st %f26,[%l0]; st %f27,[%l0+4]
set Z,%o5
ld [%l1],%f26; ld [%l1+4],%f27
ld [%l3],%f24; ld [%l3+4],%f25
fsubd %f26,%f28,%f22
fmuld %f22,%f24,%f22
st %f22,[%o5]; st %f23,[%o5+4]
set T,%l3
ld [%l0],%f22; ld [%l0+4],%f23
ld [%l2],%f20; ld [%l2+4],%f21
fmuld %f22,%f20,%f18
st %f18,[%l3]; st %f19,[%l3+4]
ld [%o5],%f18; ld [%o5+4],%f19
fsubd %f18,%f26,%f18
st %f18,[%o5]; st %f19,[%o5+4]
ld [%l3],%f18; ld [%l3+4],%f19
fsubd %f18,%f26,%f18
st %f18,[%l3]; st %f19,[%l3+4]
fmuld %f26,%f24,%f26
st %f26,[%l1]; st %f27,[%l1+4]
faddd %f22,%f28,%f28
fmuld %f28,%f20,%f28
st %f28,[%l0]; st %f29,[%l0+4]
ld [%l1],%f28; ld [%l1+4],%f29
fsubd %f28,%f30,%f28
st %f28,[%l1]; st %f29,[%l1+4]
ld [%l0],%f28; ld [%l0+4],%f29
fsubd %f28,%f30,%f30
st %f30,[%l0]; st %f31,[%l0+4]
set Zero,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set X,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L246; nop
set Y,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L246; nop
set Z,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L246; nop
set T,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbug .L246; nop
set X,%l3
set OneAndHalf,%l2
ld [%l2],%f30; ld [%l2+4],%f31
set U2,%l2
ld [%l2],%f28; ld [%l2+4],%f29
faddd %f30,%f28,%f26
set Y2,%l2
ld [%l2],%f24; ld [%l2+4],%f25
fmuld %f26,%f24,%f22
st %f22,[%l3]; st %f23,[%l3+4]
set Y,%l2
fsubd %f30,%f28,%f30
fsubd %f30,%f28,%f22
st %f22,[%l2]; st %f23,[%l2+4]
set Z,%l1
faddd %f26,%f28,%f26
st %f26,[%l1]; st %f27,[%l1+4]
set T,%l0
set Y1,%o5
ld [%o5],%f26; ld [%o5+4],%f27
fmuld %f30,%f26,%f30
st %f30,[%l0]; st %f31,[%l0+4]
ld [%l1],%f30; ld [%l1+4],%f31
faddd %f30,%f28,%f22
ld [%l3],%f20; ld [%l3+4],%f21
fsubd %f20,%f22,%f20
st %f20,[%l3]; st %f21,[%l3+4]
set StickyBit,%l3
ld [%l2],%f20; ld [%l2+4],%f21
fmuld %f20,%f26,%f18
st %f18,[%l3]; st %f19,[%l3+4]
set S,%o4
fmuld %f30,%f24,%f30
st %f30,[%o4]; st %f31,[%o4+4]
ld [%l0],%f30; ld [%l0+4],%f31
fsubd %f30,%f20,%f30
st %f30,[%l0]; st %f31,[%l0+4]
fsubd %f28,%f20,%f30
ld [%l3],%f20; ld [%l3+4],%f21
faddd %f30,%f20,%f30
st %f30,[%l2]; st %f31,[%l2+4]
ld [%o4],%f30; ld [%o4+4],%f31
faddd %f22,%f28,%f22
fsubd %f30,%f22,%f30
st %f30,[%l1]; st %f31,[%l1+4]
faddd %f24,%f28,%f30
fmuld %f30,%f26,%f30
st %f30,[%l3]; st %f31,[%l3+4]
fmuld %f24,%f26,%f30
st %f30,[%o5]; st %f31,[%o5+4]
ld [%l3],%f30; ld [%l3+4],%f31
fsubd %f30,%f24,%f30
st %f30,[%l3]; st %f31,[%l3+4]
ld [%o5],%f30; ld [%o5+4],%f31
set Half,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fsubd %f30,%f28,%f30
st %f30,[%o5]; st %f31,[%o5+4]
set Zero,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set X,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L248; nop
set Y,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L248; nop
set Z,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L248; nop
set T,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L248; nop
set StickyBit,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbne .L248; nop
set Y1,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set Half,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %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
ld [%l3],%f30; ld [%l3+4],%f31
set Zero,%l3
ld [%l3],%f28; ld [%l3+4],%f29
set X,%l3
ld [%l3],%f26; ld [%l3+4],%f27
faddd %f26,%f30,%f26
fcmpd %f26,%f28; nop; fbne .L251; nop
set Y,%l3
ld [%l3],%f26; ld [%l3+4],%f27
fcmpd %f26,%f28; nop; fbuge .L251; nop
set Z,%l3
ld [%l3],%f26; ld [%l3+4],%f27
faddd %f26,%f30,%f26
fcmpd %f26,%f28; nop; fbne .L251; nop
set T,%l3
ld [%l3],%f26; ld [%l3+4],%f27
fcmpd %f26,%f28; nop; fbuge .L251; nop
set StickyBit,%l3
ld [%l3],%f26; ld [%l3+4],%f27
faddd %f26,%f30,%f30
fcmpd %f30,%f28; nop; fbne .L251; nop
set Y1,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set Half,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %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
ld [%l2],%f30; ld [%l2+4],%f31
set U2,%l2
ld [%l2],%f28; ld [%l2+4],%f29
faddd %f30,%f28,%f26
st %f26,[%l3]; st %f27,[%l3+4]
set Y1,%l2
fsubd %f30,%f28,%f30
st %f30,[%l2]; st %f31,[%l2+4]
set Z,%l1
set OneAndHalf,%l0
ld [%l0],%f30; ld [%l0+4],%f31
faddd %f30,%f28,%f26
faddd %f26,%f28,%f24
st %f24,[%l1]; st %f25,[%l1+4]
set X,%l0
ld [%l1],%f24; ld [%l1+4],%f25
ld [%l3],%f22; ld [%l3+4],%f23
fdivd %f24,%f22,%f20
st %f20,[%l0]; st %f21,[%l0+4]
set T,%l3
fsubd %f30,%f28,%f20
fsubd %f20,%f28,%f20
st %f20,[%l3]; st %f21,[%l3+4]
set Y,%o5
ld [%l3],%f20; ld [%l3+4],%f21
ld [%l2],%f18; ld [%l2+4],%f19
fsubd %f20,%f28,%f16
fdivd %f16,%f18,%f16
st %f16,[%o5]; st %f17,[%o5+4]
faddd %f24,%f28,%f24
fdivd %f24,%f22,%f24
st %f24,[%l1]; st %f25,[%l1+4]
ld [%l0],%f24; ld [%l0+4],%f25
fsubd %f24,%f30,%f24
st %f24,[%l0]; st %f25,[%l0+4]
ld [%o5],%f24; ld [%o5+4],%f25
fsubd %f24,%f20,%f24
st %f24,[%o5]; st %f25,[%o5+4]
fdivd %f20,%f18,%f24
st %f24,[%l3]; st %f25,[%l3+4]
ld [%l1],%f24; ld [%l1+4],%f25