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

diff --git a/sw/f4/FRTSRC/rfcv.ra b/sw/f4/FRTSRC/rfcv.ra
new file mode 100644
index 0000000..48c509b
--- /dev/null
+++ b/sw/f4/FRTSRC/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
+