OpenCores
URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [lcc/] [alpha/] [osf/] [tst/] [cf.sbk] - Blame information for rev 4

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 4 hellwig 
.globl main
2 
.text
3 
.text
4 
.ent main
5 
main:
6 
ldgp $gp,0($27)
7 
lda $sp,-96($sp)
8 
.fmask 0x200,-96
9 
.mask 0x4007000,-64
10 
.frame $sp,96,$26,48
11 
stt $f9,0($sp)
12 
stq $12,8($sp)
13 
stq $13,16($sp)
14 
stq $14,24($sp)
15 
stq $26,32($sp)
16 
stq $16,48($sp)
17 
stq $17,56($sp)
18 
.prologue 1
19 
ldl $27,-48+96($sp)
20 
cmple $27,1,$23
21 
beq $23,L.2
22 
lds $f9,L.4
23 
br L.3
24 
L.2:
25 
ldq $27,-40+96($sp)
26 
ldq $16,8($27)
27 
jsr $26,atof
28 
ldgp $gp,0($26)
29 
lds $f29,L.5
30 
divs $f0,$f29,$f9
31 
L.3:
32 
mov $31,$14
33 
L.6:
34 
mov $14,$27
35 
lda $14,1($27)
36 
sll $27,8*(8-4),$27
37 
sra $27,8*(8-4),$27
38 
sll $27,2,$27
39 
lds $f30,L.4
40 
sts $f30,f($27)
41 
L.7:
42 
lda $27,127
43 
cmple $14,$27,$23
44 
bne $23,L.6
45 
mov $31,$13
46 
br L.11
47 
L.10:
48 
sll $12,8*(8-4),$27
49 
sra $27,8*(8-4),$27
50 
sll $27,2,$27
51 
lda $27,f($27)
52 
lds $f30,($27)
53 
lds $f29,L.13
54 
adds $f30,$f29,$f30
55 
sts $f30,($27)
56 
lda $13,1($13)
57 
L.11:
58 
jsr $26,getchar
59 
ldgp $gp,0($26)
60 
mov $0,$12
61 
lda $25,-1
62 
cmpeq $0,$25,$23
63 
beq $23,L.10
64 
lda $16,L.14
65 
jsr $26,printf
66 
ldgp $gp,0($26)
67 
mov $31,$14
68 
L.15:
69 
sll $14,8*(8-4),$27
70 
sra $27,8*(8-4),$27
71 
sll $27,2,$27
72 
lds $f30,f($27)
73 
lds $f29,L.4
74 
cmpteq $f30,$f29,$f1
75 
fbne $f1,L.19
76 
stq $13,-56+96($sp)
77 
ldt $f29,-56+96($sp)
78 
cvtqs $f29,$f29
79 
divs $f30,$f29,$f30
80 
cmptlt $f30,$f9,$f1
81 
fbne $f1,L.19
82 
cmple $14,32,$23
83 
beq $23,L.21
84 
lda $16,L.23
85 
mov $14,$17
86 
jsr $26,printf
87 
ldgp $gp,0($26)
88 
br L.22
89 
L.21:
90 
lda $16,L.24
91 
mov $14,$17
92 
jsr $26,printf
93 
ldgp $gp,0($26)
94 
L.22:
95 
lda $16,L.25
96 
lds $f30,L.5
97 
sll $14,8*(8-4),$27
98 
sra $27,8*(8-4),$27
99 
sll $27,2,$27
100 
lds $f29,f($27)
101 
muls $f30,$f29,$f30
102 
stq $13,-56+96($sp)
103 
ldt $f29,-56+96($sp)
104 
cvtqs $f29,$f29
105 
divs $f30,$f29,$f30
106 
cvtst $f30,$f17
107 
jsr $26,printf
108 
ldgp $gp,0($26)
109 
L.19:
110 
L.16:
111 
lda $14,1($14)
112 
lda $27,127
113 
cmple $14,$27,$23
114 
bne $23,L.15
115 
mov $31,$0
116 
L.1:
117 
ldt $f9,0($sp)
118 
ldq $12,8($sp)
119 
ldq $13,16($sp)
120 
ldq $14,24($sp)
121 
ldq $26,32($sp)
122 
lda $sp,96($sp)
123 
ret
124 
.end main
125 
.globl f
126 
.comm f,512
127 
.rdata
128 
.align 0
129 
L.25:
130 
.byte 9
131 
.byte 37
132 
.byte 46
133 
.byte 49
134 
.byte 102
135 
.byte 10
136 
.byte 0
137 
.align 0
138 
L.24:
139 
.byte 37
140 
.byte 99
141 
.byte 0
142 
.align 0
143 
L.23:
144 
.byte 37
145 
.byte 48
146 
.byte 51
147 
.byte 111
148 
.byte 0
149 
.align 0
150 
L.14:
151 
.byte 99
152 
.byte 104
153 
.byte 97
154 
.byte 114
155 
.byte 9
156 
.byte 102
157 
.byte 114
158 
.byte 101
159 
.byte 113
160 
.byte 10
161 
.byte 0
162 
.align 2
163 
L.13:
164 
.long 0x3f800000
165 
.align 2
166 
L.5:
167 
.long 0x42c80000
168 
.align 2
169 
L.4:
170 
.long 0x0

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.