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

diff --git a/sw/os8/v3d/sources/fortran/dectapes/dectape2/rfdv.ra b/sw/os8/v3d/sources/fortran/dectapes/dectape2/rfdv.ra
new file mode 100644
index 0000000..b864b16
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/dectapes/dectape2/rfdv.ra
@@ -0,0 +1,30 @@
+/DOUBLE PRECISION BINARY AND DIRECT ACCESS I/O
+/FOR OS/8 FORTRAN
+/
+/ VERSION 5A 4-26-77 MH
+/
+/I/O CALLS ARE:
+/	TRAP3 #RSVO	ALL SINGLE PRECISION I/O
+/	TRAP3 #RSVO	ALL DOUBLE PRECISION FORMATTED I/O
+/	JSR #RFDV	DOUBLE PRECISION BINARY + DIRECT ACCESS I/O
+/			TREATED AS 2 SINGLE PRECISION FORMATTED JOBS
+	SECT	#RFDV
+	EXTERN	#RSVO
+	BASE	0
+	STARTE
+	FSTA	FTEMP3		/SAVE 6 WDS FOR A WRITE
+	STARTD
+	FLDA	0		/RETURN ADDRESS
+	FSTA	RFDVRT		/SAVE FOR EXIT
+	STARTF
+	FLDA	FTEMP3		/PASS 1ST 3 WDS FOR A WRITE
+	TRAP3	#RSVO		/DO THE READ OR WRITE
+	FSTA	FTEMP3		/SAVE 1ST 3 WDS FROM A READ
+	FLDA	FTEMP3+3	/GET 2ND 3 WDS FOR A WRITE
+	TRAP3	#RSVO		/DO THE READ OR WRITE
+	FSTA	FTEMP3+3	/SAVE 2ND 3 WDS FROM A READ
+	STARTE
+	FLDA	FTEMP3		/GET ALL 6 WORDS FOR A READ
+RFDVRT,	JA .
+
+FTEMP3,	E 0.0