1 /DOUBLE PRECISION BINARY AND DIRECT ACCESS I/O
4 / VERSION 5A 4-26-77 MH
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
15 FSTA FTEMP3 /SAVE 6 WDS FOR A WRITE
17 FLDA 0 /RETURN ADDRESS
18 FSTA RFDVRT /SAVE FOR EXIT
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
27 FLDA FTEMP3 /GET ALL 6 WORDS FOR A READ