A large commit.
[pdp8.git] / sw / os8 / v3d / sources / fortran / all / dabs.ra
CommitLineData
81e70d48
PH
1/
2/ VERSION 5A 4-27-77 PT
3/
4 SECT DABS
5 BASE 0
6 DPCHK
7DPABS, 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
18RETRN, 0;0
19TWO, 0;2
20 END
21\f