SPROV.MAC;4/AU/-BF=SPROV.MAC;3
-2,2,/;HJL055/
	.IDENT	/03.2/
-44,,/;HJL055/
;	HJL055	INSIST ON EOL AS LAST CHARACTER OF KEYWORD
;
;	EB028	ALLOW SET /PUB ON PSEUDO DEVICES
;
-628,630,/;HJL055/
40$:	JMP	DSPLY
-725,725,/;HJL055/
SETCM2:	JMP	DSPLY
-873,873,/;HJL055/
50$:	JMP	DSPLY
-882,882,/;HJL055/
5$:	JMP	DSPLY
-888,888,/; EB028/
	BEQ	15$		; NO
13$:	MOV	U.RED(R1),R1	; CHASE REDIRECT POINTER
	CMP	R1,U.RED(R1)	; TO REAL DEVICE
	BNE	13$		;
15$:				; REF LABEL
-901,901,/; EB028/
-905,905,/;HJL055/
SETPKT:	BVS	45$		;NO EQUALS MEANS DIS
-924,,/;HJL055/
45$:	JMP	DSPLY		;DISPLAY
-930,930,/;HJL055/
SETEXT:	BVS	DSPLY
-967,,/;HJL055/
DSPLY:	CALL	$NNBLK		;GET NEXT NON-BLANK
	BCS	DISPLY		;EOL IS GOOD
	JMP	SETER1		;ANYTHING ELSE IS AN ERROR
/