m68k/fpsp040/util.S

72 | This entry point is used by kernel_ex.
77 | Output:	a result is in ETEMP (internal extended format)
94 | instruction is fsgldiv or fsglmul or fsadd, fdadd, fsub, fdsub, fsmul,
96 | If the instruction is fsgldiv of fsglmul, the rounding precision must be
97 | extended.  If the instruction is not fsgldiv or fsglmul but a force-
98 | precision instruction, the rounding precision is then set to the force
104 	beql	ovf_e1_exc		|it is cu exception
109 	beql	ovff_sgl		|force precision is single
111 	beql	ovff_dbl		|force precision is double
118 	bra	ovf_fpcr		|instruction is none of the above
124 	beql	ovff_sgl		|the instruction is force single
126 	beql	ovff_dbl		|the instruction is force double
136 | Inst is either fsgldiv or fsglmul.  Force extended precision.
149 | The precision is in the fpcr.
170 |				;is the rounding precision
184 	orl	%d1,%d0		|index is fmt:mode in d0{3:0}
192 	leal	EXT_PINF,%a1	|answer is +/- infinity
196 	leal	EXT_PLRG,%a1	|answer is +/- large number
202 	leal	EXT_PINF,%a1	|answer is negative infinity
206 	leal	EXT_PLRG,%a1	|answer is large positive number
212 	leal	EXT_PLRG,%a1	|answer is large negative number
216 	leal	EXT_PINF,%a1	|answer is positive infinity
223 	leal	EXT_PINF,%a1	|answer is +/- infinity
227 	leal	DBL_PLRG,%a1	|answer is +/- large number
233 	leal	EXT_PINF,%a1	|answer is negative infinity
235 	bra	end_ovfr	|inf is same for all precisions (ext,dbl,sgl)
237 	leal	DBL_PLRG,%a1	|answer is large positive number
243 	leal	DBL_PLRG,%a1	|answer is large negative number
247 	leal	EXT_PINF,%a1	|answer is positive infinity
254 	leal	EXT_PINF,%a1	|answer is +/-  infinity
258 	leal	SGL_PLRG,%a1	|answer is +/- large number
264 	leal	EXT_PINF,%a1	|answer is negative infinity
268 	leal	SGL_PLRG,%a1	|answer is large positive number
274 	leal	SGL_PLRG,%a1	|answer is large negative number
278 	leal	EXT_PINF,%a1	|answer is positive infinity
325 |	get destination format - this is the also the rounding precision
350 | is the same as the rounding precision.  Pass results from g_dfmtou.
361 	beql	unff_sgl	|force precision is single
362 	cmpil	#0x3,%d0		|force precision is double
426 	clrl	%d0		|if E3, only opclass 0x0 is possible
435 |	If E1, the format is from cmdreg1b{12:10}
436 |	If E3, the format is extended.
446 	clrl	%d0		|if E1, size is always ext
514 	orl	%d1,%d0		|index is fmt:mode in d0{3:0}
522 	leal	EXT_PZRO,%a1	|answer is +/- zero
526 	leal	EXT_PZRO,%a1	|answer is +/- zero
533 	leal	EXT_PSML,%a1	|answer is negative smallest denorm
537 	leal	EXT_PZRO,%a1	|answer is positive zero
544 	leal	EXT_PZRO,%a1	|answer is negative zero
548 	leal	EXT_PSML,%a1	|answer is positive smallest denorm
554 	leal	DBL_PZRO,%a1	|answer is +/- zero
558 	leal	DBL_PZRO,%a1	|answer is +/- zero
565 	leal	DBL_PSML,%a1	|answer is smallest denormalized negative
569 	leal	DBL_PZRO,%a1	|answer is positive zero
576 	leal	DBL_PZRO,%a1	|answer is negative zero
580 	leal	DBL_PSML,%a1	|answer is smallest denormalized negative
586 	leal	SGL_PZRO,%a1	|answer is +/- zero
590 	leal	SGL_PZRO,%a1	|answer is +/- zero
597 	leal	SGL_PSML,%a1	|answer is smallest denormalized negative
601 	leal	SGL_PZRO,%a1	|answer is positive zero
608 	leal	SGL_PZRO,%a1	|answer is negative zero
612 	leal	SGL_PSML,%a1	|answer is smallest denormalized positive
639 |	Size is: