--- /dev/null
+/
+/ 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