sw/os8/v3d/sources/fortran/all/rfdv.ra

   1 /DOUBLE PRECISION BINARY AND DIRECT ACCESS I/O
   2 /FOR OS/8 FORTRAN
   3 /
   4 / VERSION 5A 4-26-77 MH
   5 /
   6 /I/O CALLS ARE:
   7 /       TRAP3 #RSVO     ALL SINGLE PRECISION I/O
   8 /       TRAP3 #RSVO     ALL DOUBLE PRECISION FORMATTED I/O
   9 /       JSR #RFDV       DOUBLE PRECISION BINARY + DIRECT ACCESS I/O
  10 /                       TREATED AS 2 SINGLE PRECISION FORMATTED JOBS
  11         SECT    #RFDV
  12         EXTERN  #RSVO
  13         BASE    0
  14         STARTE
  15         FSTA    FTEMP3          /SAVE 6 WDS FOR A WRITE
  16         STARTD
  17         FLDA    0               /RETURN ADDRESS
  18         FSTA    RFDVRT          /SAVE FOR EXIT
  19         STARTF
  20         FLDA    FTEMP3          /PASS 1ST 3 WDS FOR A WRITE
  21         TRAP3   #RSVO           /DO THE READ OR WRITE
  22         FSTA    FTEMP3          /SAVE 1ST 3 WDS FROM A READ
  23         FLDA    FTEMP3+3        /GET 2ND 3 WDS FOR A WRITE
  24         TRAP3   #RSVO           /DO THE READ OR WRITE
  25         FSTA    FTEMP3+3        /SAVE 2ND 3 WDS FROM A READ
  26         STARTE
  27         FLDA    FTEMP3          /GET ALL 6 WORDS FOR A READ
  28 RFDVRT, JA .
  29
  30 FTEMP3, E 0.0