$SAVE NOLIST
/*****************************************************************************
 * IAGTFS.LIT:	Definition of the file$status data structure used in
 *				the BIOS system call RQ$A$GET$FILE$STATUS.
 *****************************************************************************/

DECLARE
	A$FS$STRUCT$1	LITERALLY '
			status				WORD_16,
			number$connections	WORD_16,
			number$readers		WORD_16,
			number$writers		WORD_16,
			share				BYTE,
			named$file			BYTE',
	A$FS$STRUCT$2	LITERALLY '
			device$name(14)		BYTE,
			file$drivers		WORD_16,
			functions			BYTE,
			flags				BYTE',
	A$FS$STRUCT$3	LITERALLY '
			device$granularity	WORD_16,
			device$size			WORD_32,
			device$connection	WORD_16,
			file$id				WORD_16,
			file$type			BYTE,
			file$granularity	BYTE',
	A$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',
	A$FS$STRUCT$5	LITERALLY '
			volume$name(6)		BYTE,
			volume$granularity	WORD_16,
			volume$size			WORD_32,
			accessor$count		WORD_16,
			accessor$list(9)	BYTE,
            vol$flags			BYTE',
	A$FILE$STATUS$STRUCTURE		LITERALLY 'STRUCTURE(
 													A$FS$STRUCT$1,
													A$FS$STRUCT$2,
													A$FS$STRUCT$3,
													A$FS$STRUCT$4,
													A$FS$STRUCT$5)';

DECLARE
	A$ACCESSOR$STRUCTURE		LITERALLY 'STRUCTURE(
													access	BYTE,
													id		WORD_16)';
$RESTORE