/* * Copyright (c) 1987 Regents of the University of California. * All rights reserved. The Berkeley software License Agreement * specifies the terms and conditions for redistribution. */ #ifdef LIBC_SCCS <@(#)fabs.s 1.1 (Berkeley) 1/25/87\0> .even #endif LIBC_SCCS /* abs_x = fabs(x) * double abs_x, x; * * floating absolute value */ #include "DEFS.h" ENTRY(fabs) bic $0100000,2(sp) / rip sign bit to pieces movf 2(sp),fr0 / grab shredded x rts pc / and return