C OS/8 LIBRARY - FUNCTIONS FOR ACCESSING BLOCKS FROM AN OS/8 FORMAT
C RX01 DISKETTE
C
C WRITTEN BY JOHN YARDLEY SOMETIME IN 1978
C
C	NOTE:	OS/8 BLOCKS ARE STORED IN BASICALLY THE SAME MANNER AS
C		RT-11 BLOCKS (IE USING A 2:1 SECTOR INTERLEAVE) EXCEPT
C		THAT OS/8 DOES NOT USE A SECTOR SKEW ACROSS TRACKS
C
C
C FUNCTION IROS8W (V1A) - SIMULATES AN "IREADW" USING THE PDP-8 OS8
C BLOCK STRUCTURE
C
	FUNCTION IROS8W(WCNT,BUFF,BLK,ICHAN)
	INTEGER WCNT,BUFF(1),BLK
C USE "IOS8" FUNCTION WITH READ CODE ("377)
	IROS8W=IOS8("377,WCNT,BUFF,BLK,ICHAN)
	RETURN
	END
