A large commit.
[pdp8.git] / sw / os8 / v3d / sources / fortran / dectapes / dectape1 / abs.ra
CommitLineData
81e70d48
PH
1/
2/ VERSION 5A 4-27-77 PT
3/
4 SECT IABS
5 ENTRY ABS
6 BASE 0
7ABS, FLDA 0 /GET RETURN ADDRESS
8 STARTD
9 FSTA RETRN
10 FADD TWO /GET ADDRESS OF ARG POINTER
11 FSTA 3
12 FLDA% 3 /GET ARG ADDRESS
13 FSTA 3
14 STARTF
15 FLDA% 3 /GET ARG
16 JGE RETRN /POSITIVE, SKIP NEGATE
17 FNEG
18RETRN, 0;0
19TWO, 0;2
20 END
21\f