$Save Nolist

/************************************************************
*                                                           *
*  External Declarations for iRMX 286 HI System calls       *
*                                                           *
************************************************************/

RQ$C$BackupChar:
	PROCEDURE(
		except$ptr) EXTERNAL;
	DECLARE
		except$ptr POINTER;
END RQ$C$BackupChar;

RQ$C$CreateCommandConnection:
	PROCEDURE(
		ci,
		co,
		reserved$word,
		except$ptr) TOKEN EXTERNAL;
	DECLARE
		ci TOKEN,
		co TOKEN,
		reserved$word WORD,
		except$ptr POINTER;
END RQ$C$CreateCommandConnection;

RQ$C$DeleteCommandConnection:
	PROCEDURE(
		command$conn,
		except$ptr) EXTERNAL;
	DECLARE
		command$conn TOKEN,
		except$ptr POINTER;
END RQ$C$DeleteCommandConnection;

RQ$C$FormatException:
	PROCEDURE(
		buff$ptr,
		buff$max,
		exception$code,
		brevity,
		except$ptr) EXTERNAL;
	DECLARE
		buff$ptr POINTER,
		buff$max WORD,
		exception$code WORD,
		brevity BYTE,
		except$ptr POINTER;
END RQ$C$FormatException;

RQ$C$GetChar:
	PROCEDURE(
		except$ptr) BYTE EXTERNAL;
	DECLARE
		except$ptr POINTER;
END RQ$C$GetChar;

RQ$C$GetCommandName:
	PROCEDURE(
		path$name$ptr,
		path$name$max,
		except$ptr) EXTERNAL;
	DECLARE
		path$name$ptr POINTER,
		path$name$max WORD,
		except$ptr POINTER;
END RQ$C$GetCommandName;

RQ$C$GetInputConnection:
	PROCEDURE(
		name$ptr,
		except$ptr) TOKEN EXTERNAL;
	DECLARE
		name$ptr POINTER,
		except$ptr POINTER;
END RQ$C$GetInputConnection;

RQ$C$GetInputPathname:
	PROCEDURE(
		path$name$ptr,
		path$name$max,
		except$ptr) EXTERNAL;
	DECLARE
		path$name$ptr POINTER,
		path$name$max WORD,
		except$ptr POINTER;
END RQ$C$GetInputPathname;

RQ$C$GetInputPathnameNoWc:
	PROCEDURE(
		path$name$ptr,
		path$name$max,
		except$ptr) EXTERNAL;
	DECLARE
		path$name$ptr POINTER,
		path$name$max WORD,
		except$ptr POINTER;
END RQ$C$GetInputPathnameNoWc;

RQ$C$GetOutputConnection:
	PROCEDURE(
		name$ptr,
		preposition,
		except$ptr) TOKEN EXTERNAL;
	DECLARE
		name$ptr POINTER,
		preposition BYTE,
		except$ptr POINTER;
END RQ$C$GetOutputConnection;

RQ$C$GetOutputPathname:
	PROCEDURE(
		path$name$ptr,
		path$name$max,
		dafault$output$ptr,
		except$ptr) BYTE EXTERNAL;
	DECLARE
		path$name$ptr POINTER,
		path$name$max WORD,
		dafault$output$ptr POINTER,
		except$ptr POINTER;
END RQ$C$GetOutputPathname;

RQ$C$GetParameter:
	PROCEDURE(
		name$ptr,
		name$max,
		value$ptr,
		value$max,
		index$ptr,
		predict$list$ptr,
		except$ptr) BYTE EXTERNAL;
	DECLARE
		name$ptr POINTER,
		name$max WORD,
		value$ptr POINTER,
		value$max WORD,
		index$ptr POINTER,
		predict$list$ptr POINTER,
		except$ptr POINTER;
END RQ$C$GetParameter;

RQ$C$SendCoResponse:
	PROCEDURE(
		response$ptr,
		response$max,
		message$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		response$ptr POINTER,
		response$max WORD,
		message$ptr POINTER,
		except$ptr POINTER;
END RQ$C$SendCoResponse;

RQ$C$SendCommand:
	PROCEDURE(
		command$conn,
		line$ptr,
		command$except$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		command$conn TOKEN,
		line$ptr POINTER,
		command$except$ptr POINTER,
		except$ptr POINTER;
END RQ$C$SendCommand;

RQ$C$SendEoResponse:
	PROCEDURE(
		response$ptr,
		response$max,
		message$ptr,
		except$ptr) EXTERNAL;
	DECLARE
		response$ptr POINTER,
		response$max WORD,
		message$ptr POINTER,
		except$ptr POINTER;
END RQ$C$SendEoResponse;

RQ$C$SetControlC:
	PROCEDURE(
		sema,
		except$ptr) EXTERNAL;
	DECLARE
		sema TOKEN,
		except$ptr POINTER;
END RQ$C$SetControlC;

RQ$C$SetParseBuffer:
	PROCEDURE(
		buff$ptr,
		buff$max,
		except$ptr) WORD EXTERNAL;
	DECLARE
		buff$ptr POINTER,
		buff$max WORD,
		except$ptr POINTER;
END RQ$C$SetParseBuffer;

$Restore