Return to cf.s CVS log

Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mips-iris / tst

researchv10 Norman

.set reorder
.text
.globl main
.text
.align 2; .ent main
main:
$fp1=40
.frame $sp,40,$31
addu $sp,$sp,-40
.fmask 0xc0000000,-24
s.d $f30,16($sp)
.mask 0xc0c00000,-4
sw $22,24($sp)
sw $23,28($sp)
sw $30,32($sp)
sw $31,36($sp)
sw $4,40($sp)
sw $5,44($sp)
lw $25,$fp1+0($sp)
bgt $25,1,L.2
l.s $f30,L.4
b L.3
L.2:
lw $25,$fp1+4($sp)
lw $4,4($25)
jal atof  # real
l.s $f18,L.5
div.s $f30,$f0,$f18
L.3:
move $30,$0
L.6:
move $25,$30
addu $30,$25,1
sll $25,$25,2
l.s $f18,L.4
s.s $f18,f($25)
L.7:
ble $30,127,L.6
move $23,$0
b L.11
L.10:
sll $25,$22,2
l.s $f18,f($25)
l.s $f16,L.13
add.s $f18,$f18,$f16
s.s $f18,f($25)
addu $23,$23,1
L.11:
jal getchar  # int
move $22,$2
bne $2,-1,L.10
la $4,L.14
jal printf  # int
move $30,$0
L.15:
sll $25,$30,2
l.s $f18,f($25)
l.s $f16,L.4
c.eq.s $f18,$f16; bc1t L.19
mtc1 $23,$f16; cvt.d.w $f16,$f16
cvt.s.d $f16,$f16
div.s $f18,$f18,$f16
c.lt.s $f18,$f30; bc1t L.19
bgt $30,32,L.21
la $4,L.23
move $5,$30
jal printf  # int
b L.22
L.21:
la $4,L.24
move $5,$30
jal printf  # int
L.22:
la $4,L.25
l.s $f18,L.5
sll $25,$30,2
l.s $f16,f($25)
mul.s $f18,$f18,$f16
mtc1 $23,$f16; cvt.d.w $f16,$f16
cvt.s.d $f16,$f16
div.s $f18,$f18,$f16
cvt.d.s $f18,$f18
mfc1.d $6,$f18
jal printf  # int
L.19:
L.16:
addu $30,$30,1
ble $30,127,L.15
move $2,$0
L.1:
l.d $f30,16($sp)
lw $22,24($sp)
lw $23,28($sp)
lw $30,32($sp)
lw $31,36($sp)
addu $sp,$sp,40
j $31
.end main
.globl f
.comm f,512
.rdata
L.25:.ascii "\011%.1f\012\000"
L.24:.byte 37,99,0
L.23:.ascii "%03o\000"
L.14:.ascii "char\011freq\012\000"
.align 2; L.13:.word 0x3f800000
.align 2; L.5:.word 0x42c80000
.align 2; L.4:.word 0x0

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.