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.
95 lines
2.3 KiB
95 lines
2.3 KiB
/**
|
|
*** Copyright (C) 1996-97 Intel Corporation. All rights reserved.
|
|
***
|
|
*** The information and source code contained herein is the exclusive
|
|
*** property of Intel Corporation and may not be disclosed, examined
|
|
*** or reproduced in whole or in part without explicit written authorization
|
|
*** from the company.
|
|
**/
|
|
|
|
// TITLE("Large Integer Arithmetic")
|
|
//++
|
|
//
|
|
// Module Name:
|
|
//
|
|
// largeint.s
|
|
//
|
|
// Abstract:
|
|
//
|
|
// This module implements routines for performing extended integer
|
|
// arithmetic.
|
|
//
|
|
// Author:
|
|
//
|
|
// William K. Cheung (wcheung) 08-Feb-1996
|
|
//
|
|
// Environment:
|
|
//
|
|
// Any mode.
|
|
//
|
|
// Revision History:
|
|
//
|
|
// 09-Feb-1996 Updated to EAS 2.1
|
|
//
|
|
//--
|
|
|
|
#include "ksia64.h"
|
|
|
|
.file "largeint.s"
|
|
|
|
//++
|
|
//
|
|
// LARGE_INTEGER
|
|
// RtlExtendedMagicDivide (
|
|
// IN LARGE_INTEGER Dividend,
|
|
// IN LARGE_INTEGER MagicDivisor,
|
|
// IN CCHAR ShiftCount
|
|
// )
|
|
//
|
|
// Routine Description:
|
|
//
|
|
// This function divides a signed large integer by an unsigned large integer
|
|
// and returns the signed large integer result. The division is performed
|
|
// using reciprocal multiplication of a signed large integer value by an
|
|
// unsigned large integer fraction which represents the most significant
|
|
// 64-bits of the reciprocal divisor rounded up in its least significant bit
|
|
// and normalized with respect to bit 63. A shift count is also provided
|
|
// which is used to truncate the fractional bits from the result value.
|
|
//
|
|
// Arguments:
|
|
//
|
|
// Dividend (a0) - Supplies the dividend value.
|
|
//
|
|
// MagicDivisor (a1) - Supplies the magic divisor value which
|
|
// is a 64-bit multiplicative reciprocal.
|
|
//
|
|
// Shiftcount (a2) - Supplies the right shift adjustment value.
|
|
//
|
|
// Return Value:
|
|
//
|
|
// The large integer result is returned as the function value in v0.
|
|
//
|
|
//--
|
|
|
|
LEAF_ENTRY(RtlExtendedMagicDivide)
|
|
|
|
cmp.gt pt0, pt1 = r0, a0
|
|
;;
|
|
(pt0) sub a0 = r0, a0
|
|
;;
|
|
|
|
setf.sig ft0 = a0
|
|
setf.sig ft1 = a1
|
|
;;
|
|
zxt1 a2 = a2
|
|
xma.hu ft2 = ft0, ft1, f0
|
|
;;
|
|
getf.sig v0 = ft2
|
|
;;
|
|
shr v0 = v0, a2
|
|
;;
|
|
|
|
(pt0) sub v0 = r0, v0
|
|
LEAF_RETURN
|
|
|
|
LEAF_EXIT(RtlExtendedMagicDivide)
|