$Save Nolist

DECLARE
$IF WORD16
	WORD_16E		LITERALLY	'WORD',
	WORD_32E		LITERALLY	'DWORD';
$ELSE
	WORD_16E		LITERALLY	'HWORD',
	WORD_32E		LITERALLY	'WORD';
$ENDIF

/************************************************************
*                                                           *
*  External Declarations for iRMX III EIOS System calls     *
*                                                           *
************************************************************/

RQ$CreateIoJob:
	PROCEDURE(
		pool$min,
		pool$max,
		except$handler,
		job$flags,
		task$priority,
		start$address,
		data$seg,
		stack$ptr,
		stack$size,
		task$flags,
		msg$mbox,
		except$ptr) TOKEN EXTERNAL;
	DECLARE
		pool$min WORD_32E,
		pool$max WORD_32E,
		except$handler POINTER,
		job$flags WORD_16E,
		task$priority BYTE,
		start$address POINTER,
		data$seg SELECTOR,
		stack$ptr POINTER,
		stack$size WORD_32E,
		task$flags WORD_16E,
		msg$mbox TOKEN,
		except$ptr POINTER;
END RQ$CreateIoJob;

RQ$ExitIoJob:
	PROCEDURE(
		user$fault$code,
		return$data$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		user$fault$code WORD_16E,
		return$data$ptr POINTER,
		except$ptr POINTER;
END RQ$ExitIoJob;

RQ$GetLogicalDeviceStatus:
	PROCEDURE(
		log$name$ptr,
		dev$info$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		log$name$ptr POINTER,
		dev$info$ptr POINTER,
		except$ptr POINTER;
END RQ$GetLogicalDeviceStatus;

RQ$GetUserIds:
	PROCEDURE(
		name$ptr,
		ids$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		name$ptr POINTER,
		ids$ptr POINTER,
		except$ptr POINTER;
END RQ$GetUserIds;

RQ$HybridDetachDevice:
	PROCEDURE(
		log$name$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		log$name$ptr POINTER,
		except$ptr POINTER;
END RQ$HybridDetachDevice;

RQ$LogicalAttachDevice:
	PROCEDURE(
		log$name$ptr,
		dev$name,
		file$driver,
		except$ptr) EXTERNAL;
	DECLARE
		log$name$ptr POINTER,
		dev$name POINTER,
		file$driver BYTE,
		except$ptr POINTER;
END RQ$LogicalAttachDevice;

RQ$LogicalDetachDevice:
	PROCEDURE(
		log$name$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		log$name$ptr POINTER,
		except$ptr POINTER;
END RQ$LogicalDetachDevice;

RQ$S$AttachFile:
	PROCEDURE(
		path$ptr,
		except$ptr) TOKEN EXTERNAL;
	DECLARE
		path$ptr POINTER,
		except$ptr POINTER;
END RQ$S$AttachFile;

RQ$S$CatalogConnection:
	PROCEDURE(
		job$t,
		connection$t,
		log$name$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		job$t TOKEN,
		connection$t TOKEN,
		log$name$ptr POINTER,
		except$ptr POINTER;
END RQ$S$CatalogConnection;

RQ$S$ChangeAccess:
	PROCEDURE(
		path$ptr,
		id,
		access,
		except$ptr) EXTERNAL;
	DECLARE
		path$ptr POINTER,
		id WORD_16E,
		access BYTE,
		except$ptr POINTER;
END RQ$S$ChangeAccess;

RQ$S$Close:
	PROCEDURE(
		connection$t,
		except$ptr) EXTERNAL;
	DECLARE
		connection$t TOKEN,
		except$ptr POINTER;
END RQ$S$Close;

RQ$S$CreateDirectory:
	PROCEDURE(
		path$ptr,
		except$ptr) TOKEN EXTERNAL;
	DECLARE
		path$ptr POINTER,
		except$ptr POINTER;
END RQ$S$CreateDirectory;

RQ$S$CreateFile:
	PROCEDURE(
		path$ptr,
		except$ptr) TOKEN EXTERNAL;
	DECLARE
		path$ptr POINTER,
		except$ptr POINTER;
END RQ$S$CreateFile;

RQ$S$DeleteConnection:
	PROCEDURE(
		connection$t,
		except$ptr) EXTERNAL;
	DECLARE
		connection$t TOKEN,
		except$ptr POINTER;
END RQ$S$DeleteConnection;

RQ$S$DeleteFile:
	PROCEDURE(
		path$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		path$ptr POINTER,
		except$ptr POINTER;
END RQ$S$DeleteFile;

RQ$S$GetConnectionStatus:
	PROCEDURE(
		connection$t,
		info$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		connection$t TOKEN,
		info$ptr POINTER,
		except$ptr POINTER;
END RQ$S$GetConnectionStatus;

RQ$S$GetDirectoryEntry:
	PROCEDURE(
		dir$name$ptr,
		entry$num,
		name$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		dir$name$ptr POINTER,
		entry$num WORD_16E,
		name$ptr POINTER,
		except$ptr POINTER;
END RQ$S$GetDirectoryEntry;

RQ$S$GetFileStatus:
	PROCEDURE(
		path$ptr,
		info$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		path$ptr POINTER,
		info$ptr POINTER,
		except$ptr POINTER;
END RQ$S$GetFileStatus;

RQ$S$GetPathComponent:
	PROCEDURE(
		connection$t,
		name$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		connection$t TOKEN,
		name$ptr POINTER,
		except$ptr POINTER;
END RQ$S$GetPathComponent;

RQ$S$LookupConnection:
	PROCEDURE(
		log$name$ptr,
		except$ptr) TOKEN EXTERNAL;
	DECLARE
		log$name$ptr POINTER,
		except$ptr POINTER;
END RQ$S$LookupConnection;

RQ$S$Open:
	PROCEDURE(
		connection$t,
		mode,
		num$buf,
		except$ptr) EXTERNAL;
	DECLARE
		connection$t TOKEN,
		mode BYTE,
		num$buf BYTE,
		except$ptr POINTER;
END RQ$S$Open;

RQ$S$ReadMove:
	PROCEDURE(
		connection$t,
		buf$ptr,
		bytes$desired,
		except$ptr) WORD_32E EXTERNAL;
	DECLARE
		connection$t TOKEN,
		buf$ptr POINTER,
		bytes$desired WORD_32E,
		except$ptr POINTER;
END RQ$S$ReadMove;

RQ$S$RenameFile:
	PROCEDURE(
		path$ptr,
		new$path$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		path$ptr POINTER,
		new$path$ptr POINTER,
		except$ptr POINTER;
END RQ$S$RenameFile;

RQ$S$Seek:
	PROCEDURE(
		connection$t,
		mode,
		move$count,
		except$ptr) EXTERNAL;
	DECLARE
		connection$t TOKEN,
		mode BYTE,
		move$count WORD_32E,
		except$ptr POINTER;
END RQ$S$Seek;

RQ$S$Special:
	PROCEDURE(
		connection$t,
		spec$func,
		data$ptr,
		iors$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		connection$t TOKEN,
		spec$func WORD_16E,
		data$ptr POINTER,
		iors$ptr POINTER,
		except$ptr POINTER;
END RQ$S$Special;

RQ$S$TruncateFile:
	PROCEDURE(
		connection$t,
		except$ptr) EXTERNAL;
	DECLARE
		connection$t TOKEN,
		except$ptr POINTER;
END RQ$S$TruncateFile;

RQ$S$UncatalogConnection:
	PROCEDURE(
		job_t,
		log$name$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		job_t TOKEN,
		log$name$ptr POINTER,
		except$ptr POINTER;
END RQ$S$UncatalogConnection;

RQ$S$WriteMove:
	PROCEDURE(
		connection$t,
		buff$ptr,
		count,
		except$ptr) WORD_32E EXTERNAL;
	DECLARE
		connection$t TOKEN,
		buff$ptr POINTER,
		count WORD_32E,
		except$ptr POINTER;
END RQ$S$WriteMove;

RQ$StartIoJob:
	PROCEDURE(
		job$t,
		except$ptr) EXTERNAL;
	DECLARE
		job$t TOKEN,
		except$ptr POINTER;
END RQ$StartIoJob;

RQ$VerifyUser:
	PROCEDURE(
		user$t,
		name$ptr,
		password$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		user$t TOKEN,
		name$ptr POINTER,
		password$ptr POINTER,
		except$ptr POINTER;
END RQ$VerifyUser;

RQE$CreateIoJob:
	PROCEDURE(
		pool$min,
		pool$max,
		except$handler,
		job$flags,
		task$priority,
		start$address,
		data$seg,
		stack$ptr,
		stack$size,
		task$flags,
		msg$mbox,
		except$ptr) TOKEN EXTERNAL;
	DECLARE
		pool$min WORD_32E,
		pool$max WORD_32E,
		except$handler POINTER,
		job$flags WORD_16E,
		task$priority BYTE,
		start$address POINTER,
		data$seg SELECTOR,
		stack$ptr POINTER,
		stack$size WORD_32E,
		task$flags WORD_16E,
		msg$mbox TOKEN,
		except$ptr POINTER;
END RQE$CreateIoJob;

$Restore