Subversion Repositories HelenOS

Rev

Rev 2071 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
52 vana 1 
/*
2071 jermar 2 
 * Copyright (c) 2005 Jakub Vana
92 jermar 3 
 * All rights reserved.
4 
 *
5 
 * Redistribution and use in source and binary forms, with or without
6 
 * modification, are permitted provided that the following conditions
7 
 * are met:
8 
 *
9 
 * - Redistributions of source code must retain the above copyright
10 
 *   notice, this list of conditions and the following disclaimer.
11 
 * - Redistributions in binary form must reproduce the above copyright
12 
 *   notice, this list of conditions and the following disclaimer in the
13 
 *   documentation and/or other materials provided with the distribution.
14 
 * - The name of the author may not be used to endorse or promote products
15 
 *   derived from this software without specific prior written permission.
16 
 *
17 
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18 
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19 
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20 
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21 
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22 
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23 
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24 
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25 
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26 
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
1702 cejka 27 
 */
28 
 
1877 jermar 29 
/** @addtogroup ia64   
1702 cejka 30 
 * @{
31 
 */
32 
/** @file
92 jermar 33 
 *
34 
 */
52 vana 35 
 
36 
#include <fpu_context.h>
1023 vana 37 
#include <arch/register.h>
993 jermar 38 
#include <print.h>
52 vana 39 
 
