Commit | Line | Data |
---|---|---|
4a71579b PC |
1 | #include "alu.inc" |
2 | ||
3 | .code | |
4 | prolog | |
5 | #define SQRT(N, T, I, V) FUN(N, T, sqrt, I, V) | |
6 | #define USQRT(N, T, I, V) UFUN(N, T, sqrt, I, V) | |
7 | SQRT(0, _f, -0.0, 0.0) | |
8 | SQRT(1, _f, 4.0, 2.0) | |
9 | SQRT(2, _f, 2.25, 1.5) | |
10 | SQRT(3, _f, $Inf, $Inf) | |
11 | USQRT(0, _f, $NaN, $NaN) | |
12 | SQRT(0, _d, -0.0, 0.0) | |
13 | SQRT(1, _d, 4.0, 2.0) | |
14 | SQRT(2, _d, 2.25, 1.5) | |
15 | SQRT(3, _d, $Inf, $Inf) | |
16 | USQRT(0, _d, $NaN, $NaN) | |
17 | ||
18 | prepare | |
19 | pushargi ok | |
20 | ellipsis | |
21 | finishi @printf | |
22 | ret | |
23 | epilog |