######################################################################################
#  fpRS6000.s (Basic Interval Arithmetic Subroutines Level 0 - Rounding Control)
#
#  Version:                     1.1
#  Date:                        3/16/93
#  Author:                      D. Husung, O. Knueppel
#
#  Architecture: RS/6000
######################################################################################

		.toc
		.csect	[PR]
		.align	2
		.globl	BiasRoundUp
		.globl	.BiasRoundUp
		.csect	BiasRoundUp[DS]
BiasRoundUp:
		.long 	.BiasRoundUp, TOC[tc0], 0
		.csect [PR]
.BiasRoundUp:
		mtfsfi	7,2
		br
LT..BiasRoundUp:
		.long 	0
		.byte 	0,0,32,64,0,0,0,0
		.long	LT..BiasRoundUp-.BiasRoundUp
		.short	11
		.byte	"BiasRoundUp"
		.align	2

		.globl	BiasRoundDown
		.globl	.BiasRoundDown
		.csect	BiasRoundDown[DS]
BiasRoundDown:
		.long	.BiasRoundDown, TOC[tc0], 0
		.csect 	[PR]
.BiasRoundDown:
		mtfsfi	7,3
		br
LT..BiasRoundDown:
		.long	0
		.byte	0,0,32,64,0,0,0,0
		.long	LT..BiasRoundDown-.BiasRoundDown
		.short	13
		.byte	"BiasRoundDown"
		.align	2

		.globl	BiasRoundNear
		.globl	.BiasRoundNear
		.csect	BiasRoundNear[DS]
BiasRoundNear:
		.long	.BiasRoundNear, TOC[tc0], 0
		.csect	[PR]
.BiasRoundNear:
		mtfsfi	7,0
		br
LT..BiasRoundNear:
		.long	0
		.byte	0,0,32,64,0,0,0,0
		.long	LT..BiasRoundNear-.BiasRoundNear
		.short	13
		.byte	"BiasRoundNear"
_section_.text:
		.csect	.data[RW]
		.long _section_.text
