$SAVE NOLIST
/*****************************************************************************
 * ISIORS.LIT:	Definition of the io$result$segment data structure used in
 *				the EIOS system call RQ$S$SPECIAL.
 *****************************************************************************/

DECLARE
	S$IORS$PART1		LITERALLY	'
$IF r_32
			actual			WORD_32,
$ELSE
			actual			WORD_16,
			actual$fill		WORD_16,
$ENDIF
			device			WORD_16,
			unit			BYTE,
			function		BYTE',
	S$IORS$PART2		LITERALLY	'
			sub$function	WORD_16,
			device$location	WORD_32,
			buffer$p		POINTER,
$IF r_32
			count			WORD_32,
$ELSE
			count			WORD_16,
			count$fill		WORD_16,
$ENDIF
			auxilary$p		POINTER',
	S$IORS$STRUCTURE	LITERALLY 	'STRUCTURE(
											S$IORS$PART1,
											S$IORS$PART2)';

$RESTORE