1877 jermar 40 
void fpu_context_save(fpu_context_t *fctx)
41 
{
42 
    asm volatile (
43 
        "stf.spill [%0] = f32, 0x80\n"
44 
        "stf.spill [%1] = f33, 0x80\n"
45 
        "stf.spill [%2] = f34, 0x80\n"
46 
        "stf.spill [%3] = f35, 0x80\n"
47 
        "stf.spill [%4] = f36, 0x80\n"
48 
        "stf.spill [%5] = f37, 0x80\n"
49 
        "stf.spill [%6] = f38, 0x80\n"
50 
        "stf.spill [%7] = f39, 0x80\n;;"
1053 vana 51 
 
1877 jermar 52 
        "stf.spill [%0] = f40, 0x80\n"
53 
        "stf.spill [%1] = f41, 0x80\n"
54 
        "stf.spill [%2] = f42, 0x80\n"
55 
        "stf.spill [%3] = f43, 0x80\n"
56 
        "stf.spill [%4] = f44, 0x80\n"
57 
        "stf.spill [%5] = f45, 0x80\n"
58 
        "stf.spill [%6] = f46, 0x80\n"
59 
        "stf.spill [%7] = f47, 0x80\n;;"
1053 vana 60 
 
1877 jermar 61 
        "stf.spill [%0] = f48, 0x80\n"
62 
        "stf.spill [%1] = f49, 0x80\n"
63 
        "stf.spill [%2] = f50, 0x80\n"
64 
        "stf.spill [%3] = f51, 0x80\n"
65 
        "stf.spill [%4] = f52, 0x80\n"
66 
        "stf.spill [%5] = f53, 0x80\n"
67 
        "stf.spill [%6] = f54, 0x80\n"
68 
        "stf.spill [%7] = f55, 0x80\n;;"
979 vana 69 
 
1877 jermar 70 
        "stf.spill [%0] = f56, 0x80\n"
71 
        "stf.spill [%1] = f57, 0x80\n"
72 
        "stf.spill [%2] = f58, 0x80\n"
73 
        "stf.spill [%3] = f59, 0x80\n"
74 
        "stf.spill [%4] = f60, 0x80\n"
75 
        "stf.spill [%5] = f61, 0x80\n"
76 
        "stf.spill [%6] = f62, 0x80\n"
77 
        "stf.spill [%7] = f63, 0x80\n;;"
979 vana 78 
 
1877 jermar 79 
        "stf.spill [%0] = f64, 0x80\n"
80 
        "stf.spill [%1] = f65, 0x80\n"
81 
        "stf.spill [%2] = f66, 0x80\n"
82 
        "stf.spill [%3] = f67, 0x80\n"
83 
        "stf.spill [%4] = f68, 0x80\n"
84 
        "stf.spill [%5] = f69, 0x80\n"
85 
        "stf.spill [%6] = f70, 0x80\n"
86 
        "stf.spill [%7] = f71, 0x80\n;;"
979 vana 87 
 
1877 jermar 88 
        "stf.spill [%0] = f72, 0x80\n"
89 
        "stf.spill [%1] = f73, 0x80\n"
90 
        "stf.spill [%2] = f74, 0x80\n"
91 
        "stf.spill [%3] = f75, 0x80\n"
92 
        "stf.spill [%4] = f76, 0x80\n"
93 
        "stf.spill [%5] = f77, 0x80\n"
94 
        "stf.spill [%6] = f78, 0x80\n"
95 
        "stf.spill [%7] = f79, 0x80\n;;"
979 vana 96 
 
1877 jermar 97 
        "stf.spill [%0] = f80, 0x80\n"
98 
        "stf.spill [%1] = f81, 0x80\n"
99 
        "stf.spill [%2] = f82, 0x80\n"
100 
        "stf.spill [%3] = f83, 0x80\n"
101 
        "stf.spill [%4] = f84, 0x80\n"
102 
        "stf.spill [%5] = f85, 0x80\n"
103 
        "stf.spill [%6] = f86, 0x80\n"
104 
        "stf.spill [%7] = f87, 0x80\n;;"
979 vana 105 
 
1877 jermar 106 
        "stf.spill [%0] = f88, 0x80\n"
107 
        "stf.spill [%1] = f89, 0x80\n"
108 
        "stf.spill [%2] = f90, 0x80\n"
109 
        "stf.spill [%3] = f91, 0x80\n"
110 
        "stf.spill [%4] = f92, 0x80\n"
111 
        "stf.spill [%5] = f93, 0x80\n"
112 
        "stf.spill [%6] = f94, 0x80\n"
113 
        "stf.spill [%7] = f95, 0x80\n;;"
979 vana 114 
 
1877 jermar 115 
        "stf.spill [%0] = f96, 0x80\n"
116 
        "stf.spill [%1] = f97, 0x80\n"
117 
        "stf.spill [%2] = f98, 0x80\n"
118 
        "stf.spill [%3] = f99, 0x80\n"
119 
        "stf.spill [%4] = f100, 0x80\n"
120 
        "stf.spill [%5] = f101, 0x80\n"
121 
        "stf.spill [%6] = f102, 0x80\n"
122 
        "stf.spill [%7] = f103, 0x80\n;;"
979 vana 123 
 
1877 jermar 124 
        "stf.spill [%0] = f104, 0x80\n"
125 
        "stf.spill [%1] = f105, 0x80\n"
126 
        "stf.spill [%2] = f106, 0x80\n"
127 
        "stf.spill [%3] = f107, 0x80\n"
128 
        "stf.spill [%4] = f108, 0x80\n"
129 
        "stf.spill [%5] = f109, 0x80\n"
130 
        "stf.spill [%6] = f110, 0x80\n"
131 
        "stf.spill [%7] = f111, 0x80\n;;"
979 vana 132 
 
1877 jermar 133 
        "stf.spill [%0] = f112, 0x80\n"
134 
        "stf.spill [%1] = f113, 0x80\n"
135 
        "stf.spill [%2] = f114, 0x80\n"
136 
        "stf.spill [%3] = f115, 0x80\n"
137 
        "stf.spill [%4] = f116, 0x80\n"
138 
        "stf.spill [%5] = f117, 0x80\n"
139 
        "stf.spill [%6] = f118, 0x80\n"
140 
        "stf.spill [%7] = f119, 0x80\n;;"
979 vana 141 
 
1877 jermar 142 
        "stf.spill [%0] = f120, 0x80\n"
143 
        "stf.spill [%1] = f121, 0x80\n"
144 
        "stf.spill [%2] = f122, 0x80\n"
145 
        "stf.spill [%3] = f123, 0x80\n"
146 
        "stf.spill [%4] = f124, 0x80\n"
147 
        "stf.spill [%5] = f125, 0x80\n"
148 
        "stf.spill [%6] = f126, 0x80\n"
149 
        "stf.spill [%7] = f127, 0x80\n;;"
979 vana 150 
 
1877 jermar 151 
        :
152 
        : "r" (&((fctx->fr)[0])), "r" (&((fctx->fr)[1])), "r" (&((fctx->fr)[2])), "r" (&((fctx->fr)[3])),
153 
          "r" (&((fctx->fr)[4])), "r" (&((fctx->fr)[5])), "r" (&((fctx->fr)[6])), "r" (&((fctx->fr)[7]))
154 
    );
979 vana 155 
 
52 vana 156 
}
157 
 
