software: Added more and more

[pdp8.git] / sw / f4 / FRTSRC / rfcv.ra

diff --git a/sw/f4/FRTSRC/rfcv.ra b/sw/f4/FRTSRC/rfcv.ra
new file mode 100644 (file)
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
+\f