paranoia.sbk

lcc source code enjoy your self

subt $f30,$f29,$f30
stt $f30,Z9
ldl $27,I
lda $27,1($27)
stl $27,I
L.326:
ldl $27,I
ldl $25,NoTrials
cmple $27,$25,$23
beq $23,L.328
ldt $f30,Z9
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbne $f1,L.325
L.328:
ldl $27,I
ldl $25,NoTrials
cmpeq $27,$25,$23
beq $23,L.329
ldt $f30,One
ldt $f29,Half
ldt $f28,Three
divt $f29,$f28,$f29
addt $f30,$f29,$f29
stt $f29,Random1
ldt $f28,U2
ldt $f27,U1
addt $f28,$f27,$f28
addt $f28,$f30,$f30
stt $f30,Random2
ldt $f28,Random1
ldt $f27,Random2
mult $f28,$f27,$f26
stt $f26,Z
mult $f27,$f28,$f28
stt $f28,Y
mult $f29,$f30,$f30
subt $f30,$f30,$f30
stt $f30,Z9
L.329:
ldl $27,I
ldl $25,NoTrials
cmpeq $27,$25,$23
bne $23,L.331
ldt $f30,Z9
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbne $f1,L.331
lda $16,2
lda $17,L.333
jsr $26,BadCond
ldgp $gp,0($26)
br L.332
L.331:
lda $16,L.334
ldl $17,NoTrials
jsr $26,printf
ldgp $gp,0($26)
L.332:
lda $27,70
stl $27,Milestone
lda $16,L.335
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,Zero
stt $f30,-136+256($sp)
fmov $f30,$f16
jsr $26,sqrt
ldgp $gp,0($26)
ldt $f29,-136+256($sp)
cmpteq $f29,$f0,$f1
fbeq $f1,L.338
ldt $f30,Zero
negt $f30,$f30
stt $f30,-144+256($sp)
fmov $f30,$f16
jsr $26,sqrt
ldgp $gp,0($26)
ldt $f29,-144+256($sp)
cmpteq $f29,$f0,$f1
fbeq $f1,L.338
ldt $f30,One
stt $f30,-152+256($sp)
fmov $f30,$f16
jsr $26,sqrt
ldgp $gp,0($26)
fmov $f0,$f30
ldt $f29,-152+256($sp)
cmpteq $f29,$f30,$f1
fbeq $f1,L.338
lda $27,1
stl $27,-124+256($sp)
br L.339
L.338:
stl $31,-124+256($sp)
L.339:
mov $31,$16
ldl $17,-124+256($sp)
lda $18,L.337
jsr $26,TstCond
ldgp $gp,0($26)
ldt $f30,Zero
stt $f30,MinSqEr
stt $f30,MaxSqEr
stt $f30,J
ldt $f30,Radix
stt $f30,X
ldt $f30,U2
stt $f30,OneUlp
lda $16,1
jsr $26,SqXMinX
ldgp $gp,0($26)
ldt $f30,BInvrse
stt $f30,X
ldt $f29,U1
mult $f30,$f29,$f30
stt $f30,OneUlp
lda $16,1
jsr $26,SqXMinX
ldgp $gp,0($26)
ldt $f30,U1
stt $f30,X
mult $f30,$f30,$f30
stt $f30,OneUlp
lda $16,1
jsr $26,SqXMinX
ldgp $gp,0($26)
ldt $f30,J
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbne $f1,L.340
jsr $26,Pause
ldgp $gp,0($26)
L.340:
lda $16,L.342
ldl $17,NoTrials
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,Zero
stt $f30,J
ldt $f30,Two
stt $f30,X
ldt $f30,Radix
stt $f30,Y
ldt $f29,One
cmpteq $f30,$f29,$f1
fbne $f1,L.343
L.345:
ldt $f30,Y
stt $f30,X
ldt $f29,Radix
mult $f29,$f30,$f30
stt $f30,Y
L.346:
ldt $f30,Y
ldt $f29,X
subt $f30,$f29,$f30
lds $f29,NoTrials
cvtlq $f29,$f29
cvtqt $f29,$f29
cmptlt $f30,$f29,$f1
fbne $f1,L.345
L.343:
ldt $f30,X
ldt $f29,U2
mult $f30,$f29,$f30
stt $f30,OneUlp
lda $27,1
stl $27,I
br L.349
L.348:
ldt $f30,X
ldt $f29,One
addt $f30,$f29,$f30
stt $f30,X
lda $16,2
jsr $26,SqXMinX
ldgp $gp,0($26)
ldt $f30,J
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbne $f1,L.351
br L.350
L.351:
ldl $27,I
lda $27,1($27)
stl $27,I
L.349:
ldl $27,I
ldl $25,NoTrials
cmple $27,$25,$23
bne $23,L.348
L.350:
lda $16,L.353
jsr $26,printf
ldgp $gp,0($26)
lda $27,-1
stl $27,I
ldt $f30,BMinusU2
stt $f30,X
ldt $f30,Radix
stt $f30,Y
ldt $f29,U2
mult $f30,$f29,$f29
addt $f30,$f29,$f30
stt $f30,Z
stl $31,NotMonot
stl $31,Monot
br L.355
L.354:
ldl $27,I
lda $27,1($27)
stl $27,I
ldt $f16,X
jsr $26,sqrt
ldgp $gp,0($26)
stt $f0,X
ldt $f16,Y
jsr $26,sqrt
ldgp $gp,0($26)
stt $f0,Q
ldt $f16,Z
jsr $26,sqrt
ldgp $gp,0($26)
stt $f0,Z
ldt $f30,Q
ldt $f29,X
cmptle $f29,$f30,$f1
fbeq $f1,L.359
ldt $f29,Z
cmptle $f30,$f29,$f1
fbne $f1,L.357
L.359:
lda $27,1
stl $27,NotMonot
br L.358
L.357:
ldt $f30,Q
ldt $f29,Half
addt $f30,$f29,$f16
jsr $26,floor
ldgp $gp,0($26)
stt $f0,Q
ldl $27,I
cmple $27,$31,$23
beq $23,L.362
ldt $f30,Q
ldt $f29,Radix
mult $f30,$f30,$f30
cmpteq $f29,$f30,$f1
fbeq $f1,L.360
L.362:
lda $27,1
stl $27,Monot
br L.361
L.360:
ldl $27,I
cmple $27,$31,$23
bne $23,L.363
ldl $27,I
cmple $27,1,$23
bne $23,L.365
lda $27,1
stl $27,Monot
br L.364
L.365:
ldt $f30,Y
ldt $f29,BInvrse
mult $f30,$f29,$f30
stt $f30,Y
ldt $f30,Y
ldt $f29,U1
subt $f30,$f29,$f28
stt $f28,X
addt $f30,$f29,$f30
stt $f30,Z
br L.364
L.363:
ldt $f30,Q
stt $f30,Y
ldt $f30,Y
ldt $f29,U2
subt $f30,$f29,$f28
stt $f28,X
addt $f30,$f29,$f30
stt $f30,Z
L.364:
L.361:
L.358:
L.355:
ldl $25,NotMonot
cmpeq $25,$31,$23
beq $23,L.367
ldl $25,Monot
cmpeq $25,$31,$23
bne $23,L.354
L.367:
ldl $27,Monot
cmpeq $27,$31,$23
bne $23,L.368
lda $16,L.370
jsr $26,printf
ldgp $gp,0($26)
br L.369
L.368:
lda $16,2
lda $17,L.158
jsr $26,BadCond
ldgp $gp,0($26)
lda $16,L.371
ldt $f17,Y
jsr $26,printf
ldgp $gp,0($26)
L.369:
lda $27,80
stl $27,Milestone
ldt $f30,Half
ldt $f29,MinSqEr
addt $f29,$f30,$f29
stt $f29,MinSqEr
ldt $f29,MaxSqEr
subt $f29,$f30,$f30
stt $f30,MaxSqEr
ldt $f30,One
ldt $f29,U2
addt $f30,$f29,$f16
jsr $26,sqrt
ldgp $gp,0($26)
ldt $f29,One
ldt $f28,U2
subt $f0,$f29,$f30
divt $f30,$f28,$f30
stt $f30,Y
ldt $f30,Y
subt $f30,$f29,$f30
ldt $f29,Eight
divt $f28,$f29,$f29
addt $f30,$f29,$f30
stt $f30,SqEr
ldt $f30,SqEr
ldt $f29,MaxSqEr
cmptle $f30,$f29,$f1
fbne $f1,L.372
ldt $f30,SqEr
stt $f30,MaxSqEr
L.372:
ldt $f30,Y
ldt $f29,U2
ldt $f28,Eight
divt $f29,$f28,$f29
addt $f30,$f29,$f30
stt $f30,SqEr
ldt $f30,SqEr
ldt $f29,MinSqEr
cmptlt $f30,$f29,$f1
fbeq $f1,L.374
ldt $f30,SqEr
stt $f30,MinSqEr
L.374:
ldt $f16,F9
jsr $26,sqrt
ldgp $gp,0($26)
ldt $f29,U2
ldt $f28,U1
subt $f0,$f29,$f30
ldt $f27,One
subt $f27,$f29,$f29
subt $f30,$f29,$f30
divt $f30,$f28,$f30
stt $f30,Y
ldt $f30,Y
ldt $f29,Eight
divt $f28,$f29,$f29
addt $f30,$f29,$f30
stt $f30,SqEr
ldt $f30,SqEr
ldt $f29,MaxSqEr
cmptle $f30,$f29,$f1
fbne $f1,L.376
ldt $f30,SqEr
stt $f30,MaxSqEr
L.376:
ldt $f30,Y
ldt $f29,One
addt $f30,$f29,$f30
ldt $f29,U1
ldt $f28,Eight
divt $f29,$f28,$f29
addt $f30,$f29,$f30
stt $f30,SqEr
ldt $f30,SqEr
ldt $f29,MinSqEr
cmptlt $f30,$f29,$f1
fbeq $f1,L.378
ldt $f30,SqEr
stt $f30,MinSqEr
L.378:
ldt $f30,U2
stt $f30,OneUlp
ldt $f30,OneUlp
stt $f30,X
lda $27,1
stl $27,Indx
L.380:
ldt $f30,X
ldt $f29,U1
addt $f30,$f29,$f29
addt $f29,$f30,$f30
ldt $f29,F9
addt $f30,$f29,$f16
jsr $26,sqrt
ldgp $gp,0($26)
stt $f0,Y
ldt $f30,U2
ldt $f29,X
ldt $f28,OneUlp
ldt $f27,Y
subt $f27,$f30,$f27
ldt $f26,One
subt $f26,$f30,$f30
addt $f30,$f29,$f30
subt $f27,$f30,$f30
divt $f30,$f28,$f30
stt $f30,Y
ldt $f30,Half
ldt $f27,U1
subt $f27,$f29,$f27
ldt $f26,F9
addt $f27,$f26,$f27
mult $f27,$f30,$f27
mult $f27,$f29,$f27
mult $f27,$f29,$f29
divt $f29,$f28,$f29
stt $f29,Z
ldt $f29,Y
addt $f29,$f30,$f30
ldt $f29,Z
addt $f30,$f29,$f30
stt $f30,SqEr
ldt $f30,SqEr
ldt $f29,MinSqEr
cmptlt $f30,$f29,$f1
fbeq $f1,L.384
ldt $f30,SqEr
stt $f30,MinSqEr
L.384:
ldt $f30,Y
ldt $f29,Half
subt $f30,$f29,$f30
ldt $f29,Z
addt $f30,$f29,$f30
stt $f30,SqEr
ldt $f30,SqEr
ldt $f29,MaxSqEr
cmptle $f30,$f29,$f1
fbne $f1,L.386
ldt $f30,SqEr
stt $f30,MaxSqEr
L.386:
ldl $27,Indx
cmpeq $27,1,$23
bne $23,L.390
cmpeq $27,3,$23
beq $23,L.388
L.390:
ldt $f16,X
jsr $26,Sign
ldgp $gp,0($26)
fmov $f0,$f30
stt $f30,-160+256($sp)
ldt $f16,OneUlp
jsr $26,sqrt
ldgp $gp,0($26)
ldt $f29,Eight
ldt $f28,Nine
mult $f28,$f0,$f30
divt $f29,$f30,$f16
jsr $26,floor
ldgp $gp,0($26)
ldt $f29,OneUlp
ldt $f28,-160+256($sp)
mult $f29,$f28,$f29
mult $f29,$f0,$f30
stt $f30,X
br L.389
L.388:
ldt $f30,U1
stt $f30,OneUlp
ldt $f30,OneUlp
negt $f30,$f30
stt $f30,X
L.389:
L.381:
ldl $27,Indx
lda $27,1($27)
stl $27,Indx
ldl $27,Indx
cmple $27,3,$23
bne $23,L.380
lda $27,85
stl $27,Milestone
stl $31,SqRWrng
stl $31,Anomaly
stl $31,RSqrt
ldt $f30,Radix
ldt $f29,One
cmpteq $f30,$f29,$f1
fbne $f1,L.391
lda $16,L.393
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,Precision
stt $f30,-160+256($sp)
fmov $f30,$f16
jsr $26,floor
ldgp $gp,0($26)
fmov $f0,$f30
ldt $f16,Radix
ldt $f29,One
ldt $f28,-160+256($sp)
addt $f29,$f28,$f29
subt $f29,$f30,$f17
jsr $26,pow
ldgp $gp,0($26)
fmov $f0,$f30
ldt $f29,Half
addt $f29,$f30,$f16
jsr $26,floor
ldgp $gp,0($26)
stt $f0,D
ldt $f30,D
ldt $f29,Radix
divt $f30,$f29,$f29
stt $f29,X
ldt $f29,A1
divt $f30,$f29,$f30
stt $f30,Y
ldt $f30,X
stt $f30,-168+256($sp)
fmov $f30,$f16
jsr $26,floor
ldgp $gp,0($26)
ldt $f29,-168+256($sp)
cmpteq $f29,$f0,$f1
fbeq $f1,L.396
ldt $f30,Y
stt $f30,-176+256($sp)
fmov $f30,$f16
jsr $26,floor
ldgp $gp,0($26)
ldt $f29,-176+256($sp)
cmpteq $f29,$f0,$f1
fbne $f1,L.394
L.396:
lda $27,1
stl $27,Anomaly
br L.395
L.394:
ldt $f30,Zero
stt $f30,X
ldt $f30,X
stt $f30,Z2
ldt $f30,One
stt $f30,Y
ldt $f29,Y
stt $f29,Y2
ldt $f29,Radix
subt $f29,$f30,$f30
stt $f30,Z1
ldt $f30,Four
ldt $f29,D
mult $f30,$f29,$f30
stt $f30,FourD
L.397:
ldt $f30,Y2
ldt $f29,Z2
cmptle $f30,$f29,$f1
fbne $f1,L.400
ldt $f30,Radix
stt $f30,Q
ldt $f30,Y
stt $f30,Y1
L.402:
ldt $f30,Q
stt $f30,-184+256($sp)
ldt $f29,Half
ldt $f28,Y1
divt $f30,$f28,$f28
subt $f29,$f28,$f16
jsr $26,floor
ldgp $gp,0($26)
ldt $f29,Y1
mult $f0,$f29,$f30
ldt $f29,-184+256($sp)
addt $f29,$f30,$f16
jsr $26,fabs
ldgp $gp,0($26)
stt $f0,X1
ldt $f30,Y1
stt $f30,Q
ldt $f30,X1
stt $f30,Y1
L.403:
ldt $f30,X1
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbeq $f1,L.402
ldt $f30,Q
ldt $f29,One
cmptle $f30,$f29,$f1
fbeq $f1,L.405
ldt $f30,Y2
stt $f30,Z2
ldt $f30,Y
stt $f30,Z
L.405:
L.400:
ldt $f30,Y
ldt $f29,Two
addt $f30,$f29,$f30
stt $f30,Y
ldt $f30,X
ldt $f29,Eight
addt $f30,$f29,$f30
stt $f30,X
ldt $f30,Y2
ldt $f29,X
addt $f30,$f29,$f30
stt $f30,Y2
ldt $f30,Y2
ldt $f29,FourD
cmptlt $f30,$f29,$f1
fbne $f1,L.407
ldt $f30,Y2
ldt $f29,FourD
subt $f30,$f29,$f30
stt $f30,Y2
L.407:
L.398:
ldt $f30,Y
ldt $f29,D
cmptlt $f30,$f29,$f1
fbne $f1,L.397
ldt $f30,FourD
ldt $f29,Z2
subt $f30,$f29,$f29
stt $f29,X8
ldt $f29,X8
ldt $f28,Z
mult $f28,$f28,$f28
addt $f29,$f28,$f28
divt $f28,$f30,$f30
stt $f30,Q
ldt $f30,Eight
divt $f29,$f30,$f30
stt $f30,X8
ldt $f30,Q
stt $f30,-184+256($sp)
fmov $f30,$f16
jsr $26,floor
ldgp $gp,0($26)
ldt $f29,-184+256($sp)
cmpteq $f29,$f0,$f1
fbne $f1,L.409
lda $27,1
stl $27,Anomaly
br L.410
L.409:
stl $31,Break
L.411:
ldt $f30,Z1
ldt $f29,Z
mult $f30,$f29,$f30
stt $f30,X
ldt $f30,X
stt $f30,-192+256($sp)
ldt $f29,Radix
divt $f30,$f29,$f16
jsr $26,floor
ldgp $gp,0($26)
ldt $f29,Radix
mult $f0,$f29,$f30
ldt $f29,-192+256($sp)
subt $f29,$f30,$f30
stt $f30,X
ldt $f30,X
ldt $f29,One
cmpteq $f30,$f29,$f1
fbeq $f1,L.414
lda $27,1
stl $27,Break
br L.415
L.414:
ldt $f30,Z1
ldt $f29,One
subt $f30,$f29,$f30
stt $f30,Z1
L.415:
L.412:
ldl $27,Break
cmpeq $27,$31,$23
beq $23,L.416
ldt $f30,Z1
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbeq $f1,L.411
L.416:
ldt $f30,Z1
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbeq $f1,L.417
ldl $27,Break
cmpeq $27,$31,$23
beq $23,L.417
lda $27,1
stl $27,Anomaly
br L.418
L.417:
ldt $f30,Z1
ldt $f29,RadixD2
cmptle $f30,$f29,$f1
fbne $f1,L.419
ldt $f30,Z1
ldt $f29,Radix
subt $f30,$f29,$f30
stt $f30,Z1
L.419:
L.421:
jsr $26,NewD
ldgp $gp,0($26)
L.422:
ldt $f30,U2
ldt $f29,D
mult $f30,$f29,$f30
ldt $f29,F9
cmptlt $f30,$f29,$f1
fbne $f1,L.421
ldt $f30,D
ldt $f29,Radix
mult $f30,$f29,$f29
subt $f29,$f30,$f29
ldt $f28,W
subt $f28,$f30,$f30
cmpteq $f29,$f30,$f1
fbne $f1,L.424
lda $27,1
stl $27,Anomaly
br L.425
L.424:
ldt $f30,D
stt $f30,Z2
stl $31,I
ldt $f29,Z
ldt $f28,One
addt $f28,$f29,$f28
ldt $f27,Half
mult $f28,$f27,$f28
addt $f30,$f28,$f28
stt $f28,Y
addt $f30,$f29,$f30
ldt $f29,Q
addt $f30,$f29,$f30
stt $f30,X
jsr $26,SR3750
ldgp $gp,0($26)
ldt $f30,D
ldt $f29,Z
ldt $f28,One
subt $f28,$f29,$f28
ldt $f27,Half
mult $f28,$f27,$f28
addt $f30,$f28,$f28
addt $f28,$f30,$f28
stt $f28,Y
subt $f30,$f29,$f29
addt $f29,$f30,$f30
stt $f30,X
ldt $f30,X
ldt $f29,Q
addt $f30,$f29,$f29
addt $f29,$f30,$f30
stt $f30,X
jsr $26,SR3750
ldgp $gp,0($26)
jsr $26,NewD
ldgp $gp,0($26)
ldt $f30,Z2
ldt $f29,D
subt $f29,$f30,$f29
ldt $f28,W
subt $f28,$f30,$f30
cmpteq $f29,$f30,$f1
fbne $f1,L.426
lda $27,1
stl $27,Anomaly
br L.427
L.426:
ldt $f30,Z2
ldt $f29,D
subt $f29,$f30,$f29
ldt $f28,Z
ldt $f27,One
subt $f27,$f28,$f27
ldt $f26,Half
mult $f27,$f26,$f27
addt $f30,$f27,$f27
addt $f29,$f27,$f27
stt $f27,Y
subt $f30,$f28,$f30
ldt $f28,Q
addt $f30,$f28,$f30
addt $f29,$f30,$f30
stt $f30,X
jsr $26,SR3750
ldgp $gp,0($26)
ldt $f30,One
ldt $f29,Z
addt $f30,$f29,$f30
ldt $f29,Half
mult $f30,$f29,$f30
stt $f30,Y
ldt $f30,Q
stt $f30,X
jsr $26,SR3750
ldgp $gp,0($26)
ldl $27,I
cmpeq $27,$31,$23
beq $23,L.428
lda $27,1
stl $27,Anomaly
L.428:
L.427:
L.425:
L.418:
L.410:
L.395:
ldl $25,I
cmpeq $25,$31,$23
bne $23,L.432
ldl $25,Anomaly
cmpeq $25,$31,$23
bne $23,L.430
L.432:
mov $31,$16
lda $17,L.433
jsr $26,BadCond
ldgp $gp,0($26)
lda $16,L.434
ldt $f17,W