| 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 |