.TITLE	START_BUS Start the LAVc Protocol on the Specified LAN Adapter.
	.SBTTL	External Definitions
	.IDENT	'X-4'

	.DISABLE	GLOBAL

	.EXTERNAL	LIB$GET_FOREIGN
	.EXTERNAL	SYS$LAVC_START_BUS

	.PAGE
	.SBTTL	Local Data Definitions.

	.PSECT	DATA	PAGE, RD, WRT, NOEXE, NOSHR

BUS_PROMPT::	.ASCID	"Bus Name: "

	.ALIGN	QUAD

BUFFER_LENGTH	=	256

BUS_NAME::	.LONG		BUFFER_LENGTH
		.ADDRESS	BUFFER
BUFFER::	.BLKB		BUFFER_LENGTH

	.PAGE
	.SBTTL	Start BUS Program.

	.PSECT	CODE	PAGE, RD, NOWRT, EXE, SHR

	.SHOW	MEB

START_BUS:
	.CALL_ENTRY	MAX_ARGS=0

;
;		Get the user specified BUS name.
;

	PUSHAL	BUS_NAME		; Return length address.
	PUSHAB	BUS_PROMPT		; Prompt descriptor address.
	PUSHAB	BUS_NAME		; BUS name descriptor address.
	CALLS	# 3, G^ LIB$GET_FOREIGN	; Get the BUS name.
	BLBC	R0, 99$

;
;		Start the BUS.
;

	PUSHAQ	BUS_NAME
	CALLS	# 1, G^ SYS$LAVC_START_BUS

99$:
	RET

	.END	START_BUS