Commit | Line | Data |
---|---|---|
4a71579b PC |
1 | #include "alu.inc" |
2 | ||
3 | .code | |
4 | prolog | |
5 | #define ABS(N, T, I, V) FUN(N, T, abs, I, V) | |
6 | #define UABS(N, T, I, V) UFUN(N, T, abs, I, V) | |
7 | ABS(0, _f, -0.0, 0.0) | |
8 | ABS(1, _f, 0.5, 0.5) | |
9 | ABS(2, _f, -0.5, 0.5) | |
10 | ABS(3, _f, $Inf, $Inf) | |
11 | ABS(4, _f, $nInf, $Inf) | |
12 | ABS(5, _f, 1.25, 1.25) | |
13 | ABS(6, _f, -1.25, 1.25) | |
14 | ABS(7, _f, $nInf, $Inf) | |
15 | UABS(0, _f, $NaN, $NaN) | |
16 | ABS(0, _d, -0.0, 0.0) | |
17 | ABS(1, _d, 0.5, 0.5) | |
18 | ABS(2, _d, -0.5, 0.5) | |
19 | ABS(3, _d, $Inf, $Inf) | |
20 | ABS(4, _d, $nInf, $Inf) | |
21 | ABS(5, _d, 1.25, 1.25) | |
22 | ABS(6, _d, -1.25, 1.25) | |
23 | ABS(7, _d, $nInf, $Inf) | |
24 | UABS(0, _d, $NaN, $NaN) | |
25 | ||
26 | prepare | |
27 | pushargi ok | |
28 | ellipsis | |
29 | finishi @printf | |
30 | ret | |
31 | epilog |