m68k/fpsp040/do_func.S

16 | functions can find FPTEMP at -12(a0).
51 MONE:	.long	0xbfff0000,0x80000000,0x00000000	|-1
53 MZERO:	.long	0x80000000,0x00000000,0x00000000	|-0
55 MINF:	.long	0xffff0000,0x00000000,0x00000000	|-inf
56 QNAN:	.long	0x7fff0000,0xffffffff,0xffffffff	|non-signaling nan
58 MPIBY2:  .long	0xbFFF0000,0xC90FDAA2,0x2168C235	|-PI/2
166 	fmovemx (%a0),%fp0-%fp0
167 	fcmpb	#-1,%fp0
169 	fbeq	t_dz2		|if = -1, divide by zero exception
171 	bra	t_operr		|take care of operands < -1
257 	.long	smod_fpn	|  00,10  norm,inf  = fpn
258 	.long	smod_snan	|  00,11  norm,nan  = nan
259 	.long	smod_zro	|  01,00  zero,norm = +-zero
261 	.long	smod_zro	|  01,10  zero,inf  = +-zero
262 	.long	smod_snan	|  01,11  zero,nan  = nan
263 	.long	smod_oper	|  10,00  inf,norm  = nan with operr
264 	.long	smod_oper	|  10,01  inf,zero  = nan with operr
265 	.long	smod_oper	|  10,10  inf,inf   = nan with operr
266 	.long	smod_snan	|  10,11  inf,nan   = nan
267 	.long	smod_dnan	|  11,00  nan,norm  = nan
268 	.long	smod_dnan	|  11,01  nan,zero  = nan
269 	.long	smod_dnan	|  11,10  nan,inf   = nan
270 	.long	smod_dnan	|  11,11  nan,nan   = nan
289 |				;10 = inf
290 |				;11 = nan
307 	bsetb	#q_sn_bit,FPSR_QBYTE(%a6) |set q-byte sign bit
309 	btstl	#7,%d0		|test if + or -
311 	bra	ld_mzero	|else neg load -0
319 	bsetb	#q_sn_bit,FPSR_QBYTE(%a6) |set q-byte sign bit
323 	leal	FPTEMP(%a6),%a0	|a0<- addr(FPTEMP)
338 	.long	srem_fpn	|  00,10  norm,inf  = fpn
339 	.long	srem_snan	|  00,11  norm,nan  = nan
340 	.long	srem_zro	|  01,00  zero,norm = +-zero
342 	.long	srem_zro	|  01,10  zero,inf  = +-zero
343 	.long	srem_snan	|  01,11  zero,nan  = nan
344 	.long	srem_oper	|  10,00  inf,norm  = nan with operr
345 	.long	srem_oper	|  10,01  inf,zero  = nan with operr
346 	.long	srem_oper	|  10,10  inf,inf   = nan with operr
347 	.long	srem_snan	|  10,11  inf,nan   = nan
348 	.long	srem_dnan	|  11,00  nan,norm  = nan
349 	.long	srem_dnan	|  11,01  nan,zero  = nan
350 	.long	srem_dnan	|  11,10  nan,inf   = nan
351 	.long	srem_dnan	|  11,11  nan,nan   = nan
369 |				;10 = inf
370 |				;11 = nan
387 	bsetb	#q_sn_bit,FPSR_QBYTE(%a6) |set q-byte sign bit
389 	btstl	#7,%d0		|test if + or -
391 	bra	ld_mzero	|else neg load -0
399 	bsetb	#q_sn_bit,FPSR_QBYTE(%a6) |set q-byte sign bit
403 	leal	FPTEMP(%a6),%a0	|a0<- addr(FPTEMP)
417 	.long	scl_opr		|  00,10  norm,inf  = nan with operr
418 	.long	scl_snan	|  00,11  norm,nan  = nan
419 	.long	scl_zro		|  01,00  zero,norm = +-zero
420 	.long	scl_zro		|  01,01  zero,zero = +-zero
421 	.long	scl_opr		|  01,10  zero,inf  = nan with operr
422 	.long	scl_snan	|  01,11  zero,nan  = nan
423 	.long	scl_inf		|  10,00  inf,norm  = +-inf
424 	.long	scl_inf		|  10,01  inf,zero  = +-inf
425 	.long	scl_opr		|  10,10  inf,inf   = nan with operr
426 	.long	scl_snan	|  10,11  inf,nan   = nan
427 	.long	scl_dnan	|  11,00  nan,norm  = nan
428 	.long	scl_dnan	|  11,01  nan,zero  = nan
429 	.long	scl_dnan	|  11,10  nan,inf   = nan
430 	.long	scl_dnan	|  11,11  nan,nan   = nan
443 |				;010 = inf	 10 = inf
444 |				;011 = nan	 11 = nan
459 	btstb	#sign_bit,FPTEMP_EX(%a6)	|test if + or -
461 	bra	ld_mzero		|if neg then load -0
463 	btstb	#sign_bit,FPTEMP_EX(%a6)	|test if + or -
465 	bra	ld_minf			|else neg load -inf
480 	fmovemx PONE,%fp1-%fp1	|do not allow FPSR to be affected
496 	fmovemx FP_SCR1(%a6),%fp1-%fp1
510 |**Returns -PI/2
513 	fmovex MPIBY2,%fp0		|load -pi/2
524 |**Returns -inf
527 	fmovex MINF,%fp0		|load -inf
537 |**Returns -1
540 	fmovex MONE,%fp0		|load -1
551 |**Returns -0
554 	fmovex MZERO,%fp0		|load -0