/*************************************************************************************
 *  fpSparc.s (Basic Interval Arithmetic Subroutines Level 0 - Rounding Control)
 *
 *  Version:                     1.2
 *  Date:                        6/14/93
 *  Author:                      O. Knueppel
 *
 *  Architecture: Sparc
 *************************************************************************************/

		.data
		.align	4
_CwRoundUp:
		.word	0x80000000
_CwRoundDown:
		.word	0xC0000000
_CwRoundNear:
		.word	0x00000000

		.text

		.align	4
		.global	_BiasRoundUp
		.proc	020
_BiasRoundUp:
		sethi	%hi(_CwRoundUp),%g2
		retl
		ld	[%g2+%lo(_CwRoundUp)],%fsr

		.align	4
		.global	_BiasRoundDown
		.proc	020
_BiasRoundDown:
		sethi	%hi(_CwRoundDown),%g2
		retl
		ld	[%g2+%lo(_CwRoundDown)],%fsr

		.align	4
		.global	_BiasRoundNear
		.proc	020
_BiasRoundNear:
		sethi	%hi(_CwRoundNear),%g2
		retl
		ld	[%g2+%lo(_CwRoundNear)],%fsr