; TT7300	- SET TT7: (VAXNET TERMINAL) TO 300 BAUD
; AUTHOR:	  LEN
; DATE WRITTEN:	  26-MAR-80
;
	.NLIST	TOC
;
	.TITLE	TT7300
	.SBTTL	SET TERMINAL SPEED (BAUD RATE)
;
	.ENABL	AMA
;
	.MCALL	QIOW$S, TTSYM$, EXIT$S
;
;	NSPEED = SSPED (LUN)
;		WHERE	LUN	= LOGICAL UNIT NUMBER OF TERMINAL
;			NSPEED	= BAUD RATE OR -1 IF REQUEST FAILS.
;
	TTSYM$
;
XRBUF:	.BYTE	TC.XSP,S.300
	.BYTE	TC.RSP,S.300
;
TT7300:
;
;	QIO TO GET TERMINAL SPEED
;
	QIOW$S	#SF.SMC,#1,#17.,,#STB,,<#XRBUF,#4>
	BCS	ERROR1		;QIO FORMAT NOT RECOGNIZED?
	CMPB	#IS.SUC,STB	;CHECK SUCCESS BYTE IN STATUS WORD
	BNE	ERROR2
	CLR	R0
	JMP	RETURN
;
;	ERROR
;	
ERROR1:	MOV	#-1.,R0		;RETURN -1 IF ERROR
	BR	RETURN
ERROR2:	MOVB	STB,R0
	BR	RETURN
;
SSPEDN:	.RAD50	/SSPED /	;TRACE NAME
;
STB:	.BLKW	2		;STATUS AND SPEED
;
RETURN:
	EXIT$S
	.END	TT7300