060sp/dist/fpsp.s

2506 #	fsub	fdsub	fssub		flogn
4837 	short		tbl_trans - tbl_trans	# $28-0 fsub norm
4838 	short		tbl_trans - tbl_trans	# $28-1 fsub zero
4839 	short		tbl_trans - tbl_trans	# $28-2 fsub inf
4840 	short		tbl_trans - tbl_trans	# $28-3 fsub qnan
4841 	short		tbl_trans - tbl_trans	# $28-5 fsub denorm
4842 	short		tbl_trans - tbl_trans	# $28-4 fsub snan
4843 	short		tbl_trans - tbl_trans	# $28-6 fsub unnorm
5176 	fsub.x		(%a1)+,%fp0 		# X-Y1
5177 	fsub.s		(%a1),%fp0 		# fp0 = R = (X-Y1)-Y2
5386 	fsub.x		(%a1)+,%fp0		# X-Y1
5387 	fsub.s		(%a1),%fp0		# FP0 IS R = (X-Y1)-Y2
5557 	fsub.s		&0x00800000,%fp1
5611 	fsub.x		%fp0,%fp1		# determine low component of result
5661 	fsub.s		TWOTO63(%a6),%fp2	# fp2 = N
5690 	fsub.x		%fp3,%fp4		# fp4 = W-P
5692 	fsub.x		%fp3,%fp0		# fp0 = A := R - P
5696 	fsub.x		%fp4,%fp1		# fp1 = a := r - p
5706 	fsub.x		%fp0,%fp3		# fp3 = A-R
5902 	fsub.x		(%a1)+,%fp0		# X-Y1
5904 	fsub.s		(%a1),%fp0		# FP0 IS R = (X-Y1)-Y2
6042 	fsub.x		%fp0,%fp1		# determine low component of result
6092 	fsub.s		TWOTO63(%a6),%fp2	# fp2 = N
6121 	fsub.x		%fp3,%fp4		# fp4 = W-P
6123 	fsub.x		%fp3,%fp0		# fp0 = A := R - P
6127 	fsub.x		%fp4,%fp1		# fp1 = a := r - p
6137 	fsub.x		%fp0,%fp3		# fp3 = A-R
6402 	fsub.x		X(%a6),%fp0		# FP0 IS X-F
6660 	fsub.x		%fp0,%fp1		# 1-X
7765 	fsub.d		T1(%pc),%fp0		# (|X|-16381LOG2_LEAD)
7766 	fsub.d		T2(%pc),%fp0		# |X| - 16381 LOG2, ACCURATE
7884 	fsub.d		T1(%pc),%fp0		# (|X|-16381LOG2_LEAD)
7891 	fsub.d		T2(%pc),%fp0		# |X| - 16381 LOG2, ACCURATE
8386 	fsub.x		F(%a6),%fp0		# Y-F
8444 	fsub.s		one(%pc),%fp1		# FP1 IS X-1
8619 	fsub.x		F(%a6),%fp0		# 2-F
8637 	fsub.x		F(%a6),%fp0		# 1-F
9150 	fsub.x		%fp1,%fp0		# X - (1/64)*INT(64 X)
9249 	fsub.x		%fp1,%fp0		# X - N L_LEAD
9252 	fsub.x		%fp2,%fp0		# X - N L_TRAIL
10036 	fsub.x		Y(%a6),%fp0		# no exceptions
11460 	long		fsub		- tbl_unsupp 	# 28: fsub
15065 #	fsub(): emulates the fsub instruction				#
15101 	bra.b		fsub
15108 	global		fsub
15109 fsub:
15131 	fsub.x		FP_SCR0(%a6),%fp0	# execute subtract
15224 	fsub.x		FP_SCR0(%a6),%fp0	# execute subtract
15242 	fsub.x		FP_SCR0(%a6),%fp0	# execute subtract
15276 	fsub.x		FP_SCR0(%a6),%fp1	# execute subtract
15338 	fsub.x		FP_SCR0(%a6),%fp1	# execute subtract
15456 # scale the DENORM or NORM and jump to the regular fsub routine.
15466 	bra.w		fsub_zero_entry		# go execute fsub
15476 	bra.w		fsub_zero_entry		# go execute fsub
15849 #	addsub_scaler2(): scale inputs to fadd/fsub such that no	#
23709 	fsub.s		FONE(%pc),%fp0	# subtract off 1.0