$save nolist

/*
 *	External global delay procedure.
 *	Called by drivers which need a time delay (10 Microsecond
 *	Granularity) between I/O instructions
 */

g$delay: PROCEDURE(unit, delay_factor) EXTERNAL;
	DECLARE
		unit			WORD,
		delay_factor	WORD;
END g$delay;

/*
 *	External bios$get$address procedure.
 *	Called by drivers which need a fast logical to physical
 *	conversion before loading a physical address functional device
 *	such as a DMA controller.
 */

bios$get$address: PROCEDURE(logical, except_ptr) DWORD EXTERNAL;
	DECLARE
		logical			POINTER,
		except_ptr		POINTER;
END bios$get$address;

/*
 *	External for notify support procedure
 *	Called by random access supported drivers
 *	(called by device$interrupt)
 */

notify: PROCEDURE(unit, ddata$p) EXTERNAL;
	DECLARE
		unit			BYTE,
		ddata$p			POINTER;
END notify;

/*
 *	External for seek$complete support procedure
 *	Called by random access supported drivers
 *	(called by device$interrupt)
 */

seek$complete: PROCEDURE(unit, ddata$p) EXTERNAL;
    DECLARE
        unit			BYTE,
        ddata$p			POINTER;
END seek$complete;

/*
 *	External for get$iors support procedure
 *	Called by random access supported drivers
 *	(called by device$interrupt)
 */

get$iors: PROCEDURE(unit, ddata$p) SELECTOR EXTERNAL;
	DECLARE
		unit			BYTE,
		ddata$p			POINTER;
END get$iors;

/*
 *	External set$output$waiting Terminal Support procedure.
 *	Called by Non-buffered terminal drivers once the
 *	controller is ready to begin receiving characters
 *	(called by term$setup)
 */

xts$set$output$waiting: PROCEDURE(udata$p) EXTERNAL;
	DECLARE
		udata$p			POINTER;
END xts$set$output$waiting;

/*
 *	External ts$mutex$unit Terminal Support procedure.  Called
 *	by message-based terminal drivers to gain exclusive control
 *	of a unit's I/O region.
 *	(called by term$check)
 */

ts$mutex$unit: PROCEDURE(udata$p) EXTERNAL;
	DECLARE
		udata$p			POINTER;
END ts$mutex$unit;

/*
 *	External ts$set$out$buf$size Terminal Support procedure.
 *	Called by Buffered terminal drivers to inform the TSC of
 *	the size of the output-buffer on the controller.
 *	(called by term$setup)
 */

ts$set$out$buf$size: PROCEDURE(udata$p, out$buf$size) EXTERNAL;
	DECLARE
		udata$p			POINTER,
		out$buf$size	WORD;
END ts$set$out$buf$size;

$restore