Lines Matching refs:l
36 bra.l _facoss_
38 bra.l _facosd_
40 bra.l _facosx_
43 bra.l _fasins_
45 bra.l _fasind_
47 bra.l _fasinx_
50 bra.l _fatans_
52 bra.l _fatand_
54 bra.l _fatanx_
57 bra.l _fatanhs_
59 bra.l _fatanhd_
61 bra.l _fatanhx_
64 bra.l _fcoss_
66 bra.l _fcosd_
68 bra.l _fcosx_
71 bra.l _fcoshs_
73 bra.l _fcoshd_
75 bra.l _fcoshx_
78 bra.l _fetoxs_
80 bra.l _fetoxd_
82 bra.l _fetoxx_
85 bra.l _fetoxm1s_
87 bra.l _fetoxm1d_
89 bra.l _fetoxm1x_
92 bra.l _fgetexps_
94 bra.l _fgetexpd_
96 bra.l _fgetexpx_
99 bra.l _fgetmans_
101 bra.l _fgetmand_
103 bra.l _fgetmanx_
106 bra.l _flog10s_
108 bra.l _flog10d_
110 bra.l _flog10x_
113 bra.l _flog2s_
115 bra.l _flog2d_
117 bra.l _flog2x_
120 bra.l _flogns_
122 bra.l _flognd_
124 bra.l _flognx_
127 bra.l _flognp1s_
129 bra.l _flognp1d_
131 bra.l _flognp1x_
134 bra.l _fmods_
136 bra.l _fmodd_
138 bra.l _fmodx_
141 bra.l _frems_
143 bra.l _fremd_
145 bra.l _fremx_
148 bra.l _fscales_
150 bra.l _fscaled_
152 bra.l _fscalex_
155 bra.l _fsins_
157 bra.l _fsind_
159 bra.l _fsinx_
162 bra.l _fsincoss_
164 bra.l _fsincosd_
166 bra.l _fsincosx_
169 bra.l _fsinhs_
171 bra.l _fsinhd_
173 bra.l _fsinhx_
176 bra.l _ftans_
178 bra.l _ftand_
180 bra.l _ftanx_
183 bra.l _ftanhs_
185 bra.l _ftanhd_
187 bra.l _ftanhx_
190 bra.l _ftentoxs_
192 bra.l _ftentoxd_
194 bra.l _ftentoxx_
197 bra.l _ftwotoxs_
199 bra.l _ftwotoxd_
201 bra.l _ftwotoxx_
204 bra.l _fabss_
206 bra.l _fabsd_
208 bra.l _fabsx_
211 bra.l _fadds_
213 bra.l _faddd_
215 bra.l _faddx_
218 bra.l _fdivs_
220 bra.l _fdivd_
222 bra.l _fdivx_
225 bra.l _fints_
227 bra.l _fintd_
229 bra.l _fintx_
232 bra.l _fintrzs_
234 bra.l _fintrzd_
236 bra.l _fintrzx_
239 bra.l _fmuls_
241 bra.l _fmuld_
243 bra.l _fmulx_
246 bra.l _fnegs_
248 bra.l _fnegd_
250 bra.l _fnegx_
253 bra.l _fsqrts_
255 bra.l _fsqrtd_
257 bra.l _fsqrtx_
260 bra.l _fsubs_
262 bra.l _fsubd_
264 bra.l _fsubx_
565 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
566 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
569 fmov.l &0x0,%fpcr # zero FPCR
577 bsr.l tag # fetch operand type
581 andi.l &0x00ff00ff,USER_FPSR(%a6)
583 clr.l %d0
588 bsr.l ssin # operand is a NORM
593 bsr.l src_zero # yes
598 bsr.l t_operr # yes
603 bsr.l src_qnan # yes
606 bsr.l ssind # operand is a DENORM
612 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
613 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
622 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
623 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
626 fmov.l &0x0,%fpcr # zero FPCR
634 bsr.l tag # fetch operand type
638 andi.l &0x00ff00ff,USER_FPSR(%a6)
640 clr.l %d0
646 bsr.l ssin # operand is a NORM
651 bsr.l src_zero # yes
656 bsr.l t_operr # yes
661 bsr.l src_qnan # yes
664 bsr.l ssind # operand is a DENORM
670 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
671 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
680 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
681 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
684 fmov.l &0x0,%fpcr # zero FPCR
690 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
691 mov.l 0x8+0x4(%a6),0x4(%a0)
692 mov.l 0x8+0x8(%a6),0x8(%a0)
693 bsr.l tag # fetch operand type
697 andi.l &0x00ff00ff,USER_FPSR(%a6)
699 clr.l %d0
704 bsr.l ssin # operand is a NORM
709 bsr.l src_zero # yes
714 bsr.l t_operr # yes
719 bsr.l src_qnan # yes
722 bsr.l ssind # operand is a DENORM
728 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
729 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
742 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
743 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
746 fmov.l &0x0,%fpcr # zero FPCR
754 bsr.l tag # fetch operand type
758 andi.l &0x00ff00ff,USER_FPSR(%a6)
760 clr.l %d0
765 bsr.l scos # operand is a NORM
770 bsr.l ld_pone # yes
775 bsr.l t_operr # yes
780 bsr.l src_qnan # yes
783 bsr.l scosd # operand is a DENORM
789 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
790 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
799 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
800 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
803 fmov.l &0x0,%fpcr # zero FPCR
811 bsr.l tag # fetch operand type
815 andi.l &0x00ff00ff,USER_FPSR(%a6)
817 clr.l %d0
823 bsr.l scos # operand is a NORM
828 bsr.l ld_pone # yes
833 bsr.l t_operr # yes
838 bsr.l src_qnan # yes
841 bsr.l scosd # operand is a DENORM
847 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
848 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
857 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
858 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
861 fmov.l &0x0,%fpcr # zero FPCR
867 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
868 mov.l 0x8+0x4(%a6),0x4(%a0)
869 mov.l 0x8+0x8(%a6),0x8(%a0)
870 bsr.l tag # fetch operand type
874 andi.l &0x00ff00ff,USER_FPSR(%a6)
876 clr.l %d0
881 bsr.l scos # operand is a NORM
886 bsr.l ld_pone # yes
891 bsr.l t_operr # yes
896 bsr.l src_qnan # yes
899 bsr.l scosd # operand is a DENORM
905 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
906 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
919 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
920 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
923 fmov.l &0x0,%fpcr # zero FPCR
931 bsr.l tag # fetch operand type
935 andi.l &0x00ff00ff,USER_FPSR(%a6)
937 clr.l %d0
942 bsr.l ssinh # operand is a NORM
947 bsr.l src_zero # yes
952 bsr.l src_inf # yes
957 bsr.l src_qnan # yes
960 bsr.l ssinhd # operand is a DENORM
966 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
967 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
976 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
977 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
980 fmov.l &0x0,%fpcr # zero FPCR
988 bsr.l tag # fetch operand type
992 andi.l &0x00ff00ff,USER_FPSR(%a6)
994 clr.l %d0
1000 bsr.l ssinh # operand is a NORM
1005 bsr.l src_zero # yes
1010 bsr.l src_inf # yes
1015 bsr.l src_qnan # yes
1018 bsr.l ssinhd # operand is a DENORM
1024 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1025 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1034 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1035 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1038 fmov.l &0x0,%fpcr # zero FPCR
1044 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
1045 mov.l 0x8+0x4(%a6),0x4(%a0)
1046 mov.l 0x8+0x8(%a6),0x8(%a0)
1047 bsr.l tag # fetch operand type
1051 andi.l &0x00ff00ff,USER_FPSR(%a6)
1053 clr.l %d0
1058 bsr.l ssinh # operand is a NORM
1063 bsr.l src_zero # yes
1068 bsr.l src_inf # yes
1073 bsr.l src_qnan # yes
1076 bsr.l ssinhd # operand is a DENORM
1082 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1083 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1096 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1097 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1100 fmov.l &0x0,%fpcr # zero FPCR
1108 bsr.l tag # fetch operand type
1112 andi.l &0x00ff00ff,USER_FPSR(%a6)
1114 clr.l %d0
1119 bsr.l slognp1 # operand is a NORM
1124 bsr.l src_zero # yes
1129 bsr.l sopr_inf # yes
1134 bsr.l src_qnan # yes
1137 bsr.l slognp1d # operand is a DENORM
1143 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1144 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1153 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1154 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1157 fmov.l &0x0,%fpcr # zero FPCR
1165 bsr.l tag # fetch operand type
1169 andi.l &0x00ff00ff,USER_FPSR(%a6)
1171 clr.l %d0
1177 bsr.l slognp1 # operand is a NORM
1182 bsr.l src_zero # yes
1187 bsr.l sopr_inf # yes
1192 bsr.l src_qnan # yes
1195 bsr.l slognp1d # operand is a DENORM
1201 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1202 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1211 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1212 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1215 fmov.l &0x0,%fpcr # zero FPCR
1221 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
1222 mov.l 0x8+0x4(%a6),0x4(%a0)
1223 mov.l 0x8+0x8(%a6),0x8(%a0)
1224 bsr.l tag # fetch operand type
1228 andi.l &0x00ff00ff,USER_FPSR(%a6)
1230 clr.l %d0
1235 bsr.l slognp1 # operand is a NORM
1240 bsr.l src_zero # yes
1245 bsr.l sopr_inf # yes
1250 bsr.l src_qnan # yes
1253 bsr.l slognp1d # operand is a DENORM
1259 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1260 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1273 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1274 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1277 fmov.l &0x0,%fpcr # zero FPCR
1285 bsr.l tag # fetch operand type
1289 andi.l &0x00ff00ff,USER_FPSR(%a6)
1291 clr.l %d0
1296 bsr.l setoxm1 # operand is a NORM
1301 bsr.l src_zero # yes
1306 bsr.l setoxm1i # yes
1311 bsr.l src_qnan # yes
1314 bsr.l setoxm1d # operand is a DENORM
1320 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1321 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1330 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1331 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1334 fmov.l &0x0,%fpcr # zero FPCR
1342 bsr.l tag # fetch operand type
1346 andi.l &0x00ff00ff,USER_FPSR(%a6)
1348 clr.l %d0
1354 bsr.l setoxm1 # operand is a NORM
1359 bsr.l src_zero # yes
1364 bsr.l setoxm1i # yes
1369 bsr.l src_qnan # yes
1372 bsr.l setoxm1d # operand is a DENORM
1378 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1379 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1388 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1389 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1392 fmov.l &0x0,%fpcr # zero FPCR
1398 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
1399 mov.l 0x8+0x4(%a6),0x4(%a0)
1400 mov.l 0x8+0x8(%a6),0x8(%a0)
1401 bsr.l tag # fetch operand type
1405 andi.l &0x00ff00ff,USER_FPSR(%a6)
1407 clr.l %d0
1412 bsr.l setoxm1 # operand is a NORM
1417 bsr.l src_zero # yes
1422 bsr.l setoxm1i # yes
1427 bsr.l src_qnan # yes
1430 bsr.l setoxm1d # operand is a DENORM
1436 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1437 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1450 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1451 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1454 fmov.l &0x0,%fpcr # zero FPCR
1462 bsr.l tag # fetch operand type
1466 andi.l &0x00ff00ff,USER_FPSR(%a6)
1468 clr.l %d0
1473 bsr.l stanh # operand is a NORM
1478 bsr.l src_zero # yes
1483 bsr.l src_one # yes
1488 bsr.l src_qnan # yes
1491 bsr.l stanhd # operand is a DENORM
1497 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1498 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1507 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1508 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1511 fmov.l &0x0,%fpcr # zero FPCR
1519 bsr.l tag # fetch operand type
1523 andi.l &0x00ff00ff,USER_FPSR(%a6)
1525 clr.l %d0
1531 bsr.l stanh # operand is a NORM
1536 bsr.l src_zero # yes
1541 bsr.l src_one # yes
1546 bsr.l src_qnan # yes
1549 bsr.l stanhd # operand is a DENORM
1555 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1556 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1565 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1566 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1569 fmov.l &0x0,%fpcr # zero FPCR
1575 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
1576 mov.l 0x8+0x4(%a6),0x4(%a0)
1577 mov.l 0x8+0x8(%a6),0x8(%a0)
1578 bsr.l tag # fetch operand type
1582 andi.l &0x00ff00ff,USER_FPSR(%a6)
1584 clr.l %d0
1589 bsr.l stanh # operand is a NORM
1594 bsr.l src_zero # yes
1599 bsr.l src_one # yes
1604 bsr.l src_qnan # yes
1607 bsr.l stanhd # operand is a DENORM
1613 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1614 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1627 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1628 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1631 fmov.l &0x0,%fpcr # zero FPCR
1639 bsr.l tag # fetch operand type
1643 andi.l &0x00ff00ff,USER_FPSR(%a6)
1645 clr.l %d0
1650 bsr.l satan # operand is a NORM
1655 bsr.l src_zero # yes
1660 bsr.l spi_2 # yes
1665 bsr.l src_qnan # yes
1668 bsr.l satand # operand is a DENORM
1674 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1675 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1684 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1685 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1688 fmov.l &0x0,%fpcr # zero FPCR
1696 bsr.l tag # fetch operand type
1700 andi.l &0x00ff00ff,USER_FPSR(%a6)
1702 clr.l %d0
1708 bsr.l satan # operand is a NORM
1713 bsr.l src_zero # yes
1718 bsr.l spi_2 # yes
1723 bsr.l src_qnan # yes
1726 bsr.l satand # operand is a DENORM
1732 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1733 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1742 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1743 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1746 fmov.l &0x0,%fpcr # zero FPCR
1752 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
1753 mov.l 0x8+0x4(%a6),0x4(%a0)
1754 mov.l 0x8+0x8(%a6),0x8(%a0)
1755 bsr.l tag # fetch operand type
1759 andi.l &0x00ff00ff,USER_FPSR(%a6)
1761 clr.l %d0
1766 bsr.l satan # operand is a NORM
1771 bsr.l src_zero # yes
1776 bsr.l spi_2 # yes
1781 bsr.l src_qnan # yes
1784 bsr.l satand # operand is a DENORM
1790 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1791 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1804 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1805 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1808 fmov.l &0x0,%fpcr # zero FPCR
1816 bsr.l tag # fetch operand type
1820 andi.l &0x00ff00ff,USER_FPSR(%a6)
1822 clr.l %d0
1827 bsr.l sasin # operand is a NORM
1832 bsr.l src_zero # yes
1837 bsr.l t_operr # yes
1842 bsr.l src_qnan # yes
1845 bsr.l sasind # operand is a DENORM
1851 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1852 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1861 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1862 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1865 fmov.l &0x0,%fpcr # zero FPCR
1873 bsr.l tag # fetch operand type
1877 andi.l &0x00ff00ff,USER_FPSR(%a6)
1879 clr.l %d0
1885 bsr.l sasin # operand is a NORM
1890 bsr.l src_zero # yes
1895 bsr.l t_operr # yes
1900 bsr.l src_qnan # yes
1903 bsr.l sasind # operand is a DENORM
1909 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1910 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1919 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1920 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1923 fmov.l &0x0,%fpcr # zero FPCR
1929 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
1930 mov.l 0x8+0x4(%a6),0x4(%a0)
1931 mov.l 0x8+0x8(%a6),0x8(%a0)
1932 bsr.l tag # fetch operand type
1936 andi.l &0x00ff00ff,USER_FPSR(%a6)
1938 clr.l %d0
1943 bsr.l sasin # operand is a NORM
1948 bsr.l src_zero # yes
1953 bsr.l t_operr # yes
1958 bsr.l src_qnan # yes
1961 bsr.l sasind # operand is a DENORM
1967 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1968 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
1981 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1982 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
1985 fmov.l &0x0,%fpcr # zero FPCR
1993 bsr.l tag # fetch operand type
1997 andi.l &0x00ff00ff,USER_FPSR(%a6)
1999 clr.l %d0
2004 bsr.l satanh # operand is a NORM
2009 bsr.l src_zero # yes
2014 bsr.l t_operr # yes
2019 bsr.l src_qnan # yes
2022 bsr.l satanhd # operand is a DENORM
2028 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2029 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2038 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2039 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2042 fmov.l &0x0,%fpcr # zero FPCR
2050 bsr.l tag # fetch operand type
2054 andi.l &0x00ff00ff,USER_FPSR(%a6)
2056 clr.l %d0
2062 bsr.l satanh # operand is a NORM
2067 bsr.l src_zero # yes
2072 bsr.l t_operr # yes
2077 bsr.l src_qnan # yes
2080 bsr.l satanhd # operand is a DENORM
2086 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2087 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2096 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2097 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2100 fmov.l &0x0,%fpcr # zero FPCR
2106 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
2107 mov.l 0x8+0x4(%a6),0x4(%a0)
2108 mov.l 0x8+0x8(%a6),0x8(%a0)
2109 bsr.l tag # fetch operand type
2113 andi.l &0x00ff00ff,USER_FPSR(%a6)
2115 clr.l %d0
2120 bsr.l satanh # operand is a NORM
2125 bsr.l src_zero # yes
2130 bsr.l t_operr # yes
2135 bsr.l src_qnan # yes
2138 bsr.l satanhd # operand is a DENORM
2144 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2145 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2158 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2159 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2162 fmov.l &0x0,%fpcr # zero FPCR
2170 bsr.l tag # fetch operand type
2174 andi.l &0x00ff00ff,USER_FPSR(%a6)
2176 clr.l %d0
2181 bsr.l stan # operand is a NORM
2186 bsr.l src_zero # yes
2191 bsr.l t_operr # yes
2196 bsr.l src_qnan # yes
2199 bsr.l stand # operand is a DENORM
2205 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2206 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2215 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2216 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2219 fmov.l &0x0,%fpcr # zero FPCR
2227 bsr.l tag # fetch operand type
2231 andi.l &0x00ff00ff,USER_FPSR(%a6)
2233 clr.l %d0
2239 bsr.l stan # operand is a NORM
2244 bsr.l src_zero # yes
2249 bsr.l t_operr # yes
2254 bsr.l src_qnan # yes
2257 bsr.l stand # operand is a DENORM
2263 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2264 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2273 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2274 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2277 fmov.l &0x0,%fpcr # zero FPCR
2283 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
2284 mov.l 0x8+0x4(%a6),0x4(%a0)
2285 mov.l 0x8+0x8(%a6),0x8(%a0)
2286 bsr.l tag # fetch operand type
2290 andi.l &0x00ff00ff,USER_FPSR(%a6)
2292 clr.l %d0
2297 bsr.l stan # operand is a NORM
2302 bsr.l src_zero # yes
2307 bsr.l t_operr # yes
2312 bsr.l src_qnan # yes
2315 bsr.l stand # operand is a DENORM
2321 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2322 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2335 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2336 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2339 fmov.l &0x0,%fpcr # zero FPCR
2347 bsr.l tag # fetch operand type
2351 andi.l &0x00ff00ff,USER_FPSR(%a6)
2353 clr.l %d0
2358 bsr.l setox # operand is a NORM
2363 bsr.l ld_pone # yes
2368 bsr.l szr_inf # yes
2373 bsr.l src_qnan # yes
2376 bsr.l setoxd # operand is a DENORM
2382 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2383 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2392 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2393 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2396 fmov.l &0x0,%fpcr # zero FPCR
2404 bsr.l tag # fetch operand type
2408 andi.l &0x00ff00ff,USER_FPSR(%a6)
2410 clr.l %d0
2416 bsr.l setox # operand is a NORM
2421 bsr.l ld_pone # yes
2426 bsr.l szr_inf # yes
2431 bsr.l src_qnan # yes
2434 bsr.l setoxd # operand is a DENORM
2440 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2441 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2450 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2451 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2454 fmov.l &0x0,%fpcr # zero FPCR
2460 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
2461 mov.l 0x8+0x4(%a6),0x4(%a0)
2462 mov.l 0x8+0x8(%a6),0x8(%a0)
2463 bsr.l tag # fetch operand type
2467 andi.l &0x00ff00ff,USER_FPSR(%a6)
2469 clr.l %d0
2474 bsr.l setox # operand is a NORM
2479 bsr.l ld_pone # yes
2484 bsr.l szr_inf # yes
2489 bsr.l src_qnan # yes
2492 bsr.l setoxd # operand is a DENORM
2498 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2499 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2512 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2513 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2516 fmov.l &0x0,%fpcr # zero FPCR
2524 bsr.l tag # fetch operand type
2528 andi.l &0x00ff00ff,USER_FPSR(%a6)
2530 clr.l %d0
2535 bsr.l stwotox # operand is a NORM
2540 bsr.l ld_pone # yes
2545 bsr.l szr_inf # yes
2550 bsr.l src_qnan # yes
2553 bsr.l stwotoxd # operand is a DENORM
2559 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2560 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2569 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2570 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2573 fmov.l &0x0,%fpcr # zero FPCR
2581 bsr.l tag # fetch operand type
2585 andi.l &0x00ff00ff,USER_FPSR(%a6)
2587 clr.l %d0
2593 bsr.l stwotox # operand is a NORM
2598 bsr.l ld_pone # yes
2603 bsr.l szr_inf # yes
2608 bsr.l src_qnan # yes
2611 bsr.l stwotoxd # operand is a DENORM
2617 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2618 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2627 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2628 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2631 fmov.l &0x0,%fpcr # zero FPCR
2637 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
2638 mov.l 0x8+0x4(%a6),0x4(%a0)
2639 mov.l 0x8+0x8(%a6),0x8(%a0)
2640 bsr.l tag # fetch operand type
2644 andi.l &0x00ff00ff,USER_FPSR(%a6)
2646 clr.l %d0
2651 bsr.l stwotox # operand is a NORM
2656 bsr.l ld_pone # yes
2661 bsr.l szr_inf # yes
2666 bsr.l src_qnan # yes
2669 bsr.l stwotoxd # operand is a DENORM
2675 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2676 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2689 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2690 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2693 fmov.l &0x0,%fpcr # zero FPCR
2701 bsr.l tag # fetch operand type
2705 andi.l &0x00ff00ff,USER_FPSR(%a6)
2707 clr.l %d0
2712 bsr.l stentox # operand is a NORM
2717 bsr.l ld_pone # yes
2722 bsr.l szr_inf # yes
2727 bsr.l src_qnan # yes
2730 bsr.l stentoxd # operand is a DENORM
2736 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2737 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2746 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2747 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2750 fmov.l &0x0,%fpcr # zero FPCR
2758 bsr.l tag # fetch operand type
2762 andi.l &0x00ff00ff,USER_FPSR(%a6)
2764 clr.l %d0
2770 bsr.l stentox # operand is a NORM
2775 bsr.l ld_pone # yes
2780 bsr.l szr_inf # yes
2785 bsr.l src_qnan # yes
2788 bsr.l stentoxd # operand is a DENORM
2794 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2795 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2804 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2805 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2808 fmov.l &0x0,%fpcr # zero FPCR
2814 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
2815 mov.l 0x8+0x4(%a6),0x4(%a0)
2816 mov.l 0x8+0x8(%a6),0x8(%a0)
2817 bsr.l tag # fetch operand type
2821 andi.l &0x00ff00ff,USER_FPSR(%a6)
2823 clr.l %d0
2828 bsr.l stentox # operand is a NORM
2833 bsr.l ld_pone # yes
2838 bsr.l szr_inf # yes
2843 bsr.l src_qnan # yes
2846 bsr.l stentoxd # operand is a DENORM
2852 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2853 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2866 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2867 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2870 fmov.l &0x0,%fpcr # zero FPCR
2878 bsr.l tag # fetch operand type
2882 andi.l &0x00ff00ff,USER_FPSR(%a6)
2884 clr.l %d0
2889 bsr.l slogn # operand is a NORM
2894 bsr.l t_dz2 # yes
2899 bsr.l sopr_inf # yes
2904 bsr.l src_qnan # yes
2907 bsr.l slognd # operand is a DENORM
2913 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2914 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2923 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2924 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2927 fmov.l &0x0,%fpcr # zero FPCR
2935 bsr.l tag # fetch operand type
2939 andi.l &0x00ff00ff,USER_FPSR(%a6)
2941 clr.l %d0
2947 bsr.l slogn # operand is a NORM
2952 bsr.l t_dz2 # yes
2957 bsr.l sopr_inf # yes
2962 bsr.l src_qnan # yes
2965 bsr.l slognd # operand is a DENORM
2971 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2972 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
2981 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2982 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
2985 fmov.l &0x0,%fpcr # zero FPCR
2991 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
2992 mov.l 0x8+0x4(%a6),0x4(%a0)
2993 mov.l 0x8+0x8(%a6),0x8(%a0)
2994 bsr.l tag # fetch operand type
2998 andi.l &0x00ff00ff,USER_FPSR(%a6)
3000 clr.l %d0
3005 bsr.l slogn # operand is a NORM
3010 bsr.l t_dz2 # yes
3015 bsr.l sopr_inf # yes
3020 bsr.l src_qnan # yes
3023 bsr.l slognd # operand is a DENORM
3029 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3030 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3043 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3044 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3047 fmov.l &0x0,%fpcr # zero FPCR
3055 bsr.l tag # fetch operand type
3059 andi.l &0x00ff00ff,USER_FPSR(%a6)
3061 clr.l %d0
3066 bsr.l slog10 # operand is a NORM
3071 bsr.l t_dz2 # yes
3076 bsr.l sopr_inf # yes
3081 bsr.l src_qnan # yes
3084 bsr.l slog10d # operand is a DENORM
3090 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3091 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3100 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3101 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3104 fmov.l &0x0,%fpcr # zero FPCR
3112 bsr.l tag # fetch operand type
3116 andi.l &0x00ff00ff,USER_FPSR(%a6)
3118 clr.l %d0
3124 bsr.l slog10 # operand is a NORM
3129 bsr.l t_dz2 # yes
3134 bsr.l sopr_inf # yes
3139 bsr.l src_qnan # yes
3142 bsr.l slog10d # operand is a DENORM
3148 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3149 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3158 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3159 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3162 fmov.l &0x0,%fpcr # zero FPCR
3168 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
3169 mov.l 0x8+0x4(%a6),0x4(%a0)
3170 mov.l 0x8+0x8(%a6),0x8(%a0)
3171 bsr.l tag # fetch operand type
3175 andi.l &0x00ff00ff,USER_FPSR(%a6)
3177 clr.l %d0
3182 bsr.l slog10 # operand is a NORM
3187 bsr.l t_dz2 # yes
3192 bsr.l sopr_inf # yes
3197 bsr.l src_qnan # yes
3200 bsr.l slog10d # operand is a DENORM
3206 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3207 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3220 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3221 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3224 fmov.l &0x0,%fpcr # zero FPCR
3232 bsr.l tag # fetch operand type
3236 andi.l &0x00ff00ff,USER_FPSR(%a6)
3238 clr.l %d0
3243 bsr.l slog2 # operand is a NORM
3248 bsr.l t_dz2 # yes
3253 bsr.l sopr_inf # yes
3258 bsr.l src_qnan # yes
3261 bsr.l slog2d # operand is a DENORM
3267 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3268 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3277 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3278 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3281 fmov.l &0x0,%fpcr # zero FPCR
3289 bsr.l tag # fetch operand type
3293 andi.l &0x00ff00ff,USER_FPSR(%a6)
3295 clr.l %d0
3301 bsr.l slog2 # operand is a NORM
3306 bsr.l t_dz2 # yes
3311 bsr.l sopr_inf # yes
3316 bsr.l src_qnan # yes
3319 bsr.l slog2d # operand is a DENORM
3325 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3326 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3335 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3336 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3339 fmov.l &0x0,%fpcr # zero FPCR
3345 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
3346 mov.l 0x8+0x4(%a6),0x4(%a0)
3347 mov.l 0x8+0x8(%a6),0x8(%a0)
3348 bsr.l tag # fetch operand type
3352 andi.l &0x00ff00ff,USER_FPSR(%a6)
3354 clr.l %d0
3359 bsr.l slog2 # operand is a NORM
3364 bsr.l t_dz2 # yes
3369 bsr.l sopr_inf # yes
3374 bsr.l src_qnan # yes
3377 bsr.l slog2d # operand is a DENORM
3383 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3384 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3397 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3398 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3401 fmov.l &0x0,%fpcr # zero FPCR
3409 bsr.l tag # fetch operand type
3413 andi.l &0x00ff00ff,USER_FPSR(%a6)
3415 clr.l %d0
3420 bsr.l scosh # operand is a NORM
3425 bsr.l ld_pone # yes
3430 bsr.l ld_pinf # yes
3435 bsr.l src_qnan # yes
3438 bsr.l scoshd # operand is a DENORM
3444 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3445 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3454 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3455 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3458 fmov.l &0x0,%fpcr # zero FPCR
3466 bsr.l tag # fetch operand type
3470 andi.l &0x00ff00ff,USER_FPSR(%a6)
3472 clr.l %d0
3478 bsr.l scosh # operand is a NORM
3483 bsr.l ld_pone # yes
3488 bsr.l ld_pinf # yes
3493 bsr.l src_qnan # yes
3496 bsr.l scoshd # operand is a DENORM
3502 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3503 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3512 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3513 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3516 fmov.l &0x0,%fpcr # zero FPCR
3522 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
3523 mov.l 0x8+0x4(%a6),0x4(%a0)
3524 mov.l 0x8+0x8(%a6),0x8(%a0)
3525 bsr.l tag # fetch operand type
3529 andi.l &0x00ff00ff,USER_FPSR(%a6)
3531 clr.l %d0
3536 bsr.l scosh # operand is a NORM
3541 bsr.l ld_pone # yes
3546 bsr.l ld_pinf # yes
3551 bsr.l src_qnan # yes
3554 bsr.l scoshd # operand is a DENORM
3560 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3561 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3574 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3575 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3578 fmov.l &0x0,%fpcr # zero FPCR
3586 bsr.l tag # fetch operand type
3590 andi.l &0x00ff00ff,USER_FPSR(%a6)
3592 clr.l %d0
3597 bsr.l sacos # operand is a NORM
3602 bsr.l ld_ppi2 # yes
3607 bsr.l t_operr # yes
3612 bsr.l src_qnan # yes
3615 bsr.l sacosd # operand is a DENORM
3621 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3622 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3631 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3632 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3635 fmov.l &0x0,%fpcr # zero FPCR
3643 bsr.l tag # fetch operand type
3647 andi.l &0x00ff00ff,USER_FPSR(%a6)
3649 clr.l %d0
3655 bsr.l sacos # operand is a NORM
3660 bsr.l ld_ppi2 # yes
3665 bsr.l t_operr # yes
3670 bsr.l src_qnan # yes
3673 bsr.l sacosd # operand is a DENORM
3679 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3680 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3689 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3690 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3693 fmov.l &0x0,%fpcr # zero FPCR
3699 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
3700 mov.l 0x8+0x4(%a6),0x4(%a0)
3701 mov.l 0x8+0x8(%a6),0x8(%a0)
3702 bsr.l tag # fetch operand type
3706 andi.l &0x00ff00ff,USER_FPSR(%a6)
3708 clr.l %d0
3713 bsr.l sacos # operand is a NORM
3718 bsr.l ld_ppi2 # yes
3723 bsr.l t_operr # yes
3728 bsr.l src_qnan # yes
3731 bsr.l sacosd # operand is a DENORM
3737 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3738 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3751 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3752 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3755 fmov.l &0x0,%fpcr # zero FPCR
3763 bsr.l tag # fetch operand type
3767 andi.l &0x00ff00ff,USER_FPSR(%a6)
3769 clr.l %d0
3774 bsr.l sgetexp # operand is a NORM
3779 bsr.l src_zero # yes
3784 bsr.l t_operr # yes
3789 bsr.l src_qnan # yes
3792 bsr.l sgetexpd # operand is a DENORM
3798 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3799 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3808 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3809 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3812 fmov.l &0x0,%fpcr # zero FPCR
3820 bsr.l tag # fetch operand type
3824 andi.l &0x00ff00ff,USER_FPSR(%a6)
3826 clr.l %d0
3832 bsr.l sgetexp # operand is a NORM
3837 bsr.l src_zero # yes
3842 bsr.l t_operr # yes
3847 bsr.l src_qnan # yes
3850 bsr.l sgetexpd # operand is a DENORM
3856 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3857 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3866 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3867 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3870 fmov.l &0x0,%fpcr # zero FPCR
3876 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
3877 mov.l 0x8+0x4(%a6),0x4(%a0)
3878 mov.l 0x8+0x8(%a6),0x8(%a0)
3879 bsr.l tag # fetch operand type
3883 andi.l &0x00ff00ff,USER_FPSR(%a6)
3885 clr.l %d0
3890 bsr.l sgetexp # operand is a NORM
3895 bsr.l src_zero # yes
3900 bsr.l t_operr # yes
3905 bsr.l src_qnan # yes
3908 bsr.l sgetexpd # operand is a DENORM
3914 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3915 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3928 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3929 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3932 fmov.l &0x0,%fpcr # zero FPCR
3940 bsr.l tag # fetch operand type
3944 andi.l &0x00ff00ff,USER_FPSR(%a6)
3946 clr.l %d0
3951 bsr.l sgetman # operand is a NORM
3956 bsr.l src_zero # yes
3961 bsr.l t_operr # yes
3966 bsr.l src_qnan # yes
3969 bsr.l sgetmand # operand is a DENORM
3975 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3976 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
3985 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3986 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
3989 fmov.l &0x0,%fpcr # zero FPCR
3997 bsr.l tag # fetch operand type
4001 andi.l &0x00ff00ff,USER_FPSR(%a6)
4003 clr.l %d0
4009 bsr.l sgetman # operand is a NORM
4014 bsr.l src_zero # yes
4019 bsr.l t_operr # yes
4024 bsr.l src_qnan # yes
4027 bsr.l sgetmand # operand is a DENORM
4033 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4034 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4043 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4044 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
4047 fmov.l &0x0,%fpcr # zero FPCR
4053 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
4054 mov.l 0x8+0x4(%a6),0x4(%a0)
4055 mov.l 0x8+0x8(%a6),0x8(%a0)
4056 bsr.l tag # fetch operand type
4060 andi.l &0x00ff00ff,USER_FPSR(%a6)
4062 clr.l %d0
4067 bsr.l sgetman # operand is a NORM
4072 bsr.l src_zero # yes
4077 bsr.l t_operr # yes
4082 bsr.l src_qnan # yes
4085 bsr.l sgetmand # operand is a DENORM
4091 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4092 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4105 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4106 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
4109 fmov.l &0x0,%fpcr # zero FPCR
4117 bsr.l tag # fetch operand type
4121 andi.l &0x00ff00ff,USER_FPSR(%a6)
4123 clr.l %d0
4128 bsr.l ssincos # operand is a NORM
4133 bsr.l ssincosz # yes
4138 bsr.l ssincosi # yes
4143 bsr.l ssincosqnan # yes
4146 bsr.l ssincosd # operand is a DENORM
4152 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4153 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4164 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4165 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
4168 fmov.l &0x0,%fpcr # zero FPCR
4176 bsr.l tag # fetch operand type
4180 andi.l &0x00ff00ff,USER_FPSR(%a6)
4182 clr.l %d0
4188 bsr.l ssincos # operand is a NORM
4193 bsr.l ssincosz # yes
4198 bsr.l ssincosi # yes
4203 bsr.l ssincosqnan # yes
4206 bsr.l ssincosd # operand is a DENORM
4212 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4213 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4224 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4225 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
4228 fmov.l &0x0,%fpcr # zero FPCR
4234 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext input
4235 mov.l 0x8+0x4(%a6),0x4(%a0)
4236 mov.l 0x8+0x8(%a6),0x8(%a0)
4237 bsr.l tag # fetch operand type
4241 andi.l &0x00ff00ff,USER_FPSR(%a6)
4243 clr.l %d0
4248 bsr.l ssincos # operand is a NORM
4253 bsr.l ssincosz # yes
4258 bsr.l ssincosi # yes
4263 bsr.l ssincosqnan # yes
4266 bsr.l ssincosd # operand is a DENORM
4272 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4273 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4288 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4289 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
4292 fmov.l &0x0,%fpcr # zero FPCR
4300 bsr.l tag # fetch operand type
4306 bsr.l tag # fetch operand type
4308 mov.l %d0,%d1
4310 andi.l &0x00ff00ff,USER_FPSR(%a6)
4312 clr.l %d0
4320 bsr.l srem_snorm # operand is a NORM
4325 bsr.l srem_szero # yes
4330 bsr.l srem_sinf # yes
4335 bsr.l sop_sqnan # yes
4338 bsr.l srem_sdnrm # operand is a DENORM
4344 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4345 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4354 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4355 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
4358 fmov.l &0x0,%fpcr # zero FPCR
4366 bsr.l tag # fetch operand type
4372 bsr.l tag # fetch operand type
4374 mov.l %d0,%d1
4376 andi.l &0x00ff00ff,USER_FPSR(%a6)
4378 clr.l %d0
4386 bsr.l srem_snorm # operand is a NORM
4391 bsr.l srem_szero # yes
4396 bsr.l srem_sinf # yes
4401 bsr.l sop_sqnan # yes
4404 bsr.l srem_sdnrm # operand is a DENORM
4410 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4411 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4420 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4421 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
4424 fmov.l &0x0,%fpcr # zero FPCR
4430 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext dst
4431 mov.l 0x8+0x4(%a6),0x4(%a0)
4432 mov.l 0x8+0x8(%a6),0x8(%a0)
4433 bsr.l tag # fetch operand type
4437 mov.l 0x14+0x0(%a6),0x0(%a0) # load ext src
4438 mov.l 0x14+0x4(%a6),0x4(%a0)
4439 mov.l 0x14+0x8(%a6),0x8(%a0)
4440 bsr.l tag # fetch operand type
4442 mov.l %d0,%d1
4444 andi.l &0x00ff00ff,USER_FPSR(%a6)
4446 clr.l %d0
4454 bsr.l srem_snorm # operand is a NORM
4459 bsr.l srem_szero # yes
4464 bsr.l srem_sinf # yes
4469 bsr.l sop_sqnan # yes
4472 bsr.l srem_sdnrm # operand is a DENORM
4478 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4479 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4492 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4493 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
4496 fmov.l &0x0,%fpcr # zero FPCR
4504 bsr.l tag # fetch operand type
4510 bsr.l tag # fetch operand type
4512 mov.l %d0,%d1
4514 andi.l &0x00ff00ff,USER_FPSR(%a6)
4516 clr.l %d0
4524 bsr.l smod_snorm # operand is a NORM
4529 bsr.l smod_szero # yes
4534 bsr.l smod_sinf # yes
4539 bsr.l sop_sqnan # yes
4542 bsr.l smod_sdnrm # operand is a DENORM
4548 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4549 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4558 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4559 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
4562 fmov.l &0x0,%fpcr # zero FPCR
4570 bsr.l tag # fetch operand type
4576 bsr.l tag # fetch operand type
4578 mov.l %d0,%d1
4580 andi.l &0x00ff00ff,USER_FPSR(%a6)
4582 clr.l %d0
4590 bsr.l smod_snorm # operand is a NORM
4595 bsr.l smod_szero # yes
4600 bsr.l smod_sinf # yes
4605 bsr.l sop_sqnan # yes
4608 bsr.l smod_sdnrm # operand is a DENORM
4614 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4615 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4624 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4625 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
4628 fmov.l &0x0,%fpcr # zero FPCR
4634 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext dst
4635 mov.l 0x8+0x4(%a6),0x4(%a0)
4636 mov.l 0x8+0x8(%a6),0x8(%a0)
4637 bsr.l tag # fetch operand type
4641 mov.l 0x14+0x0(%a6),0x0(%a0) # load ext src
4642 mov.l 0x14+0x4(%a6),0x4(%a0)
4643 mov.l 0x14+0x8(%a6),0x8(%a0)
4644 bsr.l tag # fetch operand type
4646 mov.l %d0,%d1
4648 andi.l &0x00ff00ff,USER_FPSR(%a6)
4650 clr.l %d0
4658 bsr.l smod_snorm # operand is a NORM
4663 bsr.l smod_szero # yes
4668 bsr.l smod_sinf # yes
4673 bsr.l sop_sqnan # yes
4676 bsr.l smod_sdnrm # operand is a DENORM
4682 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4683 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4696 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4697 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
4700 fmov.l &0x0,%fpcr # zero FPCR
4708 bsr.l tag # fetch operand type
4714 bsr.l tag # fetch operand type
4716 mov.l %d0,%d1
4718 andi.l &0x00ff00ff,USER_FPSR(%a6)
4720 clr.l %d0
4728 bsr.l sscale_snorm # operand is a NORM
4733 bsr.l sscale_szero # yes
4738 bsr.l sscale_sinf # yes
4743 bsr.l sop_sqnan # yes
4746 bsr.l sscale_sdnrm # operand is a DENORM
4752 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4753 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4762 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4763 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
4766 fmov.l &0x0,%fpcr # zero FPCR
4774 bsr.l tag # fetch operand type
4780 bsr.l tag # fetch operand type
4782 mov.l %d0,%d1
4784 andi.l &0x00ff00ff,USER_FPSR(%a6)
4786 clr.l %d0
4794 bsr.l sscale_snorm # operand is a NORM
4799 bsr.l sscale_szero # yes
4804 bsr.l sscale_sinf # yes
4809 bsr.l sop_sqnan # yes
4812 bsr.l sscale_sdnrm # operand is a DENORM
4818 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4819 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4828 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4829 fmovm.l %fpcr,%fpsr,USER_FPCR(%a6) # save ctrl regs
4832 fmov.l &0x0,%fpcr # zero FPCR
4838 mov.l 0x8+0x0(%a6),0x0(%a0) # load ext dst
4839 mov.l 0x8+0x4(%a6),0x4(%a0)
4840 mov.l 0x8+0x8(%a6),0x8(%a0)
4841 bsr.l tag # fetch operand type
4845 mov.l 0x14+0x0(%a6),0x0(%a0) # load ext src
4846 mov.l 0x14+0x4(%a6),0x4(%a0)
4847 mov.l 0x14+0x8(%a6),0x8(%a0)
4848 bsr.l tag # fetch operand type
4850 mov.l %d0,%d1
4852 andi.l &0x00ff00ff,USER_FPSR(%a6)
4854 clr.l %d0
4862 bsr.l sscale_snorm # operand is a NORM
4867 bsr.l sscale_szero # yes
4872 bsr.l sscale_sinf # yes
4877 bsr.l sop_sqnan # yes
4880 bsr.l sscale_sdnrm # operand is a DENORM
4886 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4887 fmovm.l USER_FPCR(%a6),%fpcr,%fpsr # restore ctrl regs
4959 # j1 exclusive or with the l.s.b. of k. #
5016 mov.l &0,ADJN(%a6) # yes; SET ADJN TO 0
5022 mov.l &1,ADJN(%a6) # yes; SET ADJN TO 1
5032 mov.l (%a0),%d1 # put exp in hi word
5034 and.l &0x7FFFFFFF,%d1 # strip sign
5036 cmpi.l %d1,&0x3FD78000 # is |X| >= 2**(-40)?
5041 cmp.l %d1,&0x4004BC7E # is |X| < 15 PI?
5053 fmov.l %fp1,INT(%a6) # CONVERT TO INTEGER
5055 mov.l INT(%a6),%d1 # make a copy of N
5056 asl.l &4,%d1 # N *= 16
5057 add.l %d1,%a1 # tbl_addr = a1 + (N*16)
5068 mov.l INT(%a6),%d1
5069 add.l ADJN(%a6),%d1 # SEE IF D0 IS ODD OR EVEN
5070 ror.l &1,%d1 # D0 WAS ODD IFF D0 IS NEGATIVE
5071 cmp.l %d1,&0
5148 ror.l &1,%d1
5149 and.l &0x80000000,%d1
5154 eor.l %d1,X(%a6) # X IS NOW S'= SGN*S
5540 mov.l %a1,%d2
5542 and.l &0x80000000,%d2
5543 or.l &0x5F000000,%d2 # d2 = SIGN(INARG)*2**63 IN SGL
5544 mov.l %d2,TWOTO63(%a6)
5550 mov.l %d1,%d2 # d2 = L
5552 add.l &0x00003FFF,%d2 # BIASED EXP OF 2**L * (PI/2)
5554 mov.l &0xC90FDAA2,FP_SCR0_HI(%a6)
5555 clr.l FP_SCR0_LO(%a6) # FP_SCR0 = 2**(L) * Piby2_1
5557 add.l &0x00003FDD,%d1
5559 mov.l &0x85A308D3,FP_SCR1_HI(%a6)
5560 clr.l FP_SCR1_LO(%a6) # FP_SCR1 = 2**(L) * Piby2_2
5596 fmov.l %fp2,INT(%a6)
5597 mov.l (%sp)+,%d2 # restore d2
5600 mov.l ADJN(%a6),%d1
5601 cmp.l %d1,&4
5762 mov.l (%a0),%d1
5764 and.l &0x7FFFFFFF,%d1
5766 cmp.l %d1,&0x3FD78000 # |X| >= 2**(-40)?
5770 cmp.l %d1,&0x4004BC7E # |X| < 15 PI?
5780 lea.l PITBL+0x200(%pc),%a1 # TABLE OF N*PI/2, N = -32,...,32
5782 fmov.l %fp1,%d1 # CONVERT TO INTEGER
5784 asl.l &4,%d1
5785 add.l %d1,%a1 # ADDRESS N*PIBY2 IN Y1, Y2
5791 ror.l &5,%d1
5792 and.l &0x80000000,%d1 # D0 WAS ODD IFF D0 < 0
5797 cmp.l %d1,&0
5832 fmov.l %d0,%fpcr # restore users round mode,prec
5869 eor.l &0x80000000,(%sp)
5871 fmov.l %d0,%fpcr # restore users round mode,prec
5878 cmp.l %d1,&0x3FFF8000
5883 fmov.l %d0,%fpcr # restore users round mode,prec
5898 mov.l %d2,-(%sp) # save d2
5905 cmp.l %d1,&0x7ffeffff # is arg dangerously large?
5910 mov.l &0xc90fdaa2,FP_SCR0_HI(%a6)
5911 clr.l FP_SCR0_LO(%a6)
5915 mov.l &0x85a308d3,FP_SCR1_HI(%a6)
5916 clr.l FP_SCR1_LO(%a6)
5936 mov.l %d1,%a1 # save a copy of D0
5937 and.l &0x00007FFF,%d1
5938 sub.l &0x00003FFF,%d1 # d0 = K
5939 cmp.l %d1,&28
5942 sub.l &27,%d1 # d0 = L := K-27
5946 clr.l %d1 # d0 = L := 0
5956 mov.l &0x00003FFE,%d2 # BIASED EXP OF 2/PI
5957 sub.l %d1,%d2 # BIASED EXP OF 2**(-L)*(2/PI)
5959 mov.l &0xA2F9836E,FP_SCR0_HI(%a6)
5960 mov.l &0x4E44152A,FP_SCR0_LO(%a6)
6244 mov.l (%a0),%d1
6247 and.l &0x7FFFFFFF,%d1
6249 cmp.l %d1,&0x3FFB8000 # |X| >= 1/16?
6254 cmp.l %d1,&0x4002FFFF # |X| < 16 ?
6298 and.l &0x7FFF0000,%d2 # EXPONENT OF F
6299 sub.l &0x3FFB0000,%d2 # K+4
6300 asr.l &1,%d2
6301 add.l %d2,%d1 # THE 7 BITS IDENTIFYING F
6302 asr.l &7,%d1 # INDEX INTO TBL OF ATAN(|F|)
6304 add.l %d1,%a1 # ADDRESS OF ATAN(|F|)
6305 mov.l (%a1)+,ATANF(%a6)
6306 mov.l (%a1)+,ATANFHI(%a6)
6307 mov.l (%a1)+,ATANFLO(%a6) # ATANF IS NOW ATAN(|F|)
6308 mov.l X(%a6),%d1 # LOAD SIGN AND EXPO. AGAIN
6309 and.l &0x80000000,%d1 # SIGN(F)
6310 or.l %d1,ATANF(%a6) # ATANF IS NOW SIGN(F)*ATAN(|F|)
6311 mov.l (%sp)+,%d2 # RESTORE d2
6452 fmov.l %d0,%fpcr # restore users rnd mode,prec
6471 fmov.l %d0,%fpcr
6477 fmov.l %d0,%fpcr
6526 mov.l (%a0),%d1
6528 and.l &0x7FFFFFFF,%d1
6529 cmp.l %d1,&0x3FFF8000
7105 mov.l (%a0),%d1 # load part of input X
7106 and.l &0x7FFF0000,%d1 # biased expo. of X
7107 cmp.l %d1,&0x3FBE0000 # 2^(-65)
7114 cmp.l %d1,&0x400CB167 # 16380 log2 trunc. 16 bits
7126 mov.l &0,ADJFLAG(%a6)
7127 fmov.l %fp0,%d1 # N = int( X * 64/log2 )
7129 fmov.l %d1,%fp0 # convert to floating-format
7131 mov.l %d1,L_SCR1(%a6) # save N temporarily
7132 and.l &0x3F,%d1 # D0 is J = N mod 64
7133 lsl.l &4,%d1
7134 add.l %d1,%a1 # address of 2^(J/64)
7135 mov.l L_SCR1(%a6),%d1
7136 asr.l &6,%d1 # D0 is M
7170 mov.l &0x80000000,SCALE+4(%a6)
7171 clr.l SCALE+8(%a6)
7193 mov.l ADJFLAG(%a6),%d1
7196 tst.l %d1
7201 fmov.l %d0,%fpcr # restore user FPCR
7209 fmov.l %d0,%fpcr
7215 cmp.l %d1,&0x400CB27C # 16480 log2
7223 mov.l &1,ADJFLAG(%a6)
7224 fmov.l %fp0,%d1 # N = int( X * 64/log2 )
7226 fmov.l %d1,%fp0 # convert to floating-format
7227 mov.l %d1,L_SCR1(%a6) # save N temporarily
7228 and.l &0x3F,%d1 # D0 is J = N mod 64
7229 lsl.l &4,%d1
7230 add.l %d1,%a1 # address of 2^(J/64)
7231 mov.l L_SCR1(%a6),%d1
7232 asr.l &6,%d1 # D0 is K
7233 mov.l %d1,L_SCR1(%a6) # save K temporarily
7234 asr.l &1,%d1 # D0 is M1
7235 sub.l %d1,L_SCR1(%a6) # a1 is M
7238 mov.l &0x80000000,ADJSCALE+4(%a6)
7239 clr.l ADJSCALE+8(%a6)
7240 mov.l L_SCR1(%a6),%d1 # D0 is M
7253 mov.l (%a0),-(%sp)
7254 andi.l &0x80000000,(%sp)
7255 ori.l &0x00800000,(%sp) # sign(X)*2^(-126)
7259 fmov.l %d0,%fpcr
7269 mov.l (%a0),%d1 # load part of input X
7270 and.l &0x7FFF0000,%d1 # biased expo. of X
7271 cmp.l %d1,&0x3FFD0000 # 1/4
7279 cmp.l %d1,&0x4004C215 # 70log2 rounded up to 16 bits
7291 fmov.l %fp0,%d1 # N = int( X * 64/log2 )
7293 fmov.l %d1,%fp0 # convert to floating-format
7295 mov.l %d1,L_SCR1(%a6) # save N temporarily
7296 and.l &0x3F,%d1 # D0 is J = N mod 64
7297 lsl.l &4,%d1
7298 add.l %d1,%a1 # address of 2^(J/64)
7299 mov.l L_SCR1(%a6),%d1
7300 asr.l &6,%d1 # D0 is M
7301 mov.l %d1,L_SCR1(%a6) # save a copy of M
7331 mov.l &0x80000000,SC+4(%a6)
7332 clr.l SC+8(%a6)
7335 mov.l L_SCR1(%a6),%d1 # D0 is M
7345 mov.l &0x80000000,ONEBYSC+4(%a6)
7346 clr.l ONEBYSC+8(%a6)
7363 mov.l L_SCR1(%a6),%d1 # retrieve M
7364 cmp.l %d1,&63
7374 cmp.l %d1,&-3
7391 fmov.l %d0,%fpcr
7397 cmp.l %d1,&0x3FBE0000 # 2^(-65)
7402 cmp.l %d1,&0x00330000 # 2^(-16312)
7405 mov.l &0x80010000,SC(%a6) # SC is -2^(-16382)
7406 mov.l &0x80000000,SC+4(%a6)
7407 clr.l SC+8(%a6)
7409 fmov.l %d0,%fpcr
7418 mov.l &0x80010000,SC(%a6)
7419 mov.l &0x80000000,SC+4(%a6)
7420 clr.l SC+8(%a6)
7422 fmov.l %d0,%fpcr
7474 fmov.l %d0,%fpcr
7480 mov.l (%a0),%d1
7481 cmp.l %d1,&0
7485 fmov.l %d0,%fpcr
7561 bsr.l norm # normalize exponent
7617 mov.l (%a0),%d1
7619 and.l &0x7FFFFFFF,%d1
7620 cmp.l %d1,&0x400CB167
7628 mov.l %d0,-(%sp)
7629 clr.l %d0
7633 add.l &0xc,%sp # erase |X| from stack
7635 mov.l (%sp)+,%d0
7640 fmov.l %d0,%fpcr
7646 cmp.l %d1,&0x400CB2B3
7653 mov.l %d0,-(%sp)
7654 clr.l %d0
7658 add.l &0xc,%sp # clear fp0 from stack
7659 mov.l (%sp)+,%d0
7661 fmov.l %d0,%fpcr
7674 fmov.l %d0,%fpcr
7729 mov.l (%a0),%d1
7731 mov.l %d1,%a1 # save (compacted) operand
7732 and.l &0x7FFFFFFF,%d1
7733 cmp.l %d1,&0x400CB167
7741 movm.l &0x8040,-(%sp) # {a1/d0}
7744 clr.l %d0
7746 add.l &0xc,%sp # clear Y from stack
7747 fmov.l &0,%fpcr
7748 movm.l (%sp)+,&0x0201 # {a1/d0}
7754 mov.l %a1,%d1
7755 and.l &0x80000000,%d1
7756 or.l &0x3F000000,%d1
7758 mov.l %d1,-(%sp)
7760 fmov.l %d0,%fpcr
7766 cmp.l %d1,&0x400CB2B3
7770 mov.l &0,-(%sp)
7771 mov.l &0x80000000,-(%sp)
7772 mov.l %a1,%d1
7773 and.l &0x80000000,%d1
7774 or.l &0x7FFB0000,%d1
7775 mov.l %d1,-(%sp) # EXTENDED FMT
7778 mov.l %d0,-(%sp)
7779 clr.l %d0
7783 add.l &0xc,%sp # clear fp0 from stack
7785 mov.l (%sp)+,%d0
7786 fmov.l %d0,%fpcr
7855 mov.l (%a0),%d1
7857 mov.l %d1,X(%a6)
7858 and.l &0x7FFFFFFF,%d1
7859 cmp.l %d1, &0x3fd78000 # is |X| < 2^(-40)?
7861 cmp.l %d1, &0x3fffddce # is |X| > (5/2)LOG2?
7867 mov.l X(%a6),%d1
7868 mov.l %d1,SGN(%a6)
7869 and.l &0x7FFF0000,%d1
7870 add.l &0x00010000,%d1 # EXPONENT OF 2|X|
7871 mov.l %d1,X(%a6)
7872 and.l &0x80000000,SGN(%a6)
7875 mov.l %d0,-(%sp)
7876 clr.l %d0
7880 add.l &0xc,%sp # clear Y from stack
7881 mov.l (%sp)+,%d0
7885 mov.l SGN(%a6),%d1
7887 eor.l %d1,V(%a6)
7889 fmov.l %d0,%fpcr # restore users round prec,mode
7894 cmp.l %d1,&0x3FFF8000
7897 cmp.l %d1,&0x40048AA1
7904 mov.l X(%a6),%d1
7905 mov.l %d1,SGN(%a6)
7906 and.l &0x7FFF0000,%d1
7907 add.l &0x00010000,%d1 # EXPO OF 2|X|
7908 mov.l %d1,X(%a6) # Y = 2|X|
7909 and.l &0x80000000,SGN(%a6)
7910 mov.l SGN(%a6),%d1
7913 mov.l %d0,-(%sp)
7914 clr.l %d0
7918 add.l &0xc,%sp # clear Y from stack
7919 mov.l (%sp)+,%d0
7920 mov.l SGN(%a6),%d1
7923 eor.l &0xC0000000,%d1 # -SIGN(X)*2
7927 mov.l SGN(%a6),%d1
7928 or.l &0x3F800000,%d1 # SGN
7931 fmov.l %d0,%fpcr # restore users round prec,mode
7937 fmov.l %d0,%fpcr # restore users round prec,mode
7944 mov.l X(%a6),%d1
7945 and.l &0x80000000,%d1
7946 or.l &0x3F800000,%d1
7948 and.l &0x80000000,%d1
7949 eor.l &0x80800000,%d1 # -SIGN(X)*EPS
7951 fmov.l %d0,%fpcr # restore users round prec,mode
8215 mov.l &0x00000000,ADJK(%a6)
8221 mov.l (%a0),%d1
8224 mov.l (%a0),X(%a6)
8225 mov.l 4(%a0),X+4(%a6)
8226 mov.l 8(%a0),X+8(%a6)
8228 cmp.l %d1,&0 # CHECK IF X IS NEGATIVE
8231 cmp.l %d1,&0x3ffef07d # IS X < 15/16?
8233 cmp.l %d1,&0x3fff8841 # IS X > 17/16?
8249 asr.l &8,%d1
8250 asr.l &8,%d1 # SHIFTED 16 BITS, BIASED EXPO. OF X
8251 sub.l &0x3FFF,%d1 # THIS IS K
8252 add.l ADJK(%a6),%d1 # ADJUST K, ORIGINAL INPUT MAY BE DENORM.
8254 fmov.l %d1,%fp1 # CONVERT K TO FLOATING-POINT FORMAT
8257 mov.l &0x3FFF0000,X(%a6) # X IS NOW Y, I.E. 2^(-K)*X
8258 mov.l XFRAC(%a6),FFRAC(%a6)
8259 and.l &0xFE000000,FFRAC(%a6) # FIRST 7 BITS OF Y
8260 or.l &0x01000000,FFRAC(%a6) # GET F: ATTACH A 1 AT THE EIGHTH BIT
8261 mov.l FFRAC(%a6),%d1 # READY TO GET ADDRESS OF 1/F
8262 and.l &0x7E000000,%d1
8263 asr.l &8,%d1
8264 asr.l &8,%d1
8265 asr.l &4,%d1 # SHIFTED 20, D0 IS THE DISPLACEMENT
8266 add.l %d1,%a0 # A0 IS THE ADDRESS FOR 1/F
8269 mov.l &0x3fff0000,F(%a6)
8270 clr.l F+8(%a6)
8304 add.l &16,%a0 # ADDRESS OF LOG(F)
8314 fmov.l %d0,%fpcr
8446 fmov.l %d0,%fpcr
8453 mov.l &0x00000000,ADJK(%a6)
8458 mov.l X(%a6),%d1
8459 cmp.l %d1,&0
8461 cmp.l %d1,&0x3ffe8000 # IS BOUNDS [1/2,3/2]?
8463 cmp.l %d1,&0x3fffc000
8471 cmp.l %d1,&0x3ffef07d
8473 cmp.l %d1,&0x3fff8841
8494 mov.l XFRAC(%a6),FFRAC(%a6)
8495 and.l &0xFE000000,FFRAC(%a6)
8496 or.l &0x01000000,FFRAC(%a6) # F OBTAINED
8497 cmp.l %d1,&0x3FFF8000 # SEE IF 1+Z > 1
8502 mov.l &0x3fff0000,F(%a6)
8503 clr.l F+8(%a6)
8505 mov.l FFRAC(%a6),%d1
8506 and.l &0x7E000000,%d1
8507 asr.l &8,%d1
8508 asr.l &8,%d1
8509 asr.l &4,%d1 # D0 CONTAINS DISPLACEMENT FOR 1/F
8514 add.l %d1,%a0
8520 mov.l &0x3fff0000,F(%a6)
8521 clr.l F+8(%a6)
8523 mov.l FFRAC(%a6),%d1
8524 and.l &0x7E000000,%d1
8525 asr.l &8,%d1
8526 asr.l &8,%d1
8527 asr.l &4,%d1
8531 add.l %d1,%a0 # A0 IS ADDRESS OF 1/F
8537 cmp.l %d1,&0
8542 fmov.l %d0,%fpcr
8548 fmov.l %d0,%fpcr
8601 mov.l (%a0),%d1
8603 and.l &0x7FFFFFFF,%d1
8604 cmp.l %d1,&0x3FFF8000
8616 mov.l (%a0),%d1
8617 and.l &0x80000000,%d1
8618 or.l &0x3F000000,%d1 # SIGN(X)*HALF
8619 mov.l %d1,-(%sp)
8621 mov.l %d0,-(%sp) # save rnd prec,mode
8622 clr.l %d0 # pass ext prec,RN
8626 add.l &0xc,%sp # clear Z from stack
8628 mov.l (%sp)+,%d0 # fetch old prec,mode
8629 fmov.l %d0,%fpcr # load it
8741 fbeq.l ld_pzero # return an EXACT zero
8743 mov.l (%a0),%d1
8745 mov.l %d0,-(%sp)
8746 clr.l %d0
8748 fmov.l (%sp)+,%fpcr
8755 mov.l (%a0),%d1
8757 mov.l %d0,-(%sp)
8758 clr.l %d0
8760 fmov.l (%sp)+,%fpcr
8767 mov.l (%a0),%d1
8770 mov.l 8(%a0),%d1
8773 mov.l 4(%a0),%d1
8774 and.l &0x7FFFFFFF,%d1
8779 and.l &0x00007FFF,%d1
8780 sub.l &0x3FFF,%d1
8781 beq.l ld_pzero
8782 fmov.l %d0,%fpcr
8783 fmov.l %d1,%fp0
8787 mov.l %d0,-(%sp)
8788 clr.l %d0
8790 fmov.l (%sp)+,%fpcr
8800 mov.l (%a0),%d1
8802 mov.l %d0,-(%sp)
8803 clr.l %d0
8805 fmov.l (%sp)+,%fpcr
8988 mov.l (%a0),%d1
8991 and.l &0x7FFFFFFF,%d1
8993 cmp.l %d1,&0x3FB98000 # |X| >= 2**(-70)?
8998 cmp.l %d1,&0x400D80C0 # |X| > 16480?
9007 fmov.l %fp1,INT(%a6) # N = ROUND-TO-INT(64 X)
9008 mov.l %d2,-(%sp)
9010 fmov.l INT(%a6),%fp1 # N --> FLOATING FMT
9011 mov.l INT(%a6),%d1
9012 mov.l %d1,%d2
9013 and.l &0x3F,%d1 # D0 IS J
9014 asl.l &4,%d1 # DISPLACEMENT FOR 2^(J/64)
9015 add.l %d1,%a1 # ADDRESS FOR 2^(J/64)
9016 asr.l &6,%d2 # d2 IS L, N = 64L + J
9017 mov.l %d2,%d1
9018 asr.l &1,%d1 # D0 IS M
9019 sub.l %d1,%d2 # d2 IS M', N = 64(M+M') + J
9020 add.l &0x3FFF,%d2
9030 mov.l (%a1)+,FACT1(%a6)
9031 mov.l (%a1)+,FACT1HI(%a6)
9032 mov.l (%a1)+,FACT1LOW(%a6)
9039 clr.l FACT2LOW(%a6)
9048 cmp.l %d1,&0x3FFF8000
9053 fmov.l %d0,%fpcr # restore users round prec,mode
9060 mov.l X(%a6),%d1
9061 cmp.l %d1,&0
9073 fmov.l %d0,%fpcr # set user's rounding mode/precision
9085 mov.l (%a0),%d1
9088 and.l &0x7FFFFFFF,%d1
9090 cmp.l %d1,&0x3FB98000 # |X| >= 2**(-70)?
9095 cmp.l %d1,&0x400B9B07 # |X| <= 16480*log2/log10 ?
9104 fmov.l %fp1,INT(%a6) # N=INT(X*64*LOG10/LOG2)
9105 mov.l %d2,-(%sp)
9107 fmov.l INT(%a6),%fp1 # N --> FLOATING FMT
9108 mov.l INT(%a6),%d1
9109 mov.l %d1,%d2
9110 and.l &0x3F,%d1 # D0 IS J
9111 asl.l &4,%d1 # DISPLACEMENT FOR 2^(J/64)
9112 add.l %d1,%a1 # ADDRESS FOR 2^(J/64)
9113 asr.l &6,%d2 # d2 IS L, N = 64L + J
9114 mov.l %d2,%d1
9115 asr.l &1,%d1 # D0 IS M
9116 sub.l %d1,%d2 # d2 IS M', N = 64(M+M') + J
9117 add.l &0x3FFF,%d2
9128 mov.l (%a1)+,FACT1(%a6)
9132 mov.l (%a1)+,FACT1HI(%a6)
9133 mov.l (%a1)+,FACT1LOW(%a6)
9141 clr.l FACT2LOW(%a6)
9184 fmov.l %d0,%fpcr # restore users round prec,mode
9186 mov.l (%sp)+,%d2
9187 mov.l &0x80000000,ADJFACT+4(%a6)
9188 clr.l ADJFACT+8(%a6)
9197 fmov.l %d0,%fpcr # set user's rounding mode/precision
9243 fmov.l &0x0,%fpsr
9251 mov.l %d0,-(%sp) # save src for now
9254 mov.l DST_HI(%a1),FP_SCR0_HI(%a6)
9255 mov.l DST_LO(%a1),FP_SCR0_LO(%a6)
9258 bsr.l norm # normalize the DENORM
9259 neg.l %d0
9260 add.l (%sp)+,%d0 # add adjustment to src
9297 fmov.l (%sp)+,%fpcr # restore user fpcr
9301 clr.l -(%sp) # insert new exponent
9302 mov.l &0x80000000,-(%sp) # insert new high mantissa
9303 mov.l %d0,-(%sp) # insert new lo mantissa
9306 fmov.l %fpcr,%d0 # d0 needs fpcr for t_catch2
9316 mov.l (%sp)+,%d0 # restore ctrl bits
9330 mov.l (%sp)+,%d0
9331 fmov.l %d0,%fpcr # no; load control bits
9336 mov.l (%sp)+,%d0 # load control bits into d1
9337 mov.l %a1,%a0 # pass ptr to dst
9421 mov.l %d0,-(%sp) # save ctrl bits
9428 mov.l %d0,-(%sp) # save ctrl bits
9433 movm.l &0x3f00,-(%sp) # save data registers
9436 and.l &0x00007FFF,%d3 # Y := |Y|
9439 mov.l SRC_HI(%a0),%d4
9440 mov.l SRC_LO(%a0),%d5 # (D3,D4,D5) is |Y|
9442 tst.l %d3
9445 mov.l &0x00003FFE,%d3 # $3FFD + 1
9446 tst.l %d4
9450 mov.l %d5,%d4
9451 clr.l %d5
9452 sub.l &32,%d3
9453 clr.l %d6
9455 lsl.l %d6,%d4
9456 sub.l %d6,%d3 # (D3,D4,D5) is normalized
9461 clr.l %d6
9463 sub.l %d6,%d3
9464 lsl.l %d6,%d4
9465 mov.l %d5,%d7 # a copy of D5
9466 lsl.l %d6,%d5
9467 neg.l %d6
9468 add.l &32,%d6
9469 lsr.l %d6,%d7
9470 or.l %d7,%d4 # (D3,D4,D5) normalized
9475 add.l &0x00003FFE,%d3 # (D3,D4,D5) normalized
9482 eor.l %d0,%d1
9483 and.l &0x00008000,%d1
9485 and.l &0x00007FFF,%d0
9486 mov.l DST_HI(%a1),%d1
9487 mov.l DST_LO(%a1),%d2 # (D0,D1,D2) is |X|
9488 tst.l %d0
9490 mov.l &0x00003FFE,%d0
9491 tst.l %d1
9495 mov.l %d2,%d1
9496 clr.l %d2
9497 sub.l &32,%d0
9498 clr.l %d6
9500 lsl.l %d6,%d1
9501 sub.l %d6,%d0 # (D0,D1,D2) is normalized
9506 clr.l %d6
9508 sub.l %d6,%d0
9509 lsl.l %d6,%d1
9510 mov.l %d2,%d7 # a copy of D2
9511 lsl.l %d6,%d2
9512 neg.l %d6
9513 add.l &32,%d6
9514 lsr.l %d6,%d7
9515 or.l %d7,%d1 # (D0,D1,D2) normalized
9520 add.l &0x00003FFE,%d0 # (D0,D1,D2) normalized
9525 mov.l %d3,L_SCR1(%a6) # save biased exp(Y)
9526 mov.l %d0,-(%sp) # save biased exp(X)
9527 sub.l %d3,%d0 # L := expo(X)-expo(Y)
9529 clr.l %d6 # D6 := carry <- 0
9530 clr.l %d3 # D3 is Q
9531 mov.l &0,%a1 # A1 is k; j+k=L, Q=0
9534 tst.l %d0
9539 mov.l (%sp)+,%d0 # restore d0
9543 addq.l &0x4,%sp # erase exp(X)
9546 tst.l %d6 # test carry bit
9550 cmp.l %d1,%d4 # compare hi(R) and hi(Y)
9552 cmp.l %d2,%d5 # compare lo(R) and lo(Y)
9565 sub.l %d5,%d2 # lo(R) - lo(Y)
9566 subx.l %d4,%d1 # hi(R) - hi(Y)
9567 clr.l %d6 # clear carry
9568 addq.l &1,%d3 # Q := Q + 1
9572 tst.l %d0 # see if j = 0.
9575 add.l %d3,%d3 # Q := 2Q
9576 add.l %d2,%d2 # lo(R) = 2lo(R)
9577 roxl.l &1,%d1 # hi(R) = 2hi(R) + carry
9579 addq.l &1,%a1 # k := k+1
9580 subq.l &1,%d0 # j := j - 1
9589 mov.l L_SCR1(%a6),%d0 # new biased expo of R
9590 tst.l %d1
9594 mov.l %d2,%d1
9595 clr.l %d2
9596 sub.l &32,%d0
9597 clr.l %d6
9599 lsl.l %d6,%d1
9600 sub.l %d6,%d0 # (D0,D1,D2) is normalized
9605 clr.l %d6
9608 sub.l %d6,%d0
9609 lsl.l %d6,%d1
9610 mov.l %d2,%d7 # a copy of D2
9611 lsl.l %d6,%d2
9612 neg.l %d6
9613 add.l &32,%d6
9614 lsr.l %d6,%d7
9615 or.l %d7,%d1 # (D0,D1,D2) normalized
9619 cmp.l %d0,&0x000041FE
9623 mov.l %d1,R_Hi(%a6)
9624 mov.l %d2,R_Lo(%a6)
9625 mov.l L_SCR1(%a6),%d6
9627 mov.l %d4,Y_Hi(%a6)
9628 mov.l %d5,Y_Lo(%a6)
9633 mov.l %d1,R_Hi(%a6)
9634 mov.l %d2,R_Lo(%a6)
9635 sub.l &0x3FFE,%d0
9637 mov.l L_SCR1(%a6),%d6
9638 sub.l &0x3FFE,%d6
9639 mov.l %d6,L_SCR1(%a6)
9642 mov.l %d4,Y_Hi(%a6)
9643 mov.l %d5,Y_Lo(%a6)
9651 mov.l L_SCR1(%a6),%d6 # new biased expo(Y)
9652 subq.l &1,%d6 # biased expo(Y/2)
9653 cmp.l %d0,%d6
9657 cmp.l %d1,%d4
9659 cmp.l %d2,%d5
9669 addq.l &1,%d3 # Q := Q + 1
9681 clr.l %d6
9683 mov.l &8,%d7
9684 lsr.l %d7,%d6
9685 and.l &0x0000007F,%d3 # 7 bits of Q
9686 or.l %d6,%d3 # sign and bits of Q
9688 # fmov.l %fpsr,%d6
9689 # and.l &0xFF00FFFF,%d6
9690 # or.l %d3,%d6
9691 # fmov.l %d6,%fpsr # put Q in fpsr
9696 movm.l (%sp)+,&0xfc # {%d2-%d7}
9697 mov.l (%sp)+,%d0
9698 fmov.l %d0,%fpcr
9787 tst.l FTEMP_HI(%a0)
9789 tst.l FTEMP_LO(%a0)
9798 bsr.l unnorm_fix # convert to norm,denorm,or zero
9804 tst.l FTEMP_LO(%a0)
9806 mov.l FTEMP_HI(%a0), %d0
9807 and.l &0x7fffffff, %d0 # msb is a don't care!
10041 mov.l LOCAL_HI(%a0),FP_SCR0_HI(%a6)
10042 mov.l LOCAL_LO(%a0),FP_SCR0_LO(%a6)
10044 movm.l &0xc080,-(%sp) # save d0-d1/a0
10045 bsr.l norm # normalize mantissa
10046 movm.l (%sp)+,&0x0103 # restore d0-d1/a0
10051 tst.l LOCAL_LO(%a0) # is lo lw of sgl set?
10061 ori.l &inex2_mask,USER_FPSR(%a6) # set INEX2
10071 fmov.l USER_FPCR(%a6),%fpcr
10075 fmov.l %fpsr,%d0
10076 rol.l &0x8,%d0
10081 fmov.l USER_FPCR(%a6),%fpcr
10085 fmov.l %fpsr,%d0
10086 rol.l &0x8,%d0
10093 fmov.l USER_FPCR(%a6),%fpcr
10097 fmov.l %fpsr,%d0
10098 rol.l &0x8,%d0
10130 fmov.l %fpsr,%d0
10131 or.l %d0,USER_FPSR(%a6)
10136 fmov.l %fpsr,%d0
10137 or.l %d0,USER_FPSR(%a6)
10176 ori.l &inx2a_mask+neg_mask,USER_FPSR(%a6)
10183 fmov.l USER_FPCR(%a6),%fpcr # insert user's exceptions
10837 mov.l %d2, -(%sp) # create some temp regs
10838 mov.l %d3, -(%sp)
10840 mov.l FTEMP_HI(%a0), %d0 # load hi(mantissa)
10841 mov.l FTEMP_LO(%a0), %d1 # load lo(mantissa)
10847 lsl.l %d2, %d0 # left shift hi(man)
10850 or.l %d3, %d0 # create hi(man)
10851 lsl.l %d2, %d1 # create lo(man)
10853 mov.l %d0, FTEMP_HI(%a0) # store new hi(man)
10854 mov.l %d1, FTEMP_LO(%a0) # store new lo(man)
10856 mov.l %d2, %d0 # return shift amount
10858 mov.l (%sp)+, %d3 # restore temp regs
10859 mov.l (%sp)+, %d2
10865 lsl.l %d2, %d1 # shift lo(man)
10866 add.l &32, %d2 # add 32 to shft amount
10868 mov.l %d1, FTEMP_HI(%a0) # store hi(man)
10869 clr.l FTEMP_LO(%a0) # lo(man) is now zero
10871 mov.l %d2, %d0 # return shift amount
10873 mov.l (%sp)+, %d3 # restore temp regs
10874 mov.l (%sp)+, %d2
10916 clr.l %d1 # clear top word
10932 bsr.l norm # normalize UNNORM
10945 mov.l %d0, FTEMP_HI(%a0) # save new hi(man)
10947 mov.l FTEMP_LO(%a0), %d0 # fetch old lo(man)
10948 lsl.l %d1, %d0 # extract new lo(man)
10949 mov.l %d0, FTEMP_LO(%a0) # save new lo(man)
10962 mov.l FTEMP_LO(%a0), %d0 # fetch old lo(man)
10963 lsl.l %d1, %d0 # left shift lo(man)
10965 mov.l %d0, FTEMP_HI(%a0) # store new hi(man)
10966 clr.l FTEMP_LO(%a0) # lo(man) = 0