paranoia.sbk

lcc source code enjoy your self

ld [%l6],%f30; ld [%l6+4],%f31
st %f30,[%l7]; st %f31,[%l7+4]
set E1,%l7
set U1,%l6
ld [%l6],%f30; ld [%l6+4],%f31
st %f30,[%l7]; st %f31,[%l7+4]
set E9,%l7
set U2,%l6
ld [%l6],%f30; ld [%l6+4],%f31
st %f30,[%l7]; st %f31,[%l7+4]
set E3,%l7
set Precision,%l6
ld [%l6],%f30; ld [%l6+4],%f31
st %f30,[%l7]; st %f31,[%l7+4]
set X,%l7
set Four,%l6
ld [%l6],%f30; ld [%l6+4],%f31
set Three,%l6
ld [%l6],%f28; ld [%l6+4],%f29
fdivd %f30,%f28,%f30
st %f30,[%l7]; st %f31,[%l7+4]
set Third,%l6
ld [%l7],%f30; ld [%l7+4],%f31
set One,%l5
ld [%l5],%f28; ld [%l5+4],%f29
fsubd %f30,%f28,%f30
st %f30,[%l6]; st %f31,[%l6+4]
set F6,%l5
ld [%l6],%f30; ld [%l6+4],%f31
set Half,%l6
ld [%l6],%f28; ld [%l6+4],%f29
fsubd %f28,%f30,%f28
st %f28,[%l5]; st %f29,[%l5+4]
ld [%l5],%f28; ld [%l5+4],%f29
faddd %f28,%f28,%f28
st %f28,[%l7]; st %f29,[%l7+4]
ld [%l7],%f28; ld [%l7+4],%f29
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
st %f30,[%l7]; st %f31,[%l7+4]
set X,%l7
ld [%l7],%f30; ld [%l7+4],%f31
set U2,%l7
ld [%l7],%f28; ld [%l7+4],%f29
fcmpd %f30,%f28; nop; fbuge .L63; nop
set X,%l7
set U2,%l6
ld [%l6],%f30; ld [%l6+4],%f31
st %f30,[%l7]; st %f31,[%l7+4]
.L63:
.L65:
set U2,%l7
set X,%l6
ld [%l6],%f30; ld [%l6+4],%f31
st %f30,[%l7]; st %f31,[%l7+4]
set Y,%l5
ld [%l7],%f30; ld [%l7+4],%f31
set Half,%l7
ld [%l7],%f28; ld [%l7+4],%f29
fmuld %f28,%f30,%f28
set ThirtyTwo,%l7
ld [%l7],%f26; ld [%l7+4],%f27
fmuld %f26,%f30,%f26
fmuld %f26,%f30,%f30
faddd %f28,%f30,%f30
st %f30,[%l5]; st %f31,[%l5+4]
set One,%l7
ld [%l7],%f30; ld [%l7+4],%f31
ld [%l5],%f28; ld [%l5+4],%f29
faddd %f30,%f28,%f28
st %f28,[%l5]; st %f29,[%l5+4]
ld [%l5],%f28; ld [%l5+4],%f29
fsubd %f28,%f30,%f30
st %f30,[%l6]; st %f31,[%l6+4]
.L66:
set X,%l7
ld [%l7],%f30; ld [%l7+4],%f31
set U2,%l7
ld [%l7],%f28; ld [%l7+4],%f29
fcmpd %f28,%f30; nop; fbule .L68; nop
set Zero,%l7
ld [%l7],%f28; ld [%l7+4],%f29
fcmpd %f30,%f28; nop; fbug .L65; nop
.L68:
set X,%l7
set Two,%l6
ld [%l6],%f30; ld [%l6+4],%f31
set Three,%l6
ld [%l6],%f28; ld [%l6+4],%f29
fdivd %f30,%f28,%f30
st %f30,[%l7]; st %f31,[%l7+4]
set F6,%l6
set Half,%l5
ld [%l5],%f30; ld [%l5+4],%f31
ld [%l7],%f28; ld [%l7+4],%f29
fsubd %f28,%f30,%f28
st %f28,[%l6]; st %f29,[%l6+4]
set Third,%l5
ld [%l6],%f28; ld [%l6+4],%f29
faddd %f28,%f28,%f26
st %f26,[%l5]; st %f27,[%l5+4]
ld [%l5],%f26; ld [%l5+4],%f27
fsubd %f26,%f30,%f30
st %f30,[%l7]; st %f31,[%l7+4]
ld [%l7],%f30; ld [%l7+4],%f31
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 fabs; nop
fmovs %f0,%f30; fmovs %f1,%f31
st %f30,[%l7]; st %f31,[%l7+4]
set X,%l7
ld [%l7],%f30; ld [%l7+4],%f31
set U1,%l7
ld [%l7],%f28; ld [%l7+4],%f29
fcmpd %f30,%f28; nop; fbuge .L69; nop
set X,%l7
set U1,%l6
ld [%l6],%f30; ld [%l6+4],%f31
st %f30,[%l7]; st %f31,[%l7+4]
.L69:
.L71:
set U1,%l7
set X,%l6
ld [%l6],%f30; ld [%l6+4],%f31
st %f30,[%l7]; st %f31,[%l7+4]
set Y,%l5
set Half,%l4
ld [%l4],%f30; ld [%l4+4],%f31
ld [%l7],%f28; ld [%l7+4],%f29
fmuld %f30,%f28,%f26
set ThirtyTwo,%l7
ld [%l7],%f24; ld [%l7+4],%f25
fmuld %f24,%f28,%f24
fmuld %f24,%f28,%f28
faddd %f26,%f28,%f28
st %f28,[%l5]; st %f29,[%l5+4]
ld [%l5],%f28; ld [%l5+4],%f29
fsubd %f30,%f28,%f28
st %f28,[%l5]; st %f29,[%l5+4]
ld [%l5],%f28; ld [%l5+4],%f29
faddd %f30,%f28,%f28
st %f28,[%l6]; st %f29,[%l6+4]
ld [%l6],%f28; ld [%l6+4],%f29
fsubd %f30,%f28,%f28
st %f28,[%l5]; st %f29,[%l5+4]
ld [%l5],%f28; ld [%l5+4],%f29
faddd %f30,%f28,%f30
st %f30,[%l6]; st %f31,[%l6+4]
.L72:
set X,%l7
ld [%l7],%f30; ld [%l7+4],%f31
set U1,%l7
ld [%l7],%f28; ld [%l7+4],%f29
fcmpd %f28,%f30; nop; fbule .L74; nop
set Zero,%l7
ld [%l7],%f28; ld [%l7+4],%f29
fcmpd %f30,%f28; nop; fbug .L71; nop
.L74:
set U1,%l7
ld [%l7],%f30; ld [%l7+4],%f31
set E1,%l7
ld [%l7],%f28; ld [%l7+4],%f29
fcmpd %f30,%f28; nop; fbne .L75; nop
set .L77,%o0
call printf; nop
ba .L76; nop
.L75:
set .L78,%o0
set U1,%l7
ld [%l7],%f30; ld [%l7+4],%f31
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
ld [%l7],%f30; ld [%l7+4],%f31
set W,%l7
set One,%l6
ld [%l6],%f28; ld [%l6+4],%f29
fdivd %f28,%f30,%f28
st %f28,[%l7]; st %f29,[%l7+4]
set Half,%l7
ld [%l7],%f28; ld [%l7+4],%f29
set F9,%l7
fsubd %f28,%f30,%f26
faddd %f26,%f28,%f28
st %f28,[%l7]; st %f29,[%l7+4]
set U2,%l7
ld [%l7],%f28; ld [%l7+4],%f29
fdivd %f28,%f30,%f30
set .L79,%l7
ld [%l7],%f28; ld [%l7+4],%f29
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
st %f30,[%l7]; st %f31,[%l7+4]
set Radix,%l7
ld [%l7],%f30; ld [%l7+4],%f31
set E0,%l7
ld [%l7],%f28; ld [%l7+4],%f29
fcmpd %f30,%f28; nop; fbne .L80; nop
set .L82,%o0
call printf; nop
ba .L81; nop
.L80:
set .L83,%o0
set Radix,%l7
ld [%l7],%f30; ld [%l7+4],%f31
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
ld [%l6],%f30; ld [%l6+4],%f31
set Radix,%l6
ld [%l6],%f28; ld [%l6+4],%f29
faddd %f30,%f30,%f30
fcmpd %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
ld [%l5],%f30; ld [%l5+4],%f31
set Two,%l5
ld [%l5],%f28; ld [%l5+4],%f29
fcmpd %f30,%f28; nop; fbe .L93; nop
set .L94,%l5
ld [%l5],%f28; ld [%l5+4],%f29
fcmpd %f30,%f28; nop; fbe .L93; nop
set One,%l5
ld [%l5],%f28; ld [%l5+4],%f29
fcmpd %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
ld [%l4],%f30; ld [%l4+4],%f31
set F9,%l4
ld [%l4],%f28; ld [%l4+4],%f29
fsubd %f28,%f30,%f28
fcmpd %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
ld [%l2],%f30; ld [%l2+4],%f31
st %f30,[%l3]; st %f31,[%l3+4]
set I,%l2
set 1,%l1
st %l1,[%l2]
set Y,%l2
set Half,%l1
ld [%l1],%f30; ld [%l1+4],%f31
ld [%l3],%f28; ld [%l3+4],%f29
fsubd %f28,%f30,%f28
st %f28,[%l2]; st %f29,[%l2+4]
set Z,%l3
ld [%l2],%f28; ld [%l2+4],%f29
fsubd %f28,%f30,%f30
st %f30,[%l3]; st %f31,[%l3+4]
mov %g0,%o0
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 .L103; nop
set Z,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set Zero,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %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
ld [%l3],%f30; ld [%l3+4],%f31
set U2,%l3
ld [%l3],%f28; ld [%l3+4],%f29
set X,%l3
faddd %f30,%f28,%f26
st %f26,[%l3]; st %f27,[%l3+4]
set I,%l3
st %g0,[%l3]
set Milestone,%l3
set 25,%l2
st %l2,[%l3]
set BMinusU2,%l3
set Radix,%l2
ld [%l2],%f26; ld [%l2+4],%f27
fsubd %f26,%f30,%f24
st %f24,[%l3]; st %f25,[%l3+4]
ld [%l3],%f24; ld [%l3+4],%f25
fsubd %f24,%f28,%f28
faddd %f28,%f30,%f28
st %f28,[%l3]; st %f29,[%l3+4]
fcmpd %f26,%f30; nop; fbe .L104; nop
set U1,%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 log; nop
fmovs %f0,%f30; fmovs %f1,%f31
std %f30,[%fp+-16]
set Radix,%l3
ld [%l3],%f28; ld [%l3+4],%f29
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
ld [%l2],%f28; ld [%l2+4],%f29
fnegs %f28,%f28; fmovs %f29,%f29
ldd [%fp+-16],%f26
fmuld %f28,%f26,%f28
fdivd %f28,%f30,%f30
st %f30,[%l3]; st %f31,[%l3+4]
set Half,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set X,%l3
ld [%l3],%f28; ld [%l3+4],%f29
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
st %f30,[%l3]; st %f31,[%l3+4]
set X,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set Y,%l3
ld [%l3],%f28; ld [%l3+4],%f29
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
ld [%l3],%f28; ld [%l3+4],%f29
fmuld %f30,%f28,%f30
set One,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f30,%f28; nop; fbuge .L106; nop
set X,%l3
set Y,%l2
ld [%l2],%f30; ld [%l2+4],%f31
st %f30,[%l3]; st %f31,[%l3+4]
.L106:
set Precision,%l3
set X,%l2
ld [%l2],%f30; ld [%l2+4],%f31
set TwoForty,%l2
ld [%l2],%f28; ld [%l2+4],%f29
fdivd %f30,%f28,%f30
st %f30,[%l3]; st %f31,[%l3+4]
set Half,%l2
ld [%l2],%f30; ld [%l2+4],%f31
ld [%l3],%f28; ld [%l3+4],%f29
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
st %f30,[%l3]; st %f31,[%l3+4]
set Precision,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set Y,%l3
ld [%l3],%f28; ld [%l3+4],%f29
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
ld [%l3],%f28; ld [%l3+4],%f29
fmuld %f30,%f28,%f30
set Half,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f30,%f28; nop; fbuge .L108; nop
set Precision,%l3
set Y,%l2
ld [%l2],%f30; ld [%l2+4],%f31
st %f30,[%l3]; st %f31,[%l3+4]
.L108:
.L104:
set Precision,%l3
ld [%l3],%f30; ld [%l3+4],%f31
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
fcmpd %f28,%f30; nop; fbne .L112; nop
set Radix,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set One,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f30,%f28; nop; fbne .L110; nop
.L112:
set .L113,%o0
call printf; nop
set .L114,%o0
call printf; nop
.L110:
set Radix,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set One,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f30,%f28; nop; fbne .L115; nop
set .L117,%o0
call printf; nop
ba .L116; nop
.L115:
set .L118,%o0
set Precision,%l3
ld [%l3],%f30; ld [%l3+4],%f31
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
ld [%l3],%f30; ld [%l3+4],%f31
set U2,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fmuld %f28,%f30,%f28
fmuld %f28,%f30,%f30
set TwoForty,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fmuld %f30,%f28,%f30
set One,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %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
ld [%l3],%f30; ld [%l3+4],%f31
set Three,%l3
ld [%l3],%f28; ld [%l3+4],%f29
set One,%l3
ld [%l3],%f26; ld [%l3+4],%f27
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
st %f30,[%l3]; st %f31,[%l3+4]
.L123:
set Z2,%l3
set X,%l2
ld [%l2],%f30; ld [%l2+4],%f31
st %f30,[%l3]; st %f31,[%l3+4]
set One,%l1
ld [%l1],%f30; ld [%l1+4],%f31
ld [%l3],%f28; ld [%l3+4],%f29
set Half,%l3
ld [%l3],%f26; ld [%l3+4],%f27
fmuld %f26,%f28,%f26
set ThirtyTwo,%l3
ld [%l3],%f24; ld [%l3+4],%f25
fmuld %f24,%f28,%f24
fmuld %f24,%f28,%f28
faddd %f26,%f28,%f28
faddd %f30,%f28,%f28
fsubd %f28,%f30,%f30
st %f30,[%l2]; st %f31,[%l2+4]
.L124:
set X,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set Z2,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f28,%f30; nop; fbule .L126; nop
set Zero,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fcmpd %f30,%f28; nop; fbug .L123; nop
.L126:
set Three,%l3
ld [%l3],%f30; ld [%l3+4],%f31
set Four,%l3
ld [%l3],%f28; ld [%l3+4],%f29
fdivd %f30,%f28,%f26
set Two,%l3
ld [%l3],%f24; ld [%l3+4],%f25
fdivd %f24,%f30,%f24
fsubd %f26,%f24,%f26
fmuld %f26,%f30,%f30
set One,%l3
ld [%l3],%f26; ld [%l3+4],%f27
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
st %f30,[%l3]; st %f31,[%l3+4]
set Y,%l3
st %f30,[%l3]; st %f31,[%l3+4]
set X,%l3
st %f30,[%l3]; st %f31,[%l3+4]
.L127:
set Z1,%l3
set Z,%l2
ld [%l2],%f30; ld [%l2+4],%f31
st %f30,[%l3]; st %f31,[%l3+4]
set One,%l1
ld [%l1],%f30; ld [%l1+4],%f31
set Two,%l1
ld [%l1],%f28; ld [%l1+4],%f29
fdivd %f30,%f28,%f30
ld [%l3],%f28; ld [%l3+4],%f29
set Half,%l3
ld [%l3],%f26; ld [%l3+4],%f27
fmuld %f26,%f28,%f26
set ThirtyTwo,%l3
ld [%l3],%f24; ld [%l3+4],%f25
fmuld %f24,%f28,%f24