57 vana 158 
void fpu_context_restore(fpu_context_t *fctx)
52 vana 159 
{
1877 jermar 160 
    asm volatile (
161 
        "ldf.fill f32 = [%0], 0x80\n"
162 
        "ldf.fill f33 = [%1], 0x80\n"
163 
        "ldf.fill f34 = [%2], 0x80\n"
164 
        "ldf.fill f35 = [%3], 0x80\n"
165 
        "ldf.fill f36 = [%4], 0x80\n"
166 
        "ldf.fill f37 = [%5], 0x80\n"
167 
        "ldf.fill f38 = [%6], 0x80\n"
168 
        "ldf.fill f39 = [%7], 0x80\n;;"
1053 vana 169 
 
1877 jermar 170 
        "ldf.fill f40 = [%0], 0x80\n"
171 
        "ldf.fill f41 = [%1], 0x80\n"
172 
        "ldf.fill f42 = [%2], 0x80\n"
173 
        "ldf.fill f43 = [%3], 0x80\n"
174 
        "ldf.fill f44 = [%4], 0x80\n"
175 
        "ldf.fill f45 = [%5], 0x80\n"
176 
        "ldf.fill f46 = [%6], 0x80\n"
177 
        "ldf.fill f47 = [%7], 0x80\n;;"
979 vana 178 
 
1877 jermar 179 
        "ldf.fill f48 = [%0], 0x80\n"
180 
        "ldf.fill f49 = [%1], 0x80\n"
181 
        "ldf.fill f50 = [%2], 0x80\n"
182 
        "ldf.fill f51 = [%3], 0x80\n"
183 
        "ldf.fill f52 = [%4], 0x80\n"
184 
        "ldf.fill f53 = [%5], 0x80\n"
185 
        "ldf.fill f54 = [%6], 0x80\n"
186 
        "ldf.fill f55 = [%7], 0x80\n;;"
979 vana 187 
 
1877 jermar 188 
        "ldf.fill f56 = [%0], 0x80\n"
189 
        "ldf.fill f57 = [%1], 0x80\n"
190 
        "ldf.fill f58 = [%2], 0x80\n"
191 
        "ldf.fill f59 = [%3], 0x80\n"
192 
        "ldf.fill f60 = [%4], 0x80\n"
193 
        "ldf.fill f61 = [%5], 0x80\n"
194 
        "ldf.fill f62 = [%6], 0x80\n"
195 
        "ldf.fill f63 = [%7], 0x80\n;;"
979 vana 196 
 
1877 jermar 197 
        "ldf.fill f64 = [%0], 0x80\n"
198 
        "ldf.fill f65 = [%1], 0x80\n"
199 
        "ldf.fill f66 = [%2], 0x80\n"
200 
        "ldf.fill f67 = [%3], 0x80\n"
201 
        "ldf.fill f68 = [%4], 0x80\n"
202 
        "ldf.fill f69 = [%5], 0x80\n"
203 
        "ldf.fill f70 = [%6], 0x80\n"
204 
        "ldf.fill f71 = [%7], 0x80\n;;"
979 vana 205 
 
1877 jermar 206 
        "ldf.fill f72 = [%0], 0x80\n"
207 
        "ldf.fill f73 = [%1], 0x80\n"
208 
        "ldf.fill f74 = [%2], 0x80\n"
209 
        "ldf.fill f75 = [%3], 0x80\n"
210 
        "ldf.fill f76 = [%4], 0x80\n"
211 
        "ldf.fill f77 = [%5], 0x80\n"
212 
        "ldf.fill f78 = [%6], 0x80\n"
213 
        "ldf.fill f79 = [%7], 0x80\n;;"
979 vana 214 
 
1877 jermar 215 
        "ldf.fill f80 = [%0], 0x80\n"
216 
        "ldf.fill f81 = [%1], 0x80\n"
217 
        "ldf.fill f82 = [%2], 0x80\n"
218 
        "ldf.fill f83 = [%3], 0x80\n"
219 
        "ldf.fill f84 = [%4], 0x80\n"
220 
        "ldf.fill f85 = [%5], 0x80\n"
221 
        "ldf.fill f86 = [%6], 0x80\n"
222 
        "ldf.fill f87 = [%7], 0x80\n;;"
979 vana 223 
 
1877 jermar 224 
        "ldf.fill f88 = [%0], 0x80\n"
225 
        "ldf.fill f89 = [%1], 0x80\n"
226 
        "ldf.fill f90 = [%2], 0x80\n"
227 
        "ldf.fill f91 = [%3], 0x80\n"
228 
        "ldf.fill f92 = [%4], 0x80\n"
229 
        "ldf.fill f93 = [%5], 0x80\n"
230 
        "ldf.fill f94 = [%6], 0x80\n"
231 
        "ldf.fill f95 = [%7], 0x80\n;;"
979 vana 232 
 
1877 jermar 233 
        "ldf.fill f96 = [%0], 0x80\n"
234 
        "ldf.fill f97 = [%1], 0x80\n"
235 
        "ldf.fill f98 = [%2], 0x80\n"
236 
        "ldf.fill f99 = [%3], 0x80\n"
237 
        "ldf.fill f100 = [%4], 0x80\n"
238 
        "ldf.fill f101 = [%5], 0x80\n"
239 
        "ldf.fill f102 = [%6], 0x80\n"
240 
        "ldf.fill f103 = [%7], 0x80\n;;"
979 vana 241 
 
1877 jermar 242 
        "ldf.fill f104 = [%0], 0x80\n"
243 
        "ldf.fill f105 = [%1], 0x80\n"
244 
        "ldf.fill f106 = [%2], 0x80\n"
245 
        "ldf.fill f107 = [%3], 0x80\n"
246 
        "ldf.fill f108 = [%4], 0x80\n"
247 
        "ldf.fill f109 = [%5], 0x80\n"
248 
        "ldf.fill f110 = [%6], 0x80\n"
249 
        "ldf.fill f111 = [%7], 0x80\n;;"
979 vana 250 
 
1877 jermar 251 
        "ldf.fill f112 = [%0], 0x80\n"
252 
        "ldf.fill f113 = [%1], 0x80\n"
253 
        "ldf.fill f114 = [%2], 0x80\n"
254 
        "ldf.fill f115 = [%3], 0x80\n"
255 
        "ldf.fill f116 = [%4], 0x80\n"
256 
        "ldf.fill f117 = [%5], 0x80\n"
257 
        "ldf.fill f118 = [%6], 0x80\n"
258 
        "ldf.fill f119 = [%7], 0x80\n;;"
979 vana 259 
 
1877 jermar 260 
        "ldf.fill f120 = [%0], 0x80\n"
261 
        "ldf.fill f121 = [%1], 0x80\n"
262 
        "ldf.fill f122 = [%2], 0x80\n"
263 
        "ldf.fill f123 = [%3], 0x80\n"
264 
        "ldf.fill f124 = [%4], 0x80\n"
265 
        "ldf.fill f125 = [%5], 0x80\n"
266 
        "ldf.fill f126 = [%6], 0x80\n"
267 
        "ldf.fill f127 = [%7], 0x80\n;;"
979 vana 268 
 
1877 jermar 269 
        :
270 
        : "r" (&((fctx->fr)[0])), "r" (&((fctx->fr)[1])), "r" (&((fctx->fr)[2])), "r" (&((fctx->fr)[3])),
271 
          "r" (&((fctx->fr)[4])), "r" (&((fctx->fr)[5])), "r" (&((fctx->fr)[6])), "r" (&((fctx->fr)[7]))
272 
    );
52 vana 273 
}
274 
 
