Home | History | Annotate | Line # | Download | only in i387
e_asin.S revision 1.3 
      1 /*
      2  * Written by J.T. Conklin <jtc (at) netbsd.org>.
      3  * Public domain.
      4  */
      5 
      6 #include <machine/asm.h>
      7 
      8 RCSID("$Id: e_asin.S,v 1.3 1995/04/28 22:43:35 jtc Exp $")
      9 
     10 /* asin = atan (x / sqrt(1 - x^2)) */
     11 ENTRY(__ieee754_asin)
     12 	fldl	4(%esp)			/* x */
     13 	fst	%st(1)
     14 	fmul	%st(0)			/* x^2 */
     15 	fld1
     16 	fsubp				/* 1 - x^2 */
     17 	fsqrt				/* sqrt (1 - x^2) */
     18 	fpatan
     19 	ret
     20