ifpsp060/src/pfpsp.S

696 	clr.l		%d0
785 	clr.l		%d0
939 	clr.l		%d0
1059 	clr.l		%d0
1239 	clr.b		SPCOND_FLG(%a6)		# clear special condition flag
1297 	clr.l		%d0
1530 	clr.l		%d0
1842 	clr.l		%d0
2087 	clr.l		%d0
2336 	clr.l		%d0			# clear g,r,s
2358 	clr.l		%d1
2559 	clr.b		STORE_FLG(%a6)		# clear "store result" boolean
2590 	clr.l		%d0
2753 	clr.b		SPCOND_FLG(%a6)
2817 	clr.l		%d0
2840 	clr.l		%d1
2985 	clr.l		%d0
3003 	clr.l		%d0
3484 	clr.b		SPCOND_FLG(%a6)		# clear special case flag
3487 	clr.w		2+FP_SCR0(%a6)
3673 	clr.l		%d0
3701 	clr.l		%d0
3726 	clr.l		%d0
5094 	clr.l		%d2			# yes, so index = 0
5121 	clr.l		%d3
5184 	clr.l		%d0
5847 	clr.l		%d0			# clear g,r,s
5863 	clr.l		FTEMP_HI(%a0)		# set d1 = 0 (ms mantissa)
5864 	clr.l		FTEMP_LO(%a0)		# set d2 = 0 (ms mantissa)
6018 	clr.l		FTEMP_HI(%a0)		# store FTEMP_HI = 0
6044 	clr.l		FTEMP_HI(%a0)		# clear hi(mantissa)
6045 	clr.l		FTEMP_LO(%a0)		# clear lo(mantissa)
6117 	clr.l		FTEMP_HI(%a0)		# clear hi(mantissa)
6118 	clr.l		FTEMP_LO(%a0)		# clear lo(mantissa)
6127 	clr.l		FTEMP_HI(%a0)		# clear hi(mantissa)
6128 	clr.l		FTEMP_LO(%a0)		# clear lo(mantissa)
6263 	clr.l		FTEMP_LO(%a0)		# clear d2
6384 	bra.b		ext_grs_end_sd		# if words 3 and 4 are clr, exit
6472 	clr.l		FTEMP_LO(%a0)		# lo(man) is now zero
6519 	clr.l		%d1			# clear top word
6569 	clr.l		FTEMP_LO(%a0)		# lo(man) = 0
6857 	clr.b		FTEMP_SGN(%a0)		# clear temp sign
6861 	clr.l		%d0
6899 	clr.l		%d0			# force rnd prec = ext
6917 	clr.b		FTEMP_SGN(%a0)		# clear temp sign
6921 	clr.l		%d0
7269 	clr.w		2+FP_SCR0_EX(%a6)	# clear reserved field
7403 	clr.l		%d0			# pass: S.F. = 0
7558 	clr.l		%d0			# pass: zero g,r,s
7632 	clr.l		%d0			# pass: S.F. = 0
7769 	clr.l		%d0			# clear d0
7834 	clr.l		%d0
7942 	clr.w		2+FP_SRC_EX(%a6)
8012 	clr.w		%d1
8830 	clr.w		%d1
10189 	clr.w		%d1
10393 	clr.w		%d1
10734 	clr.w		%d1
10940 	clr.l		%d1			# clear scratch register
11081 	clr.w		%d1
11433 	clr.w		FP_SCR1_EX(%a6)
11434 	clr.l		FP_SCR1_HI(%a6)
11435 	clr.l		FP_SCR1_LO(%a6)
11443 	clr.w		FP_SCR0_EX(%a6)
11444 	clr.l		FP_SCR0_HI(%a6)
11445 	clr.l		FP_SCR0_LO(%a6)
11534 	clr.w		%d1
11885 	clr.w		FP_SCR1_EX(%a6)
11886 	clr.l		FP_SCR1_HI(%a6)
11887 	clr.l		FP_SCR1_LO(%a6)
11895 	clr.w		FP_SCR0_EX(%a6)
11896 	clr.l		FP_SCR0_HI(%a6)
11897 	clr.l		FP_SCR0_LO(%a6)
11978 	clr.w		%d1
13065 	clr.l		%d1			# zero d1 for accumulator
13203 	clr.l		%d1			# zero count reg
13215 	clr.l		%d3			# init offset reg
13238 	clr.l		%d3			# init table index
13255 	clr.l		%d1			# clr counter
13276 	neg.l		%d1			# take abs of exp and clr SE
13278 	and.l		&0xbfffffff,%d4		# and clr SE in d4
13286 	clr.l		%d3			# init table index
13351 	clr.l		%d3			# clear d3 to force no exc and extended
13371 	clr.l		%d3			# table index
13586 	clr.b		BINDEC_FLG(%a6)	# clr norm/denorm flag
13651 	beq.b		A3_cont		# if clr, continue with norm
13681 	clr.w		%d5		# clear ICTR
13795 	clr.w		%d5		# set it zero initially
13796 	clr.w		%d2		# set up d2 for very small case
13833 	clr.l		%d3		# clr table index
13852 	fmov.l		&0,%fpsr	# clr INEX
14094 	clr.l		%d3		# clr table index
14145 	clr.l		%d3		# clr table index
14200 	clr.l		4(%a0)		# zero word 2 of FP_RES
14201 	clr.l		8(%a0)		# zero word 3 of FP_RES
14219 	clr.l		%d1		# put zero in d1 for addx
14304 	clr.l		%d1		# put zero in d1 for addx
14346 	clr.l		%d0		# clr d0 for collection of signs
14523 	clr.w		%d7		# set d7a to signal no digits done