m68k/fpsp040/res_func.S

28 sp_bnds:	.short	0x3f81,0x407e
29 		.short	0x3f6a,0x0000
30 dp_bnds:	.short	0x3c01,0x43fe
31 		.short	0x3bcd,0x0000
73 	bfclr	LOCAL_SGN(%a0){#0:#8}	|change back to IEEE ext format
77 	bfclr	DTAG(%a6){#0:#4}	|set tag to normalized, FPTE15 = 0
79 	orb	#0x0f,DNRM_FLG(%a6)
85 | At this point, only opclass 0 and 2 possible
100 	andil	#0x7f,%d0			|strip to only command word
107 	btstl	#0,%d0
117 	andib	#0x3b,%d0		|isolate bits to select inst
120 	cmpib	#0x18,%d0
122 	cmpib	#0x1a,%d0
135 	cmpiw	#0x7fff,%d0	|test for inf/nan
185 	andib	#0xe0,%d0			|isolate stag bits
197 	bfextu	FPCR_MODE(%a6){#0:#2},%d0
208 	andw	#0x7fff,%d1
209 	cmpw	#0x3c01,%d1
212 	orl	#0x00020000,%d1		|or in rprec (double)
217 	bfclr	LOCAL_SGN(%a0){#0:#8}
222 	andw	#0x7fff,%d1
223 	cmpw	#0x43ff,%d1
232 	andw	#0x7fff,%d1
233 	cmpw	#0x3f81,%d1
236 	orl	#0x00010000,%d1
241 	bfclr	LOCAL_SGN(%a0){#0:#8}
246 	andw	#0x7FFF,%d1
247 	cmpw	#0x407f,%d1
264 	bfclr	LOCAL_SGN(%a0){#0:#8}	|change back to IEEE ext format
279 	orl	#0x00020000,%d1
282 	orl	#0x00010000,%d1
287 	bfclr	LOCAL_SGN(%a0){#0:#8}
304 	andil	#0x30,%d0		|isolate rmode
305 	cmpil	#0x20,%d0
320 	orl	#0x800,LOCAL_LO(%a0) |inc for double
323 	orl	#0x100,LOCAL_HI(%a0) |inc for single
328 	andib	#0xe0,%d0
329 	cmpib	#0x40,%d0		|check if input was tagged zero
344 	cmpw	#0x8000,LOCAL_EX(%a0)	|test for zero
374 	andil	#0x7f,%d0			|strip to only command word
381 	btstl	#0,%d0
393 	bfclr	LOCAL_SGN(%a0){#0:#8}	|change back to IEEE ext format
397 	bfclr	STAG(%a6){#0:#4}	|set tag to normalized, FPTE15 = 0
399 	orb	#0xf0,DNRM_FLG(%a6)
405 	moveb	#0xfe,CU_SAVEPC(%a6)
420 	andib	#0x3b,%d0		|isolate bits to select inst
423 	cmpib	#0x18,%d0
425 	cmpib	#0x1a,%d0
438 	cmpiw	#0x7fff,%d0	|test for inf/nan
490 	bfextu	FPCR_MODE(%a6){#0:#2},%d0
540 	movel	#0x3c010000,LOCAL_EX(%a0)	|force pos double zero
547 	movel	#0x3c010000,LOCAL_EX(%a0)	|force pos double zero
549 	movel	#0x800,LOCAL_LO(%a0)	|with lsb set
553 	movel	#0xbc010000,LOCAL_EX(%a0)	|force pos double zero
561 	movel	#0xbc010000,LOCAL_EX(%a0)	|force pos double zero
563 	movel	#0x800,LOCAL_LO(%a0)	|with lsb set
572 	movel	#0x3f810000,LOCAL_EX(%a0)	|force pos single zero
579 	movel	#0x3f810000,LOCAL_EX(%a0)	|force pos single zero
580 	movel	#0x100,LOCAL_HI(%a0)	|with lsb set
585 	movel	#0xbf810000,LOCAL_EX(%a0)	|force pos single zero
593 	movel	#0xbf810000,LOCAL_EX(%a0)	|force pos single zero
594 	movel	#0x100,LOCAL_HI(%a0)	|with lsb set
608 |	DY_MO_FLG contains 0 for monadic op, $ff for dyadic
610 |	                  $0f for the destination op denormalized
621 |	(dest_exp + src_exp) < $0
666 |	if((dest_exp + src_exp) < 0)
672 	.set	addcode,0x22
673 	.set	subcode,0x28
674 	.set	mulcode,0x23
675 	.set	divcode,0x20
676 	.set	cmpcode,0x38
681 	andiw	#0x3b,%d0		|strip to command bits
694 	cmpb	#0xff,DNRM_FLG(%a6) |if both ops denorm,
700 	cmpb	#0x0f,DNRM_FLG(%a6) |check for dest denorm
708 	cmpl	#0x7fff,%d0
714 	andiw	#0x8000,%d0
725 	andib	#0x60,%d0			|isolate tag bits
726 	cmpb	#0x40,%d0			|is it inf?
728 	cmpb	#0x60,%d0			|is it nan?
730 	cmpb	#0x20,%d0			|is it a zero?
747 	cmpl	#0x8000,%d0
753 	andiw	#0x8000,%d0
770 	movel	#0x1,%d0			|inst is forced single
773 	movel	#0x2,%d0			|inst is forced double
776 	bfextu	FPCR_MODE(%a6){#0:#2},%d0	|inst not forced - use fpcr prec
790 	bfclr	WBTEMP_SGN(%a6){#0:#8}
798 	cmpb	#0xff,DNRM_FLG(%a6) |if both ops denorm,
804 	cmpb	#0x0f,DNRM_FLG(%a6) |check for dest denorm
812 	cmpl	#0x8000,%d0
821 	cmpl	#0x8000,%d0
837 	andiw	#0x8000,%d0
842 	cmpb	#0x0f,DNRM_FLG(%a6) |is dest the denorm?
845 	andiw	#0x8000,%d0
846 	orw	#0x3fff,%d0	|force the exponent to +/- 1
849 	andil	#0x30,%d0
859 	andil	#0xc0,%d1
867 	bfclr	WBTEMP_SGN(%a6){#0:#8}	|convert back to IEEE ext format
873 	andiw	#0x8000,%d0
874 	orw	#0x3fff,%d0	|force the exponent to +/- 1
877 	andil	#0x30,%d0
887 	andil	#0xc0,%d1
895 	bfclr	WBTEMP_SGN(%a6){#0:#8}	|convert back to IEEE ext format
903 	cmpb	#0x0f,DNRM_FLG(%a6) |is dest the denorm?
908 	andil	#0x30,%d0
911 	andil	#0xc0,%d1
915 	movel	#0x20000000,%d0	|set sticky for round
919 	bfclr	ETEMP_SGN(%a6){#0:#8}	|convert back to IEEE ext format
934 	andil	#0x30,%d0
937 	andil	#0xc0,%d1
941 	movel	#0x20000000,%d0	|set sticky for round
945 	bfclr	FPTEMP_SGN(%a6){#0:#8}	|convert back to IEEE ext format
958 	andiw	#0x7fff,%d0
959 	cmpiw	#0x7fff,%d0
973 	cmpb	#0xff,DNRM_FLG(%a6) |if both ops denorm,
979 	cmpb	#0x0f,DNRM_FLG(%a6) |check for dest denorm
987 	cmpl	#0x8000,%d0
996 	cmpl	#0x8000,%d0
1012 	andiw	#0x8000,%d0
1017 	cmpb	#0x0f,DNRM_FLG(%a6) |is dest the denorm?
1020 	andiw	#0x8000,%d0
1021 	orw	#0x3fff,%d0	|force the exponent to +/- 1
1024 	andil	#0x30,%d0
1034 	andil	#0xc0,%d1
1042 	bfclr	WBTEMP_SGN(%a6){#0:#8}	|convert back to IEEE ext format
1048 	andiw	#0x8000,%d0
1049 	orw	#0x3fff,%d0	|force the exponent to +/- 1
1052 	andil	#0x30,%d0
1062 	andil	#0xc0,%d1
1070 	bfclr	WBTEMP_SGN(%a6){#0:#8}	|convert back to IEEE ext format
1078 	cmpb	#0x0f,DNRM_FLG(%a6) |is dest the denorm?
1083 	andil	#0x30,%d0
1086 	andil	#0xc0,%d1
1090 	movel	#0x20000000,%d0	|set sticky for round
1095 	eoriw	#0x8000,ETEMP_EX(%a6)	|flip sign on result
1103 	bfclr	ETEMP_SGN(%a6){#0:#8}	|convert back to IEEE ext format
1115 	andil	#0x30,%d0
1118 	andil	#0xc0,%d1
1122 	movel	#0x20000000,%d0	|set sticky for round
1126 	bfclr	FPTEMP_SGN(%a6){#0:#8}	|convert back to IEEE ext format
1139 	andiw	#0x7fff,%d0
1140 	cmpiw	#0x7fff,%d0
1154 	cmpb	#0xff,DNRM_FLG(%a6) |if both ops denorm,
1160 	cmpb	#0x0f,DNRM_FLG(%a6) |check for dest denorm
1168 	cmpl	#0x8000,%d0
1179 	cmpl	#0x8000,%d0
1192 	cmpb	#0xff,DNRM_FLG(%a6) |if both ops denorm,
1198 	cmpb	#0x0f,DNRM_FLG(%a6) |check for dest denorm
1228 	andiw	#0x8000,%d0
1238 	movel	#0x1,%d0			|inst is forced single
1241 	movel	#0x2,%d0			|inst is forced double
1244 	bfextu	FPCR_MODE(%a6){#0:#2},%d0	|inst not forced - use fpcr prec
1249 	bfclr	WBTEMP_SGN(%a6){#0:#8}	|convert back to IEEE ext format
1266 	movel	#0x1,%d0			|inst is forced single
1269 	movel	#0x2,%d0			|inst is forced double
1272 	bfextu	FPCR_MODE(%a6){#0:#2},%d0	|inst not forced - use fpcr prec
1281 	bfclr	WBTEMP_SGN(%a6){#0:#8}	|convert back to IEEE ext format
1300 	cmpib	#0,%d0
1351 	andib	#0xe0,%d0
1352 	cmpib	#0x40,%d0
1360 	cmpib	#0x60,%d0			|check if stag is NaN
1370 	cmpib	#0x20,%d0			|check if zero
1388 	cmpib	#0,%d0
1418 	andiw	#0x0c00,%d0	|isolate last 2 bits of size field
1419 	cmpiw	#0x0c00,%d0	|if size is 011 or 111, it is packed
1456 	fmovel	#0,%FPSR			|clear any cc bits from res_func
1462 	bfclr	ETEMP_SGN(%a6){#0:#8}
1474 	fmovel	#0,%FPSR			|clear any cc bits from res_func
1480 	bfclr	ETEMP_SGN(%a6){#0:#8}
1496 	fcmpd	#0x41dfffffffc00000,%fp0
1499 	fcmpd	#0xc1e0000000000000,%fp0
1506 	andil	#0x30,%d1
1515 	movel	#0x7fffffff,L_SCR1(%a6)	|answer is largest positive int
1517 	fcmpd	#0x41dfffffffe00000,%fp0
1523 	movel	#0x80000000,L_SCR1(%a6)
1525 	fcmpd	#0xc1e0000000100000,%fp0
1541 	fcmps	#0x46fffe00,%fp0
1544 	fcmps	#0xc7000000,%fp0
1552 	andil	#0x30,%d1
1560 	movew	#0x7fff,L_SCR1(%a6)	|answer is largest positive int
1562 	fcmps	#0x46ffff00,%fp0
1568 	movew	#0x8000,L_SCR1(%a6)
1570 	fcmps	#0xc7000080,%fp0
1586 	fcmps	#0x42fe0000,%fp0
1589 	fcmps	#0xc3000000,%fp0
1597 	andil	#0x30,%d1
1605 	moveb	#0x7f,L_SCR1(%a6)		|answer is largest positive int
1607 	fcmps	#0x42ff0000,%fp0
1613 	moveb	#0x80,L_SCR1(%a6)
1615 	fcmps	#0xc3008000,%fp0
1629 	movel	#0,L_SCR1(%a6)	| initialize result to 0
1635 	bpls	int_inx		| otherwise result is 0
1640 |				; source is greater than 0
1641 	bmis	int_inx		| otherwise, result is 0
1645 	bsetb	#0,(%a1)		| set low bit at a1 address
1669 	andiw	#0x7,%d0		|isolate register
1678 	orl	#0x10,%d0		|add 'long' size to register#
1928 	bfclr	WBTEMP_SGN(%a6){#0:#8}
1961 	movel	#0x0c,%d0	|get byte count
1964 	moveb	#0,CU_SAVEPC(%a6) |set the cu save pc to all 0's
1970         bfclr    DTAG(%a6){#0:#3}  |set dtag to norm
1989 	andiw	#0x007f,%d0	|get k-factor
2002 	fmovel	#0,%FPSR		|clear aiop