m68k/fpsp040/get_op.S

171 	clrb	DY_MO_FLG(%a6)
172 	tstb	UFLG_TMP(%a6)	|test flag for unsupp/unimp state
176 	btstb	#direction_bit,CMDREG1B(%a6)
178 	btstb	#6,CMDREG1B(%a6)
181 	bfextu	CMDREG1B(%a6){#3:#3},%d0
186 	tstb	DY_MO_FLG(%a6)
190 	btstb	#7,DTAG(%a6)
195 	bfextu	CMDREG1B(%a6){#0:#6},%d0 |get opclass and src fields
206 	btstb	#E1,E_BYTE(%a6)	|if set, there is a packed operand
210 	moveb	STAG(%a6),%d0
211 	orb	DTAG(%a6),%d0	|check if either of STAG/DTAG msb set
216 	btstb	#7,DTAG(%a6)	|check for unsupported data types in
219 	tstb	DY_MO_FLG(%a6)	|
225 	movew	FPTEMP_EX(%a6),%d0 |get destination exponent
231 	leal	FPTEMP(%a6),%a0	|point a0 to dop - used in mk_norm
241 	moveb L_SCR1(%a6),DTAG(%a6) |write the new tag & fpte15
246 	btstb	#7,STAG(%a6)
249 	btstb	#5,STAG(%a6)
255 	movew	ETEMP_EX(%a6),%d0 |get source exponent
259 	leal	ETEMP(%a6),%a0	|point a0 to sop - used in mk_norm
269 	moveb	L_SCR1(%a6),STAG(%a6) |write the new tag & ete15
278 	btstb	#4,CMDREG1B(%a6)	|differentiate between sgl/dbl denorm
286 	btstb	#sign_bit,ETEMP_EX(%a6) |grab sign bit of mantissa
290 	movew	%d1,ETEMP_EX(%a6)
293 	movew	CMDREG1B(%a6),%d1
296 	movew	%d1,CMDREG1B(%a6)	|write back to the command word in stack
298 	leal	ETEMP(%a6),%a0	|point a0 to sop
301 	moveb	L_SCR1(%a6),STAG(%a6) |put tag into source tag reg - d0
308 	movel	FPTEMP_LO(%a6),ETEMP(%a6)	|write ms part of packed
313 	tstb	DY_MO_FLG(%a6)
317 	bfextu	CMDREG1B(%a6){#6:#3},%d0 |extract dest fp reg
322 	fmovemx %d0,FPTEMP(%a6)	|write to FPTEMP
324 	btstb	#7,DTAG(%a6)	|check dest tag for unnorm or denorm
330 	moveb	DTAG(%a6),%d0
334 	movew	FPTEMP_EX(%a6),%d0
338 	orb	#0x10,DTAG(%a6)
345 	clrb	DY_MO_FLG(%a6)	|set dyadic/monadic flag to monadic
346 	bfextu	CMDREG1B(%a6){#4:#2},%d0
359 	movew	CMDREG1B(%a6),%d0
368 	st	DY_MO_FLG(%a6)	|set the inst flag type to dyadic
371 	clrb	DY_MO_FLG(%a6)	|set the inst flag type to monadic
409 	clrl	L_SCR1(%a6)
413 	cmpib	#0x2c,1+EXC_VEC(%a6) |check if unimp
418 	btstb	#direction_bit,CMDREG1B(%a6) |check transfer direction
427 	bsetb	#4,L_SCR1(%a6)	|else set fpte15/ete15 to 1
448 	orw	#dnrm_tag,L_SCR1(%a6) |set denorm tag
449 	bsetb	#unfl_bit,FPSR_EXCEPT(%a6) |set unfl exception bit
460 	orb	#norm_tag,L_SCR1(%a6) |set tag to norm
463 	orb	#dnrm_tag,L_SCR1(%a6) |set tag to denorm
473 	orb	#norm_tag,L_SCR1(%a6) |set tag to norm
476 	orb	#dnrm_tag,L_SCR1(%a6) |set tag to denorm
486 |	ETEMP(a6)	- points to packed decimal string in memory
491 	movew	CMDREG1B(%a6),%d0	|examine command word, looking for fmove's
495 	movew	ETEMP(%a6),%d0	|get word with inf information
503 	tstl	ETEMP_HI(%a6)	|check ms mantissa
505 	tstl	ETEMP_LO(%a6)	|check ls mantissa
509 	btstb	#signan_bit,ETEMP_HI(%a6) |test for snan
511 	orl	#snaniop_mask,USER_FPSR(%a6) |always set snan if it is so
514 	movew	ETEMP_EX+2(%a6),%d0 |get word 4
518 	tstl	ETEMP_HI(%a6)	|check words 3 and 2
520 	tstl	ETEMP_LO(%a6)	|check words 1 and 0
522 	tstl	ETEMP(%a6)	|test sign of the zero
524 	movel	#0x80000000,ETEMP(%a6) |write neg zero to etemp
525 	clrl	ETEMP_HI(%a6)
526 	clrl	ETEMP_LO(%a6)
529 	clrl	ETEMP(%a6)
530 	clrl	ETEMP_HI(%a6)
531 	clrl	ETEMP_LO(%a6)
537 	fmovex %fp0,ETEMP(%a6)	|put the unpacked sop in the fsave stack
547 	movew	ETEMP(%a6),%d0	|get word with inf information
555 	tstl	ETEMP_HI(%a6)	|check ms mantissa
557 	tstl	ETEMP_LO(%a6)	|check ls mantissa
560 	orl	#inf_mask,USER_FPSR(%a6) |set I bit
561 	tstl	ETEMP(%a6)	|check sign
563 	orl	#neg_mask,USER_FPSR(%a6) |set N bit
566 	orl	#nan_mask,USER_FPSR(%a6) |set NaN bit
567 	moveb	#nan_tag,STAG(%a6)	|set stag to NaN
568 	btstb	#signan_bit,ETEMP_HI(%a6) |test for snan
570 	orl	#snaniop_mask,USER_FPSR(%a6) |set snan bit
571 	btstb	#snan_bit,FPCR_ENABLE(%a6) |test for snan enabled
573 	bsetb	#signan_bit,ETEMP_HI(%a6) |force snans to qnans
575 	tstl	ETEMP(%a6)	|check for sign
577 	orl	#neg_mask,USER_FPSR(%a6) |set N bit
581 	movew	ETEMP_EX+2(%a6),%d0 |get word 4
585 	tstl	ETEMP_HI(%a6)	|check words 3 and 2
587 	tstl	ETEMP_LO(%a6)	|check words 1 and 0
589 	tstl	ETEMP(%a6)	|test sign of the zero
591 	orl	#neg_mask+z_mask,USER_FPSR(%a6) |set N and Z
592 	movel	#0x80000000,ETEMP(%a6) |write neg zero to etemp
593 	clrl	ETEMP_HI(%a6)
594 	clrl	ETEMP_LO(%a6)
597 	orl	#z_mask,USER_FPSR(%a6) |set Z
598 	clrl	ETEMP(%a6)
599 	clrl	ETEMP_HI(%a6)
600 	clrl	ETEMP_LO(%a6)
606 	fmovex %fp0,ETEMP(%a6)
611 	movew	CMDREG1B(%a6),%d0	|get the command word
614 	movew	%d0,CMDREG1B(%a6)	|write command word back to fsave stack
636 	movew		ETEMP_EX(%a6),%d1
640 	movel		ETEMP_HI(%a6),%d1
642 	movel		ETEMP_LO(%a6),%d1
645 	moveb		#0x40,STAG(%a6)
649 	moveb		#0x60,STAG(%a6)
657 	moveb		#0x30,STAG(%a6)
664 	moveb		#0,STAG(%a6)
667 	moveb		#0x10,STAG(%a6)