Commit | Line | Data |
---|---|---|
7af5ad59 PH |
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 |