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
687 orl d7,d0
688 movew IMM (INEXACT_RESULT+UNDERFLOW),d7
697 orl d7,d0
698 movew IMM (INEXACT_RESULT+OVERFLOW),d7
706 movew IMM (INEXACT_RESULT+UNDERFLOW),d7
714 movew IMM (INEXACT_RESULT+INVALID_OPERATION),d7
722 orl d7,d0
723 movew IMM (INEXACT_RESULT+DIVIDE_BY_ZERO),d7
765 moveml d2-d7,sp@- | save all data registers and a2 (but d0-d1)
768 moveml d2-d7,sp@
775 movel d0,d7 | get d0's sign bit in d7 '
785 andl IMM (0x80000000),d7 | isolate a's sign bit '
789 orw d6,d7 | and combine them into d7, so that a's sign '
794 orl d6,d7
796 movel d7,a0 | now save d7 into a0, so d7 is free to
802 movel IMM (0x00200000),d7 | mask to put hidden bit back
811 orl d7,d0 | and put hidden bit back
827 orl d7,d2 | and put hidden bit back
842 | and d4-d5-d6-d7 for the second. To do this we store (temporarily) the
856 movel IMM (0),d7 | and move the numbers around
857 movel d7,d6 |
860 movel d7,d3 |
861 movel d7,d2 |
924 roxrl IMM (1),d7
926 lsrl IMM (1),d7
929 bset IMM (31),d7
951 movel d6,d7
962 movew d6,d7
963 swap d7
1046 movel IMM (0),d7
1047 movel d7,d6
1088 | Now we have the numbers in d0--d3 and d4--d7, the exponent in a2, and
1093 exg d7,a0 | get the signs
1096 movel d7,a4
1097 movel a0,d7
1103 movel d7,d6 |
1104 movew IMM (0),d7 | get a's sign in d7 '
1107 eorl d7,d6 | compare the signs
1111 exg d7,a0 | else we add the numbers
1114 movel d7,a4
1115 movel a0,d7
1121 addl d7,d3 |
1127 movel a0,d7 |
1128 andl IMM (0x80000000),d7 | d7 now has the sign
1211 exg d7,a0 | put sign back in a0
1214 movel d7,a4
1215 movel a0,d7
1221 subl d7,d3 |
1227 movel a0,d7 |
1228 bchg IMM (31),d7 | change sign bit in d7
1229 movel d7,a0 |
1236 movel a0,d7
1237 andl IMM (0x80000000),d7 | isolate sign bit
1323 moveml sp@+,d2-d7 | restore data registers
1325 moveml sp@,d2-d7
1345 moveml sp@+,d2-d7 | restore data registers
1347 moveml sp@,d2-d7
1355 movel d7,d4 | d7 contains 0x00200000
1359 movel d7,d5 | d7 contains 0x00200000
1370 andl IMM (0x80000000),d7 | Use the sign of a
1379 movel d0,d7 |
1380 andl IMM (0x80000000),d7 |
1388 bclr IMM (31),d7 |
1409 orl d7,d0 | put sign bit back
1411 d7
1413 moveml sp@,d2-d7
1443 movel d0,d7 | save sign bits
1463 eorl d7,d6 | to check sign bits
1465 andl IMM (0x80000000),d7 | get (common) sign bit
1476 andl IMM (0x80000000),d7 | get a's sign bit '
1479 bchg IMM (31),d7 | else we know b is INFINITY and has
1491 moveml d2-d7,sp@-
1494 moveml d2-d7,sp@
1500 movel d0,d7 | d7 will hold the sign of the product
1501 eorl d2,d7 |
1502 andl IMM (0x80000000),d7 |
1503 movel d7,a0 | save sign bit into a0
1504 movel IMM (0x7ff00000),d7 | useful constant (+INFINITY)
1505 movel d7,d6 | another (mask for fraction)
1517 cmpl d7,d0 | is a big?
1520 cmpl d7,d2 | now compare b with INFINITY
1525 andl d7,d4 | isolate exponent in d4
1536 andl d7,d5 |
1586 moveq IMM (11),d7 | left shift d2 11 bits
1587 lsll d7,d2
1589 lsll d7,d3 | left shift d3 11 bits
1591 moveq IMM (21),d7 | right shift them 21 bits
1592 lsrl d7,d6
1596 movel d2,d6 | move b into d6-d7
1597 movel d3,d7 | move a into d4-d5
1608 exg d7,a1
1610 movel d7,a4
1611 movel a1,d7
1617 exg d7,a1 | put counter back in a1
1619 movel d7,a4
1620 movel a1,d7
1627 addl d7,d7 |
1631 exg d7,a2 |
1633 movel d7,a4
1634 movel a2,d7
1639 addxl d7,d1 |
1640 addxl d7,d0 |
1642 exg d7,a2 |
1644 movel d7,a4
1645 movel a2,d7
1650 exg d7,a1 | put counter in d7
1651 dbf d7,1b | decrement and branch
1653 movel d7,a4
1654 movel a1,d7
1656 subql IMM (1),d7
1696 movel d2,d7
1697 lsll d6,d7
1698 orl d7,d3
1700 movel d1,d7
1701 lsll d6,d7
1702 orl d7,d2
1704 movel d0,d7
1705 lsll d6,d7
1706 orl d7,d1
1711 movel a0,d7 | get sign bit back into d7
1736 movel a0,d7 | get sign bit back into d7
1743 movel a0,d7 | get sign bit back into d7
1773 moveml sp@+,d2-d7
1775 moveml sp@,d2-d7
1824 moveml d2-d7,sp@-
1827 moveml d2-d7,sp@
1833 movel d0,d7 | d7 will hold the sign of the result
1834 eorl d2,d7 |
1835 andl IMM (0x80000000),d7
1836 movel d7,a0 | save sign into a0
1837 movel IMM (0x7ff00000),d7 | useful constant (+INFINITY)
1838 movel d7,d6 | another (mask for fraction)
1850 cmpl d7,d0 | is a big?
1853 cmpl d7,d2 | now compare b with INFINITY
1862 andl d7,d4 | and isolate exponent in d4
1873 andl d7,d5 |
1907 movel IMM (0),d6 | d6-d7 will hold the result
1908 movel d6,d7 |
1940 bset d5,d7 | set the corresponding bit in d7
1999 movel d7,d1
2032 movel a0,d7 | restore sign bit to d7
2059 moveml sp@+,d2-d7 |
2061 moveml sp@,d2-d7 |
2073 movel a0,d7 | put a's sign bit back in d7 '
2093 cmpl d7,d2 | compare b with INFINITY
2095 movl a0,d7 | restore sign bit to d7
2130 | this point the sign of the result is in d7, the result in d0-d1, normalized
2144 movel d7,a0 |
2145 movel IMM (0),d6 | use d6-d7 to collect bits flushed right
2146 movel d6,d7 | use d6-d7 to collect bits flushed right
2161 roxrl IMM (1),d7 |
2165 lsrl IMM (1),d7
2168 bset IMM (31),d7
2192 orl d7,d3 | the bits which were flushed right
2193 movel a0,d7 | get back sign bit into d7
2242 orl d7,d0 | and sign also
2247 moveml sp@+,d2-d7
2249 moveml sp@,d2-d7
2265 moveml d2-d7,sp@-
2268 moveml d2-d7,sp@
2284 movel d0,d7 | else get sign and return INFINITY
2285 andl IMM (0x80000000),d7
2290 moveml sp@+,d2-d7
2292 moveml sp@,d2-d7
2313 moveml d2-d7,sp@- | save registers
2316 moveml d2-d7,sp@
2325 movel d0,d6 | copy signs into d6 (a) and d7(b)
2327 movel d2,d7 |
2344 eorl d6,d7
2359 movel d0,d7
2361 movel d7,d2
2362 movel d1,d7
2364 movel d7,d3
2379 moveml sp@+,d2-d7 | put back the registers
2381 moveml sp@,d2-d7
2390 moveml sp@+,d2-d7 | put back the registers
2392 moveml sp@,d2-d7
2401 moveml sp@+,d2-d7 | put back the registers
2403 moveml sp@,d2-d7
2414 bclr IMM (31),d7
2429 moveq IMM (INEXACT_RESULT+INVALID_OPERATION),d7
2603 orl d7,d0
2604 moveq IMM (INEXACT_RESULT+UNDERFLOW),d7
2612 orl d7,d0
2613 moveq IMM (INEXACT_RESULT+OVERFLOW),d7
2620 moveq IMM (INEXACT_RESULT+UNDERFLOW),d7
2627 moveq IMM (INEXACT_RESULT+INVALID_OPERATION),d7
2634 orl d7,d0
2635 moveq IMM (INEXACT_RESULT+DIVIDE_BY_ZERO),d7
2677 moveml d2-d7,sp@- | save all data registers but d0-d1
2680 moveml d2-d7,sp@
2707 movel d1,d7 | get exponent in d7
2708 andl d4,d7 |
2710 cmpl d4,d7 | check for INFINITY or NaN
2712 swap d7 | put exponent into first word
2717 | Now we have b's exponent in d7 (second byte) and the mantissa in d1. '
2733 cmpw d6,d7 | compare exponents
2735 cmpl d6,d7 | compare exponents
2740 subl d6,d7 | keep the largest exponent
2741 negl d7
2743 lsrw IMM (8),d7 | put difference in lower byte
2745 lsrl IMM (8),d7 | put difference in lower byte
2749 cmpw IMM (FLT_MANT_DIG+2),d7
2751 cmpl IMM (FLT_MANT_DIG+2),d7
2755 cmpw IMM (16),d7 | if difference >= 16 swap
2757 cmpl IMM (16),d7 | if difference >= 16 swap
2762 subw IMM (1),d7
2764 subql IMM (1), d7
2770 dbra d7,3b
2777 subql IMM (1), d7
2787 subw IMM (16),d7
2789 subl IMM (16),d7
2795 exg d6,d7 | exchange the exponents
2797 eorl d6,d7
2798 eorl d7,d6
2799 eorl d6,d7
2801 subl d6,d7 | keep the largest exponent
2802 negl d7 |
2804 lsrw IMM (8),d7 | put difference in lower byte
2806 lsrl IMM (8),d7 | put difference in lower byte
2810 cmpw IMM (FLT_MANT_DIG+2),d7
2812 cmpl IMM (FLT_MANT_DIG+2),d7
2816 cmpw IMM (16),d7 | if difference >= 16 swap
2818 cmpl IMM (16),d7 | if difference >= 16 swap
2823 subw IMM (1),d7
2825 subl IMM (1),d7
2831 dbra d7,7b
2838 subql IMM (1),d7
2848 subw IMM (16),d7
2850 subl IMM (16),d7
2862 exg d7,a1 | and save the exponents
2867 movel d7,d4
2868 movel a1,d7
2871 eorl d6,d7 | combine sign bits
2884 movel a0,d7 | and sign in d7
2885 andl IMM (0x80000000),d7
2957 movel d6,d7 | put sign in d7
2958 andl IMM (0x80000000),d7
2964 bchg IMM (31),d7 | change sign bit in d7
2978 | Now d0-d1 is positive and the sign bit is in d7.
3018 moveml sp@+,d2-d7 | restore data registers
3020 moveml sp@,d2-d7
3032 moveml sp@+,d2-d7 | restore data registers
3034 moveml sp@,d2-d7
3049 movel d5,d7
3050 swap d7
3063 movel a0,d7
3064 andl IMM (0x80000000),d7 | Use the sign of a
3073 movel d0,d7
3074 andl IMM (0x80000000),d7 | put sign in d7
3080 bclr IMM (31),d7 | if zero be sure to clear sign
3093 orl d7,d0 | put sign bit
3095 moveml sp@+,d2-d7 | restore data registers
3097 moveml sp@,d2-d7
3124 movel d0,d7 | into d7 as well as we may need the sign
3140 andl IMM (0x80000000),d7 | get (common) sign bit
3149 andl IMM (0x80000000),d7 | get a's sign bit '
3152 bchg IMM (31),d7 | else we know b is INFINITY and has
3164 moveml d2-d7,sp@-
3167 moveml d2-d7,sp@
3171 movel d0,d7 | d7 will hold the sign of the product
3172 eorl d1,d7 |
3173 andl IMM (0x80000000),d7
3311 | return INFINITY with the correct sign (which is in d7).
3327 movel d7,d0 | else return signed zero
3331 moveml sp@+,d2-d7 |
3333 moveml sp@,d2-d7
3379 moveml d2-d7,sp@-
3382 moveml d2-d7,sp@
3386 movel d0,d7 | d7 will hold the sign of the result
3387 eorl d1,d7 |
3388 andl IMM (0x80000000),d7 |
3445 | d7 holds the sign of the ratio
3447 movel d7,a0 | d6-d7 will hold the ratio of the fractions
3449 movel d6,d7
3489 movel a0,d7 | get sign back
3528 movel d7,d0 | else return signed zero
3532 moveml sp@+,d2-d7 |
3534 moveml sp@,d2-d7 |
3679 orl d7,d0 | and sign also
3684 moveml sp@+,d2-d7
3686 moveml sp@,d2-d7
3705 moveml d2-d7,sp@-
3708 moveml d2-d7,sp@
3720 movel d0,d7 | else get sign and return INFINITY
3721 andl IMM (0x80000000),d7
3726 moveml sp@+,d2-d7
3728 moveml sp@,d2-d7
3749 moveml d2-d7,sp@- | save registers
3752 moveml d2-d7,sp@
3766 movel d1,d7
3773 eorl d6,d7
3787 movel d0,d7
3789 movel d7,d1
3800 moveml sp@+,d2-d7 | put back the registers
3802 moveml sp@,d2-d7
3809 moveml sp@+,d2-d7 | put back the registers
3811 moveml sp@,d2-d7
3820 moveml sp@+,d2-d7 | put back the registers
3822 moveml sp@,d2-d7
3833 bclr IMM (31),d7
3838 moveq IMM (INEXACT_RESULT+INVALID_OPERATION),d7
Indexes created Wed Aug 26 00:26:28 UTC 2026