[pdp8.git] / sw / f4 / FRTSRC / rfdv.ra

/DOUBLE PRECISION BINARY AND DIRECT ACCESS I/O
/FOR OS/8 FORTRAN
/
/ VERSION 5A 4-26-77 MH
/
/I/O CALLS ARE:
/	TRAP3 #RSVO	ALL SINGLE PRECISION I/O
/	TRAP3 #RSVO	ALL DOUBLE PRECISION FORMATTED I/O
/	JSR #RFDV	DOUBLE PRECISION BINARY + DIRECT ACCESS I/O
/			TREATED AS 2 SINGLE PRECISION FORMATTED JOBS
	SECT	#RFDV
	EXTERN	#RSVO
	BASE	0
	STARTE
	FSTA	FTEMP3		/SAVE 6 WDS FOR A WRITE
	STARTD
	FLDA	0		/RETURN ADDRESS
	FSTA	RFDVRT		/SAVE FOR EXIT
	STARTF
	FLDA	FTEMP3		/PASS 1ST 3 WDS FOR A WRITE
	TRAP3	#RSVO		/DO THE READ OR WRITE
	FSTA	FTEMP3		/SAVE 1ST 3 WDS FROM A READ
	FLDA	FTEMP3+3	/GET 2ND 3 WDS FOR A WRITE
	TRAP3	#RSVO		/DO THE READ OR WRITE
	FSTA	FTEMP3+3	/SAVE 2ND 3 WDS FROM A READ
	STARTE
	FLDA	FTEMP3		/GET ALL 6 WORDS FOR A READ
RFDVRT,	JA .

FTEMP3,	E 0.0
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