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

diff --git a/sw/os8/v3d/sources/fortran/dectapes/dectape2/rfcv.ra b/sw/os8/v3d/sources/fortran/dectapes/dectape2/rfcv.ra
new file mode 100644
index 0000000..48c509b
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/dectapes/dectape2/rfcv.ra
@@ -0,0 +1,49 @@
+/
+/ VERSION 5A 4/26/77 MH
+/
+	SECT	#RFCV		/READ FORMATTED COMPLEX VARIABLE
+	ENTRY	#WFCV
+	EXTERN	#RFSV
+	EXTERN	#WFSV
+	JA	START
+	DPCHK
+	TEXT	"#CIO  "
+RETN,	FNOP
+	FNOP
+	SETB 	BP
+	JA	.+3
+BP,	0;0;0
+CVAL,	0;0;0;0;0;0
+	ORG	BP+30
+	0;JA	RETN
+	0
+GOBAK,	JA	.
+START,	BASE	0
+	STARTD
+	0210
+	FSTA	GOBAK,0
+	STARTF
+	SETB	BP
+	BASE	BP
+	JSR	#RFSV
+	FSTA	CVAL
+	JSR	#RFSV
+	FSTA	CVAL+3
+	STARTE
+	FLDA	CVAL
+	JA	GOBAK
+	BASE	0
+#WFCV,	FSTA	CVAL,0
+	STARTD
+	0210
+	FSTA	GOBAK,0
+	SETB	BP
+	BASE	BP
+	STARTF
+	FLDA	CVAL
+	JSR	#WFSV
+	FLDA	CVAL+3
+	JSR	#WFSV
+	JA	GOBAK
+	END
+