paranoia.sbk

lcc source code enjoy your self

ldt $f30,Precision
stt $f30,-88+256($sp)
fmov $f30,$f16
jsr $26,floor
ldgp $gp,0($26)
ldt $f29,-88+256($sp)
cmpteq $f29,$f0,$f1
fbeq $f1,L.112
ldt $f30,Radix
ldt $f29,One
cmpteq $f30,$f29,$f1
fbeq $f1,L.110
L.112:
lda $16,L.113
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.114
jsr $26,printf
ldgp $gp,0($26)
L.110:
ldt $f30,Radix
ldt $f29,One
cmpteq $f30,$f29,$f1
fbeq $f1,L.115
lda $16,L.117
jsr $26,printf
ldgp $gp,0($26)
br L.116
L.115:
lda $16,L.118
ldt $f17,Precision
jsr $26,printf
ldgp $gp,0($26)
L.116:
lda $16,1
ldt $f30,Nine
ldt $f29,U2
mult $f29,$f30,$f29
mult $f29,$f30,$f30
ldt $f29,TwoForty
mult $f30,$f29,$f30
ldt $f29,One
cmptlt $f30,$f29,$f1
fbeq $f1,L.121
lda $27,1
stl $27,-92+256($sp)
br L.122
L.121:
stl $31,-92+256($sp)
L.122:
ldl $17,-92+256($sp)
lda $18,L.120
jsr $26,TstCond
ldgp $gp,0($26)
lda $27,30
stl $27,Milestone
ldt $f30,Four
ldt $f29,Three
ldt $f28,One
divt $f28,$f30,$f27
divt $f30,$f29,$f30
subt $f30,$f28,$f30
subt $f30,$f27,$f30
mult $f30,$f29,$f30
subt $f30,$f27,$f16
jsr $26,fabs
ldgp $gp,0($26)
stt $f0,X
L.123:
ldt $f30,X
stt $f30,Z2
ldt $f30,One
ldt $f29,Z2
ldt $f28,Half
mult $f28,$f29,$f28
ldt $f27,ThirtyTwo
mult $f27,$f29,$f27
mult $f27,$f29,$f29
addt $f28,$f29,$f29
addt $f30,$f29,$f29
subt $f29,$f30,$f30
stt $f30,X
L.124:
ldt $f30,X
ldt $f29,Z2
cmptle $f29,$f30,$f1
fbne $f1,L.126
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbeq $f1,L.123
L.126:
ldt $f30,Three
ldt $f29,Four
divt $f30,$f29,$f28
ldt $f27,Two
divt $f27,$f30,$f27
subt $f28,$f27,$f28
mult $f28,$f30,$f30
ldt $f28,One
divt $f28,$f29,$f29
subt $f30,$f29,$f16
jsr $26,fabs
ldgp $gp,0($26)
stt $f0,Z
stt $f0,Y
stt $f0,X
L.127:
ldt $f30,Z
stt $f30,Z1
ldt $f30,One
ldt $f29,Two
divt $f30,$f29,$f30
ldt $f29,Z1
ldt $f28,Half
mult $f28,$f29,$f28
ldt $f27,ThirtyTwo
mult $f27,$f29,$f27
mult $f27,$f29,$f29
addt $f28,$f29,$f29
subt $f30,$f29,$f29
addt $f29,$f30,$f29
subt $f30,$f29,$f29
addt $f29,$f30,$f30
stt $f30,Z
L.128:
ldt $f30,Z
ldt $f29,Z1
cmptle $f29,$f30,$f1
fbne $f1,L.130
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbeq $f1,L.127
L.130:
L.131:
L.134:
ldt $f30,Y
stt $f30,Y1
ldt $f30,Half
ldt $f29,Y1
mult $f30,$f29,$f28
ldt $f27,ThirtyTwo
mult $f27,$f29,$f27
mult $f27,$f29,$f29
addt $f28,$f29,$f29
subt $f30,$f29,$f29
addt $f29,$f30,$f29
subt $f30,$f29,$f29
addt $f29,$f30,$f30
stt $f30,Y
L.135:
ldt $f30,Y
ldt $f29,Y1
cmptle $f29,$f30,$f1
fbne $f1,L.137
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbeq $f1,L.134
L.137:
ldt $f30,X
stt $f30,X1
ldt $f30,X1
ldt $f29,F9
ldt $f28,Half
mult $f28,$f30,$f28
ldt $f27,ThirtyTwo
mult $f27,$f30,$f27
mult $f27,$f30,$f30
addt $f28,$f30,$f30
subt $f30,$f29,$f30
addt $f30,$f29,$f30
stt $f30,X
L.132:
ldt $f30,X
ldt $f29,X1
cmptle $f29,$f30,$f1
fbne $f1,L.138
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbeq $f1,L.131
L.138:
ldt $f30,X1
ldt $f29,Y1
cmpteq $f30,$f29,$f1
fbeq $f1,L.141
ldt $f29,Z1
cmpteq $f30,$f29,$f1
fbne $f1,L.139
L.141:
lda $16,1
lda $17,L.142
jsr $26,BadCond
ldgp $gp,0($26)
lda $16,L.143
ldt $f17,X1
ldt $f18,Y1
ldt $f19,Z1
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.144
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.145
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.146
jsr $26,notify
ldgp $gp,0($26)
ldt $f30,U1
ldt $f29,X1
cmpteq $f29,$f30,$f1
fbne $f1,L.150
ldt $f29,Y1
cmpteq $f29,$f30,$f1
fbne $f1,L.150
ldt $f29,Z1
cmpteq $f29,$f30,$f1
fbeq $f1,L.140
L.150:
lda $16,L.151
jsr $26,printf
ldgp $gp,0($26)
br L.140
L.139:
ldt $f30,Z1
ldt $f29,U1
cmpteq $f30,$f29,$f1
fbeq $f1,L.154
ldt $f30,Z2
ldt $f29,U2
cmpteq $f30,$f29,$f1
fbne $f1,L.152
L.154:
ldt $f30,Z1
ldt $f29,U1
cmptlt $f30,$f29,$f1
fbeq $f1,L.157
ldt $f30,Z2
ldt $f29,U2
cmptlt $f30,$f29,$f1
fbne $f1,L.155
L.157:
mov $31,$16
lda $17,L.158
jsr $26,BadCond
ldgp $gp,0($26)
lda $16,L.159
jsr $26,notify
ldgp $gp,0($26)
lda $16,L.160
ldt $f30,U1
fmov $f30,$f17
ldt $f29,Z1
subt $f29,$f30,$f18
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.161
ldt $f30,U2
fmov $f30,$f17
ldt $f29,Z2
subt $f29,$f30,$f18
jsr $26,printf
ldgp $gp,0($26)
br L.156
L.155:
ldt $f30,Zero
ldt $f29,Z1
cmptle $f29,$f30,$f1
fbne $f1,L.164
ldt $f29,Z2
cmptle $f29,$f30,$f1
fbeq $f1,L.162
L.164:
lda $16,L.165
ldt $f17,Radix
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.166
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.167
ldt $f17,Z1
ldt $f18,Z2
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.168
jsr $26,notify
ldgp $gp,0($26)
L.162:
ldt $f30,Z1
ldt $f29,Z2
cmpteq $f30,$f29,$f1
fbeq $f1,L.171
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbne $f1,L.169
L.171:
ldt $f30,Z1
ldt $f29,U1
divt $f30,$f29,$f30
stt $f30,X
ldt $f30,Z2
ldt $f29,U2
divt $f30,$f29,$f30
stt $f30,Y
ldt $f30,Y
ldt $f29,X
cmptle $f30,$f29,$f1
fbne $f1,L.172
ldt $f30,Y
stt $f30,X
L.172:
ldt $f16,X
jsr $26,log
ldgp $gp,0($26)
negt $f0,$f30
stt $f30,Q
lda $16,L.174
jsr $26,printf
ldgp $gp,0($26)
ldt $f16,Radix
jsr $26,log
ldgp $gp,0($26)
fmov $f0,$f30
lda $16,L.175
ldt $f29,Q
divt $f29,$f30,$f17
jsr $26,printf
ldgp $gp,0($26)
ldt $f16,L.94
jsr $26,log
ldgp $gp,0($26)
fmov $f0,$f30
lda $16,L.176
ldt $f29,Q
divt $f29,$f30,$f17
jsr $26,printf
ldgp $gp,0($26)
L.169:
lda $16,L.151
jsr $26,printf
ldgp $gp,0($26)
L.156:
L.152:
L.140:
jsr $26,Pause
ldgp $gp,0($26)
lda $27,35
stl $27,Milestone
ldt $f30,Radix
ldt $f29,Two
cmptlt $f30,$f29,$f1
fbne $f1,L.177
ldt $f30,Radix
ldt $f29,W
mult $f30,$f30,$f30
divt $f29,$f30,$f30
stt $f30,X
ldt $f30,X
ldt $f29,One
addt $f30,$f29,$f29
stt $f29,Y
ldt $f29,Y
subt $f29,$f30,$f30
stt $f30,Z
ldt $f30,Z
ldt $f29,U2
addt $f30,$f29,$f28
stt $f28,T
ldt $f28,T
subt $f28,$f30,$f30
stt $f30,X
mov $31,$16
ldt $f30,X
cmpteq $f30,$f29,$f1
fbeq $f1,L.181
lda $27,1
stl $27,-96+256($sp)
br L.182
L.181:
stl $31,-96+256($sp)
L.182:
ldl $17,-96+256($sp)
lda $18,L.180
jsr $26,TstCond
ldgp $gp,0($26)
ldt $f30,X
ldt $f29,U2
cmpteq $f30,$f29,$f1
fbeq $f1,L.183
lda $16,L.185
jsr $26,printf
ldgp $gp,0($26)
L.183:
L.177:
lda $16,L.186
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,F9
ldt $f29,One
mult $f30,$f29,$f28
stt $f28,Y
mult $f29,$f30,$f28
stt $f28,Z
ldt $f28,Half
subt $f30,$f28,$f30
stt $f30,X
ldt $f30,X
ldt $f27,Y
subt $f27,$f28,$f27
subt $f27,$f30,$f27
stt $f27,Y
ldt $f27,Z
subt $f27,$f28,$f28
subt $f28,$f30,$f30
stt $f30,Z
ldt $f30,U2
addt $f29,$f30,$f28
stt $f28,X
ldt $f28,X
ldt $f27,Radix
mult $f28,$f27,$f26
stt $f26,T
mult $f27,$f28,$f28
stt $f28,R
ldt $f28,T
subt $f28,$f27,$f28
stt $f28,X
mult $f27,$f30,$f30
ldt $f28,X
subt $f28,$f30,$f28
stt $f28,X
ldt $f28,R
subt $f28,$f27,$f28
stt $f28,T
ldt $f28,T
subt $f28,$f30,$f30
stt $f30,T
subt $f27,$f29,$f30
ldt $f29,X
mult $f29,$f30,$f29
stt $f29,X
ldt $f29,T
mult $f29,$f30,$f30
stt $f30,T
ldt $f30,Zero
ldt $f29,X
cmpteq $f29,$f30,$f1
fbeq $f1,L.187
ldt $f29,Y
cmpteq $f29,$f30,$f1
fbeq $f1,L.187
ldt $f29,Z
cmpteq $f29,$f30,$f1
fbeq $f1,L.187
ldt $f29,T
cmpteq $f29,$f30,$f1
fbeq $f1,L.187
lda $27,1
stl $27,GMult
br L.188
L.187:
mov $31,$27
stl $27,GMult
lda $16,1
mov $27,$17
lda $18,L.189
jsr $26,TstCond
ldgp $gp,0($26)
L.188:
ldt $f30,Radix
ldt $f29,U2
mult $f30,$f29,$f30
stt $f30,Z
ldt $f30,Z
ldt $f29,One
addt $f29,$f30,$f29
stt $f29,X
ldt $f29,X
addt $f29,$f30,$f30
mult $f29,$f29,$f29
subt $f30,$f29,$f16
jsr $26,fabs
ldgp $gp,0($26)
ldt $f29,U2
subt $f0,$f29,$f30
stt $f30,Y
ldt $f30,One
subt $f30,$f29,$f30
stt $f30,X
ldt $f30,X
subt $f30,$f29,$f29
mult $f30,$f30,$f30
subt $f29,$f30,$f16
jsr $26,fabs
ldgp $gp,0($26)
ldt $f29,U1
subt $f0,$f29,$f30
stt $f30,Z
mov $31,$16
ldt $f30,Zero
ldt $f29,Y
cmptle $f29,$f30,$f1
fbeq $f1,L.192
ldt $f29,Z
cmptle $f29,$f30,$f1
fbeq $f1,L.192
lda $27,1
stl $27,-96+256($sp)
br L.193
L.192:
stl $31,-96+256($sp)
L.193:
ldl $17,-96+256($sp)
lda $18,L.191
jsr $26,TstCond
ldgp $gp,0($26)
ldt $f30,One
ldt $f29,U2
subt $f30,$f29,$f28
stt $f28,Y
addt $f30,$f29,$f29
stt $f29,X
ldt $f29,Y
divt $f30,$f29,$f29
stt $f29,Z
ldt $f29,Z
ldt $f28,X
subt $f29,$f28,$f29
stt $f29,Y
ldt $f29,Three
divt $f30,$f29,$f30
stt $f30,X
ldt $f30,Nine
divt $f29,$f30,$f29
stt $f29,Z
ldt $f29,Z
ldt $f28,X
subt $f28,$f29,$f28
stt $f28,X
ldt $f28,TwentySeven
divt $f30,$f28,$f30
stt $f30,T
ldt $f30,T
subt $f29,$f30,$f30
stt $f30,Z
lda $16,2
ldt $f30,Zero
ldt $f29,X
cmpteq $f29,$f30,$f1
fbeq $f1,L.196
ldt $f29,Y
cmpteq $f29,$f30,$f1
fbeq $f1,L.196
ldt $f29,Z
cmpteq $f29,$f30,$f1
fbeq $f1,L.196
lda $27,1
stl $27,-100+256($sp)
br L.197
L.196:
stl $31,-100+256($sp)
L.197:
ldl $17,-100+256($sp)
lda $18,L.195
jsr $26,TstCond
ldgp $gp,0($26)
ldt $f30,F9
ldt $f29,One
divt $f30,$f29,$f28
stt $f28,Y
ldt $f28,Half
subt $f30,$f28,$f30
stt $f30,X
ldt $f30,Y
subt $f30,$f28,$f30
ldt $f28,X
subt $f30,$f28,$f30
stt $f30,Y
ldt $f30,U2
addt $f29,$f30,$f30
stt $f30,X
ldt $f30,X
divt $f30,$f29,$f29
stt $f29,T
ldt $f29,T
subt $f29,$f30,$f30
stt $f30,X
ldt $f30,Zero
ldt $f29,X
cmpteq $f29,$f30,$f1
fbeq $f1,L.198
ldt $f29,Y
cmpteq $f29,$f30,$f1
fbeq $f1,L.198
ldt $f29,Z
cmpteq $f29,$f30,$f1
fbeq $f1,L.198
lda $27,1
stl $27,GDiv
br L.199
L.198:
mov $31,$27
stl $27,GDiv
lda $16,1
mov $27,$17
lda $18,L.200
jsr $26,TstCond
ldgp $gp,0($26)
L.199:
ldt $f30,One
ldt $f29,U2
addt $f30,$f29,$f29
divt $f30,$f29,$f30
stt $f30,X
ldt $f30,Half
ldt $f29,X
subt $f29,$f30,$f29
subt $f29,$f30,$f30
stt $f30,Y
lda $16,1
ldt $f30,Y
ldt $f29,Zero
cmptlt $f30,$f29,$f1
fbeq $f1,L.203
lda $27,1
stl $27,-104+256($sp)
br L.204
L.203:
stl $31,-104+256($sp)
L.204:
ldl $17,-104+256($sp)
lda $18,L.202
jsr $26,TstCond
ldgp $gp,0($26)
ldt $f30,One
ldt $f29,U2
subt $f30,$f29,$f28
stt $f28,X
ldt $f28,Radix
mult $f28,$f29,$f29
addt $f30,$f29,$f30
stt $f30,Y
ldt $f30,X
mult $f30,$f28,$f29
stt $f29,Z
ldt $f29,Y
mult $f29,$f28,$f27
stt $f27,T
ldt $f27,Z
divt $f27,$f28,$f27
stt $f27,R
ldt $f27,T
divt $f27,$f28,$f28
stt $f28,StickyBit
ldt $f28,R
subt $f28,$f30,$f30
stt $f30,X
ldt $f30,StickyBit
subt $f30,$f29,$f30
stt $f30,Y
mov $31,$16
ldt $f30,Zero
ldt $f29,X
cmpteq $f29,$f30,$f1
fbeq $f1,L.207
ldt $f29,Y
cmpteq $f29,$f30,$f1
fbeq $f1,L.207
lda $27,1
stl $27,-108+256($sp)
br L.208
L.207:
stl $31,-108+256($sp)
L.208:
ldl $17,-108+256($sp)
lda $18,L.206
jsr $26,TstCond
ldgp $gp,0($26)
ldt $f30,One
ldt $f29,U1
subt $f30,$f29,$f29
stt $f29,Y
ldt $f29,F9
subt $f30,$f29,$f29
stt $f29,X
ldt $f29,Y
subt $f30,$f29,$f30
stt $f30,Y
ldt $f30,Radix
ldt $f29,U2
subt $f30,$f29,$f29
stt $f29,T
ldt $f29,BMinusU2
subt $f30,$f29,$f29
stt $f29,Z
ldt $f29,T
subt $f30,$f29,$f30
stt $f30,T
ldt $f30,U1
ldt $f29,X
cmpteq $f29,$f30,$f1
fbeq $f1,L.209
ldt $f29,Y
cmpteq $f29,$f30,$f1
fbeq $f1,L.209
ldt $f30,U2
ldt $f29,Z
cmpteq $f29,$f30,$f1
fbeq $f1,L.209
ldt $f29,T
cmpteq $f29,$f30,$f1
fbeq $f1,L.209
lda $27,1
stl $27,GAddSub
br L.210
L.209:
mov $31,$27
stl $27,GAddSub
lda $16,1
mov $27,$17
lda $18,L.211
jsr $26,TstCond
ldgp $gp,0($26)
L.210:
ldt $f30,F9
ldt $f29,One
cmpteq $f30,$f29,$f1
fbne $f1,L.212
subt $f30,$f29,$f30
ldt $f29,Zero
cmptlt $f30,$f29,$f1
fbne $f1,L.212
lda $16,1
lda $17,L.214
jsr $26,BadCond
ldgp $gp,0($26)
lda $16,L.215
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.216
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.217
jsr $26,printf
ldgp $gp,0($26)
L.212:
ldl $27,GMult
cmpeq $27,1,$23
beq $23,L.218
ldl $27,GDiv
cmpeq $27,1,$23
beq $23,L.218
ldl $27,GAddSub
cmpeq $27,1,$23
beq $23,L.218
lda $16,L.220
jsr $26,printf
ldgp $gp,0($26)
L.218:
lda $27,40
stl $27,Milestone
jsr $26,Pause
ldgp $gp,0($26)
lda $16,L.221
jsr $26,printf
ldgp $gp,0($26)
stl $31,RMult
stl $31,RDiv
stl $31,RAddSub
ldt $f30,Two
ldt $f29,Radix
divt $f29,$f30,$f29
stt $f29,RadixD2
stt $f30,A1
stl $31,Done
L.222:
ldt $f30,Radix
stt $f30,AInvrse
L.225:
ldt $f30,AInvrse
stt $f30,X
ldt $f29,A1
divt $f30,$f29,$f30
stt $f30,AInvrse
L.226:
ldt $f16,AInvrse
jsr $26,floor
ldgp $gp,0($26)
ldt $f29,AInvrse
cmpteq $f0,$f29,$f1
fbne $f1,L.225
ldt $f30,X
ldt $f29,One
cmpteq $f30,$f29,$f1
fbne $f1,L.231
ldt $f30,A1
ldt $f29,Three
cmptle $f30,$f29,$f1
fbne $f1,L.229
L.231:
lda $27,1
stl $27,-112+256($sp)
br L.230
L.229:
stl $31,-112+256($sp)
L.230:
ldl $27,-112+256($sp)
stl $27,Done
ldl $27,Done
cmpeq $27,$31,$23
beq $23,L.232
ldt $f30,Nine
ldt $f29,One
addt $f30,$f29,$f30
stt $f30,A1
L.232:
L.223:
ldl $27,Done
cmpeq $27,$31,$23
bne $23,L.222
ldt $f30,X
ldt $f29,One
cmpteq $f30,$f29,$f1
fbeq $f1,L.234
ldt $f30,Radix
stt $f30,A1
L.234:
ldt $f30,A1
ldt $f29,One
divt $f29,$f30,$f29
stt $f29,AInvrse
stt $f30,X
ldt $f30,AInvrse
stt $f30,Y
stl $31,Done
L.236:
ldt $f30,Half
ldt $f29,X
ldt $f28,Y
mult $f29,$f28,$f29
subt $f29,$f30,$f29
stt $f29,Z
mov $31,$16
ldt $f29,Z
cmpteq $f29,$f30,$f1
fbeq $f1,L.241
lda $27,1
stl $27,-112+256($sp)
br L.242