paranoia.sbk

lcc source code enjoy your self

.sdata
.globl Zero
.align 3
Zero:
.long 0x0
.long 0x0
.globl Half
.align 3
Half:
.long 0x0
.long 0x3fe00000
.globl One
.align 3
One:
.long 0x0
.long 0x3ff00000
.globl Two
.align 3
Two:
.long 0x0
.long 0x40000000
.globl Three
.align 3
Three:
.long 0x0
.long 0x40080000
.globl Four
.align 3
Four:
.long 0x0
.long 0x40100000
.globl Five
.align 3
Five:
.long 0x0
.long 0x40140000
.globl Eight
.align 3
Eight:
.long 0x0
.long 0x40200000
.globl Nine
.align 3
Nine:
.long 0x0
.long 0x40220000
.globl TwentySeven
.align 3
TwentySeven:
.long 0x0
.long 0x403b0000
.globl ThirtyTwo
.align 3
ThirtyTwo:
.long 0x0
.long 0x40400000
.globl TwoForty
.align 3
TwoForty:
.long 0x0
.long 0x406e0000
.globl MinusOne
.align 3
MinusOne:
.long 0x0
.long 0xbff00000
.globl OneAndHalf
.align 3
OneAndHalf:
.long 0x0
.long 0x3ff80000
.globl NoTrials
.align 2
NoTrials:
.long 0x14
.globl sigfpe
.text
.text
.ent sigfpe
sigfpe:
ldgp $gp,0($27)
lda $sp,-64($sp)
.mask 0x4000000,-64
.frame $sp,64,$26,48
stq $26,0($sp)
stq $16,16($sp)
.prologue 1
ldl $27,fpecount
lda $27,1($27)
stl $27,fpecount
lda $16,L.3
jsr $26,printf
ldgp $gp,0($26)
lda $16,_iob+56
jsr $26,fflush
ldgp $gp,0($26)
ldq $27,sigsave
cmpeq $27,$31,$23
bne $23,L.5
lda $16,8
ldq $17,sigsave
jsr $26,signal
ldgp $gp,0($26)
stq $31,sigsave
lda $16,ovfl_buf
lda $17,1
jsr $26,longjmp
ldgp $gp,0($26)
L.5:
jsr $26,abort
ldgp $gp,0($26)
L.2:
ldq $26,0($sp)
lda $sp,64($sp)
ret
.end sigfpe
.sdata
.align 3
L.756:
.quad L.757
.quad L.758
.quad L.759
.quad L.760
.globl main
.text
.text
.ent main
main:
ldgp $gp,0($27)
lda $sp,-256($sp)
.mask 0x4007e00,-208
.frame $sp,256,$26,48
stq $9,0($sp)
stq $10,8($sp)
stq $11,16($sp)
stq $12,24($sp)
stq $13,32($sp)
stq $14,40($sp)
stq $26,48($sp)
.prologue 1
ldt $f30,L.8
stt $f30,Zero
ldt $f30,L.9
stt $f30,One
ldt $f30,One
addt $f30,$f30,$f29
stt $f29,Two
ldt $f29,Two
addt $f29,$f30,$f28
stt $f28,Three
ldt $f28,Three
addt $f28,$f30,$f27
stt $f27,Four
ldt $f27,Four
addt $f27,$f30,$f26
stt $f26,Five
addt $f27,$f27,$f26
stt $f26,Eight
mult $f28,$f28,$f26
stt $f26,Nine
ldt $f26,Nine
mult $f26,$f28,$f26
stt $f26,TwentySeven
ldt $f26,Eight
mult $f27,$f26,$f26
stt $f26,ThirtyTwo
ldt $f26,Five
mult $f27,$f26,$f26
mult $f26,$f28,$f28
mult $f28,$f27,$f28
stt $f28,TwoForty
negt $f30,$f28
stt $f28,MinusOne
divt $f30,$f29,$f29
stt $f29,Half
ldt $f29,Half
addt $f30,$f29,$f30
stt $f30,OneAndHalf
stl $31,ErrCnt
stl $31,ErrCnt+4
stl $31,ErrCnt+8
stl $31,ErrCnt+12
lda $27,1
stl $27,PageNo
stl $31,Milestone
lda $16,8
lda $17,sigfpe
jsr $26,signal
ldgp $gp,0($26)
jsr $26,Instructions
ldgp $gp,0($26)
jsr $26,Pause
ldgp $gp,0($26)
jsr $26,Heading
ldgp $gp,0($26)
jsr $26,Pause
ldgp $gp,0($26)
jsr $26,Characteristics
ldgp $gp,0($26)
jsr $26,Pause
ldgp $gp,0($26)
jsr $26,History
ldgp $gp,0($26)
jsr $26,Pause
ldgp $gp,0($26)
lda $27,7
stl $27,Milestone
lda $16,L.13
jsr $26,printf
ldgp $gp,0($26)
mov $31,$16
ldt $f30,Zero
addt $f30,$f30,$f29
cmpteq $f29,$f30,$f1
fbeq $f1,L.16
ldt $f29,One
subt $f29,$f29,$f28
cmpteq $f28,$f30,$f1
fbeq $f1,L.16
cmptle $f29,$f30,$f1
fbne $f1,L.16
addt $f29,$f29,$f30
ldt $f29,Two
cmpteq $f30,$f29,$f1
fbeq $f1,L.16
lda $14,1
br L.17
L.16:
mov $31,$14
L.17:
mov $14,$17
lda $18,L.15
jsr $26,TstCond
ldgp $gp,0($26)
ldt $f30,Zero
negt $f30,$f30
stt $f30,Z
ldt $f30,Z
ldt $f29,L.8
cmpteq $f30,$f29,$f1
fbne $f1,L.18
ldl $27,ErrCnt
lda $27,1($27)
stl $27,ErrCnt
lda $16,L.20
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,L.21
stt $f30,U1
ldt $f30,L.9
stt $f30,Radix
jsr $26,TstPtUf
ldgp $gp,0($26)
L.18:
mov $31,$16
ldt $f30,Three
ldt $f29,Two
ldt $f28,One
addt $f29,$f28,$f27
cmpteq $f30,$f27,$f1
fbeq $f1,L.24
ldt $f27,Four
addt $f30,$f28,$f26
cmpteq $f27,$f26,$f1
fbeq $f1,L.24
ldt $f26,Zero
negt $f29,$f25
mult $f29,$f25,$f29
addt $f27,$f29,$f29
cmpteq $f29,$f26,$f1
fbeq $f1,L.24
subt $f27,$f30,$f30
subt $f30,$f28,$f30
cmpteq $f30,$f26,$f1
fbeq $f1,L.24
lda $13,1
br L.25
L.24:
mov $31,$13
L.25:
mov $13,$17
lda $18,L.23
jsr $26,TstCond
ldgp $gp,0($26)
ldt $f30,MinusOne
stt $f30,-64+256($sp)
ldt $f29,One
ldt $f28,L.8
subt $f28,$f29,$f28
cmpteq $f30,$f28,$f1
fbeq $f1,L.28
ldt $f28,Zero
addt $f30,$f29,$f27
cmpteq $f27,$f28,$f1
fbeq $f1,L.28
addt $f29,$f30,$f27
cmpteq $f27,$f28,$f1
fbeq $f1,L.28
fmov $f29,$f16
jsr $26,fabs
ldgp $gp,0($26)
ldt $f29,Zero
ldt $f28,-64+256($sp)
addt $f28,$f0,$f30
cmpteq $f30,$f29,$f1
fbeq $f1,L.28
ldt $f30,MinusOne
mult $f30,$f30,$f28
addt $f30,$f28,$f30
cmpteq $f30,$f29,$f1
fbeq $f1,L.28
lda $12,1
br L.29
L.28:
mov $31,$12
L.29:
mov $31,$16
mov $12,$17
lda $18,L.27
jsr $26,TstCond
ldgp $gp,0($26)
mov $31,$16
ldt $f30,Half
ldt $f29,MinusOne
addt $f30,$f29,$f29
addt $f29,$f30,$f30
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbeq $f1,L.32
lda $11,1
br L.33
L.32:
mov $31,$11
L.33:
mov $11,$17
lda $18,L.31
jsr $26,TstCond
ldgp $gp,0($26)
lda $27,10
stl $27,Milestone
mov $31,$16
ldt $f30,Nine
ldt $f29,Three
mult $f29,$f29,$f28
cmpteq $f30,$f28,$f1
fbeq $f1,L.36
ldt $f28,TwentySeven
mult $f30,$f29,$f30
cmpteq $f28,$f30,$f1
fbeq $f1,L.36
ldt $f30,Eight
ldt $f29,Four
addt $f29,$f29,$f27
cmpteq $f30,$f27,$f1
fbeq $f1,L.36
ldt $f27,ThirtyTwo
mult $f30,$f29,$f30
cmpteq $f27,$f30,$f1
fbeq $f1,L.36
subt $f27,$f28,$f30
subt $f30,$f29,$f30
ldt $f29,One
subt $f30,$f29,$f30
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbeq $f1,L.36
lda $10,1
br L.37
L.36:
mov $31,$10
L.37:
mov $10,$17
lda $18,L.35
jsr $26,TstCond
ldgp $gp,0($26)
mov $31,$16
ldt $f30,Five
ldt $f29,Four
ldt $f28,One
addt $f29,$f28,$f28
cmpteq $f30,$f28,$f1
fbeq $f1,L.40
ldt $f28,TwoForty
ldt $f27,Three
mult $f29,$f30,$f26
mult $f26,$f27,$f26
mult $f26,$f29,$f26
cmpteq $f28,$f26,$f1
fbeq $f1,L.40
ldt $f26,Zero
divt $f28,$f27,$f25
mult $f29,$f29,$f24
mult $f24,$f30,$f24
subt $f25,$f24,$f25
cmpteq $f25,$f26,$f1
fbeq $f1,L.40
divt $f28,$f29,$f25
mult $f30,$f27,$f24
mult $f24,$f29,$f24
subt $f25,$f24,$f25
cmpteq $f25,$f26,$f1
fbeq $f1,L.40
divt $f28,$f30,$f30
mult $f29,$f27,$f28
mult $f28,$f29,$f29
subt $f30,$f29,$f30
cmpteq $f30,$f26,$f1
fbeq $f1,L.40
lda $9,1
br L.41
L.40:
mov $31,$9
L.41:
mov $9,$17
lda $18,L.39
jsr $26,TstCond
ldgp $gp,0($26)
ldl $27,ErrCnt
cmpeq $27,$31,$23
beq $23,L.42
lda $16,L.44
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.45
jsr $26,printf
ldgp $gp,0($26)
L.42:
lda $16,L.46
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,One
stt $f30,W
L.47:
ldt $f30,W
addt $f30,$f30,$f30
stt $f30,W
ldt $f30,W
ldt $f29,One
addt $f30,$f29,$f28
stt $f28,Y
ldt $f28,Y
subt $f28,$f30,$f30
stt $f30,Z
ldt $f30,Z
subt $f30,$f29,$f30
stt $f30,Y
L.48:
ldt $f16,Y
jsr $26,fabs
ldgp $gp,0($26)
ldt $f29,MinusOne
addt $f29,$f0,$f30
ldt $f29,Zero
cmptlt $f30,$f29,$f1
fbne $f1,L.47
ldt $f30,Zero
stt $f30,Precision
ldt $f30,One
stt $f30,Y
L.50:
ldt $f30,W
ldt $f29,Y
addt $f30,$f29,$f28
stt $f28,Radix
addt $f29,$f29,$f29
stt $f29,Y
ldt $f29,Radix
subt $f29,$f30,$f30
stt $f30,Radix
L.51:
ldt $f30,Radix
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbne $f1,L.50
ldt $f30,Radix
ldt $f29,Two
cmptlt $f30,$f29,$f1
fbeq $f1,L.53
ldt $f30,One
stt $f30,Radix
L.53:
lda $16,L.55
ldt $f17,Radix
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,Radix
ldt $f29,L.9
cmpteq $f30,$f29,$f1
fbne $f1,L.56
ldt $f30,One
stt $f30,W
L.58:
ldt $f30,One
ldt $f29,Precision
addt $f29,$f30,$f29
stt $f29,Precision
ldt $f29,W
ldt $f28,Radix
mult $f29,$f28,$f29
stt $f29,W
ldt $f29,W
addt $f29,$f30,$f30
stt $f30,Y
L.59:
ldt $f30,Y
ldt $f29,W
subt $f30,$f29,$f30
ldt $f29,One
cmpteq $f30,$f29,$f1
fbne $f1,L.58
L.56:
ldt $f30,One
ldt $f29,W
divt $f30,$f29,$f30
stt $f30,U1
ldt $f30,U1
ldt $f29,Radix
mult $f29,$f30,$f29
stt $f29,U2
lda $16,L.61
fmov $f30,$f17
jsr $26,printf
ldgp $gp,0($26)
lda $16,L.62
jsr $26,printf
ldgp $gp,0($26)
ldt $f30,Radix
stt $f30,E0
ldt $f30,U1
stt $f30,E1
ldt $f30,U2
stt $f30,E9
ldt $f30,Precision
stt $f30,E3
ldt $f30,Four
ldt $f29,Three
divt $f30,$f29,$f30
stt $f30,X
ldt $f30,X
ldt $f29,One
subt $f30,$f29,$f30
stt $f30,Third
ldt $f30,Third
ldt $f29,Half
subt $f29,$f30,$f29
stt $f29,F6
ldt $f29,F6
addt $f29,$f29,$f29
stt $f29,X
ldt $f29,X
subt $f29,$f30,$f16
jsr $26,fabs
ldgp $gp,0($26)
stt $f0,X
ldt $f30,X
ldt $f29,U2
cmptlt $f30,$f29,$f1
fbeq $f1,L.63
ldt $f30,U2
stt $f30,X
L.63:
L.65:
ldt $f30,X
stt $f30,U2
ldt $f30,U2
ldt $f29,Half
mult $f29,$f30,$f29
ldt $f28,ThirtyTwo
mult $f28,$f30,$f28
mult $f28,$f30,$f30
addt $f29,$f30,$f30
stt $f30,Y
ldt $f30,One
ldt $f29,Y
addt $f30,$f29,$f29
stt $f29,Y
ldt $f29,Y
subt $f29,$f30,$f30
stt $f30,X
L.66:
ldt $f30,X
ldt $f29,U2
cmptle $f29,$f30,$f1
fbne $f1,L.68
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbeq $f1,L.65
L.68:
ldt $f30,Two
ldt $f29,Three
divt $f30,$f29,$f30
stt $f30,X
ldt $f30,Half
ldt $f29,X
subt $f29,$f30,$f29
stt $f29,F6
ldt $f29,F6
addt $f29,$f29,$f28
stt $f28,Third
ldt $f28,Third
subt $f28,$f30,$f30
stt $f30,X
ldt $f30,X
addt $f30,$f29,$f16
jsr $26,fabs
ldgp $gp,0($26)
stt $f0,X
ldt $f30,X
ldt $f29,U1
cmptlt $f30,$f29,$f1
fbeq $f1,L.69
ldt $f30,U1
stt $f30,X
L.69:
L.71:
ldt $f30,X
stt $f30,U1
ldt $f30,Half
ldt $f29,U1
mult $f30,$f29,$f28
ldt $f27,ThirtyTwo
mult $f27,$f29,$f27
mult $f27,$f29,$f29
addt $f28,$f29,$f29
stt $f29,Y
ldt $f29,Y
subt $f30,$f29,$f29
stt $f29,Y
ldt $f29,Y
addt $f30,$f29,$f29
stt $f29,X
ldt $f29,X
subt $f30,$f29,$f29
stt $f29,Y
ldt $f29,Y
addt $f30,$f29,$f30
stt $f30,X
L.72:
ldt $f30,X
ldt $f29,U1
cmptle $f29,$f30,$f1
fbne $f1,L.74
ldt $f29,Zero
cmptle $f30,$f29,$f1
fbeq $f1,L.71
L.74:
ldt $f30,U1
ldt $f29,E1
cmpteq $f30,$f29,$f1
fbeq $f1,L.75
lda $16,L.77
jsr $26,printf
ldgp $gp,0($26)
br L.76
L.75:
lda $16,L.78
ldt $f17,U1
jsr $26,printf
ldgp $gp,0($26)
L.76:
ldt $f30,U1
ldt $f29,One
divt $f29,$f30,$f29
stt $f29,W
ldt $f29,Half
subt $f29,$f30,$f28
addt $f28,$f29,$f29
stt $f29,F9
ldt $f29,U2
divt $f29,$f30,$f30
ldt $f29,L.79
addt $f30,$f29,$f16
jsr $26,floor
ldgp $gp,0($26)
stt $f0,Radix
ldt $f30,Radix
ldt $f29,E0
cmpteq $f30,$f29,$f1
fbeq $f1,L.80
lda $16,L.82
jsr $26,printf
ldgp $gp,0($26)
br L.81
L.80:
lda $16,L.83
ldt $f17,Radix
jsr $26,printf
ldgp $gp,0($26)
L.81:
lda $16,2
ldt $f30,Eight
ldt $f29,Radix
addt $f30,$f30,$f30
cmptle $f29,$f30,$f1
fbeq $f1,L.86
lda $27,1
stl $27,-68+256($sp)
br L.87
L.86:
stl $31,-68+256($sp)
L.87:
ldl $17,-68+256($sp)
lda $18,L.85
jsr $26,TstCond
ldgp $gp,0($26)
lda $16,3
ldt $f30,Radix
ldt $f29,Two
cmpteq $f30,$f29,$f1
fbne $f1,L.93
ldt $f29,L.94
cmpteq $f30,$f29,$f1
fbne $f1,L.93
ldt $f29,One
cmpteq $f30,$f29,$f1
fbeq $f1,L.90
L.93:
lda $27,1
stl $27,-72+256($sp)
br L.91
L.90:
stl $31,-72+256($sp)
L.91:
ldl $17,-72+256($sp)
lda $18,L.89
jsr $26,TstCond
ldgp $gp,0($26)
lda $27,20
stl $27,Milestone
mov $31,$16
ldt $f30,Half
ldt $f29,F9
subt $f29,$f30,$f29
cmptlt $f29,$f30,$f1
fbeq $f1,L.97
lda $27,1
stl $27,-76+256($sp)
br L.98
L.97:
stl $31,-76+256($sp)
L.98:
ldl $17,-76+256($sp)
lda $18,L.96
jsr $26,TstCond
ldgp $gp,0($26)
ldt $f30,F9
stt $f30,X
lda $27,1
stl $27,I
ldt $f30,Half
ldt $f29,X
subt $f29,$f30,$f29
stt $f29,Y
ldt $f29,Y
subt $f29,$f30,$f30
stt $f30,Z
mov $31,$16
ldt $f30,X
ldt $f29,One
cmpteq $f30,$f29,$f1
fbeq $f1,L.103
ldt $f30,Z
ldt $f29,Zero
cmpteq $f30,$f29,$f1
fbeq $f1,L.101
L.103:
lda $27,1
stl $27,-80+256($sp)
br L.102
L.101:
stl $31,-80+256($sp)
L.102:
ldl $17,-80+256($sp)
lda $18,L.100
jsr $26,TstCond
ldgp $gp,0($26)
ldt $f30,One
ldt $f29,U2
addt $f30,$f29,$f28
stt $f28,X
stl $31,I
lda $27,25
stl $27,Milestone
ldt $f28,Radix
subt $f28,$f30,$f27
stt $f27,BMinusU2
ldt $f27,BMinusU2
subt $f27,$f29,$f29
addt $f29,$f30,$f29
stt $f29,BMinusU2
cmpteq $f28,$f30,$f1
fbne $f1,L.104
ldt $f16,U1
jsr $26,log
ldgp $gp,0($26)
fmov $f0,$f30
stt $f30,-88+256($sp)
ldt $f16,Radix
jsr $26,log
ldgp $gp,0($26)
ldt $f29,TwoForty
negt $f29,$f29
ldt $f28,-88+256($sp)
mult $f29,$f28,$f29
divt $f29,$f0,$f30
stt $f30,X
ldt $f30,Half
ldt $f29,X
addt $f30,$f29,$f16
jsr $26,floor
ldgp $gp,0($26)
stt $f0,Y
ldt $f30,X
ldt $f29,Y
subt $f30,$f29,$f16
jsr $26,fabs
ldgp $gp,0($26)
ldt $f29,Four
mult $f0,$f29,$f30
ldt $f29,One
cmptlt $f30,$f29,$f1
fbeq $f1,L.106
ldt $f30,Y
stt $f30,X
L.106:
ldt $f30,X
ldt $f29,TwoForty
divt $f30,$f29,$f30
stt $f30,Precision
ldt $f30,Half
ldt $f29,Precision
addt $f30,$f29,$f16
jsr $26,floor
ldgp $gp,0($26)
stt $f0,Y
ldt $f30,Precision
ldt $f29,Y
subt $f30,$f29,$f16
jsr $26,fabs
ldgp $gp,0($26)
ldt $f29,TwoForty
mult $f0,$f29,$f30
ldt $f29,Half
cmptlt $f30,$f29,$f1
fbeq $f1,L.108
ldt $f30,Y
stt $f30,Precision
L.108:
L.104: