; PROGRAM TO BE USED AFTER SYSGEN TO INITALLY SET UP PRIVILEGE BITS
; FOR THE CONSOLE (TT0)
;
; BECAUSE REESE MCR WILL COME UP WITH RANDOM BITS IN THE 
; U.LBN WORD OF THE PUD AND PROBABLY NOT ALLOW THINGS LIKE SAVE, ETC
;
	.MCALL	EXIT$S
;
;
START:	MOV	.PUDBA,R0	;GET START OF PUD
	MOV	.PUDEA,R1	;AND END ALSO
NEXPUD:	CMP	(R0),#"TT	;CHECK DEV NAME
	BNE	NMATCH		;IT DOESN'T COMPUTE !!!
	CMPB	U.UN(R0),#0	;IF NAME OK, HOW BOUT #
	BEQ	DOIT		;GOTCHA!!!
NMATCH:	ADD	#U.SZ,R0	;BUMP TO NEXT PUD SECTION
	CMP	R0,R1		;PAST END OF PUD
	BGE	EXIT
	BR	NEXPUD		;TRY AGAIN
DOIT:	MOV	#177777,U.LBN(R0);SET ALL BITS ON
EXIT:	EXIT$S
	.END	START