Lines Matching defs:d7
81 #define d7 REG (d7)
371 | It expects the exception type in d7, the format (SINGLE_FLOAT,
386 movew d7,a0@(EBITS) | set __exception_bits
388 orw d7,a0@(STICK) | and __sticky_bits
391 orl d7,d4
414 andw a0@(TRAPE),d7 | is exception trap-enabled?
418 andl d6,d7
424 1: moveml sp@+,d2-d7 | restore data registers
426 1: moveml sp@,d2-d7
678 orl d7,d0
679 movew IMM (INEXACT_RESULT+UNDERFLOW),d7
688 orl d7,d0
689 movew IMM (INEXACT_RESULT+OVERFLOW),d7
697 movew IMM (INEXACT_RESULT+UNDERFLOW),d7
705 movew IMM (INEXACT_RESULT+INVALID_OPERATION),d7
713 orl d7,d0
714 movew IMM (INEXACT_RESULT+DIVIDE_BY_ZERO),d7
756 moveml d2-d7,sp@- | save all data registers and a2 (but d0-d1)
759 moveml d2-d7,sp@
766 movel d0,d7 | get d0's sign bit in d7 '
776 andl IMM (0x80000000),d7 | isolate a's sign bit '
780 orw d6,d7 | and combine them into d7, so that a's sign '
785 orl d6,d7
787 movel d7,a0 | now save d7 into a0, so d7 is free to
793 movel IMM (0x00200000),d7 | mask to put hidden bit back
802 orl d7,d0 | and put hidden bit back
818 orl d7,d2 | and put hidden bit back
833 | and d4-d5-d6-d7 for the second. To do this we store (temporarily) the
847 movel IMM (0),d7 | and move the numbers around
848 movel d7,d6 |
851 movel d7,d3 |
852 movel d7,d2 |
915 roxrl IMM (1),d7
917 lsrl IMM (1),d7
920 bset IMM (31),d7
942 movel d6,d7
953 movew d6,d7
954 swap d7
1037 movel IMM (0),d7
1038 movel d7,d6
1079 | Now we have the numbers in d0--d3 and d4--d7, the exponent in a2, and
1084 exg d7,a0 | get the signs
1087 movel d7,a4
1088 movel a0,d7
1094 movel d7,d6 |
1095 movew IMM (0),d7 | get a's sign in d7 '
1098 eorl d7,d6 | compare the signs
1102 exg d7,a0 | else we add the numbers
1105 movel d7,a4
1106 movel a0,d7
1112 addl d7,d3 |
1118 movel a0,d7 |
1119 andl IMM (0x80000000),d7 | d7 now has the sign
1202 exg d7,a0 | put sign back in a0
1205 movel d7,a4
1206 movel a0,d7
1212 subl d7,d3 |
1218 movel a0,d7 |
1219 bchg IMM (31),d7 | change sign bit in d7
1220 movel d7,a0 |
1227 movel a0,d7
1228 andl IMM (0x80000000),d7 | isolate sign bit
1314 moveml sp@+,d2-d7 | restore data registers
1316 moveml sp@,d2-d7
1336 moveml sp@+,d2-d7 | restore data registers
1338 moveml sp@,d2-d7
1346 movel d7,d4 | d7 contains 0x00200000
1350 movel d7,d5 | d7 contains 0x00200000
1361 andl IMM (0x80000000),d7 | Use the sign of a
1370 movel d0,d7 |
1371 andl IMM (0x80000000),d7 |
1377 bclr IMM (31),d7 |
1398 orl d7,d0 | put sign bit back
1400 moveml sp@+,d2-d7
1402 moveml sp@,d2-d7
1432 movel d0,d7 | save sign bits
1452 eorl d7,d6 | to check sign bits
1454 andl IMM (0x80000000),d7 | get (common) sign bit
1465 andl IMM (0x80000000),d7 | get a's sign bit '
1468 bchg IMM (31),d7 | else we know b is INFINITY and has
1480 moveml d2-d7,sp@-
1483 moveml d2-d7,sp@
1489 movel d0,d7 | d7 will hold the sign of the product
1490 eorl d2,d7 |
1491 andl IMM (0x80000000),d7 |
1492 movel d7,a0 | save sign bit into a0
1493 movel IMM (0x7ff00000),d7 | useful constant (+INFINITY)
1494 movel d7,d6 | another (mask for fraction)
1506 cmpl d7,d0 | is a big?
1509 cmpl d7,d2 | now compare b with INFINITY
1514 andl d7,d4 | isolate exponent in d4
1525 andl d7,d5 |
1575 moveq IMM (11),d7 | left shift d2 11 bits
1576 lsll d7,d2
1578 lsll d7,d3 | left shift d3 11 bits
1580 moveq IMM (21),d7 | right shift them 21 bits
1581 lsrl d7,d6
1585 movel d2,d6 | move b into d6-d7
1586 movel d3,d7 | move a into d4-d5
1597 exg d7,a1
1599 movel d7,a4
1600 movel a1,d7
1606 exg d7,a1 | put counter back in a1
1608 movel d7,a4
1609 movel a1,d7
1616 addl d7,d7 |
1620 exg d7,a2 |
1622 movel d7,a4
1623 movel a2,d7
1628 addxl d7,d1 |
1629 addxl d7,d0 |
1631 exg d7,a2 |
1633 movel d7,a4
1634 movel a2,d7
1639 exg d7,a1 | put counter in d7
1640 dbf d7,1b | decrement and branch
1642 movel d7,a4
1643 movel a1,d7
1645 subql IMM (1),d7
1685 movel d2,d7
1686 lsll d6,d7
1687 orl d7,d3
1689 movel d1,d7
1690 lsll d6,d7
1691 orl d7,d2
1693 movel d0,d7
1694 lsll d6,d7
1695 orl d7,d1
1700 movel a0,d7 | get sign bit back into d7
1725 movel a0,d7 | get sign bit back into d7
1732 movel a0,d7 | get sign bit back into d7
1762 moveml sp@+,d2-d7
1764 moveml sp@,d2-d7
1813 moveml d2-d7,sp@-
1816 moveml d2-d7,sp@
1822 movel d0,d7 | d7 will hold the sign of the result
1823 eorl d2,d7 |
1824 andl IMM (0x80000000),d7
1825 movel d7,a0 | save sign into a0
1826 movel IMM (0x7ff00000),d7 | useful constant (+INFINITY)
1827 movel d7,d6 | another (mask for fraction)
1839 cmpl d7,d0 | is a big?
1842 cmpl d7,d2 | now compare b with INFINITY
1851 andl d7,d4 | and isolate exponent in d4
1862 andl d7,d5 |
1896 movel IMM (0),d6 | d6-d7 will hold the result
1897 movel d6,d7 |
1929 bset d5,d7 | set the corresponding bit in d7
1988 movel d7,d1
2021 movel a0,d7 | restore sign bit to d7
2048 moveml sp@+,d2-d7 |
2050 moveml sp@,d2-d7 |
2062 movel a0,d7 | put a's sign bit back in d7 '
2082 cmpl d7,d2 | compare b with INFINITY
2120 | this point the sign of the result is in d7, the result in d0-d1, normalized
2134 movel d7,a0 |
2135 movel IMM (0),d6 | use d6-d7 to collect bits flushed right
2136 movel d6,d7 | use d6-d7 to collect bits flushed right
2151 roxrl IMM (1),d7 |
2155 lsrl IMM (1),d7
2158 bset IMM (31),d7
2182 orl d7,d3 | the bits which were flushed right
2183 movel a0,d7 | get back sign bit into d7
2232 orl d7,d0 | and sign also
2237 moveml sp@+,d2-d7
2239 moveml sp@,d2-d7
2255 moveml d2-d7,sp@-
2258 moveml d2-d7,sp@
2274 movel d0,d7 | else get sign and return INFINITY
2275 andl IMM (0x80000000),d7
2280 moveml sp@+,d2-d7
2282 moveml sp@,d2-d7
2303 moveml d2-d7,sp@- | save registers
2306 moveml d2-d7,sp@
2315 movel d0,d6 | copy signs into d6 (a) and d7(b)
2317 movel d2,d7 |
2334 eorl d6,d7
2349 movel d0,d7
2351 movel d7,d2
2352 movel d1,d7
2354 movel d7,d3
2369 moveml sp@+,d2-d7 | put back the registers
2371 moveml sp@,d2-d7
2380 moveml sp@+,d2-d7 | put back the registers
2382 moveml sp@,d2-d7
2391 moveml sp@+,d2-d7 | put back the registers
2393 moveml sp@,d2-d7
2404 bclr IMM (31),d7
2419 moveq IMM (INEXACT_RESULT+INVALID_OPERATION),d7
2593 orl d7,d0
2594 moveq IMM (INEXACT_RESULT+UNDERFLOW),d7
2602 orl d7,d0
2603 moveq IMM (INEXACT_RESULT+OVERFLOW),d7
2610 moveq IMM (INEXACT_RESULT+UNDERFLOW),d7
2617 moveq IMM (INEXACT_RESULT+INVALID_OPERATION),d7
2624 orl d7,d0
2625 moveq IMM (INEXACT_RESULT+DIVIDE_BY_ZERO),d7
2667 moveml d2-d7,sp@- | save all data registers but d0-d1
2670 moveml d2-d7,sp@
2697 movel d1,d7 | get exponent in d7
2698 andl d4,d7 |
2700 cmpl d4,d7 | check for INFINITY or NaN
2702 swap d7 | put exponent into first word
2707 | Now we have b's exponent in d7 (second byte) and the mantissa in d1. '
2723 cmpw d6,d7 | compare exponents
2725 cmpl d6,d7 | compare exponents
2730 subl d6,d7 | keep the largest exponent
2731 negl d7
2733 lsrw IMM (8),d7 | put difference in lower byte
2735 lsrl IMM (8),d7 | put difference in lower byte
2739 cmpw IMM (FLT_MANT_DIG+2),d7
2741 cmpl IMM (FLT_MANT_DIG+2),d7
2745 cmpw IMM (16),d7 | if difference >= 16 swap
2747 cmpl IMM (16),d7 | if difference >= 16 swap
2752 subw IMM (1),d7
2754 subql IMM (1), d7
2760 dbra d7,3b
2767 subql IMM (1), d7
2777 subw IMM (16),d7
2779 subl IMM (16),d7
2785 exg d6,d7 | exchange the exponents
2787 eorl d6,d7
2788 eorl d7,d6
2789 eorl d6,d7
2791 subl d6,d7 | keep the largest exponent
2792 negl d7 |
2794 lsrw IMM (8),d7 | put difference in lower byte
2796 lsrl IMM (8),d7 | put difference in lower byte
2800 cmpw IMM (FLT_MANT_DIG+2),d7
2802 cmpl IMM (FLT_MANT_DIG+2),d7
2806 cmpw IMM (16),d7 | if difference >= 16 swap
2808 cmpl IMM (16),d7 | if difference >= 16 swap
2813 subw IMM (1),d7
2815 subl IMM (1),d7
2821 dbra d7,7b
2828 subql IMM (1),d7
2838 subw IMM (16),d7
2840 subl IMM (16),d7
2852 exg d7,a1 | and save the exponents
2857 movel d7,d4
2858 movel a1,d7
2861 eorl d6,d7 | combine sign bits
2874 movel a0,d7 | and sign in d7
2875 andl IMM (0x80000000),d7
2947 movel d6,d7 | put sign in d7
2948 andl IMM (0x80000000),d7
2954 bchg IMM (31),d7 | change sign bit in d7
2968 | Now d0-d1 is positive and the sign bit is in d7.
3008 moveml sp@+,d2-d7 | restore data registers
3010 moveml sp@,d2-d7
3022 moveml sp@+,d2-d7 | restore data registers
3024 moveml sp@,d2-d7
3039 movel d5,d7
3040 swap d7
3053 movel a0,d7
3054 andl IMM (0x80000000),d7 | Use the sign of a
3063 movel d0,d7
3064 andl IMM (0x80000000),d7 | put sign in d7
3070 bclr IMM (31),d7 | if zero be sure to clear sign
3083 orl d7,d0 | put sign bit
3085 moveml sp@+,d2-d7 | restore data registers
3087 moveml sp@,d2-d7
3128 movel d0,d7
3129 andl IMM (0x80000000),d7 | get (common) sign bit
3138 movel d0,d7
3139 andl IMM (0x80000000),d7 | get a's sign bit '
3142 bchg IMM (31),d7 | else we know b is INFINITY and has
3154 moveml d2-d7,sp@-
3157 moveml d2-d7,sp@
3161 movel d0,d7 | d7 will hold the sign of the product
3162 eorl d1,d7 |
3163 andl IMM (0x80000000),d7
3301 | return INFINITY with the correct sign (which is in d7).
3317 movel d7,d0 | else return signed zero
3321 moveml sp@+,d2-d7 |
3323 moveml sp@,d2-d7
3369 moveml d2-d7,sp@-
3372 moveml d2-d7,sp@
3376 movel d0,d7 | d7 will hold the sign of the result
3377 eorl d1,d7 |
3378 andl IMM (0x80000000),d7 |
3435 | d7 holds the sign of the ratio
3437 movel d7,a0 | d6-d7 will hold the ratio of the fractions
3439 movel d6,d7
3479 movel a0,d7 | get sign back
3518 movel d7,d0 | else return signed zero
3522 moveml sp@+,d2-d7 |
3524 moveml sp@,d2-d7 |
3669 orl d7,d0 | and sign also
3674 moveml sp@+,d2-d7
3676 moveml sp@,d2-d7
3695 moveml d2-d7,sp@-
3698 moveml d2-d7,sp@
3710 movel d0,d7 | else get sign and return INFINITY
3711 andl IMM (0x80000000),d7
3716 moveml sp@+,d2-d7
3718 moveml sp@,d2-d7
3739 moveml d2-d7,sp@- | save registers
3742 moveml d2-d7,sp@
3756 movel d1,d7
3763 eorl d6,d7
3777 movel d0,d7
3779 movel d7,d1
3790 moveml sp@+,d2-d7 | put back the registers
3792 moveml sp@,d2-d7
3799 moveml sp@+,d2-d7 | put back the registers
3801 moveml sp@,d2-d7
3810 moveml sp@+,d2-d7 | put back the registers
3812 moveml sp@,d2-d7
3823 bclr IMM (31),d7
3828 moveq IMM (INEXACT_RESULT+INVALID_OPERATION),d7