software: Added more and more
[pdp8.git] / sw / f4 / FRTSRC / abs.ra
diff --git a/sw/f4/FRTSRC/abs.ra b/sw/f4/FRTSRC/abs.ra
new file mode 100644 (file)
index 0000000..b5db257
--- /dev/null
@@ -0,0 +1,21 @@
+/
+/ VERSION 5A 4-27-77  PT
+/
+       SECT    IABS
+       ENTRY   ABS
+       BASE    0
+ABS,   FLDA    0               /GET RETURN ADDRESS
+       STARTD
+       FSTA    RETRN
+       FADD    TWO             /GET ADDRESS OF ARG POINTER
+       FSTA    3
+       FLDA%   3               /GET ARG ADDRESS
+       FSTA    3
+       STARTF
+       FLDA%   3               /GET ARG
+       JGE     RETRN           /POSITIVE, SKIP NEGATE
+       FNEG
+RETRN, 0;0
+TWO,   0;2
+       END
+\f