sw/os8/v3d/sources/fortran/dectapes/dectape2/rfcv.ra

   1 /
   2 / VERSION 5A 4/26/77 MH
   3 /
   4         SECT    #RFCV           /READ FORMATTED COMPLEX VARIABLE
   5         ENTRY   #WFCV
   6         EXTERN  #RFSV
   7         EXTERN  #WFSV
   8         JA      START
   9         DPCHK
  10         TEXT    "#CIO  "
  11 RETN,   FNOP
  12         FNOP
  13         SETB    BP
  14         JA      .+3
  15 BP,     0;0;0
  16 CVAL,   0;0;0;0;0;0
  17         ORG     BP+30
  18         0;JA    RETN
  19         0
  20 GOBAK,  JA      .
  21 START,  BASE    0
  22         STARTD
  23         0210
  24         FSTA    GOBAK,0
  25         STARTF
  26         SETB    BP
  27         BASE    BP
  28         JSR     #RFSV
  29         FSTA    CVAL
  30         JSR     #RFSV
  31         FSTA    CVAL+3
  32         STARTE
  33         FLDA    CVAL
  34         JA      GOBAK
  35         BASE    0
  36 #WFCV,  FSTA    CVAL,0
  37         STARTD
  38         0210
  39         FSTA    GOBAK,0
  40         SETB    BP
  41         BASE    BP
  42         STARTF
  43         FLDA    CVAL
  44         JSR     #WFSV
  45         FLDA    CVAL+3
  46         JSR     #WFSV
  47         JA      GOBAK
  48         END
  49 \f