4.3BSD - /usr/src/lib/libc/vax/gen/fabs.s

   1: #ifdef LIBC_SCCS
   2:         .asciz  "@(#)fabs.s	5.2 (Berkeley) 3/9/86"
   3: #endif LIBC_SCCS
   4: 
   5: /* fabs - floating absolute value */
   6: 
   7: #include "DEFS.h"
   8: 
   9: ENTRY(fabs, 0)
  10:         movd    4(ap),r0
  11:         bgeq    1f
  12:         mnegd   r0,r0
  13: 1:
  14:         ret

Defined functions