Lines Matching refs:d1
565 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
579 mov.b %d0,%d1
586 tst.b %d1
591 cmpi.b %d1,&ZERO # is operand a ZERO?
596 cmpi.b %d1,&INF # is operand an INF?
601 cmpi.b %d1,&QNAN # is operand a QNAN?
612 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
622 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
636 mov.b %d0,%d1
643 mov.b %d1,STAG(%a6)
644 tst.b %d1
649 cmpi.b %d1,&ZERO # is operand a ZERO?
654 cmpi.b %d1,&INF # is operand an INF?
659 cmpi.b %d1,&QNAN # is operand a QNAN?
670 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
680 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
695 mov.b %d0,%d1
702 tst.b %d1
707 cmpi.b %d1,&ZERO # is operand a ZERO?
712 cmpi.b %d1,&INF # is operand an INF?
717 cmpi.b %d1,&QNAN # is operand a QNAN?
728 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
742 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
756 mov.b %d0,%d1
763 tst.b %d1
768 cmpi.b %d1,&ZERO # is operand a ZERO?
773 cmpi.b %d1,&INF # is operand an INF?
778 cmpi.b %d1,&QNAN # is operand a QNAN?
789 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
799 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
813 mov.b %d0,%d1
820 mov.b %d1,STAG(%a6)
821 tst.b %d1
826 cmpi.b %d1,&ZERO # is operand a ZERO?
831 cmpi.b %d1,&INF # is operand an INF?
836 cmpi.b %d1,&QNAN # is operand a QNAN?
847 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
857 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
872 mov.b %d0,%d1
879 tst.b %d1
884 cmpi.b %d1,&ZERO # is operand a ZERO?
889 cmpi.b %d1,&INF # is operand an INF?
894 cmpi.b %d1,&QNAN # is operand a QNAN?
905 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
919 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
933 mov.b %d0,%d1
940 tst.b %d1
945 cmpi.b %d1,&ZERO # is operand a ZERO?
950 cmpi.b %d1,&INF # is operand an INF?
955 cmpi.b %d1,&QNAN # is operand a QNAN?
966 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
976 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
990 mov.b %d0,%d1
997 mov.b %d1,STAG(%a6)
998 tst.b %d1
1003 cmpi.b %d1,&ZERO # is operand a ZERO?
1008 cmpi.b %d1,&INF # is operand an INF?
1013 cmpi.b %d1,&QNAN # is operand a QNAN?
1024 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1034 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1049 mov.b %d0,%d1
1056 tst.b %d1
1061 cmpi.b %d1,&ZERO # is operand a ZERO?
1066 cmpi.b %d1,&INF # is operand an INF?
1071 cmpi.b %d1,&QNAN # is operand a QNAN?
1082 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1096 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1110 mov.b %d0,%d1
1117 tst.b %d1
1122 cmpi.b %d1,&ZERO # is operand a ZERO?
1127 cmpi.b %d1,&INF # is operand an INF?
1132 cmpi.b %d1,&QNAN # is operand a QNAN?
1143 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1153 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1167 mov.b %d0,%d1
1174 mov.b %d1,STAG(%a6)
1175 tst.b %d1
1180 cmpi.b %d1,&ZERO # is operand a ZERO?
1185 cmpi.b %d1,&INF # is operand an INF?
1190 cmpi.b %d1,&QNAN # is operand a QNAN?
1201 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1211 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1226 mov.b %d0,%d1
1233 tst.b %d1
1238 cmpi.b %d1,&ZERO # is operand a ZERO?
1243 cmpi.b %d1,&INF # is operand an INF?
1248 cmpi.b %d1,&QNAN # is operand a QNAN?
1259 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1273 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1287 mov.b %d0,%d1
1294 tst.b %d1
1299 cmpi.b %d1,&ZERO # is operand a ZERO?
1304 cmpi.b %d1,&INF # is operand an INF?
1309 cmpi.b %d1,&QNAN # is operand a QNAN?
1320 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1330 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1344 mov.b %d0,%d1
1351 mov.b %d1,STAG(%a6)
1352 tst.b %d1
1357 cmpi.b %d1,&ZERO # is operand a ZERO?
1362 cmpi.b %d1,&INF # is operand an INF?
1367 cmpi.b %d1,&QNAN # is operand a QNAN?
1378 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1388 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1403 mov.b %d0,%d1
1410 tst.b %d1
1415 cmpi.b %d1,&ZERO # is operand a ZERO?
1420 cmpi.b %d1,&INF # is operand an INF?
1425 cmpi.b %d1,&QNAN # is operand a QNAN?
1436 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1450 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1464 mov.b %d0,%d1
1471 tst.b %d1
1476 cmpi.b %d1,&ZERO # is operand a ZERO?
1481 cmpi.b %d1,&INF # is operand an INF?
1486 cmpi.b %d1,&QNAN # is operand a QNAN?
1497 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1507 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1521 mov.b %d0,%d1
1528 mov.b %d1,STAG(%a6)
1529 tst.b %d1
1534 cmpi.b %d1,&ZERO # is operand a ZERO?
1539 cmpi.b %d1,&INF # is operand an INF?
1544 cmpi.b %d1,&QNAN # is operand a QNAN?
1555 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1565 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1580 mov.b %d0,%d1
1587 tst.b %d1
1592 cmpi.b %d1,&ZERO # is operand a ZERO?
1597 cmpi.b %d1,&INF # is operand an INF?
1602 cmpi.b %d1,&QNAN # is operand a QNAN?
1613 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1627 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1641 mov.b %d0,%d1
1648 tst.b %d1
1653 cmpi.b %d1,&ZERO # is operand a ZERO?
1658 cmpi.b %d1,&INF # is operand an INF?
1663 cmpi.b %d1,&QNAN # is operand a QNAN?
1674 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1684 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1698 mov.b %d0,%d1
1705 mov.b %d1,STAG(%a6)
1706 tst.b %d1
1711 cmpi.b %d1,&ZERO # is operand a ZERO?
1716 cmpi.b %d1,&INF # is operand an INF?
1721 cmpi.b %d1,&QNAN # is operand a QNAN?
1732 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1742 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1757 mov.b %d0,%d1
1764 tst.b %d1
1769 cmpi.b %d1,&ZERO # is operand a ZERO?
1774 cmpi.b %d1,&INF # is operand an INF?
1779 cmpi.b %d1,&QNAN # is operand a QNAN?
1790 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1804 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1818 mov.b %d0,%d1
1825 tst.b %d1
1830 cmpi.b %d1,&ZERO # is operand a ZERO?
1835 cmpi.b %d1,&INF # is operand an INF?
1840 cmpi.b %d1,&QNAN # is operand a QNAN?
1851 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1861 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1875 mov.b %d0,%d1
1882 mov.b %d1,STAG(%a6)
1883 tst.b %d1
1888 cmpi.b %d1,&ZERO # is operand a ZERO?
1893 cmpi.b %d1,&INF # is operand an INF?
1898 cmpi.b %d1,&QNAN # is operand a QNAN?
1909 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1919 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1934 mov.b %d0,%d1
1941 tst.b %d1
1946 cmpi.b %d1,&ZERO # is operand a ZERO?
1951 cmpi.b %d1,&INF # is operand an INF?
1956 cmpi.b %d1,&QNAN # is operand a QNAN?
1967 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
1981 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
1995 mov.b %d0,%d1
2002 tst.b %d1
2007 cmpi.b %d1,&ZERO # is operand a ZERO?
2012 cmpi.b %d1,&INF # is operand an INF?
2017 cmpi.b %d1,&QNAN # is operand a QNAN?
2028 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2038 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2052 mov.b %d0,%d1
2059 mov.b %d1,STAG(%a6)
2060 tst.b %d1
2065 cmpi.b %d1,&ZERO # is operand a ZERO?
2070 cmpi.b %d1,&INF # is operand an INF?
2075 cmpi.b %d1,&QNAN # is operand a QNAN?
2086 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2096 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2111 mov.b %d0,%d1
2118 tst.b %d1
2123 cmpi.b %d1,&ZERO # is operand a ZERO?
2128 cmpi.b %d1,&INF # is operand an INF?
2133 cmpi.b %d1,&QNAN # is operand a QNAN?
2144 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2158 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2172 mov.b %d0,%d1
2179 tst.b %d1
2184 cmpi.b %d1,&ZERO # is operand a ZERO?
2189 cmpi.b %d1,&INF # is operand an INF?
2194 cmpi.b %d1,&QNAN # is operand a QNAN?
2205 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2215 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2229 mov.b %d0,%d1
2236 mov.b %d1,STAG(%a6)
2237 tst.b %d1
2242 cmpi.b %d1,&ZERO # is operand a ZERO?
2247 cmpi.b %d1,&INF # is operand an INF?
2252 cmpi.b %d1,&QNAN # is operand a QNAN?
2263 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2273 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2288 mov.b %d0,%d1
2295 tst.b %d1
2300 cmpi.b %d1,&ZERO # is operand a ZERO?
2305 cmpi.b %d1,&INF # is operand an INF?
2310 cmpi.b %d1,&QNAN # is operand a QNAN?
2321 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2335 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2349 mov.b %d0,%d1
2356 tst.b %d1
2361 cmpi.b %d1,&ZERO # is operand a ZERO?
2366 cmpi.b %d1,&INF # is operand an INF?
2371 cmpi.b %d1,&QNAN # is operand a QNAN?
2382 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2392 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2406 mov.b %d0,%d1
2413 mov.b %d1,STAG(%a6)
2414 tst.b %d1
2419 cmpi.b %d1,&ZERO # is operand a ZERO?
2424 cmpi.b %d1,&INF # is operand an INF?
2429 cmpi.b %d1,&QNAN # is operand a QNAN?
2440 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2450 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2465 mov.b %d0,%d1
2472 tst.b %d1
2477 cmpi.b %d1,&ZERO # is operand a ZERO?
2482 cmpi.b %d1,&INF # is operand an INF?
2487 cmpi.b %d1,&QNAN # is operand a QNAN?
2498 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2512 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2526 mov.b %d0,%d1
2533 tst.b %d1
2538 cmpi.b %d1,&ZERO # is operand a ZERO?
2543 cmpi.b %d1,&INF # is operand an INF?
2548 cmpi.b %d1,&QNAN # is operand a QNAN?
2559 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2569 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2583 mov.b %d0,%d1
2590 mov.b %d1,STAG(%a6)
2591 tst.b %d1
2596 cmpi.b %d1,&ZERO # is operand a ZERO?
2601 cmpi.b %d1,&INF # is operand an INF?
2606 cmpi.b %d1,&QNAN # is operand a QNAN?
2617 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2627 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2642 mov.b %d0,%d1
2649 tst.b %d1
2654 cmpi.b %d1,&ZERO # is operand a ZERO?
2659 cmpi.b %d1,&INF # is operand an INF?
2664 cmpi.b %d1,&QNAN # is operand a QNAN?
2675 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2689 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2703 mov.b %d0,%d1
2710 tst.b %d1
2715 cmpi.b %d1,&ZERO # is operand a ZERO?
2720 cmpi.b %d1,&INF # is operand an INF?
2725 cmpi.b %d1,&QNAN # is operand a QNAN?
2736 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2746 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2760 mov.b %d0,%d1
2767 mov.b %d1,STAG(%a6)
2768 tst.b %d1
2773 cmpi.b %d1,&ZERO # is operand a ZERO?
2778 cmpi.b %d1,&INF # is operand an INF?
2783 cmpi.b %d1,&QNAN # is operand a QNAN?
2794 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2804 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2819 mov.b %d0,%d1
2826 tst.b %d1
2831 cmpi.b %d1,&ZERO # is operand a ZERO?
2836 cmpi.b %d1,&INF # is operand an INF?
2841 cmpi.b %d1,&QNAN # is operand a QNAN?
2852 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2866 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2880 mov.b %d0,%d1
2887 tst.b %d1
2892 cmpi.b %d1,&ZERO # is operand a ZERO?
2897 cmpi.b %d1,&INF # is operand an INF?
2902 cmpi.b %d1,&QNAN # is operand a QNAN?
2913 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2923 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2937 mov.b %d0,%d1
2944 mov.b %d1,STAG(%a6)
2945 tst.b %d1
2950 cmpi.b %d1,&ZERO # is operand a ZERO?
2955 cmpi.b %d1,&INF # is operand an INF?
2960 cmpi.b %d1,&QNAN # is operand a QNAN?
2971 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
2981 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
2996 mov.b %d0,%d1
3003 tst.b %d1
3008 cmpi.b %d1,&ZERO # is operand a ZERO?
3013 cmpi.b %d1,&INF # is operand an INF?
3018 cmpi.b %d1,&QNAN # is operand a QNAN?
3029 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3043 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3057 mov.b %d0,%d1
3064 tst.b %d1
3069 cmpi.b %d1,&ZERO # is operand a ZERO?
3074 cmpi.b %d1,&INF # is operand an INF?
3079 cmpi.b %d1,&QNAN # is operand a QNAN?
3090 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3100 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3114 mov.b %d0,%d1
3121 mov.b %d1,STAG(%a6)
3122 tst.b %d1
3127 cmpi.b %d1,&ZERO # is operand a ZERO?
3132 cmpi.b %d1,&INF # is operand an INF?
3137 cmpi.b %d1,&QNAN # is operand a QNAN?
3148 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3158 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3173 mov.b %d0,%d1
3180 tst.b %d1
3185 cmpi.b %d1,&ZERO # is operand a ZERO?
3190 cmpi.b %d1,&INF # is operand an INF?
3195 cmpi.b %d1,&QNAN # is operand a QNAN?
3206 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3220 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3234 mov.b %d0,%d1
3241 tst.b %d1
3246 cmpi.b %d1,&ZERO # is operand a ZERO?
3251 cmpi.b %d1,&INF # is operand an INF?
3256 cmpi.b %d1,&QNAN # is operand a QNAN?
3267 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3277 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3291 mov.b %d0,%d1
3298 mov.b %d1,STAG(%a6)
3299 tst.b %d1
3304 cmpi.b %d1,&ZERO # is operand a ZERO?
3309 cmpi.b %d1,&INF # is operand an INF?
3314 cmpi.b %d1,&QNAN # is operand a QNAN?
3325 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3335 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3350 mov.b %d0,%d1
3357 tst.b %d1
3362 cmpi.b %d1,&ZERO # is operand a ZERO?
3367 cmpi.b %d1,&INF # is operand an INF?
3372 cmpi.b %d1,&QNAN # is operand a QNAN?
3383 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3397 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3411 mov.b %d0,%d1
3418 tst.b %d1
3423 cmpi.b %d1,&ZERO # is operand a ZERO?
3428 cmpi.b %d1,&INF # is operand an INF?
3433 cmpi.b %d1,&QNAN # is operand a QNAN?
3444 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3454 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3468 mov.b %d0,%d1
3475 mov.b %d1,STAG(%a6)
3476 tst.b %d1
3481 cmpi.b %d1,&ZERO # is operand a ZERO?
3486 cmpi.b %d1,&INF # is operand an INF?
3491 cmpi.b %d1,&QNAN # is operand a QNAN?
3502 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3512 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3527 mov.b %d0,%d1
3534 tst.b %d1
3539 cmpi.b %d1,&ZERO # is operand a ZERO?
3544 cmpi.b %d1,&INF # is operand an INF?
3549 cmpi.b %d1,&QNAN # is operand a QNAN?
3560 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3574 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3588 mov.b %d0,%d1
3595 tst.b %d1
3600 cmpi.b %d1,&ZERO # is operand a ZERO?
3605 cmpi.b %d1,&INF # is operand an INF?
3610 cmpi.b %d1,&QNAN # is operand a QNAN?
3621 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3631 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3645 mov.b %d0,%d1
3652 mov.b %d1,STAG(%a6)
3653 tst.b %d1
3658 cmpi.b %d1,&ZERO # is operand a ZERO?
3663 cmpi.b %d1,&INF # is operand an INF?
3668 cmpi.b %d1,&QNAN # is operand a QNAN?
3679 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3689 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3704 mov.b %d0,%d1
3711 tst.b %d1
3716 cmpi.b %d1,&ZERO # is operand a ZERO?
3721 cmpi.b %d1,&INF # is operand an INF?
3726 cmpi.b %d1,&QNAN # is operand a QNAN?
3737 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3751 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3765 mov.b %d0,%d1
3772 tst.b %d1
3777 cmpi.b %d1,&ZERO # is operand a ZERO?
3782 cmpi.b %d1,&INF # is operand an INF?
3787 cmpi.b %d1,&QNAN # is operand a QNAN?
3798 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3808 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3822 mov.b %d0,%d1
3829 mov.b %d1,STAG(%a6)
3830 tst.b %d1
3835 cmpi.b %d1,&ZERO # is operand a ZERO?
3840 cmpi.b %d1,&INF # is operand an INF?
3845 cmpi.b %d1,&QNAN # is operand a QNAN?
3856 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3866 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3881 mov.b %d0,%d1
3888 tst.b %d1
3893 cmpi.b %d1,&ZERO # is operand a ZERO?
3898 cmpi.b %d1,&INF # is operand an INF?
3903 cmpi.b %d1,&QNAN # is operand a QNAN?
3914 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3928 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3942 mov.b %d0,%d1
3949 tst.b %d1
3954 cmpi.b %d1,&ZERO # is operand a ZERO?
3959 cmpi.b %d1,&INF # is operand an INF?
3964 cmpi.b %d1,&QNAN # is operand a QNAN?
3975 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
3985 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
3999 mov.b %d0,%d1
4006 mov.b %d1,STAG(%a6)
4007 tst.b %d1
4012 cmpi.b %d1,&ZERO # is operand a ZERO?
4017 cmpi.b %d1,&INF # is operand an INF?
4022 cmpi.b %d1,&QNAN # is operand a QNAN?
4033 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4043 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4058 mov.b %d0,%d1
4065 tst.b %d1
4070 cmpi.b %d1,&ZERO # is operand a ZERO?
4075 cmpi.b %d1,&INF # is operand an INF?
4080 cmpi.b %d1,&QNAN # is operand a QNAN?
4091 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4105 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4119 mov.b %d0,%d1
4126 tst.b %d1
4131 cmpi.b %d1,&ZERO # is operand a ZERO?
4136 cmpi.b %d1,&INF # is operand an INF?
4141 cmpi.b %d1,&QNAN # is operand a QNAN?
4152 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4164 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4178 mov.b %d0,%d1
4185 mov.b %d1,STAG(%a6)
4186 tst.b %d1
4191 cmpi.b %d1,&ZERO # is operand a ZERO?
4196 cmpi.b %d1,&INF # is operand an INF?
4201 cmpi.b %d1,&QNAN # is operand a QNAN?
4212 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4224 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4239 mov.b %d0,%d1
4246 tst.b %d1
4251 cmpi.b %d1,&ZERO # is operand a ZERO?
4256 cmpi.b %d1,&INF # is operand an INF?
4261 cmpi.b %d1,&QNAN # is operand a QNAN?
4272 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4288 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4308 mov.l %d0,%d1
4318 tst.b %d1
4323 cmpi.b %d1,&ZERO # is operand a ZERO?
4328 cmpi.b %d1,&INF # is operand an INF?
4333 cmpi.b %d1,&QNAN # is operand a QNAN?
4344 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4354 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4374 mov.l %d0,%d1
4384 tst.b %d1
4389 cmpi.b %d1,&ZERO # is operand a ZERO?
4394 cmpi.b %d1,&INF # is operand an INF?
4399 cmpi.b %d1,&QNAN # is operand a QNAN?
4410 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4420 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4442 mov.l %d0,%d1
4452 tst.b %d1
4457 cmpi.b %d1,&ZERO # is operand a ZERO?
4462 cmpi.b %d1,&INF # is operand an INF?
4467 cmpi.b %d1,&QNAN # is operand a QNAN?
4478 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4492 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4512 mov.l %d0,%d1
4522 tst.b %d1
4527 cmpi.b %d1,&ZERO # is operand a ZERO?
4532 cmpi.b %d1,&INF # is operand an INF?
4537 cmpi.b %d1,&QNAN # is operand a QNAN?
4548 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4558 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4578 mov.l %d0,%d1
4588 tst.b %d1
4593 cmpi.b %d1,&ZERO # is operand a ZERO?
4598 cmpi.b %d1,&INF # is operand an INF?
4603 cmpi.b %d1,&QNAN # is operand a QNAN?
4614 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4624 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4646 mov.l %d0,%d1
4656 tst.b %d1
4661 cmpi.b %d1,&ZERO # is operand a ZERO?
4666 cmpi.b %d1,&INF # is operand an INF?
4671 cmpi.b %d1,&QNAN # is operand a QNAN?
4682 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4696 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4716 mov.l %d0,%d1
4726 tst.b %d1
4731 cmpi.b %d1,&ZERO # is operand a ZERO?
4736 cmpi.b %d1,&INF # is operand an INF?
4741 cmpi.b %d1,&QNAN # is operand a QNAN?
4752 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4762 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4782 mov.l %d0,%d1
4792 tst.b %d1
4797 cmpi.b %d1,&ZERO # is operand a ZERO?
4802 cmpi.b %d1,&INF # is operand an INF?
4807 cmpi.b %d1,&QNAN # is operand a QNAN?
4818 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
4828 movm.l &0x0303,EXC_DREGS(%a6) # save d0-d1/a0-a1
4850 mov.l %d0,%d1
4860 tst.b %d1
4865 cmpi.b %d1,&ZERO # is operand a ZERO?
4870 cmpi.b %d1,&INF # is operand an INF?
4875 cmpi.b %d1,&QNAN # is operand a QNAN?
4886 movm.l EXC_DREGS(%a6),&0x0303 # restore d0-d1/a0-a1
5032 mov.l (%a0),%d1 # put exp in hi word
5033 mov.w 4(%a0),%d1 # fetch hi(man)
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?
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
5550 mov.l %d1,%d2 # d2 = L
5557 add.l &0x00003FDD,%d1
5558 mov.w %d1,FP_SCR1_EX(%a6)
5562 mov.b ENDFLAG(%a6),%d1
5587 cmp.b %d1,&0
5600 mov.l ADJN(%a6),%d1
5601 cmp.l %d1,&4
5762 mov.l (%a0),%d1
5763 mov.w 4(%a0),%d1
5764 and.l &0x7FFFFFFF,%d1
5766 cmp.l %d1,&0x3FD78000 # |X| >= 2**(-40)?
5770 cmp.l %d1,&0x4004BC7E # |X| < 15 PI?
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
5878 cmp.l %d1,&0x3FFF8000
5884 mov.b &FMOV_OP,%d1 # last inst is MOVE
5905 cmp.l %d1,&0x7ffeffff # is arg dangerously large?
5935 mov.w INARG(%a6),%d1
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
5957 sub.l %d1,%d2 # BIASED EXP OF 2**(-L)*(2/PI)
6244 mov.l (%a0),%d1
6245 mov.w 4(%a0),%d1
6247 and.l &0x7FFFFFFF,%d1
6249 cmp.l %d1,&0x3FFB8000 # |X| >= 1/16?
6254 cmp.l %d1,&0x4002FFFF # |X| < 16 ?
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|)
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|)
6526 mov.l (%a0),%d1
6527 mov.w 4(%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)
7113 mov.w 4(%a0),%d1 # expo. and partial sig. of |X|
7114 cmp.l %d1,&0x400CB167 # 16380 log2 trunc. 16 bits
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
7137 add.w &0x3FFF,%d1 # biased expo. of 2^(M)
7169 mov.w %d1,SCALE(%a6) # SCALE is 2^(M) in extended
7193 mov.l ADJFLAG(%a6),%d1
7196 tst.l %d1
7202 mov.b &FMUL_OP,%d1 # last inst is MUL
7215 cmp.l %d1,&0x400CB27C # 16480 log2
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
7236 add.w &0x3FFF,%d1 # biased expo. of 2^(M1)
7237 mov.w %d1,ADJSCALE(%a6) # ADJSCALE := 2^(M1)
7240 mov.l L_SCR1(%a6),%d1 # D0 is M
7241 add.w &0x3FFF,%d1 # biased expo. of 2^(M)
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
7278 mov.w 4(%a0),%d1 # expo. and partial sig. of |X|
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
7311 add.w &0x3FFF,%d1 # D0 is biased expo. of 2^M
7330 mov.w %d1,SC(%a6) # SC is 2^(M) in extended
7335 mov.l L_SCR1(%a6),%d1 # D0 is M
7336 neg.w %d1 # D0 is -M
7338 add.w &0x3FFF,%d1 # biased expo. of 2^(-M)
7343 or.w &0x8000,%d1 # signed/expo. of -2^(-M)
7344 mov.w %d1,ONEBYSC(%a6) # OnebySc is -2^(-M)
7363 mov.l L_SCR1(%a6),%d1 # retrieve M
7364 cmp.l %d1,&63
7374 cmp.l %d1,&-3
7397 cmp.l %d1,&0x3FBE0000 # 2^(-65)
7402 cmp.l %d1,&0x00330000 # 2^(-16312)
7410 mov.b &FADD_OP,%d1 # last inst is ADD
7423 mov.b &FMUL_OP,%d1 # last inst is MUL
7480 mov.l (%a0),%d1
7481 cmp.l %d1,&0
7617 mov.l (%a0),%d1
7618 mov.w 4(%a0),%d1
7619 and.l &0x7FFFFFFF,%d1
7620 cmp.l %d1,&0x400CB167
7641 mov.b &FADD_OP,%d1 # last inst is ADD
7646 cmp.l %d1,&0x400CB2B3
7662 mov.b &FMUL_OP,%d1 # last inst is MUL
7729 mov.l (%a0),%d1
7730 mov.w 4(%a0),%d1
7731 mov.l %d1,%a1 # save (compacted) operand
7732 and.l &0x7FFFFFFF,%d1
7733 cmp.l %d1,&0x400CB167
7754 mov.l %a1,%d1
7755 and.l &0x80000000,%d1
7756 or.l &0x3F000000,%d1
7758 mov.l %d1,-(%sp)
7761 mov.b &FMUL_OP,%d1 # last inst is MUL
7766 cmp.l %d1,&0x400CB2B3
7772 mov.l %a1,%d1
7773 and.l &0x80000000,%d1
7774 or.l &0x7FFB0000,%d1
7775 mov.l %d1,-(%sp) # EXTENDED FMT
7787 mov.b &FMUL_OP,%d1 # last inst is MUL
7855 mov.l (%a0),%d1
7856 mov.w 4(%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)
7885 mov.l SGN(%a6),%d1
7887 eor.l %d1,V(%a6)
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|
7910 mov.l SGN(%a6),%d1
7920 mov.l SGN(%a6),%d1
7923 eor.l &0xC0000000,%d1 # -SIGN(X)*2
7924 fmov.s %d1,%fp1 # -SIGN(X)*2 IN SGL FMT
7927 mov.l SGN(%a6),%d1
7928 or.l &0x3F800000,%d1 # SGN
7929 fmov.s %d1,%fp0 # SGN IN SGL FMT
7932 mov.b &FADD_OP,%d1 # last inst is ADD
7938 mov.b &FMOV_OP,%d1 # last inst is MOVE
7944 mov.l X(%a6),%d1
7945 and.l &0x80000000,%d1
7946 or.l &0x3F800000,%d1
7947 fmov.s %d1,%fp0
7948 and.l &0x80000000,%d1
7949 eor.l &0x80800000,%d1 # -SIGN(X)*EPS
7952 fadd.s %d1,%fp0
8221 mov.l (%a0),%d1
8222 mov.w 4(%a0),%d1
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
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
8447 mov.b &FMOV_OP,%d1 # last inst is MOVE
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
8497 cmp.l %d1,&0x3FFF8000 # SEE IF 1+Z > 1
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
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
8601 mov.l (%a0),%d1
8602 mov.w 4(%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)
8630 mov.b &FMUL_OP,%d1 # last inst is MUL
8743 mov.l (%a0),%d1
8755 mov.l (%a0),%d1
8767 mov.l (%a0),%d1
8770 mov.l 8(%a0),%d1
8773 mov.l 4(%a0),%d1
8774 and.l &0x7FFFFFFF,%d1
8778 mov.w (%a0),%d1
8779 and.l &0x00007FFF,%d1
8780 sub.l &0x3FFF,%d1
8783 fmov.l %d1,%fp0
8800 mov.l (%a0),%d1
8988 mov.l (%a0),%d1
8989 mov.w 4(%a0),%d1
8991 and.l &0x7FFFFFFF,%d1
8993 cmp.l %d1,&0x3FB98000 # |X| >= 2**(-70)?
8998 cmp.l %d1,&0x400D80C0 # |X| > 16480?
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)
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
9040 add.w %d1,FACT1(%a6)
9042 add.w %d1,FACT2(%a6)
9048 cmp.l %d1,&0x3FFF8000
9060 mov.l X(%a6),%d1
9061 cmp.l %d1,&0
9085 mov.l (%a0),%d1
9086 mov.w 4(%a0),%d1
9088 and.l &0x7FFFFFFF,%d1
9090 cmp.l %d1,&0x3FB98000 # |X| >= 2**(-70)?
9095 cmp.l %d1,&0x400B9B07 # |X| <= 16480*log2/log10 ?
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)
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
9144 add.w %d1,FACT1(%a6)
9145 add.w %d1,FACT2(%a6)
9189 mov.b &FMUL_OP,%d1 # last inst is MUL
9307 mov.b &FMUL_OP,%d1 # last inst is MUL
9332 mov.b &FMOV_OP,%d1 # last inst is MOVE
9336 mov.l (%sp)+,%d0 # load control bits into d1
9481 mov.w SignY(%a6),%d1
9482 eor.l %d0,%d1
9483 and.l &0x00008000,%d1
9484 mov.w %d1,SignQ(%a6) # sign(Q) obtained
9486 mov.l DST_HI(%a1),%d1
9491 tst.l %d1
9495 mov.l %d2,%d1
9499 bfffo %d1{&0:&32},%d6
9500 lsl.l %d6,%d1
9507 bfffo %d1{&0:&32},%d6
9509 lsl.l %d6,%d1
9515 or.l %d7,%d1 # (D0,D1,D2) normalized
9550 cmp.l %d1,%d4 # compare hi(R) and hi(Y)
9566 subx.l %d4,%d1 # hi(R) - hi(Y)
9577 roxl.l &1,%d1 # hi(R) = 2hi(R) + carry
9590 tst.l %d1
9594 mov.l %d2,%d1
9598 bfffo %d1{&0:&32},%d6
9599 lsl.l %d6,%d1
9606 bfffo %d1{&0:&32},%d6
9609 lsl.l %d6,%d1
9615 or.l %d7,%d1 # (D0,D1,D2) normalized
9623 mov.l %d1,R_Hi(%a6)
9633 mov.l %d1,R_Hi(%a6)
9657 cmp.l %d1,%d4
9701 mov.b &FMUL_OP,%d1 # last inst is MUL
10044 movm.l &0xc080,-(%sp) # save d0-d1/a0
10046 movm.l (%sp)+,&0x0103 # restore d0-d1/a0
10048 cmpi.b %d1,&0x40 # is precision sgl?
10841 mov.l FTEMP_LO(%a0), %d1 # load lo(mantissa)
10848 bfextu %d1{&0:%d2}, %d3 # extract lo bits
10851 lsl.l %d2, %d1 # create lo(man)
10854 mov.l %d1, FTEMP_LO(%a0) # store new lo(man)
10864 bfffo %d1{&0:&32}, %d2 # how many places to shift?
10865 lsl.l %d2, %d1 # shift lo(man)
10868 mov.l %d1, FTEMP_HI(%a0) # store hi(man)
10916 clr.l %d1 # clear top word
10917 mov.w FTEMP_EX(%a0), %d1 # extract exponent
10918 and.w &0x7fff, %d1 # strip off sgn
10920 cmp.w %d0, %d1 # will denorm push exp < 0?
10926 sub.w %d0, %d1 # shift exponent value
10929 or.w %d0, %d1 # {sgn,new exp}
10930 mov.w %d1, FTEMP_EX(%a0) # insert new exponent
10941 cmp.b %d1, &32 # is exp <= 32?
10944 bfextu FTEMP_HI(%a0){%d1:&32}, %d0 # extract new hi(man)
10948 lsl.l %d1, %d0 # extract new lo(man)
10960 sub.w &32, %d1 # adjust shft amt by 32
10963 lsl.l %d1, %d0 # left shift lo(man)