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