.TITLE	SCTEST
	.IDENT	/RICE/
	.NLIST	TTM
;
;	CALL	SCTEST(ISTAT)
;		ISTAT	= 0		IF NON GRAPHICS TERMINAL
;		ISTAT	= NON ZERO	IF GRAPHICS TERMINAL
;
SCTEST:: MOV	#1,R0		;TEST INPUT PARAM LIST
	JSR	PC,R5CHEK
	CLR	@(R5)		; Initial status = NO
	CALL	SCOPE		; Get status
	BCS	1$		; Not graphics
	DEC	@(R5)		; Set graphics status
1$:	RTS	PC		; Return
	.END