.TITLE	TERWID
; RETURNS WIDTH OF TERMINAL
; CALL WITH LUN
;
	.MCALL	DIR$,QIO$
TERWID::
	MOV	@2(R5),Q+Q.IOLU
	DIR$	#Q		;DO THE QIO
	MOV	SB+2,R0		;RETURN 2ND WORD OF STATUS BLOCK
	RETURN
;
SB:	.WORD	0,0		;STATUS BLOCK
;
Q:	QIO$	SF.GSC,,1,,SB,,<TC.WID>
	.END