X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Fltr.ra;fp=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Fltr.ra;h=0951798fcf72e516f504a52b9720093ce3d3176e;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/os8/v3d/sources/fortran/all/ltr.ra b/sw/os8/v3d/sources/fortran/all/ltr.ra
new file mode 100644
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
+