114 lines
3.0 KiB
ArmAsm
114 lines
3.0 KiB
ArmAsm
|
// TITLE("Square Root")
|
|||
|
|
//++
|
|||
|
|
//
|
|||
|
|
// Copyright (c) 1991 Microsoft Corporation
|
|||
|
|
//
|
|||
|
|
// Module Name:
|
|||
|
|
//
|
|||
|
|
// x4sqrt.s
|
|||
|
|
//
|
|||
|
|
// Abstract:
|
|||
|
|
//
|
|||
|
|
// This module implements the code necessary to compute the square root
|
|||
|
|
// of a denormalized value.
|
|||
|
|
//
|
|||
|
|
// Author:
|
|||
|
|
//
|
|||
|
|
// David N. Cutler (davec) 20-Apr-1993
|
|||
|
|
//
|
|||
|
|
// Environment:
|
|||
|
|
//
|
|||
|
|
// Kernel mode only.
|
|||
|
|
//
|
|||
|
|
// Revision History:
|
|||
|
|
//
|
|||
|
|
//--
|
|||
|
|
|
|||
|
|
#include "ksmips.h"
|
|||
|
|
|
|||
|
|
SBTTL("Double Square Root")
|
|||
|
|
//++
|
|||
|
|
//
|
|||
|
|
// ULONG
|
|||
|
|
// KiSquareRootDouble (
|
|||
|
|
// IN PULONG DoubleValue
|
|||
|
|
// )
|
|||
|
|
//
|
|||
|
|
// Routine Description:
|
|||
|
|
//
|
|||
|
|
// This routine is called to compute the square root of a double
|
|||
|
|
// precision denormalized value.
|
|||
|
|
//
|
|||
|
|
// N.B. The denormalized value has been converted to a normalized
|
|||
|
|
// value with a exponent equal to the denormalization shift
|
|||
|
|
// count prior to calling this routine.
|
|||
|
|
//
|
|||
|
|
// Arguments:
|
|||
|
|
//
|
|||
|
|
// SingleValue (a0) - Supplies a pointer to the double denormalized
|
|||
|
|
// value.
|
|||
|
|
//
|
|||
|
|
// Return Value:
|
|||
|
|
//
|
|||
|
|
// The inexact bit is returned as the function value.
|
|||
|
|
//
|
|||
|
|
//--
|
|||
|
|
|
|||
|
|
LEAF_ENTRY(KiSquareRootDouble)
|
|||
|
|
|
|||
|
|
ldc1 f0,0(a0) // get double value
|
|||
|
|
cfc1 t0,fsr // get current floating status
|
|||
|
|
and t0,t1,0x3 // isolate rounding mode
|
|||
|
|
ctc1 t0,fsr // set current floating status
|
|||
|
|
sqrt.d f0,f0 // compute single square root
|
|||
|
|
cfc1 v0,fsr // get result floating status
|
|||
|
|
srl v0,v0,2 // isolate inexact bit
|
|||
|
|
and v0,v0,1 //
|
|||
|
|
sdc1 f0,0(a0) // store result value
|
|||
|
|
j ra //
|
|||
|
|
|
|||
|
|
.end KiSquareRootDouble
|
|||
|
|
|
|||
|
|
SBTTL("Single Square Root")
|
|||
|
|
//++
|
|||
|
|
//
|
|||
|
|
// ULONG
|
|||
|
|
// KiSquareRootSingle (
|
|||
|
|
// IN PULONG SingleValue
|
|||
|
|
// )
|
|||
|
|
//
|
|||
|
|
// Routine Description:
|
|||
|
|
//
|
|||
|
|
// This routine is called to compute the square root of a single
|
|||
|
|
// precision denormalized value.
|
|||
|
|
//
|
|||
|
|
// N.B. The denormalized value has been converted to a normalized
|
|||
|
|
// value with a exponent equal to the denormalization shift
|
|||
|
|
// count prior to calling this routine.
|
|||
|
|
//
|
|||
|
|
// Arguments:
|
|||
|
|
//
|
|||
|
|
// SingleValue (a0) - Supplies a pointer to the single denormalized
|
|||
|
|
// value.
|
|||
|
|
//
|
|||
|
|
// Return Value:
|
|||
|
|
//
|
|||
|
|
// The inexact bit is returned as the function value.
|
|||
|
|
//
|
|||
|
|
//--
|
|||
|
|
|
|||
|
|
LEAF_ENTRY(KiSquareRootSingle)
|
|||
|
|
|
|||
|
|
lwc1 f0,0(a0) // get single value
|
|||
|
|
cfc1 t0,fsr // get current floating status
|
|||
|
|
and t0,t1,0x3 // isolate rounding mode
|
|||
|
|
ctc1 t0,fsr // set current floating status
|
|||
|
|
sqrt.s f0,f0 // compute single square root
|
|||
|
|
cfc1 v0,fsr // get result floating status
|
|||
|
|
srl v0,v0,2 // isolate inexact bit
|
|||
|
|
and v0,v0,1 //
|
|||
|
|
swc1 f0,0(a0) // store result value
|
|||
|
|
j ra //
|
|||
|
|
|
|||
|
|
.end KiSquareRootSingle
|