ifpsp060/src/fplsp.S

583 	clr.l		%d0
640 	clr.l		%d0
699 	clr.l		%d0
760 	clr.l		%d0
817 	clr.l		%d0
876 	clr.l		%d0
937 	clr.l		%d0
994 	clr.l		%d0
1053 	clr.l		%d0
1114 	clr.l		%d0
1171 	clr.l		%d0
1230 	clr.l		%d0
1291 	clr.l		%d0
1348 	clr.l		%d0
1407 	clr.l		%d0
1468 	clr.l		%d0
1525 	clr.l		%d0
1584 	clr.l		%d0
1645 	clr.l		%d0
1702 	clr.l		%d0
1761 	clr.l		%d0
1822 	clr.l		%d0
1879 	clr.l		%d0
1938 	clr.l		%d0
1999 	clr.l		%d0
2056 	clr.l		%d0
2115 	clr.l		%d0
2176 	clr.l		%d0
2233 	clr.l		%d0
2292 	clr.l		%d0
2353 	clr.l		%d0
2410 	clr.l		%d0
2469 	clr.l		%d0
2530 	clr.l		%d0
2587 	clr.l		%d0
2646 	clr.l		%d0
2707 	clr.l		%d0
2764 	clr.l		%d0
2823 	clr.l		%d0
2884 	clr.l		%d0
2941 	clr.l		%d0
3000 	clr.l		%d0
3061 	clr.l		%d0
3118 	clr.l		%d0
3177 	clr.l		%d0
3238 	clr.l		%d0
3295 	clr.l		%d0
3354 	clr.l		%d0
3415 	clr.l		%d0
3472 	clr.l		%d0
3531 	clr.l		%d0
3592 	clr.l		%d0
3649 	clr.l		%d0
3708 	clr.l		%d0
3769 	clr.l		%d0
3826 	clr.l		%d0
3885 	clr.l		%d0
3946 	clr.l		%d0
4003 	clr.l		%d0
4062 	clr.l		%d0
4123 	clr.l		%d0
4182 	clr.l		%d0
4243 	clr.l		%d0
4312 	clr.l		%d0
4378 	clr.l		%d0
4446 	clr.l		%d0
4516 	clr.l		%d0
4582 	clr.l		%d0
4650 	clr.l		%d0
4720 	clr.l		%d0
4786 	clr.l		%d0
4854 	clr.l		%d0
5480 	clr.l		FP_SCR0_LO(%a6)
5485 	clr.l		FP_SCR1_LO(%a6)
5515 	clr.l		%d1			# d0 = L := 0
5555 	clr.l		FP_SCR0_LO(%a6)		# FP_SCR0 = 2**(L) * Piby2_1
5560 	clr.l		FP_SCR1_LO(%a6)		# FP_SCR1 = 2**(L) * Piby2_2
5911 	clr.l		FP_SCR0_LO(%a6)
5916 	clr.l		FP_SCR1_LO(%a6)
5946 	clr.l		%d1			# d0 = L := 0
5986 	clr.l		FP_SCR0_LO(%a6)		# FP_SCR0 = 2**(L) * Piby2_1
5991 	clr.l		FP_SCR1_LO(%a6)		# FP_SCR1 = 2**(L) * Piby2_2
6644 	clr.l		%d0
7171 	clr.l		SCALE+8(%a6)
7239 	clr.l		ADJSCALE+8(%a6)
7332 	clr.l		SC+8(%a6)
7346 	clr.l		ONEBYSC+8(%a6)
7407 	clr.l		SC+8(%a6)
7420 	clr.l		SC+8(%a6)
7629 	clr.l		%d0
7654 	clr.l		%d0
7744 	clr.l		%d0
7779 	clr.l		%d0
7876 	clr.l		%d0
7914 	clr.l		%d0
8270 	clr.l		F+8(%a6)
8393 	clr.l		%d2			# D2 used for holding K
8400 	clr.l		%d5
8402 	clr.l		%d6
8418 	clr.l		%d6
8503 	clr.l		F+8(%a6)
8521 	clr.l		F+8(%a6)
8622 	clr.l		%d0			# pass ext prec,RN
8746 	clr.l		%d0
8758 	clr.l		%d0
8788 	clr.l		%d0
8803 	clr.l		%d0
9038 	clr.w		FACT2HI+2(%a6)
9039 	clr.l		FACT2LOW(%a6)
9140 	clr.w		FACT2HI+2(%a6)
9141 	clr.l		FACT2LOW(%a6)
9188 	clr.l		ADJFACT+8(%a6)
9229 	andi.w		&0x7fff,%d0		# clr src sign bit
9280 	clr.l		-(%sp)			# insert zero low mantissa
9282 	clr.l		-(%sp)			# make zero exponent
9288 	clr.l		-(%sp)			# insert zero high mantissa
9289 	clr.l		-(%sp)			# make zero exponent
9301 	clr.l		-(%sp)			# insert new exponent
9420 	clr.b		FPSR_QBYTE(%a6)
9422 	clr.b		Mod_Flag(%a6)
9427 	clr.b		FPSR_QBYTE(%a6)
9451 	clr.l		%d5
9453 	clr.l		%d6
9461 	clr.l		%d6
9496 	clr.l		%d2
9498 	clr.l		%d6
9506 	clr.l		%d6
9529 	clr.l		%d6			# D6 := carry <- 0
9530 	clr.l		%d3			# D3 is Q
9567 	clr.l		%d6			# clear carry
9595 	clr.l		%d2
9597 	clr.l		%d6
9605 	clr.l		%d6
9644 	clr.b		Sc_Flag(%a6)
9681 	clr.l		%d6
9726 	clr.l		%d3
9730 	clr.b		Sc_Flag(%a6)
10574 	clr.b		FPSR_CC(%a6)
10709 	clr.b		FPSR_QBYTE(%a6)
10869 	clr.l		FTEMP_LO(%a0)		# lo(man) is now zero
10916 	clr.l		%d1			# clear top word
10966 	clr.l		FTEMP_LO(%a0)		# lo(man) = 0