Lines Matching refs:d4
78 #define d4 REG (d4)
390 movew a0@(STICK),d4
391 orl d7,d4
392 movew d4,a0@(STICK)
518 moveml d2-d4,sp@
522 moveq IMM (31),d4
530 L2: subql IMM (1),d4
532 moveml sp@,d2-d4 | restore data registers
804 movel d0,d4 |
807 andl d6,d4 | get exponent in d4
809 cmpl d6,d4 | check for INFINITY or NaN
813 swap d4 | shift right exponent so that it starts
815 lsrw IMM (5),d4 | in bit 0 and not bit 20
817 lsrl IMM (5),d4 | in bit 0 and not bit 20
819 | Now we have a's exponent in d4 and fraction in d0-d1 '
839 | numbers are in d0-d1 (a) and d2-d3 (b), and the exponents in d4 (a)
842 | and d4-d5-d6-d7 for the second. To do this we store (temporarily) the
853 movel d4,a2 | save the exponents
859 movel d2,d4 |
866 exg d4,a2 | get exponents back
868 cmpw d4,d5 | compare the exponents
870 movel d4,a4 | get exponents back
871 movel a2,d4
876 cmpl d4,d5 | compare the exponents
883 1: movew d4,d2 | move largest exponent to d2
886 exg d4,a2 | get back the longs we saved
890 movel d4,a4 | get back the longs we saved
891 movel a2,d4
921 lsrl IMM (1),d4
935 btst IMM (0),d4
938 12: lsrl IMM (1),d4
953 movel d4,d5
954 movel IMM (0),d4
966 movew d4,d5
968 movew IMM (0),d4
969 swap d4
979 exg d4,d5
980 movew d4,d6
981 subw d5,d6 | keep d5 (largest exponent) in d4
982 exg d4,a2
986 movel d4,d5
987 movel d6,d4
989 movel d4,a4
990 movel a2,d4
1077 exg d4,a2
1080 movel d4,a4
1081 movel a2,d4
1088 | Now we have the numbers in d0--d3 and d4--d7, the exponent in a2, and
1124 addxl d4,d0 |
1126 movel a2,d4 | return exponent to d4
1149 addw IMM (1),d4
1164 addl IMM (1),d4
1185 cmpw IMM (0x7ff),d4 | is the exponent big?
1187 cmpl IMM (0x7ff),d4 | is the exponent big?
1192 lslw IMM (4),d4 | put exponent back into position
1194 lsll IMM (4),d4 | put exponent back into position
1198 orw d4,d0 |
1200 orl d4,d0 |
1224 subxl d4,d0 |
1235 movel a2,d4 | return exponent to d4
1257 addw IMM (1),d4
1272 addl IMM (1),d4
1294 lslw IMM (4),d4 | put exponent back into position
1296 lsll IMM (4),d4 | put exponent back into position
1300 orw d4,d0 |
1302 orl d4,d0 |
1355 movel d7,d4 | d7 contains 0x00200000
1442 movel IMM (0x7ff00000),d4 | useful constant (INFINITY)
1449 cmpl d4,d0 | check first a (d0)
1454 2: cmpl d4,d2 | check now b (d1)
1477 cmpl d4,d0 | test now for infinity
1508 movel d0,d4 |
1509 orl d1,d4 |
1511 movel d0,d4 |
1524 | Now we get the exponents into d4 and d5.
1525 andl d7,d4 | isolate exponent in d4
1529 swap d4 | I like exponents in the first byte
1531 lsrw IMM (4),d4 |
1533 lsrl IMM (4),d4 |
1548 addw d5,d4 | add exponents
1549 subw IMM (D_BIAS+1),d4 | and subtract bias (plus one)
1551 addl d5,d4 | add exponents
1552 subl IMM (D_BIAS+1),d4 | and subtract bias (plus one)
1573 movel d4,a3 | and a3 will preserve the exponent
1597 movel d3,d7 | move a into d4-d5
1598 movel d0,d4 | and clear d0-d1-d2-d3 (to put result)
1638 addxl d4,d2 |
1660 movel a3,d4 | restore exponent
1719 addw IMM (1),d4
1726 addl IMM (1),d4
1787 movel IMM (1),d4
1792 subw IMM (1),d4 | and adjust exponent
1794 subl IMM (1),d4 | and adjust exponent
1841 movel d0,d4 |
1842 orl d1,d4 |
1844 movel d0,d4 |
1857 | Now we get the exponents into d4 and d5 and normalize the numbers to
1862 andl d7,d4 | and isolate exponent in d4
1866 swap d4 | I like exponents in the first byte
1868 lsrw IMM (4),d4 |
1870 lsrl IMM (4),d4 |
1885 subw d5,d4 | subtract exponents
1886 addw IMM (D_BIAS),d4 | and add bias
1888 subl d5,d4 | subtract exponents
1889 addl IMM (D_BIAS),d4 | and add bias
1898 | d4 holds the difference of the exponents, corrected by the bias
2013 addw IMM (1),d4
2028 addl IMM (1),d4
2046 movel d2,d4 |
2047 orl d3,d4 |
2101 movel IMM (1),d4
2106 subw IMM (1),d4 | and adjust exponent
2108 subl IMM (1),d4 | and adjust exponent
2131 | so that 2^21 <= d0 < 2^22, and the exponent is in the lower byte of d4.
2135 cmpw IMM (-DBL_MANT_DIG-1),d4
2137 cmpl IMM (-DBL_MANT_DIG-1),d4
2148 cmpw IMM (1),d4 | if the exponent is less than 1 we
2150 cmpl IMM (1),d4 | if the exponent is less than 1 we
2155 addw IMM (1),d4 | adjust the exponent
2162 cmpw IMM (1),d4 | is the exponent 1 already?
2164 addl IMM (1),d4 | adjust the exponent
2186 cmpl IMM (1),d4 | is the exponent 1 already?
2219 cmpw IMM (0x07ff),d4
2221 cmpl IMM (0x07ff),d4
2225 movew d4,d4
2230 lslw IMM (4),d4 | exponent back to fourth byte
2232 lsll IMM (4),d4 | exponent back to fourth byte
2237 orw d4,d0 |
2239 orl d4,d0 |
2276 movel d2,d4 | check for zero
2277 orl d1,d4 |
2332 movel d0,d4 | copy into d4 to test for zero
2333 orl d1,d4 |
2339 movel d2,d4 |
2340 orl d3,d4 |
2451 | d0-d1-d2-d3, with the exponent in register d4. They assume that the
2454 | in d4.
2468 cmpw IMM (1),d4 | remember that the exponent is at least one
2470 cmpl IMM (1),d4 | remember that the exponent is at least one
2478 dbra d4,1b |
2480 subql IMM (1), d4
2523 addw IMM (1),d4
2530 addl IMM (1),d4
2538 1: movel IMM (0),d4
2693 movel IMM (0x00ffffff),d4 | mask to get fraction
2697 andl d4,d0 | get fraction in d0
2698 notl d4 | make d4 into a mask for the exponent
2699 andl d4,d6 | get exponent in d6
2701 cmpl d4,d6 | check for INFINITY or NaN
2708 andl d4,d7 |
2710 cmpl d4,d7 | check for INFINITY or NaN
2713 notl d4 | make d4 into a mask for the fraction
2714 andl d4,d1 | get fraction in d1
2864 movel d6,d4
2866 movel d4,a0
2867 movel d7,d4
2869 movel d4,a1
2880 movel d6,d4
2882 movel d4,a0
2889 | Note: now we have d2, d3, d4 and d5 to play with!
2972 movel d2,d4
2974 movel d4,a0
3051 notl d4 | make d4 into a mask for the fraction
3122 movel IMM (INFINITY),d4 | useful constant (INFINITY)
3131 cmpl d4,d0 | check first a (d0)
3133 cmpl d4,d1 | check now b (d1)
3150 cmpl d4,d0 | test now for infinity
3177 movel IMM (0x00800000),d4 | this is to put hidden bit back
3195 orl d4,d0 | and put hidden bit back
3206 orl d4,d1 |
3230 movel d0,d5 | first operand in d4-d5
3231 movel IMM (0),d4
3232 movel d4,d1 | the sums will go in d0-d1
3233 movel d4,d0
3245 addxl d4,d0
3392 movel IMM (0x00800000),d4 | this is to put hidden bit back
3412 orl d4,d0 | and put hidden bit back
3423 orl d4,d1 |
3446 | d4, d5, d6 hold some constants
Indexes created Sat Feb 28 05:31:39 UTC 2026