| 1 | #include "alu.inc" |
| 2 | |
| 3 | .code |
| 4 | prolog |
| 5 | |
| 6 | #define MUL(N, I0, I1, V) ALU(N, , mul, I0, I1, V) |
| 7 | |
| 8 | MUL(0, 0x7fffffff, 1, 0x7fffffff) |
| 9 | MUL(1, 1, 0x7fffffff, 0x7fffffff) |
| 10 | MUL(2, 0x80000000, 1, 0x80000000) |
| 11 | MUL(3, 1, 0x80000000, 0x80000000) |
| 12 | MUL(4, 0x7fffffff, 2, 0xfffffffe) |
| 13 | MUL(5, 2, 0x7fffffff, 0xfffffffe) |
| 14 | MUL(6, 0x7fffffff, 0, 0) |
| 15 | MUL(7, 0, 0x7fffffff, 0) |
| 16 | #if __WORDSIZE == 32 |
| 17 | MUL(8, 0x80000000, 2, 0) |
| 18 | MUL(9, 2, 0x80000000, 0) |
| 19 | MUL(10, 0x7fffffff, 0x80000000, 0x80000000) |
| 20 | MUL(11, 0x80000000, 0x7fffffff, 0x80000000) |
| 21 | MUL(12, 0x7fffffff, 0xffffffff, 0x80000001) |
| 22 | MUL(13, 0xffffffff, 0x7fffffff, 0x80000001) |
| 23 | MUL(14, 0xffffffff, 0xffffffff, 1) |
| 24 | #else |
| 25 | MUL(8, 0x80000000, 2, 0x100000000) |
| 26 | MUL(9, 2, 0x80000000, 0x100000000) |
| 27 | MUL(10, 0x7fffffff, 0x80000000, 0x3fffffff80000000) |
| 28 | MUL(11, 0x80000000, 0x7fffffff, 0x3fffffff80000000) |
| 29 | MUL(12, 0x7fffffff, 0xffffffff, 0x7ffffffe80000001) |
| 30 | MUL(13, 0xffffffff, 0x7fffffff, 0x7ffffffe80000001) |
| 31 | MUL(14, 0xffffffff, 0xffffffff, 0xfffffffe00000001) |
| 32 | MUL(15, 0x7fffffffffffffff, 1, 0x7fffffffffffffff) |
| 33 | MUL(16, 1, 0x7fffffffffffffff, 0x7fffffffffffffff) |
| 34 | MUL(17, 0x8000000000000000, 1, 0x8000000000000000) |
| 35 | MUL(18, 1, 0x8000000000000000, 0x8000000000000000) |
| 36 | MUL(19, 0x7fffffffffffffff, 2, 0xfffffffffffffffe) |
| 37 | MUL(20, 2, 0x7fffffffffffffff, 0xfffffffffffffffe) |
| 38 | MUL(21, 0x8000000000000000, 2, 0) |
| 39 | MUL(22, 2, 0x8000000000000000, 0) |
| 40 | MUL(23, 0x7fffffffffffffff, 0x8000000000000000, 0x8000000000000000) |
| 41 | MUL(24, 0x8000000000000000, 0x7fffffffffffffff, 0x8000000000000000) |
| 42 | MUL(25, 0x7fffffffffffffff, 0xffffffffffffffff, 0x8000000000000001) |
| 43 | MUL(26, 0xffffffffffffffff, 0x7fffffffffffffff, 0x8000000000000001) |
| 44 | MUL(27, 0xffffffffffffffff, 0xffffffffffffffff, 1) |
| 45 | #endif |
| 46 | |
| 47 | #undef MUL |
| 48 | #define MUL(N, T, I0, I1, V) FOP(N, T, mul, I0, I1, V) |
| 49 | MUL(0, _f, -0.5, 0.5, -0.25) |
| 50 | MUL(1, _f, 0.25, 0.75, 0.1875) |
| 51 | MUL(0, _d, -0.5, 0.5, -0.25) |
| 52 | MUL(1, _d, 0.25, 0.75, 0.1875) |
| 53 | |
| 54 | prepare |
| 55 | pushargi ok |
| 56 | ellipsis |
| 57 | finishi @printf |
| 58 | ret |
| 59 | epilog |