######################################################################################
#  fp68000.s (Basic Interval Arithmetic Subroutines Level 0 - Rounding Control)
#
#  Version:                     1.1
#  Date:                        3/16/93
#  Author:                      O. Knueppel
#
#  Architecture: MC68000 with 68881 and upward compatibles
######################################################################################

		.text
		.even
		.globl	_BiasRoundUp
_BiasRoundUp:
		movel	__BiasCwRoundUp, d0
		fmovel	d0,fpc
		rts

		.globl	_BiasRoundDown
_BiasRoundDown:
		movel	__BiasCwRoundDown, d0
		fmovel	d0,fpc
		rts

		.globl	_BiasRoundNear
_BiasRoundNear:
		movel	__BiasCwRoundNear, d0
		fmovel	d0,fpc
		rts