Commit | Line | Data |
---|---|---|
1 | / | |
2 | / VERSION 5A 4-27-77 PT | |
3 | / | |
4 | SECT DABS | |
5 | BASE 0 | |
6 | DPCHK | |
7 | DPABS, FLDA 0 /GET RETURN ADDRESS | |
8 | STARTD | |
9 | FSTA RETRN | |
10 | FADD TWO /GET ADDRESS OF ARG P7S | |
11 | FSTA 3 | |
12 | FLDA% 3 | |
13 | FSTA 3 | |
14 | STARTE | |
15 | FLDA% 3 | |
16 | JGE RETRN /POSITIVE, SKIP NEGATE | |
17 | FNEG | |
18 | RETRN, 0;0 | |
19 | TWO, 0;2 | |
20 | END | |
21 | \f |