; NSCOPE.MAC	- FIND TERMINAL SPEED
; AUTHOR:	  LEN
; DATE WRITTEN:	  20-DEC-78
;
	.NLIST	TOC
;
	.TITLE	NSCOPE
	.SBTTL	FETCH SCOPE CHAR OF TERMINAL
;
	.ENABL	AMA
;
	.MCALL	QIOW$S
;
;	N = NSCOPE (LUN)
;		WHERE	LUN	= LOGICAL UNIT NUMBER OF TERMINAL
;			N	= 0 IF NOT SCOPE, 1 IF IT IS
;
NSCOPE::
	MOV	#NSCOPN,R0	;NAME TO TRACE
	MOV	(R0)+,R4
	MOV	(R0)+,-(SP)	;PUSH (R0)+ ONTO STACK
	JSR	R4,NAM$
;
;	QIO TO GET TERMINAL SPEED
;
	QIOW$S	#SF.GSC,@2(R5),#17.,,#STB,,<#TC.SCP>
	BCS	ERROR		;QIO FORMAT NOT RECOGNIZED?
	CMPB	#IS.SUC,STB	;CHECK SUCCESS BYTE IN STATUS WORD
	BNE	ERROR
	MOV	STB+2,R0	;GET RETURN CHAR AS FUNCTION
	JMP	RETURN
;
;	ERROR
;	
ERROR:	MOV	#-1.,R0		;RETURN -1 IF ERROR
;
RETURN:	RTS	PC		;RETURN TO CALLER
;
NSCOPN:	.RAD50	/NSCOP /	;TRACE NAME
;
STB:	.BLKW	2		;STATUS AND SPEED
;
	.END