141792Sbostic/*- 2*61117Sbostic * Copyright (c) 1990, 1993 3*61117Sbostic * The Regents of the University of California. All rights reserved. 441792Sbostic * 541792Sbostic * This code is derived from software contributed to Berkeley by 641792Sbostic * the Systems Programming Group of the University of Utah Computer 741792Sbostic * Science Department. 841792Sbostic * 941792Sbostic * %sccs.include.redist.c% 1041792Sbostic */ 1141792Sbostic 1241792Sbostic#if defined(LIBC_SCCS) && !defined(lint) 13*61117Sbostic .asciz "@(#)fabs.s 8.1 (Berkeley) 06/04/93" 1441792Sbostic#endif /* LIBC_SCCS and not lint */ 1541792Sbostic 1641792Sbostic/* fabs - floating absolute value */ 1741792Sbostic 1841792Sbostic#include "DEFS.h" 1941792Sbostic 2041792SbosticENTRY(fabs) 2141792Sbostic fmoved sp@(4),fp0 2241792Sbostic fjnlt L1 2341792Sbostic fnegx fp0 2441792SbosticL1: 2541792Sbostic fmoved fp0,sp@- 2641792Sbostic movel sp@+,d0 2741792Sbostic movel sp@+,d1 2841792Sbostic rts 29