.TITLE TTYINI ; TTY SETUP FOR PCC ON VAX
	.IDENT /GCE000/ ;GLENN EVERHART
 $IODEF
 $DCDEF
 $DEVDEF
IOSBV:	.BLKQ 1	;I/O STATUS
LEN=24	;LENGTH OF PAGE
TTBUF:
	.BYTE	DC$_TERM
	.BYTE	DT$_VT100
	.WORD	132		;WIDTH
	.LONG	TT$M_LOWER!TT$M_ESCAPE!TT$M_HOSTSYNC!TT$M_TTSYNC!-
	TT$M_SCOPE!LEN*16777216
TTBFS=.-TTBUF
	.EVEN
TTYINI::
	.WORD	^M<R2,R3,R4,R5> ;PROCEDURE ENTRY MASK
	$QIOW_S	CHAN=#5,-
	FUNC=#IO$_SETMODE,-
	EFN=#5,-
	P1=#TTBUF,-
	IOSB=#IOSBV,-
	P2=#TTBFS
	RET
	.END