ifpsp060/src/fpsp.S

422 set EXT_BIAS,		0x3fff			# extended precision bias
423 set SGL_BIAS,		0x007f			# single precision bias
424 set DBL_BIAS,		0x03ff			# double precision bias
7603 #	      The exponent bias is removed and the exponent value is	#
7625 	subi.w		&0x3fff,%d0		# subtract off the bias
7638 	subi.w		&0x3fff,%d0		# subtract off the bias
9816 #	                                        ...with bias $7FFD
9830 #                                       ...with bias $7FFD
9835 #                                       ...with bias $7FFD
9861 #                                       ...with bias $7FFD
9875 #                                       ...with bias $7FFD
9880 #                                       ...with bias $7FFD
9960 #                                       ...with bias $7FFD
10218 	addi.l		&0x6000,%d0		# add extra bias
11695 # - if precision is extended, then we have the EXOP. simply bias the exponent
11712 	subi.l		&0x6000,%d1		# subtract bias
11833 	addi.l		&0x6000,%d1		# add bias
12108 # normalize the mantissa and add the bias of 0x6000 to the resulting negative
12118 	addi.w		&0x6000,%d0		# add new bias to exponent
12231 	addi.l		&0x6000,%d1		# add new bias
12285 	sub.l		&0x6000,%d1		# subtract bias
12525 	subi.l		&0x6000,%d1		# subtract bias
12601 	addi.l		&0x6000,%d1		# add bias
12891 # normalize the mantissa and add the bias of 0x6000 to the resulting negative
12898 	addi.w		&0x6000,%d0		# add new bias to exponent
13011 	addi.l		&0x6000,%d1		# add new bias
13065 	subi.l		&0x6000,%d1		# subtract bias
13509 # normalize the mantissa and add the bias of 0x6000 to the resulting negative
13516 	addi.w		&0x6000,%d0		# add new bias to exponent
13626 	addi.l		&0x6000,%d1		# add new bias
13680 	subi.l		&0x6000,%d1		# subtract bias
14060 	subi.l		&0x6000,%d1		# subtract bias
14138 	addi.l		&0x6000,%d1		# add bias
14414 	subi.l		&0x6000,%d1		# subtract new bias
14471 	addi.l		&0x6000,%d1		# add bias
14747 	subi.l		&0x6000,%d2		# add extra bias
14824 	addi.l		&0x6000,%d1		# add new bias
15200 	subi.l		&0x6000,%d2		# subtract new bias
15277 	addi.l		&0x6000,%d1		# subtract new bias
15708 	addi.l		&0x6000,%d1		# add new bias
15762 	subi.l		&0x6000,%d1		# subtract bias
20848 #	dbl_exp = ext_exp - $3fff(ext bias) + $7ff(dbl bias)		#
20870 	subi.w		&EXT_BIAS,%d0		# subtract extended precision bias
20871 	addi.w		&DBL_BIAS,%d0		# add double precision bias
20874 	subq.w		&0x1,%d0		# yes; denorm bias = DBL_BIAS - 1
20913 #	sgl_exp = ext_exp - $3fff(ext bias) + $7f(sgl bias)		#
20935 	subi.w		&EXT_BIAS,%d0		# subtract extended precision bias
20936 	addi.w		&SGL_BIAS,%d0		# add single precision bias
20939 	subq.w		&0x1,%d0		# yes; denorm bias = SGL_BIAS - 1
23698 	sub.w		&0x3fff,%d0	# strip off bias
24245 	sub.l		&0x3ffd,%d0	# sub bias less 2 to make fract
24337 	sub.w		&0x3ffd,%d0	# subtract off bias