X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Ff4%2FFRTSRC%2Fsngl.ra;fp=sw%2Ff4%2FFRTSRC%2Fsngl.ra;h=dc24e7186a5bccf00a0f59a93b9deacb729d23ed;hb=7af5ad59491ddf2066641aef1e0025a337c0f247;hp=0000000000000000000000000000000000000000;hpb=919757fd611e482003ce51f366f6783cab73dea3;p=pdp8.git

diff --git a/sw/f4/FRTSRC/sngl.ra b/sw/f4/FRTSRC/sngl.ra
new file mode 100644
index 0000000..dc24e71
--- /dev/null
+++ b/sw/f4/FRTSRC/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
+