A large commit.

[pdp8.git] / sw / os8 / v3d / sources / fortran / all / float.ra

diff --git a/sw/os8/v3d/sources/fortran/all/float.ra b/sw/os8/v3d/sources/fortran/all/float.ra
new file mode 100644 (file)
index 0000000..22d3427
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/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
+\f