fabs.S revision 1.3
11.3Schristos/* $NetBSD: fabs.S,v 1.3 1997/07/16 14:37:40 christos Exp $ */ 21.3Schristos 31.1Scgd/* 41.1Scgd * Copyright (c) 1992, 1993 51.1Scgd * The Regents of the University of California. All rights reserved. 61.1Scgd * 71.1Scgd * This software was developed by the Computer Systems Engineering group 81.1Scgd * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and 91.1Scgd * contributed to Berkeley. 101.1Scgd * 111.1Scgd * Redistribution and use in source and binary forms, with or without 121.1Scgd * modification, are permitted provided that the following conditions 131.1Scgd * are met: 141.1Scgd * 1. Redistributions of source code must retain the above copyright 151.1Scgd * notice, this list of conditions and the following disclaimer. 161.1Scgd * 2. Redistributions in binary form must reproduce the above copyright 171.1Scgd * notice, this list of conditions and the following disclaimer in the 181.1Scgd * documentation and/or other materials provided with the distribution. 191.1Scgd * 3. All advertising materials mentioning features or use of this software 201.1Scgd * must display the following acknowledgement: 211.1Scgd * This product includes software developed by the University of 221.1Scgd * California, Berkeley and its contributors. 231.1Scgd * 4. Neither the name of the University nor the names of its contributors 241.1Scgd * may be used to endorse or promote products derived from this software 251.1Scgd * without specific prior written permission. 261.1Scgd * 271.1Scgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 281.1Scgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 291.1Scgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 301.1Scgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 311.1Scgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 321.1Scgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 331.1Scgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 341.1Scgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 351.1Scgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 361.1Scgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 371.1Scgd * SUCH DAMAGE. 381.1Scgd * 391.1Scgd * from: Header: fabs.s,v 1.4 91/10/07 23:59:05 torek Exp 401.1Scgd */ 411.1Scgd 421.3Schristos#include <machine/asm.h> 431.1Scgd#if defined(LIBC_SCCS) && !defined(lint) 441.3Schristos#if 0 451.1Scgd .asciz "@(#)fabs.s 8.1 (Berkeley) 6/4/93" 461.3Schristos#else 471.3Schristos RCSID("$NetBSD: fabs.S,v 1.3 1997/07/16 14:37:40 christos Exp $") 481.3Schristos#endif 491.1Scgd#endif /* LIBC_SCCS and not lint */ 501.1Scgd 511.1Scgd/* fabs - floating absolute value */ 521.1Scgd 531.1Scgd 541.1ScgdENTRY(fabs) 551.1Scgd std %o0, [%sp + 32] ! return value => %f0:f1 561.1Scgd ldd [%sp + 32], %f0 ! (via kernel %o0/%o1 slot) 571.1Scgd retl 581.1Scgd fabss %f0, %f0 ! return absolute value 59