.TITLE	SHUTUP
;
; COPYRIGHT (C) 1977
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 01754
;
;
; VERSION 01B
;
; MODIFICATIONS:
;
;	01A -- INCREASE TIMEOUT PERIOD FOR WARNING MESSAGES
;
;	01B -- DO NOT CRASH IF STARTED WITH TIME DEPENDENT SCHEDULING
;
	.IDENT	/01B/
	.MCALL	MRKT$S,EXIT$S
	.PSECT
.BLK.=.
.=.BLK.+1276
	CALL	PAT1B		;START FROM REASONABLE TERMINAL?
	NOP
.=.BLK.+1342
	JMP	EXIT2		; OUTPUT MESSAGE AND EXIT
	NOP
 
MSGOUT=.BLK.+2702
.=.BLK.+3340
28$:	MRKT$S	#9.,#8.,#2	;YES, TIME OUT FOR 8 SECONDS

.=.BLK.
	.PSECT	$$PAT
$$PAT=.

PAT1B:	BIT	#DV.PSE,U.CW1(R0) ; IS TI: A PSEUDO DEVICE
	BNE	10$		; YES
	BIT	#U2.PRV,U.CW2(R0) ; IS TI: PRIVILEGED?
	RETURN			;
10$:	MOV	#ERR2,R0	; POINT AT PROPER ERROR MESSAGE
EXIT2:	CALL	MSGOUT		; OUTPUT MESSAGE TO TI:
	EXIT$S			;

ERR2:	.ASCIZ	<15>/SHUTUP'S TI: IS A PSEUDO DEVICE/

	.EVEN
.=$$PAT
	.END