1053 vana 275 
void fpu_enable(void)
1023 vana 276 
{
1877 jermar 277 
    uint64_t a = 0 ;
979 vana 278 
 
1877 jermar 279 
    asm volatile (
280 
        "rsm %0 ;;"
281 
        "srlz.i\n"
282 
        "srlz.d ;;\n"
283 
        :
284 
        : "i" (PSR_DFH_MASK)
285 
    );
286 
 
287 
    asm volatile (
288 
        "mov %0 = ar.fpsr ;;\n"
289 
        "or %0 = %0,%1 ;;\n"
290 
        "mov ar.fpsr = %0 ;;\n"
291 
        : "+r" (a)
292 
        : "r" (0x38)
293 
    );
1023 vana 294 
}
979 vana 295 
 
1053 vana 296 
void fpu_disable(void)
1023 vana 297 
{
1877 jermar 298 
    uint64_t a = 0 ;
1053 vana 299 
 
1877 jermar 300 
    asm volatile (
301 
        "ssm %0 ;;\n"
302 
        "srlz.i\n"
303 
        "srlz.d ;;\n"
304 
        :
305 
        : "i" (PSR_DFH_MASK)
306 
    );
1023 vana 307 
 
1877 jermar 308 
    asm volatile (
309 
        "mov %0 = ar.fpsr ;;\n"
310 
        "or %0 = %0,%1 ;;\n"
311 
        "mov ar.fpsr = %0 ;;\n"
312 
        : "+r" (a)
313 
        : "r" (0x38)
314 
    );
1023 vana 315 
}
316 
 
