~ubuntu-branches/ubuntu/raring/avr-libc/raring-proposed

« back to all changes in this revision

Viewing changes to libm/fplib/fp_inverse.S

  • Committer: Bazaar Package Importer
  • Author(s): Hakan Ardo
  • Date: 2008-08-10 09:59:16 UTC
  • mfrom: (1.2.1 upstream) (8 intrepid)
  • mto: (4.1.7 sid)
  • mto: This revision was merged to the branch mainline in revision 9.
  • Revision ID: james.westby@ubuntu.com-20080810095916-7ku06pjsfia3hz16
Added build-depends on texlive-extra-utils (closes: #493454)

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
/* Copyright (c) 2005  Anatoly Sokolov  <aesok@post.ru>
2
 
   All rights reserved.
3
 
 
4
 
 
5
 
   Redistribution and use in source and binary forms, with or without
6
 
   modification, are permitted provided that the following conditions are met:
7
 
 
8
 
   * Redistributions of source code must retain the above copyright
9
 
     notice, this list of conditions and the following disclaimer.
10
 
   
11
 
   * Redistributions in binary form must reproduce the above copyright
12
 
     notice, this list of conditions and the following disclaimer in
13
 
     the documentation and/or other materials provided with the
14
 
     distribution.
15
 
     
16
 
   * Neither the name of the copyright holders nor the names of
17
 
     contributors may be used to endorse or promote products derived
18
 
     from this software without specific prior written permission.
19
 
 
20
 
   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
21
 
   AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22
 
   IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23
 
   ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
24
 
   LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
25
 
   CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
26
 
   SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
27
 
   INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
28
 
   CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
29
 
   ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
30
 
   POSSIBILITY OF SUCH DAMAGE. 
31
 
*/
32
 
 
33
 
/* $Id: fp_inverse.S,v 1.1.2.1 2005/12/06 20:47:49 aesok Exp $ */
34
 
 
35
 
/*
36
 
    fp_inverse.S is part of     FPlib V 0.3.0       ported to avr-as
37
 
    for details see readme.fplib
38
 
 
39
 
 *----------------------------------------------------------------------------------------
40
 
 *
41
 
 * res(A) = 1 / A
42
 
 *
43
 
 */
44
 
 
45
 
#include "gasava.inc"
46
 
#include "macros.inc"
47
 
#include "fplib.inc"
48
 
 
49
 
        TEXT_SEG(fplib, __fp_inverse)
50
 
        FUNCTION(__fp_inverse)
51
 
 
52
 
GLOBAL(__fp_inverse)
53
 
        X_movw  rB0, rA0
54
 
        X_movw  rB2, rA2        ; B = A
55
 
        
56
 
        LDI     rA3, 0x3F
57
 
        LDI     rA2, 0x80
58
 
        CLR     rA1
59
 
        CLR     rA0             ; A = 1.0
60
 
 
61
 
        XJMP    __divsf3        ; A / B
62
 
 
63
 
        ENDFUNC
64
 
 
65