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

diff --git a/sw/os8/v3d/sources/fortran/all/dble.ra b/sw/os8/v3d/sources/fortran/all/dble.ra
new file mode 100644
index 0000000..46c42e8
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/dble.ra
@@ -0,0 +1,27 @@
+/	SUBROUTINE DBLE - REAL TO DBL PREC
+/
+/ VERSION 5A 4-27-77  PT
+/
+	SECT	DBLE
+	BASE	0
+	DPCHK
+	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
+	FSTA	DTEMP
+	FCLA
+	FSTA	DTEMP+3		/0 FOR LAST 3 WORDS
+	STARTE
+	FLDA	DTEMP
+RETRN,	0;0			/FLOAT IS A NOP
+TWO,	0;2
+DTEMP,	F 0.0
+	F 0.0
+	END
+