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

diff --git a/sw/os8/v3d/sources/fortran/dectapes/dectape2/sngl.ra b/sw/os8/v3d/sources/fortran/dectapes/dectape2/sngl.ra
new file mode 100644
index 0000000..dc24e71
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/dectapes/dectape2/sngl.ra
@@ -0,0 +1,21 @@
+/	SUBROUTINE SNGL  -   DBL PREC TO REAL
+/
+/ VERSION 5A 4-26-77 MH
+/
+	SECT	SNGL
+	DPCHK
+	BASE	0
+	FLDA	0
+	STARTD
+	FSTA	RETRN
+	FADD	TWO
+	FSTA	3
+	FLDA%	3
+	FSTA	3
+	STARTE
+	FLDA%	3
+	STARTF
+	JA	RETRN
+RETRN,	0;0
+TWO,	0;2
+