ifpsp060/src/pfpsp.S

2484 #	fabs	fdabs	fsabs		facos		fmod
3618 # the hardware, for "fabs" and "fneg" w/ a long source format, puts the
4072 # routines like fadd/fmul/fabs. The transcendentals ARE NOT. This is because
4104 	long		fabs		- tbl_unsupp	# 18: fabs
7514 	fabs.x		%fp0			# need absolute value
7725 	fabs.x		%fp0			# need absolute value
8184 	fabs.x		%fp0,%fp1		# make a copy of result
8295 	fabs.x		%fp0,%fp1		# make a copy of result
8319 	fabs.x		%fp1			# make absolute value
8430 	fabs.x		%fp0			# clear result sign
8435 	fabs.x		%fp0			# clear result sign
8738 	fabs.x		%fp0,%fp1		# make a copy of result
9063 	fabs.x		%fp0,%fp1		# make a copy of result
9087 	fabs.x		%fp1			# make absolute value
9212 	fabs.x		%fp0			# clear sign bit
9219 	fabs.x		%fp0			# return positive INF
9518 	fabs.x		%fp0,%fp1		# make a copy of result
9844 #	fabs():  emulates the fabs instruction				#
9869 # scale the operand such that the exponent is zero. Perform an "fabs"	#
9883 	bra.b		fabs
9890 	global		fabs
9891 fabs:
9985 	fabs.x		FP_SCR0(%a6),%fp0	# perform absolute
10072 	fabs.x		FP_SCR0(%a6),%fp0	# perform absolute
10126 	fabs.x		FP_SCR0(%a6),%fp0	# perform absolute
10133 	fabs.x		%fp0,%fp1		# make a copy of result
10153 	fabs.x		SRC(%a0),%fp0		# force absolute value
10513 	fabs.x		%fp0,%fp1		# make a copy of result
10590 	fabs.x		%fp0,%fp1		# make a copy of result
10614 	fabs.x		%fp1			# make absolute value
10926 	fabs.x		%fp0,%fp1		# make a copy of result
10949 	fabs.x		%fp1			# make absolute value
11311 	fabs.x		%fp0			# compare absolute values
11312 	fabs.x		%fp1
11764 	fabs.x		%fp0			# compare absolute values
11765 	fabs.x		%fp1
13889 	fabs.x		%fp0		# use abs(X)
14109 	fabs.x		%fp0		# take abs of YINT
14115 	fabs.x		%fp0		# take abs of YINT
14154 	fabs.x		%fp0		# get abs(YINT)
14271 	fabs.x		%fp0		# get abs of ILOG
14280 	fabs.x		%fp0		# get abs of ILOG
14289 	fabs.x		%fp0		# get abs of ILOG