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

diff --git a/sw/f4/FRTSRC/float.ra b/sw/f4/FRTSRC/float.ra
new file mode 100644
index 0000000..22d3427
--- /dev/null
+++ b/sw/f4/FRTSRC/float.ra
@@ -0,0 +1,18 @@
+/
+/ VERSION 5A 4-27-77  PT
+/
+	SECT	FLOAT
+	BASE	0
+	FLDA	0
+	STARTD
+	FSTA	RETRN		/SAVE RETURN
+	FADD	TWO		/ADDR OF ARG POINTER
+	FSTA	3
+	FLDA%	3		/ADDR OF ARG
+	FSTA	3
+	STARTF
+	FLDA%	3		/GET ARG
+RETRN,	0;0			/FLOAT IS A NOP
+TWO,	0;2
+	END
+