A large commit.

[pdp8.git] / sw / os8 / v3d / sources / fortran / all / dabs.ra

diff --git a/sw/os8/v3d/sources/fortran/all/dabs.ra b/sw/os8/v3d/sources/fortran/all/dabs.ra
new file mode 100644 (file)
index 0000000..fcdf597
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/dabs.ra
@@ -0,0 +1,21 @@
+/
+/ VERSION 5A 4-27-77  PT
+/
+       SECT    DABS
+       BASE    0
+       DPCHK
+DPABS, FLDA    0               /GET RETURN ADDRESS
+       STARTD
+       FSTA    RETRN
+       FADD    TWO             /GET ADDRESS OF ARG P7S
+       FSTA    3
+       FLDA%   3
+       FSTA    3
+       STARTE
+       FLDA%   3
+       JGE     RETRN           /POSITIVE, SKIP NEGATE
+       FNEG
+RETRN, 0;0
+TWO,   0;2
+       END
+\f