317 
void fpu_init(void)
318 
{
1877 jermar 319 
    uint64_t a = 0 ;
1053 vana 320 
 
1877 jermar 321 
    asm volatile (
322 
        "mov %0 = ar.fpsr ;;\n"
323 
        "or %0 = %0,%1 ;;\n"
324 
        "mov ar.fpsr = %0 ;;\n"
325 
        : "+r" (a)
326 
        : "r" (0x38)
327 
    );
1023 vana 328 
 
1877 jermar 329 
    asm volatile (
330 
        "mov f2 = f0\n"
331 
        "mov f3 = f0\n"
332 
        "mov f4 = f0\n"
333 
        "mov f5 = f0\n"
334 
        "mov f6 = f0\n"
335 
        "mov f7 = f0\n"
336 
        "mov f8 = f0\n"
337 
        "mov f9 = f0\n"
1023 vana 338 
 
1877 jermar 339 
        "mov f10 = f0\n"
340 
        "mov f11 = f0\n"
341 
        "mov f12 = f0\n"
342 
        "mov f13 = f0\n"
343 
        "mov f14 = f0\n"
344 
        "mov f15 = f0\n"
345 
        "mov f16 = f0\n"
346 
        "mov f17 = f0\n"
347 
        "mov f18 = f0\n"
348 
        "mov f19 = f0\n"
1023 vana 349 
 
1877 jermar 350 
        "mov f20 = f0\n"
351 
        "mov f21 = f0\n"
352 
        "mov f22 = f0\n"
353 
        "mov f23 = f0\n"
354 
        "mov f24 = f0\n"
355 
        "mov f25 = f0\n"
356 
        "mov f26 = f0\n"
357 
        "mov f27 = f0\n"
358 
        "mov f28 = f0\n"
359 
        "mov f29 = f0\n"
1023 vana 360 
 
1877 jermar 361 
        "mov f30 = f0\n"
362 
        "mov f31 = f0\n"
363 
        "mov f32 = f0\n"
364 
        "mov f33 = f0\n"
365 
        "mov f34 = f0\n"
366 
        "mov f35 = f0\n"
367 
        "mov f36 = f0\n"
368 
        "mov f37 = f0\n"
369 
        "mov f38 = f0\n"
370 
        "mov f39 = f0\n"
1023 vana 371 
 
1877 jermar 372 
        "mov f40 = f0\n"
373 
        "mov f41 = f0\n"
374 
        "mov f42 = f0\n"
375 
        "mov f43 = f0\n"
376 
        "mov f44 = f0\n"
377 
        "mov f45 = f0\n"
378 
        "mov f46 = f0\n"
379 
        "mov f47 = f0\n"
380 
        "mov f48 = f0\n"
381 
        "mov f49 = f0\n"
1023 vana 382 
 
1877 jermar 383 
        "mov f50 = f0\n"
384 
        "mov f51 = f0\n"
385 
        "mov f52 = f0\n"
386 
        "mov f53 = f0\n"
387 
        "mov f54 = f0\n"
388 
        "mov f55 = f0\n"
389 
        "mov f56 = f0\n"
390 
        "mov f57 = f0\n"
391 
        "mov f58 = f0\n"
392 
        "mov f59 = f0\n"
1023 vana 393 
 
1877 jermar 394 
        "mov f60 = f0\n"
395 
        "mov f61 = f0\n"
396 
        "mov f62 = f0\n"
397 
        "mov f63 = f0\n"
398 
        "mov f64 = f0\n"
399 
        "mov f65 = f0\n"
400 
        "mov f66 = f0\n"
401 
        "mov f67 = f0\n"
402 
        "mov f68 = f0\n"
403 
        "mov f69 = f0\n"
1023 vana 404 
 
1877 jermar 405 
        "mov f70 = f0\n"
406 
        "mov f71 = f0\n"
407 
        "mov f72 = f0\n"
408 
        "mov f73 = f0\n"
409 
        "mov f74 = f0\n"
410 
        "mov f75 = f0\n"
411 
        "mov f76 = f0\n"
412 
        "mov f77 = f0\n"
413 
        "mov f78 = f0\n"
414 
        "mov f79 = f0\n"
1023 vana 415 
 
1877 jermar 416 
        "mov f80 = f0\n"
417 
        "mov f81 = f0\n"
418 
        "mov f82 = f0\n"
419 
        "mov f83 = f0\n"
420 
        "mov f84 = f0\n"
421 
        "mov f85 = f0\n"
422 
        "mov f86 = f0\n"
423 
        "mov f87 = f0\n"
424 
        "mov f88 = f0\n"
425 
        "mov f89 = f0\n"
1023 vana 426 
 
1877 jermar 427 
        "mov f90 = f0\n"
428 
        "mov f91 = f0\n"
429 
        "mov f92 = f0\n"
430 
        "mov f93 = f0\n"
431 
        "mov f94 = f0\n"
432 
        "mov f95 = f0\n"
433 
        "mov f96 = f0\n"
434 
        "mov f97 = f0\n"
435 
        "mov f98 = f0\n"
436 
        "mov f99 = f0\n"
1023 vana 437 
 
1877 jermar 438 
        "mov f100 = f0\n"
439 
        "mov f101 = f0\n"
440 
        "mov f102 = f0\n"
441 
        "mov f103 = f0\n"
442 
        "mov f104 = f0\n"
443 
        "mov f105 = f0\n"
444 
        "mov f106 = f0\n"
445 
        "mov f107 = f0\n"
446 
        "mov f108 = f0\n"
447 
        "mov f109 = f0\n"
1023 vana 448 
 
1877 jermar 449 
        "mov f110 = f0\n"
450 
        "mov f111 = f0\n"
451 
        "mov f112 = f0\n"
452 
        "mov f113 = f0\n"
453 
        "mov f114 = f0\n"
454 
        "mov f115 = f0\n"
455 
        "mov f116 = f0\n"
456 
        "mov f117 = f0\n"
457 
        "mov f118 = f0\n"
458 
        "mov f119 = f0\n"
1023 vana 459 
 
1877 jermar 460 
        "mov f120 = f0\n"
461 
        "mov f121 = f0\n"
462 
        "mov f122 = f0\n"
463 
        "mov f123 = f0\n"
464 
        "mov f124 = f0\n"
465 
        "mov f125 = f0\n"
466 
        "mov f126 = f0\n"
467 
        "mov f127 = f0\n"
468 
    );
1023 vana 469 
 
470 
}
471 
 
1877 jermar 472 
/** @}
1702 cejka 473 
 */