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
1440 movel IMM (0x7ff00000),d4 | useful constant (INFINITY)
1447 cmpl d4,d0 | check first a (d0)
1452 2: cmpl d4,d2 | check now b (d1)
1475 cmpl d4,d0 | test now for infinity
1506 movel d0,d4 |
1507 orl d1,d4 |
1509 movel d0,d4 |
1522 | Now we get the exponents into d4 and d5.
1523 andl d7,d4 | isolate exponent in d4
1527 swap d4 | I like exponents in the first byte
1529 lsrw IMM (4),d4 |
1531 lsrl IMM (4),d4 |
1546 addw d5,d4 | add exponents
1547 subw IMM (D_BIAS+1),d4 | and subtract bias (plus one)
1549 addl d5,d4 | add exponents
1550 subl IMM (D_BIAS+1),d4 | and subtract bias (plus one)
1571 movel d4,a3 | and a3 will preserve the exponent
1595 movel d3,d7 | move a into d4-d5
1596 movel d0,d4 | and clear d0-d1-d2-d3 (to put result)
1636 addxl d4,d2 |
1658 movel a3,d4 | restore exponent
1717 addw IMM (1),d4
1724 addl IMM (1),d4
1785 movel IMM (1),d4
1790 subw IMM (1),d4 | and adjust exponent
1792 subl IMM (1),d4 | and adjust exponent
1839 movel d0,d4 |
1840 orl d1,d4 |
1842 movel d0,d4 |
1855 | Now we get the exponents into d4 and d5 and normalize the numbers to
1860 andl d7,d4 | and isolate exponent in d4
1864 swap d4 | I like exponents in the first byte
1866 lsrw IMM (4),d4 |
1868 lsrl IMM (4),d4 |
1883 subw d5,d4 | subtract exponents
1884 addw IMM (D_BIAS),d4 | and add bias
1886 subl d5,d4 | subtract exponents
1887 addl IMM (D_BIAS),d4 | and add bias
1896 | d4 holds the difference of the exponents, corrected by the bias
2011 addw IMM (1),d4
2026 addl IMM (1),d4
2044 movel d2,d4 |
2045 orl d3,d4 |
2100 movel IMM (1),d4
2105 subw IMM (1),d4 | and adjust exponent
2107 subl IMM (1),d4 | and adjust exponent
2130 | so that 2^21 <= d0 < 2^22, and the exponent is in the lower byte of d4.
2134 cmpw IMM (-DBL_MANT_DIG-1),d4
2136 cmpl IMM (-DBL_MANT_DIG-1),d4
2147 cmpw IMM (1),d4 | if the exponent is less than 1 we
2149 cmpl IMM (1),d4 | if the exponent is less than 1 we
2154 addw IMM (1),d4 | adjust the exponent
2161 cmpw IMM (1),d4 | is the exponent 1 already?
2163 addl IMM (1),d4 | adjust the exponent
2185 cmpl IMM (1),d4 | is the exponent 1 already?
2218 cmpw IMM (0x07ff),d4
2220 cmpl IMM (0x07ff),d4
2224 movew d4,d4
2229 lslw IMM (4),d4 | exponent back to fourth byte
2231 lsll IMM (4),d4 | exponent back to fourth byte
2236 orw d4,d0 |
2238 orl d4,d0 |
2275 movel d2,d4 | check for zero
2276 orl d1,d4 |
2331 movel d0,d4 | copy into d4 to test for zero
2332 orl d1,d4 |
2338 movel d2,d4 |
2339 orl d3,d4 |
2450 | d0-d1-d2-d3, with the exponent in register d4. They assume that the
2453 | in d4.
2467 cmpw IMM (1),d4 | remember that the exponent is at least one
2469 cmpl IMM (1),d4 | remember that the exponent is at least one
2477 dbra d4,1b |
2479 subql IMM (1), d4
2522 addw IMM (1),d4
2529 addl IMM (1),d4
2537 1: movel IMM (0),d4
2692 movel IMM (0x00ffffff),d4 | mask to get fraction
2696 andl d4,d0 | get fraction in d0
2697 notl d4 | make d4 into a mask for the exponent
2698 andl d4,d6 | get exponent in d6
2700 cmpl d4,d6 | check for INFINITY or NaN
2707 andl d4,d7 |
2709 cmpl d4,d7 | check for INFINITY or NaN
2712 notl d4 | make d4 into a mask for the fraction
2713 andl d4,d1 | get fraction in d1
2863 movel d6,d4
2865 movel d4,a0
2866 movel d7,d4
2868 movel d4,a1
2879 movel d6,d4
2881 movel d4,a0
2888 | Note: now we have d2, d3, d4 and d5 to play with!
2971 movel d2,d4
2973 movel d4,a0
3050 notl d4 | make d4 into a mask for the fraction
3121 movel IMM (INFINITY),d4 | useful constant (INFINITY)
3130 cmpl d4,d0 | check first a (d0)
3132 cmpl d4,d1 | check now b (d1)
3149 cmpl d4,d0 | test now for infinity
3176 movel IMM (0x00800000),d4 | this is to put hidden bit back
3194 orl d4,d0 | and put hidden bit back
3205 orl d4,d1 |
3229 movel d0,d5 | first operand in d4-d5
3230 movel IMM (0),d4
3231 movel d4,d1 | the sums will go in d0-d1
3232 movel d4,d0
3244 addxl d4,d0
3391 movel IMM (0x00800000),d4 | this is to put hidden bit back
3411 orl d4,d0 | and put hidden bit back
3422 orl d4,d1 |
3445 | d4, d5, d6 hold some constants
Indexes created Sat Feb 28 05:31:39 UTC 2026