A large commit.

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

diff --git a/sw/os8/v3d/sources/fortran/all/ltr.ra b/sw/os8/v3d/sources/fortran/all/ltr.ra
new file mode 100644 (file)
index 0000000..0951798
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/ltr.ra
@@ -0,0 +1,50 @@
+/ LTR (LOAD TRUTH) EMULATION ROUTINES
+/
+/ VERSION 5A 4-26-77 MH
+/
+       SECT    #LTR
+       ENTRY   #EQ
+       FLDA    TRUE
+       STARTF
+#EQ,   JA      .
+       JEQ     #EQ-3
+       FCLA
+       JA      #EQ-1
+       ENTRY   #NE
+#NE,   JA      .
+       JEQ     .+4
+       FLDA    TRUE
+       STARTF
+       JA      #NE
+       ENTRY   #GE
+       FLDA    TRUE
+       STARTF
+#GE,   JA      .
+       JGE     #GE-3
+       FCLA
+       JA      #GE-1
+       ENTRY   #LE
+       FLDA    TRUE
+       STARTF
+#LE,   JA      .
+       JLE     #LE-3
+       FCLA
+       JA      #LE-1
+       ENTRY   #GT
+       FLDA    TRUE
+       STARTF
+#GT,   JA      .
+       JGT     #GT-3
+       FCLA
+       JA      #GT-1
+       ENTRY   #LT
+       FLDA    TRUE
+       STARTF
+#LT,   JA      .
+       JLT     #LT-3
+       FCLA
+       JA      #LT-1
+TRUE,  F       1.0
+       F 0.0
+       END
+\f