1668c255aStorek/* 2*2a2d38a8Sbostic * Copyright (c) 1992, 1993 3*2a2d38a8Sbostic * The Regents of the University of California. All rights reserved. 4668c255aStorek * 5668c255aStorek * This software was developed by the Computer Systems Engineering group 6668c255aStorek * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and 7668c255aStorek * contributed to Berkeley. 8668c255aStorek * 9668c255aStorek * %sccs.include.redist.c% 10668c255aStorek * 11668c255aStorek * from: $Header: fabs.s,v 1.4 91/10/07 23:59:05 torek Exp $ 12668c255aStorek */ 13668c255aStorek 14668c255aStorek#if defined(LIBC_SCCS) && !defined(lint) 15*2a2d38a8Sbostic .asciz "@(#)fabs.s 8.1 (Berkeley) 06/04/93" 16668c255aStorek#endif /* LIBC_SCCS and not lint */ 17668c255aStorek 18668c255aStorek/* fabs - floating absolute value */ 19668c255aStorek 20668c255aStorek#include "DEFS.h" 21668c255aStorek 22668c255aStorekENTRY(fabs) 23668c255aStorek std %o0, [%sp + 32] ! return value => %f0:f1 24668c255aStorek ldd [%sp + 32], %f0 ! (via kernel %o0/%o1 slot) 25668c255aStorek retl 26668c255aStorek fabss %f0, %f0 ! return absolute value 27