2.11BSD#431 - /usr/src/lib/libc/pdp/gen/fabs.s

   1: /*
   2:  * Copyright (c) 1987 Regents of the University of California.
   3:  * All rights reserved.  The Berkeley software License Agreement
   4:  * specifies the terms and conditions for redistribution.
   5:  */
   6: 
   7: #ifdef LIBC_SCCS
   8:         <@(#)fabs.s	1.1 (Berkeley) 1/25/87\0>
   9:         .even
  10: #endif LIBC_SCCS
  11: 
  12: /* abs_x = fabs(x)
  13:  *	double	abs_x, x;
  14:  *
  15:  * floating absolute value
  16:  */
  17: 
  18: #include "DEFS.h"
  19: 
  20: ENTRY(fabs)
  21:         bic     $0100000,2(sp)  / rip sign bit to pieces
  22:         movf    2(sp),fr0       / grab shredded x
  23:         rts     pc              / and return

Defined functions