home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / gnu / djgpp / libsrc / m / src / acos.s next >
Encoding:
Text File  |  1993-06-28  |  831 b   |  36 lines
  1. /* This is file ACOS.S */
  2. /*
  3. ** Copyright (C) 1993 DJ Delorie, 24 Kirsten Ave, Rochester NH 03867-2954
  4. **
  5. ** This file is distributed under the terms listed in the document
  6. ** "copying.dj", available from DJ Delorie at the address above.
  7. ** A copy of "copying.dj" should accompany this file; if not, a copy
  8. ** should be available from where this file was obtained.  This file
  9. ** may not be distributed without a verbatim copy of "copying.dj".
  10. **
  11. ** This file is distributed WITHOUT ANY WARRANTY; without even the implied
  12. ** warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  13. */
  14.  
  15.     .text
  16. LC0:
  17.     .double 0d1.00000000000000000000e+00
  18.  
  19.     .globl    _acos
  20. _acos:
  21.     fldl    4(%esp)
  22.     fld1
  23.     fsubp    %st(0),%st(1)
  24.     fsqrt
  25.  
  26.     fldl    4(%esp)
  27.     fld1
  28.     faddp    %st(0),%st(1)
  29.     fsqrt
  30.  
  31.     fpatan
  32.  
  33.     fld    %st(0)
  34.     faddp
  35.     ret
  36.