A large commit.

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

diff --git a/sw/os8/v3d/sources/fortran/all/xfix.ra b/sw/os8/v3d/sources/fortran/all/xfix.ra
new file mode 100644 (file)
index 0000000..c10f7d2
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/xfix.ra
@@ -0,0 +1,16 @@
+/
+/ VERSION 5A 4-26-77 MH
+/
+       SECT    #FIX
+       JA      .
+       JLT     NEGFIX
+       ALN     0
+       FNORM
+       JA      #FIX
+NEGFIX,        FNEG
+       ALN     0
+       FNORM
+       FNEG
+       JA      #FIX
+       END
+\f