154385Storek/* 2*61168Sbostic * Copyright (c) 1992, 1993 3*61168Sbostic * The Regents of the University of California. All rights reserved. 454385Storek * 554385Storek * This software was developed by the Computer Systems Engineering group 654385Storek * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and 754385Storek * contributed to Berkeley. 854385Storek * 954385Storek * %sccs.include.redist.c% 1054385Storek * 1154385Storek * from: $Header: fabs.s,v 1.4 91/10/07 23:59:05 torek Exp $ 1254385Storek */ 1354385Storek 1454385Storek#if defined(LIBC_SCCS) && !defined(lint) 15*61168Sbostic .asciz "@(#)fabs.s 8.1 (Berkeley) 06/04/93" 1654385Storek#endif /* LIBC_SCCS and not lint */ 1754385Storek 1854385Storek/* fabs - floating absolute value */ 1954385Storek 2054385Storek#include "DEFS.h" 2154385Storek 2254385StorekENTRY(fabs) 2354385Storek std %o0, [%sp + 32] ! return value => %f0:f1 2454385Storek ldd [%sp + 32], %f0 ! (via kernel %o0/%o1 slot) 2554385Storek retl 2654385Storek fabss %f0, %f0 ! return absolute value 27