$SAVE NOLIST
/*****************************************************************************
 * ISGTFS.LIT:	Definition of the file$status data structure used in
 *				the EIOS system call RQ$S$GET$FILE$STATUS.
 *****************************************************************************/


DECLARE
	S$FS$STRUCT$1	LITERALLY '
			device$share		WORD_16,
			number$connections	WORD_16,
			number$readers		WORD_16,
			number$writers		WORD_16,
			share				BYTE,
			named$file			BYTE',
	S$FS$STRUCT$2	LITERALLY '
			device$name(14)		BYTE,
			file$drivers		WORD_16,
			functions			BYTE,
			flags				BYTE',
	S$FS$STRUCT$3	LITERALLY '
			device$granularity	WORD_16,
			device$size			WORD_32,
			device$connections	WORD_16,
			file$id				WORD_16,
			file$type			BYTE,
			file$granularity	BYTE',
	S$FS$STRUCT$4	LITERALLY '
			owner$id			WORD_16,
			creation$time		WORD_32,
			access$time			WORD_32,
			modify$time			WORD_32,
			file$size			WORD_32,
			file$blocks			WORD_32',
	S$FS$STRUCT$5	LITERALLY '
			volume$name(6)		BYTE,
			volume$granularity	WORD_16,
			volume$size			WORD_32,
			accessor$count		WORD_16,
			owner$access		BYTE',

	S$FILE$STATUS$STRUCTURE		LITERALLY 'STRUCTURE(
													S$FS$STRUCT$1,
													S$FS$STRUCT$2,
													S$FS$STRUCT$3,
													S$FS$STRUCT$4,
													S$FS$STRUCT$5)';

$RESTORE