paranoia.sbk

lcc source code enjoy your self

L.241:
stl $31,-112+256($sp)
L.242:
ldl $17,-112+256($sp)
lda $18,L.240
jsr $26,TstCond
ldgp $gp,0($26)
ldt $f30,X
ldt $f29,Radix
cmpteq $f30,$f29,$f1
fbeq $f1,L.244
lda $27,1
stl $27,-116+256($sp)
br L.245
L.244:
stl $31,-116+256($sp)
L.245:
ldl $27,-116+256($sp)
stl $27,Done
ldt $f30,Radix
stt $f30,X
ldt $f30,One
ldt $f29,X
divt $f30,$f29,$f30
stt $f30,Y
L.237:
ldl $27,Done
cmpeq $27,$31,$23
bne $23,L.236
ldt $f30,One
ldt $f29,U2
addt $f30,$f29,$f28
stt $f28,Y2
subt $f30,$f29,$f30
stt $f30,Y1
ldt $f30,OneAndHalf
subt $f30,$f29,$f28
stt $f28,X
addt $f30,$f29,$f28
stt $f28,Y
ldt $f28,X
ldt $f27,Y2
subt $f28,$f29,$f26
mult $f26,$f27,$f26
stt $f26,Z
ldt $f26,Y
ldt $f25,Y1
mult $f26,$f25,$f24
stt $f24,T
ldt $f24,Z
subt $f24,$f28,$f24
stt $f24,Z
ldt $f24,T
subt $f24,$f28,$f24
stt $f24,T
mult $f28,$f27,$f28
stt $f28,X
addt $f26,$f29,$f29
mult $f29,$f25,$f29
stt $f29,Y
ldt $f29,X
subt $f29,$f30,$f29
stt $f29,X
ldt $f29,Y
subt $f29,$f30,$f30
stt $f30,Y
ldt $f30,Zero
ldt $f29,X
cmpteq $f29,$f30,$f1
fbeq $f1,L.246
ldt $f29,Y
cmpteq $f29,$f30,$f1
fbeq $f1,L.246
ldt $f29,Z
cmpteq $f29,$f30,$f1
fbeq $f1,L.246
ldt $f29,T
cmptle $f29,$f30,$f1
fbeq $f1,L.246
ldt $f30,OneAndHalf
ldt $f29,U2
addt $f30,$f29,$f28
ldt $f27,Y2
mult $f28,$f27,$f26
stt $f26,X
subt $f30,$f29,$f30
subt $f30,$f29,$f26
stt $f26,Y
addt $f28,$f29,$f28
stt $f28,Z
ldt $f28,Y1
mult $f30,$f28,$f30
stt $f30,T
ldt $f30,Z
addt $f30,$f29,$f26
ldt $f25,X
subt $f25,$f26,$f25
stt $f25,X
ldt $f25,Y
mult $f25,$f28,$f24
stt $f24,StickyBit
mult $f30,$f27,$f30
stt $f30,S
ldt $f30,T
subt $f30,$f25,$f30
stt $f30,T
subt $f29,$f25,$f30
ldt $f25,StickyBit
addt $f30,$f25,$f30
stt $f30,Y
ldt $f30,S
addt $f26,$f29,$f26
subt $f30,$f26,$f30
stt $f30,Z
addt $f27,$f29,$f30
mult $f30,$f28,$f30
stt $f30,StickyBit
mult $f27,$f28,$f30
stt $f30,Y1
ldt $f30,StickyBit
subt $f30,$f27,$f30
stt $f30,StickyBit
ldt $f30,Y1
ldt $f29,Half
subt $f30,$f29,$f30
stt $f30,Y1
ldt $f30,Zero
ldt $f29,X
cmpteq $f29,$f30,$f1
fbeq $f1,L.248
ldt $f29,Y
cmpteq $f29,$f30,$f1
fbeq $f1,L.248
ldt $f29,Z
cmpteq $f29,$f30,$f1
fbeq $f1,L.248
ldt $f29,T
cmpteq $f29,$f30,$f1
fbeq $f1,L.248
ldt $f29,StickyBit
cmpteq $f29,$f30,$f1
fbeq $f1,L.248
ldt $f30,Y1
ldt $f29,Half
cmpteq $f30,$f29,$f1
fbeq $f1,L.248
lda $27,1
stl $27,RMult
lda $16,L.250
jsr $26,printf
ldgp $gp,0($26)
br L.249
L.248:
ldt $f30,U2
ldt $f29,Zero
ldt $f28,X
addt $f28,$f30,$f28
cmpteq $f28,$f29,$f1
fbeq $f1,L.251
ldt $f28,Y
cmptlt $f28,$f29,$f1
fbeq $f1,L.251
ldt $f28,Z
addt $f28,$f30,$f28
cmpteq $f28,$f29,$f1
fbeq $f1,L.251
ldt $f28,T
cmptlt $f28,$f29,$f1
fbeq $f1,L.251
ldt $f28,StickyBit
addt $f28,$f30,$f30
cmpteq $f30,$f29,$f1
fbeq $f1,L.251
ldt $f30,Y1
ldt $f29,Half
cmptlt $f30,$f29,$f1
fbeq $f1,L.251
lda $27,2
stl $27,RMult
lda $16,L.253
jsr $26,printf
ldgp $gp,0($26)
br L.252
L.251:
lda $16,L.254
jsr $26,printf
ldgp $gp,0($26)
L.252:
L.249:
ldl $27,RMult
cmpeq $27,1,$23
beq $23,L.247
ldl $27,GMult
cmpeq $27,$31,$23
beq $23,L.247
lda $16,L.257
jsr $26,notify
ldgp $gp,0($26)
br L.247
L.246:
lda $16,L.254
jsr $26,printf
ldgp $gp,0($26)
L.247:
lda $27,45
stl $27,Milestone
ldt $f30,One
ldt $f29,U2
addt $f30,$f29,$f28
stt $f28,Y2
subt $f30,$f29,$f30
stt $f30,Y1
ldt $f30,OneAndHalf
addt $f30,$f29,$f28
addt $f28,$f29,$f27
stt $f27,Z
ldt $f27,Z
ldt $f26,Y2
divt $f27,$f26,$f25
stt $f25,X
subt $f30,$f29,$f25
subt $f25,$f29,$f25
stt $f25,T
ldt $f25,T
ldt $f24,Y1
subt $f25,$f29,$f23
divt $f23,$f24,$f23
stt $f23,Y
addt $f27,$f29,$f27
divt $f27,$f26,$f27
stt $f27,Z
ldt $f27,X
subt $f27,$f30,$f27
stt $f27,X
ldt $f27,Y
subt $f27,$f25,$f27
stt $f27,Y
divt $f25,$f24,$f27
stt $f27,T
ldt $f27,Z
subt $f27,$f28,$f28
stt $f28,Z
subt $f29,$f30,$f30
ldt $f29,T
addt $f30,$f29,$f30
stt $f30,T
ldt $f30,Zero
ldt $f29,X
cmptle $f29,$f30,$f1
fbeq $f1,L.258
ldt $f29,Y
cmptle $f29,$f30,$f1
fbeq $f1,L.258
ldt $f29,Z
cmptle $f29,$f30,$f1
fbeq $f1,L.258
ldt $f29,T
cmptle $f29,$f30,$f1
fbeq $f1,L.258
ldt $f30,OneAndHalf
ldt $f29,Y2
divt $f30,$f29,$f28
stt $f28,X
ldt $f28,U2
subt $f30,$f28,$f27
stt $f27,Y
addt $f30,$f28,$f27
stt $f27,Z
ldt $f27,Y
ldt $f26,X
subt $f26,$f27,$f26
stt $f26,X
ldt $f26,Y1
divt $f30,$f26,$f25
stt $f25,T
divt $f27,$f26,$f27
stt $f27,Y
ldt $f27,Z
ldt $f26,T
addt $f27,$f28,$f25
subt $f26,$f25,$f26
stt $f26,T
ldt $f26,Y
subt $f26,$f27,$f26
stt $f26,Y
divt $f27,$f29,$f27
stt $f27,Z
addt $f29,$f28,$f28
divt $f28,$f29,$f28
stt $f28,Y1
ldt $f28,Z
subt $f28,$f30,$f30
stt $f30,Z
ldt $f30,Y1
subt $f30,$f29,$f30
stt $f30,Y2
ldt $f30,F9
ldt $f29,U1
subt $f30,$f29,$f29
divt $f29,$f30,$f30
stt $f30,Y1
ldt $f30,Zero
ldt $f29,X
cmpteq $f29,$f30,$f1
fbeq $f1,L.260
ldt $f29,Y
cmpteq $f29,$f30,$f1
fbeq $f1,L.260
ldt $f29,Z
cmpteq $f29,$f30,$f1
fbeq $f1,L.260
ldt $f29,T
cmpteq $f29,$f30,$f1
fbeq $f1,L.260
ldt $f29,Y2
cmpteq $f29,$f30,$f1
fbeq $f1,L.260
cmpteq $f29,$f30,$f1
fbeq $f1,L.260
ldt $f30,Half
ldt $f29,Y1
subt $f29,$f30,$f29
ldt $f28,F9
subt $f28,$f30,$f30
cmpteq $f29,$f30,$f1
fbeq $f1,L.260
lda $27,1
stl $27,RDiv
lda $16,L.262
jsr $26,printf
ldgp $gp,0($26)
ldl $27,GDiv
cmpeq $27,$31,$23
beq $23,L.261
lda $16,L.265
jsr $26,notify
ldgp $gp,0($26)
br L.261
L.260:
ldt $f30,Zero
ldt $f29,X
cmptlt $f29,$f30,$f1
fbeq $f1,L.266
ldt $f29,Y
cmptlt $f29,$f30,$f1
fbeq $f1,L.266
ldt $f29,Z
cmptlt $f29,$f30,$f1
fbeq $f1,L.266
ldt $f29,T
cmptlt $f29,$f30,$f1
fbeq $f1,L.266
ldt $f29,Y2
cmptlt $f29,$f30,$f1
fbeq $f1,L.266
ldt $f30,Half
ldt $f29,Y1
subt $f29,$f30,$f29
ldt $f28,F9
subt $f28,$f30,$f30
cmptlt $f29,$f30,$f1
fbeq $f1,L.266
lda $27,2
stl $27,RDiv
lda $16,L.268
jsr $26,printf
ldgp $gp,0($26)
L.266:
L.261:
L.258:
ldl $27,RDiv
cmpeq $27,$31,$23
beq $23,L.269
lda $16,L.271
jsr $26,printf
ldgp $gp,0($26)
L.269:
ldt $f30,Radix
ldt $f29,One
divt $f29,$f30,$f29
stt $f29,BInvrse
mov $31,$16
ldt $f29,Half
ldt $f28,BInvrse
mult $f28,$f30,$f30
subt $f30,$f29,$f30
cmpteq $f30,$f29,$f1
fbeq $f1,L.274
lda $27,1
stl $27,-112+256($sp)
br L.275
L.274:
stl $31,-112+256($sp)
L.275:
ldl $17,-112+256($sp)
lda $18,L.273
jsr $26,TstCond
ldgp $gp,0($26)
lda $27,50
stl $27,Milestone
mov $31,$16
ldt $f30,Half
ldt $f29,F9
ldt $f28,U1
addt $f29,$f28,$f29
subt $f29,$f30,$f29
cmpteq $f29,$f30,$f1
fbeq $f1,L.278
ldt $f30,One
ldt $f29,BMinusU2
ldt $f28,U2
addt $f29,$f28,$f29
subt $f29,$f30,$f29
ldt $f28,Radix
subt $f28,$f30,$f30
cmpteq $f29,$f30,$f1
fbeq $f1,L.278
lda $27,1
stl $27,-116+256($sp)
br L.279
L.278:
stl $31,-116+256($sp)
L.279:
ldl $17,-116+256($sp)
lda $18,L.277
jsr $26,TstCond
ldgp $gp,0($26)
ldt $f30,One
ldt $f29,U1
mult $f29,$f29,$f29
subt $f30,$f29,$f29
stt $f29,X
ldt $f29,U2
subt $f30,$f29,$f28
mult $f29,$f28,$f29
addt $f30,$f29,$f29
stt $f29,Y
ldt $f29,Half
ldt $f28,F9
subt $f28,$f29,$f28
stt $f28,Z
ldt $f28,X
subt $f28,$f29,$f29
ldt $f28,Z
subt $f29,$f28,$f29
stt $f29,X
ldt $f29,Y
subt $f29,$f30,$f30
stt $f30,Y
ldt $f30,Zero
ldt $f29,X
cmpteq $f29,$f30,$f1
fbeq $f1,L.280
ldt $f29,Y
cmpteq $f29,$f30,$f1
fbeq $f1,L.280
lda $27,2
stl $27,RAddSub
lda $16,L.282
jsr $26,printf
ldgp $gp,0($26)
L.280:
ldl $27,GAddSub
cmpeq $27,1,$23
beq $23,L.283
ldt $f30,Half
ldt $f29,U2
addt $f30,$f29,$f28
mult $f28,$f29,$f28
stt $f28,X
subt $f30,$f29,$f30
mult $f30,$f29,$f30
stt $f30,Y
ldt $f30,One
ldt $f28,X
addt $f30,$f28,$f28
stt $f28,X
ldt $f28,Y
addt $f30,$f28,$f28
stt $f28,Y
addt $f30,$f29,$f29
ldt $f28,X
subt $f29,$f28,$f29
stt $f29,X
ldt $f29,Y
subt $f30,$f29,$f30
stt $f30,Y
ldt $f30,Zero
ldt $f29,X
cmpteq $f29,$f30,$f1
fbeq $f1,L.285
ldt $f29,Y
cmpteq $f29,$f30,$f1
fbeq $f1,L.285
ldt $f30,Half
ldt $f29,U2
ldt $f28,U1
addt $f30,$f29,$f27
mult $f27,$f28,$f27
stt $f27,X
subt $f30,$f29,$f30
mult $f30,$f28,$f30
stt $f30,Y
ldt $f30,One
ldt $f29,X
subt $f30,$f29,$f29
stt $f29,X
ldt $f29,Y
subt $f30,$f29,$f29
stt $f29,Y
ldt $f29,F9
ldt $f28,X
subt $f29,$f28,$f29
stt $f29,X
ldt $f29,Y
subt $f30,$f29,$f30
stt $f30,Y
ldt $f30,Zero
ldt $f29,X
cmpteq $f29,$f30,$f1
fbeq $f1,L.287
ldt $f29,Y
cmpteq $f29,$f30,$f1
fbeq $f1,L.287
lda $27,1
stl $27,RAddSub
lda $16,L.289
jsr $26,printf
ldgp $gp,0($26)
ldl $27,GAddSub
cmpeq $27,$31,$23
beq $23,L.284
lda $16,L.292
jsr $26,notify
ldgp $gp,0($26)
br L.284
L.287:
lda $16,L.293
jsr $26,printf
ldgp $gp,0($26)
br L.284
L.285:
lda $16,L.293
jsr $26,printf
ldgp $gp,0($26)
br L.284
L.283:
lda $16,L.293
jsr $26,printf
ldgp $gp,0($26)
L.284:
ldt $f30,One
stt $f30,S
ldt $f29,Half
addt $f30,$f29,$f28
mult $f29,$f28,$f28
addt $f30,$f28,$f28
stt $f28,X
ldt $f28,U2
addt $f30,$f28,$f30
mult $f30,$f29,$f30
stt $f30,Y
ldt $f30,X
ldt $f29,Y
subt $f30,$f29,$f28
stt $f28,Z
subt $f29,$f30,$f30
stt $f30,T
ldt $f30,Z
ldt $f29,T
addt $f30,$f29,$f30
stt $f30,StickyBit
ldt $f30,StickyBit
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbne $f1,L.294
ldt $f30,Zero
stt $f30,S
lda $16,3
lda $17,L.296
jsr $26,BadCond
ldgp $gp,0($26)
L.294:
ldt $f30,Zero
stt $f30,StickyBit
ldl $27,GMult
cmpeq $27,1,$23
beq $23,L.297
ldl $27,GDiv
cmpeq $27,1,$23
beq $23,L.297
ldl $27,GAddSub
cmpeq $27,1,$23
beq $23,L.297
ldl $27,RMult
cmpeq $27,1,$23
beq $23,L.297
ldl $27,RDiv
cmpeq $27,1,$23
beq $23,L.297
ldl $27,RAddSub
cmpeq $27,1,$23
beq $23,L.297
ldt $f16,RadixD2
jsr $26,floor
ldgp $gp,0($26)
ldt $f29,RadixD2
cmpteq $f0,$f29,$f1
fbeq $f1,L.297
lda $16,L.299
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,Half
ldt $f29,U2
ldt $f28,U1
addt $f30,$f28,$f28
mult $f28,$f29,$f28
stt $f28,X
mult $f30,$f29,$f30
stt $f30,Y
ldt $f30,One
ldt $f29,Y
addt $f30,$f29,$f29
stt $f29,Z
ldt $f29,X
addt $f30,$f29,$f30
stt $f30,T
ldt $f30,One
ldt $f29,Z
subt $f29,$f30,$f29
ldt $f28,Zero
cmptle $f29,$f28,$f1
fbeq $f1,L.300
ldt $f29,T
subt $f29,$f30,$f30
ldt $f29,U2
cmptlt $f30,$f29,$f1
fbne $f1,L.300
ldt $f30,T
ldt $f29,Y
addt $f30,$f29,$f30
stt $f30,Z
ldt $f30,Z
ldt $f29,X
subt $f30,$f29,$f30
stt $f30,Y
ldt $f30,T
ldt $f29,Z
subt $f29,$f30,$f29
ldt $f28,U2
cmptlt $f29,$f28,$f1
fbne $f1,L.302
ldt $f29,Y
subt $f29,$f30,$f30
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbeq $f1,L.302
ldt $f30,Half
ldt $f29,U1
addt $f30,$f29,$f28
mult $f28,$f29,$f28
stt $f28,X
mult $f30,$f29,$f30
stt $f30,Y
ldt $f30,One
ldt $f29,Y
subt $f30,$f29,$f29
stt $f29,Z
ldt $f29,X
subt $f30,$f29,$f30
stt $f30,T
ldt $f30,Zero
ldt $f29,Z
ldt $f28,One
subt $f29,$f28,$f29
cmpteq $f29,$f30,$f1
fbeq $f1,L.304
ldt $f29,T
ldt $f28,F9
subt $f29,$f28,$f29
cmpteq $f29,$f30,$f1
fbeq $f1,L.304
ldt $f30,U1
ldt $f29,Half
subt $f29,$f30,$f29
mult $f29,$f30,$f30
stt $f30,Z
ldt $f30,F9
ldt $f29,Z
subt $f30,$f29,$f29
stt $f29,T
ldt $f29,Y
subt $f30,$f29,$f30
stt $f30,Q
ldt $f30,F9
ldt $f29,Zero
ldt $f28,T
subt $f28,$f30,$f28
cmpteq $f28,$f29,$f1
fbeq $f1,L.306
ldt $f28,U1
subt $f30,$f28,$f30
ldt $f28,Q
subt $f30,$f28,$f30
cmpteq $f30,$f29,$f1
fbeq $f1,L.306
ldt $f30,One
ldt $f29,U2
ldt $f28,OneAndHalf
addt $f30,$f29,$f27
mult $f27,$f28,$f27
stt $f27,Z
addt $f28,$f29,$f28
ldt $f27,Z
subt $f28,$f27,$f28
addt $f28,$f29,$f28
stt $f28,T
ldt $f28,Radix
ldt $f27,Half
divt $f27,$f28,$f27
addt $f30,$f27,$f27
stt $f27,X
mult $f28,$f29,$f29
addt $f30,$f29,$f30
stt $f30,Y
ldt $f30,X
ldt $f29,Y
mult $f30,$f29,$f30
stt $f30,Z
ldt $f30,Zero
ldt $f29,T
cmpteq $f29,$f30,$f1
fbeq $f1,L.308
ldt $f29,X
ldt $f28,Radix
ldt $f27,U2
mult $f28,$f27,$f28
addt $f29,$f28,$f29
ldt $f28,Z
subt $f29,$f28,$f29
cmpteq $f29,$f30,$f1
fbeq $f1,L.308
ldt $f30,Radix
ldt $f29,Two
cmpteq $f30,$f29,$f1
fbne $f1,L.310
ldt $f30,Two
ldt $f29,U2
addt $f30,$f29,$f29
stt $f29,X
ldt $f29,X
divt $f29,$f30,$f30
stt $f30,Y
ldt $f30,Y
ldt $f29,One
subt $f30,$f29,$f30
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbeq $f1,L.311
ldt $f30,S
stt $f30,StickyBit
br L.311
L.310:
ldt $f30,S
stt $f30,StickyBit
L.311:
L.308:
L.306:
L.304:
L.302:
L.300:
L.297:
ldt $f30,StickyBit
ldt $f29,One
cmpteq $f30,$f29,$f1
fbeq $f1,L.314
lda $16,L.316
jsr $26,printf
ldgp $gp,0($26)
br L.315
L.314:
lda $16,L.317
jsr $26,printf
ldgp $gp,0($26)
L.315:
lda $16,3
ldl $25,GMult
cmpeq $25,$31,$23
bne $23,L.320
ldl $25,GDiv
cmpeq $25,$31,$23
bne $23,L.320
ldl $25,GAddSub
cmpeq $25,$31,$23
bne $23,L.320
ldl $25,RMult
cmpeq $25,$31,$23
bne $23,L.320
ldl $25,RDiv
cmpeq $25,$31,$23
bne $23,L.320
ldl $25,RAddSub
cmpeq $25,$31,$23
bne $23,L.320
lda $27,1
stl $27,-120+256($sp)
br L.321
L.320:
stl $31,-120+256($sp)
L.321:
ldl $17,-120+256($sp)
lda $18,L.319
jsr $26,TstCond
ldgp $gp,0($26)
lda $27,60
stl $27,Milestone
lda $16,L.45
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.322
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.323
ldl $17,NoTrials
jsr $26,printf
ldgp $gp,0($26)
ldt $f16,L.324
jsr $26,sqrt
ldgp $gp,0($26)
stt $f0,Random9
ldt $f30,Third
stt $f30,Random1
lda $27,1
stl $27,I
L.325:
jsr $26,Random
ldgp $gp,0($26)
stt $f0,X
jsr $26,Random
ldgp $gp,0($26)
stt $f0,Y
ldt $f30,Y
ldt $f29,X
mult $f30,$f29,$f28
stt $f28,Z9
mult $f29,$f30,$f30
stt $f30,Z
ldt $f30,Z
ldt $f29,Z9