;+
;********************************************************************************
;										*
;	***********								*
;	*         *								*
;	*   ***   *	SIMMONDS PRECISION PRODUCTS, INC.			*
;	*  *   *  *	INSTRUMENT SYSTEMS DIVISION				*
;	*  *      *	PANTON ROAD						*
;	*   ***   *	VERGENNES, VERMONT  05491 U.S.A.			*
;	*  *   *  *	(802) 877-2911						*
;	*  *   *  *								*
;	*  ****   *	PROGRAMMER:	JAMES E DUNN				*
;	*  *      *								*
;	*  *      *								*
;	**  *******								*
;										*
;********************************************************************************
;										*
; VT5X.MAC									*
;		VT52 AND VT55 INITIALIZATION SUBROUTINE				*
;										*
;	CALLING:	CALL VT5X(LUN)						*
;										*
;	WHERE:		LUN ------ INTEGER*2, LOGICAL UNIT NUMBER		*
;										*
;********************************************************************************
;										*
;	REV	DATE		PROGRAMMER	DESCRIPTION			*
;	---	------		----------	------------------------	*
;	1.0	07-MAY-82	J.E.DUNN	DECUS RELEASE VERSION		*
;										*
;********************************************************************************
;-
	.TITLE	VT5X	SET VT52
	.IDENT	/V01.00/
	.MCALL	QIOW$S
 
VT5X::
	QIOW$S	#SF.SMC,@2(R5),#1,,,,<#TBLE,#TBLEX>
	RETURN
 
TBLE:	.BYTE	TC.TTP,11		;SET /TERM=TI:VT52
TBLEX	= .-TBLE
 
	.END