paranoia.sbk

lcc source code enjoy your self

jsr $26,printf
ldgp $gp,0($26)
lda $16,L.435
jsr $26,printf
ldgp $gp,0($26)
lda $27,1
stl $27,SqRWrng
L.430:
L.391:
ldl $27,Anomaly
cmpeq $27,$31,$23
beq $23,L.436
ldt $f30,Zero
ldt $f29,MinSqEr
cmptlt $f29,$f30,$f1
fbne $f1,L.438
ldt $f29,MaxSqEr
cmptle $f29,$f30,$f1
fbeq $f1,L.438
lda $27,1
stl $27,RSqrt
lda $16,L.440
jsr $26,printf
ldgp $gp,0($26)
br L.439
L.438:
ldt $f30,U2
ldt $f29,Half
ldt $f28,MaxSqEr
addt $f28,$f30,$f28
subt $f30,$f29,$f30
cmptle $f28,$f30,$f1
fbeq $f1,L.444
ldt $f30,MinSqEr
cmptle $f30,$f29,$f1
fbeq $f1,L.444
ldt $f28,Radix
addt $f30,$f28,$f30
cmptlt $f30,$f29,$f1
fbeq $f1,L.441
L.444:
lda $27,1
stl $27,SqRWrng
br L.442
L.441:
lda $27,2
stl $27,RSqrt
lda $16,L.445
jsr $26,printf
ldgp $gp,0($26)
L.442:
L.439:
L.436:
ldl $27,SqRWrng
cmpeq $27,$31,$23
bne $23,L.446
lda $16,L.448
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.449
ldt $f30,MinSqEr
ldt $f29,Half
subt $f30,$f29,$f17
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.450
ldt $f30,Half
ldt $f29,MaxSqEr
addt $f30,$f29,$f17
jsr $26,printf
ldgp $gp,0($26)
lda $16,1
ldt $f30,Radix
ldt $f29,MaxSqEr
ldt $f28,MinSqEr
subt $f29,$f28,$f29
mult $f30,$f30,$f30
cmptlt $f29,$f30,$f1
fbeq $f1,L.453
lda $27,1
stl $27,-156+256($sp)
br L.454
L.453:
stl $31,-156+256($sp)
L.454:
ldl $17,-156+256($sp)
lda $18,L.452
jsr $26,TstCond
ldgp $gp,0($26)
L.446:
lda $27,90
stl $27,Milestone
jsr $26,Pause
ldgp $gp,0($26)
lda $16,L.455
jsr $26,printf
ldgp $gp,0($26)
stl $31,N
stl $31,I
ldt $f30,Zero
negt $f30,$f30
stt $f30,Z
lda $25,3
stl $25,M
stl $31,Break
L.456:
ldt $f30,One
stt $f30,X
jsr $26,SR3980
ldgp $gp,0($26)
ldl $27,I
cmple $27,10,$23
beq $23,L.459
lda $27,1023
stl $27,I
jsr $26,SR3980
ldgp $gp,0($26)
L.459:
ldt $f30,Z
ldt $f29,MinusOne
cmpteq $f30,$f29,$f1
fbeq $f1,L.461
lda $27,1
stl $27,Break
br L.462
L.461:
ldt $f30,MinusOne
stt $f30,Z
jsr $26,PrintIfNPositive
ldgp $gp,0($26)
stl $31,N
lda $27,-4
stl $27,I
L.462:
L.457:
ldl $27,Break
cmpeq $27,$31,$23
bne $23,L.456
jsr $26,PrintIfNPositive
ldgp $gp,0($26)
ldl $27,N
stl $27,N1
stl $31,N
ldt $f30,A1
stt $f30,Z
ldt $f16,W
jsr $26,log
ldgp $gp,0($26)
fmov $f0,$f30
stt $f30,-160+256($sp)
ldt $f16,A1
jsr $26,log
ldgp $gp,0($26)
fmov $f0,$f30
ldt $f29,Two
ldt $f28,-160+256($sp)
mult $f29,$f28,$f29
divt $f29,$f30,$f16
jsr $26,floor
ldgp $gp,0($26)
cvttqc $f0,$f1
cvtql $f1,$f1
sts $f1,-56+256($sp)
ldl $27,-56+256($sp)
stl $27,M
stl $31,Break
L.463:
ldt $f30,Z
stt $f30,X
lda $27,1
stl $27,I
jsr $26,SR3980
ldgp $gp,0($26)
ldt $f30,Z
ldt $f29,AInvrse
cmpteq $f30,$f29,$f1
fbeq $f1,L.466
lda $27,1
stl $27,Break
br L.467
L.466:
ldt $f30,AInvrse
stt $f30,Z
L.467:
L.464:
ldl $27,Break
cmpeq $27,$31,$23
bne $23,L.463
lda $27,100
stl $27,Milestone
ldl $27,NoTrials
stl $27,M
ldt $f30,Three
stt $f30,Z
L.468:
ldt $f30,Z
stt $f30,X
lda $27,1
stl $27,I
jsr $26,SR3980
ldgp $gp,0($26)
L.471:
ldt $f30,Z
ldt $f29,Two
addt $f30,$f29,$f30
stt $f30,Z
L.472:
ldt $f30,Three
stt $f30,-168+256($sp)
ldt $f29,Z
divt $f29,$f30,$f16
jsr $26,floor
ldgp $gp,0($26)
ldt $f29,-168+256($sp)
mult $f29,$f0,$f30
ldt $f29,Z
cmpteq $f30,$f29,$f1
fbne $f1,L.471
L.469:
ldt $f30,Z
ldt $f29,Eight
ldt $f28,Three
mult $f29,$f28,$f29
cmptlt $f30,$f29,$f1
fbne $f1,L.468
ldl $27,N
cmple $27,$31,$23
bne $23,L.474
lda $16,L.476
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.477
jsr $26,printf
ldgp $gp,0($26)
L.474:
jsr $26,PrintIfNPositive
ldgp $gp,0($26)
ldl $27,N
ldl $25,N1
addl $27,$25,$27
stl $27,N
ldl $27,N
cmpeq $27,$31,$23
beq $23,L.478
lda $16,L.480
jsr $26,printf
ldgp $gp,0($26)
L.478:
ldl $27,N
cmple $27,$31,$23
bne $23,L.481
jsr $26,Pause
ldgp $gp,0($26)
br L.482
L.481:
lda $16,L.45
jsr $26,printf
ldgp $gp,0($26)
L.482:
lda $27,110
stl $27,Milestone
lda $16,L.483
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,U1
stt $f30,D
ldt $f30,Precision
stt $f30,-168+256($sp)
fmov $f30,$f16
jsr $26,floor
ldgp $gp,0($26)
ldt $f29,-168+256($sp)
cmpteq $f29,$f0,$f1
fbne $f1,L.484
ldt $f30,BInvrse
stt $f30,D
ldt $f30,Precision
stt $f30,X
L.486:
ldt $f30,D
ldt $f29,BInvrse
mult $f30,$f29,$f30
stt $f30,D
ldt $f30,X
ldt $f29,One
subt $f30,$f29,$f30
stt $f30,X
L.487:
ldt $f30,X
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbeq $f1,L.486
L.484:
ldt $f30,One
stt $f30,Y
ldt $f30,D
stt $f30,Z
L.489:
ldt $f30,Y
stt $f30,C
ldt $f30,Z
stt $f30,Y
ldt $f30,Y
mult $f30,$f30,$f30
stt $f30,Z
L.490:
ldt $f30,Z
ldt $f29,Y
cmptle $f29,$f30,$f1
fbne $f1,L.492
addt $f30,$f30,$f29
cmptle $f29,$f30,$f1
fbeq $f1,L.489
L.492:
ldt $f30,C
stt $f30,Y
ldt $f30,Y
ldt $f29,D
mult $f30,$f29,$f30
stt $f30,Z
L.493:
ldt $f30,Y
stt $f30,C
ldt $f30,Z
stt $f30,Y
ldt $f30,Y
ldt $f29,D
mult $f30,$f29,$f30
stt $f30,Z
L.494:
ldt $f30,Z
ldt $f29,Y
cmptle $f29,$f30,$f1
fbne $f1,L.496
addt $f30,$f30,$f29
cmptle $f29,$f30,$f1
fbeq $f1,L.493
L.496:
ldt $f30,Radix
ldt $f29,Two
cmptlt $f30,$f29,$f1
fbeq $f1,L.497
ldt $f30,Two
stt $f30,HInvrse
br L.498
L.497:
ldt $f30,Radix
stt $f30,HInvrse
L.498:
ldt $f30,One
ldt $f29,HInvrse
divt $f30,$f29,$f29
stt $f29,H
ldt $f29,C
divt $f30,$f29,$f30
stt $f30,CInvrse
stt $f29,E0
ldt $f30,E0
ldt $f29,H
mult $f30,$f29,$f30
stt $f30,Z
L.499:
ldt $f30,E0
stt $f30,Y
ldt $f30,Z
stt $f30,E0
ldt $f30,E0
ldt $f29,H
mult $f30,$f29,$f30
stt $f30,Z
L.500:
ldt $f30,Z
ldt $f29,E0
cmptle $f29,$f30,$f1
fbne $f1,L.502
addt $f30,$f30,$f29
cmptle $f29,$f30,$f1
fbeq $f1,L.499
L.502:
ldt $f30,E0
stt $f30,UfThold
ldt $f30,Zero
stt $f30,E1
stt $f30,Q
ldt $f30,U2
stt $f30,E9
ldt $f30,One
ldt $f29,E9
addt $f30,$f29,$f30
stt $f30,S
ldt $f30,C
ldt $f29,S
mult $f30,$f29,$f29
stt $f29,D
ldt $f29,D
cmptle $f29,$f30,$f1
fbeq $f1,L.503
ldt $f30,Radix
ldt $f29,U2
mult $f30,$f29,$f30
stt $f30,E9
ldt $f30,One
ldt $f29,E9
addt $f30,$f29,$f30
stt $f30,S
ldt $f30,C
ldt $f29,S
mult $f30,$f29,$f29
stt $f29,D
ldt $f29,D
cmptle $f29,$f30,$f1
fbeq $f1,L.504
mov $31,$16
lda $17,L.507
jsr $26,BadCond
ldgp $gp,0($26)
ldt $f30,E0
stt $f30,Underflow
ldt $f30,Zero
stt $f30,Y1
ldt $f30,Z
stt $f30,PseudoZero
jsr $26,Pause
ldgp $gp,0($26)
br L.504
L.503:
ldt $f30,D
stt $f30,Underflow
ldt $f30,Underflow
ldt $f29,H
mult $f30,$f29,$f30
stt $f30,PseudoZero
ldt $f30,Zero
stt $f30,UfThold
L.508:
ldt $f30,Underflow
stt $f30,Y1
ldt $f30,PseudoZero
stt $f30,Underflow
ldt $f30,E1
addt $f30,$f30,$f29
cmptle $f29,$f30,$f1
fbeq $f1,L.511
ldt $f30,Underflow
ldt $f29,HInvrse
mult $f30,$f29,$f30
stt $f30,Y2
ldt $f30,Y1
ldt $f29,Y2
subt $f30,$f29,$f16
jsr $26,fabs
ldgp $gp,0($26)
stt $f0,E1
ldt $f30,Y1
stt $f30,Q
ldt $f30,UfThold
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbeq $f1,L.513
ldt $f30,Y1
ldt $f29,Y2
cmpteq $f30,$f29,$f1
fbne $f1,L.513
ldt $f30,Y1
stt $f30,UfThold
L.513:
L.511:
ldt $f30,PseudoZero
ldt $f29,H
mult $f30,$f29,$f30
stt $f30,PseudoZero
L.509:
ldt $f30,PseudoZero
ldt $f29,Underflow
cmptle $f29,$f30,$f1
fbne $f1,L.515
addt $f30,$f30,$f29
cmptle $f29,$f30,$f1
fbeq $f1,L.508
L.515:
L.504:
ldt $f30,PseudoZero
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbne $f1,L.516
lda $16,L.45
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,PseudoZero
stt $f30,Z
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbeq $f1,L.518
mov $31,$16
lda $17,L.520
jsr $26,BadCond
ldgp $gp,0($26)
lda $16,L.521
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.522
ldt $f17,PseudoZero
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,PseudoZero
negt $f30,$f30
stt $f30,X
ldt $f30,X
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbeq $f1,L.519
lda $16,L.525
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.526
ldt $f17,X
jsr $26,printf
ldgp $gp,0($26)
br L.519
L.518:
lda $16,3
lda $17,L.527
jsr $26,BadCond
ldgp $gp,0($26)
lda $16,L.528
ldt $f17,PseudoZero
jsr $26,printf
ldgp $gp,0($26)
L.519:
jsr $26,TstPtUf
ldgp $gp,0($26)
L.516:
lda $27,120
stl $27,Milestone
ldt $f30,CInvrse
ldt $f29,Y
mult $f30,$f29,$f29
ldt $f28,Y1
mult $f30,$f28,$f30
cmptle $f29,$f30,$f1
fbne $f1,L.529
ldt $f30,H
ldt $f29,S
mult $f30,$f29,$f30
stt $f30,S
ldt $f30,Underflow
stt $f30,E0
L.529:
ldt $f30,E1
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbne $f1,L.531
ldt $f29,E0
cmpteq $f30,$f29,$f1
fbne $f1,L.531
lda $16,2
lda $17,L.158
jsr $26,BadCond
ldgp $gp,0($26)
ldt $f30,E1
ldt $f29,E0
cmptlt $f30,$f29,$f1
fbeq $f1,L.533
lda $16,L.535
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.536
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,PseudoZero
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbeq $f1,L.534
ldt $f30,E1
stt $f30,E0
br L.534
L.533:
lda $16,L.539
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.540
jsr $26,printf
ldgp $gp,0($26)
L.534:
L.531:
lda $16,L.541
ldt $f17,E0
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,E0
stt $f30,Z
jsr $26,TstPtUf
ldgp $gp,0($26)
ldt $f30,E0
stt $f30,Underflow
ldl $27,N
cmpeq $27,1,$23
beq $23,L.542
ldt $f30,Y
stt $f30,Underflow
L.542:
lda $27,4
stl $27,I
ldt $f30,E1
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbeq $f1,L.544
lda $27,3
stl $27,I
L.544:
ldt $f30,UfThold
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbeq $f1,L.546
ldl $27,I
subl $27,2,$27
stl $27,I
L.546:
lda $27,1
stl $27,UfNGrad
ldl $27,I
cmplt $27,1,$23
bne $23,L.548
cmple $27,4,$23
beq $23,L.548
subl $27,1,$27
sll $27,3,$27
ldq $27,L.571($27)
jmp ($27)
.rdata
.align 3
L.571:
.quad L.550
.quad L.557
.quad L.562
.quad L.563
.text
L.550:
ldt $f30,Underflow
stt $f30,UfThold
ldt $f30,CInvrse
ldt $f29,Q
mult $f30,$f29,$f29
ldt $f28,Y
mult $f30,$f28,$f30
ldt $f28,S
mult $f30,$f28,$f30
cmpteq $f29,$f30,$f1
fbne $f1,L.551
ldt $f30,Y
stt $f30,UfThold
mov $31,$16
lda $17,L.553
jsr $26,BadCond
ldgp $gp,0($26)
lda $16,L.554
ldt $f17,UfThold
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.555
ldt $f17,C
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.556
jsr $26,printf
ldgp $gp,0($26)
L.551:
jsr $26,Pause
ldgp $gp,0($26)
br L.549
L.557:
mov $31,$16
lda $17,L.558
jsr $26,BadCond
ldgp $gp,0($26)
lda $16,L.559
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.560
ldt $f17,Q
ldt $f18,Y2
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,Q
ldt $f29,Y2
subt $f30,$f29,$f16
jsr $26,fabs
ldgp $gp,0($26)
fmov $f0,$f30
lda $16,L.561
fmov $f30,$f17
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,Q
stt $f30,UfThold
br L.549
L.562:
ldt $f30,X
stt $f30,X
br L.549
L.563:
ldt $f30,UfThold
ldt $f29,Q
cmpteq $f29,$f30,$f1
fbeq $f1,L.564
ldt $f29,E1
ldt $f28,E0
cmpteq $f29,$f28,$f1
fbeq $f1,L.564
ldt $f28,E9
divt $f29,$f28,$f29
subt $f30,$f29,$f16
jsr $26,fabs
ldgp $gp,0($26)
ldt $f29,E1
cmptle $f0,$f29,$f1
fbeq $f1,L.564
stl $31,UfNGrad
lda $16,L.566
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.567
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,E0
ldt $f29,CInvrse
mult $f30,$f29,$f28
stt $f28,Y
ldt $f28,U2
ldt $f27,Y
ldt $f26,OneAndHalf
addt $f26,$f28,$f26
mult $f27,$f26,$f27
stt $f27,Y
ldt $f27,One
addt $f27,$f28,$f28
mult $f29,$f28,$f29
stt $f29,X
ldt $f29,Y
ldt $f28,X
divt $f29,$f28,$f29
stt $f29,Y
ldt $f29,Y
cmpteq $f29,$f30,$f1
fbeq $f1,L.569
lda $27,1
stl $27,-172+256($sp)
br L.570
L.569:
stl $31,-172+256($sp)
L.570:
ldl $27,-172+256($sp)
stl $27,IEEE
L.564:
L.548:
L.549:
ldl $27,UfNGrad
cmpeq $27,$31,$23
bne $23,L.572
lda $16,L.45
jsr $26,printf
ldgp $gp,0($26)
lda $27,sigfpe
stq $27,sigsave
lda $16,ovfl_buf
jsr $26,setjmp
ldgp $gp,0($26)
cmpeq $0,$31,$23
bne $23,L.574
lda $16,L.576
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,H
addt $f30,$f30,$f30
stt $f30,R
br L.575
L.574:
ldt $f30,Underflow
ldt $f29,UfThold
divt $f30,$f29,$f16
jsr $26,sqrt
ldgp $gp,0($26)
stt $f0,R
L.575:
stq $31,sigsave
ldt $f30,R
ldt $f29,H
cmptle $f30,$f29,$f1
fbeq $f1,L.577
ldt $f30,R
ldt $f29,UfThold
mult $f30,$f29,$f29
stt $f29,Z
ldt $f29,One
ldt $f28,H
ldt $f27,Z
mult $f30,$f28,$f30
addt $f29,$f28,$f28
mult $f30,$f28,$f30
addt $f29,$f30,$f30
mult $f27,$f30,$f30
stt $f30,X
br L.578
L.577:
ldt $f30,UfThold
stt $f30,Z
ldt $f30,One
ldt $f29,H
ldt $f28,Z
mult $f29,$f29,$f27
addt $f30,$f29,$f29
mult $f27,$f29,$f29
addt $f30,$f29,$f30
mult $f28,$f30,$f30
stt $f30,X
L.578:
ldt $f30,X
ldt $f29,Z
cmpteq $f30,$f29,$f1
fbne $f1,L.579
subt $f30,$f29,$f30
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbeq $f1,L.579
lda $16,3
lda $17,L.158
jsr $26,BadCond
ldgp $gp,0($26)
lda $16,L.581
ldt $f17,X
ldt $f18,Z
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,X
ldt $f29,Z
subt $f30,$f29,$f30
stt $f30,Z9
lda $16,L.582
ldt $f17,Z9
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.583
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.584
jsr $26,printf
ldgp $gp,0($26)
l