mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
62 lines
944 B
62 lines
944 B
// TITLE("Alpha AXP fabs")
|
|
//++
|
|
//
|
|
// Copyright (c) 1993, 1994 Digital Equipment Corporation
|
|
//
|
|
// Module Name:
|
|
//
|
|
// fabs.s
|
|
//
|
|
// Abstract:
|
|
//
|
|
// This module implements a high-performance Alpha AXP specific routine
|
|
// for IEEE double format fabs.
|
|
//
|
|
// Author:
|
|
//
|
|
// Bill Gray
|
|
//
|
|
// Environment:
|
|
//
|
|
// User mode.
|
|
//
|
|
// Revision History:
|
|
//
|
|
// Thomas Van Baak (tvb) 15-Apr-1994
|
|
//
|
|
// Adapted for NT.
|
|
//
|
|
//--
|
|
|
|
#include "ksalpha.h"
|
|
|
|
SBTTL("fabs")
|
|
|
|
//++
|
|
//
|
|
// double
|
|
// fabs (
|
|
// IN double x
|
|
// )
|
|
//
|
|
// Routine Description:
|
|
//
|
|
// This function returns the absolute value of the given double argument.
|
|
//
|
|
// Arguments:
|
|
//
|
|
// x (f16) - Supplies the argument value.
|
|
//
|
|
// Return Value:
|
|
//
|
|
// The double fabs result is returned as the function value in f0.
|
|
//
|
|
//--
|
|
|
|
LEAF_ENTRY(fabs)
|
|
|
|
cpys f31, f16, f0 // clear the sign bit
|
|
|
|
ret zero, (ra)
|
|
|
|
.end fabs
|