1*41792Sbostic/*- 2*41792Sbostic * Copyright (c) 1990 The Regents of the University of California. 3*41792Sbostic * All rights reserved. 4*41792Sbostic * 5*41792Sbostic * This code is derived from software contributed to Berkeley by 6*41792Sbostic * the Systems Programming Group of the University of Utah Computer 7*41792Sbostic * Science Department. 8*41792Sbostic * 9*41792Sbostic * %sccs.include.redist.c% 10*41792Sbostic */ 11*41792Sbostic 12*41792Sbostic#if defined(LIBC_SCCS) && !defined(lint) 13*41792Sbostic .asciz "@(#)fabs.s 5.1 (Berkeley) 05/12/90" 14*41792Sbostic#endif /* LIBC_SCCS and not lint */ 15*41792Sbostic 16*41792Sbostic/* fabs - floating absolute value */ 17*41792Sbostic 18*41792Sbostic#include "DEFS.h" 19*41792Sbostic 20*41792SbosticENTRY(fabs) 21*41792Sbostic fmoved sp@(4),fp0 22*41792Sbostic fjnlt L1 23*41792Sbostic fnegx fp0 24*41792SbosticL1: 25*41792Sbostic fmoved fp0,sp@- 26*41792Sbostic movel sp@+,d0 27*41792Sbostic movel sp@+,d1 28*41792Sbostic rts 29