SPROV.MAC;2/AU/BF=SPROV.VGN;1
\
-2,2
	.IDENT	/3.5X/
-54
;	JGD15	17-OCT-78 ALLOW A USER WITH BIT 7 IN PRIVLEGE MASK WORD
;			  TO CHANGE MEMBER CODE IN LOGIN UIC.
;			  THIS USER IS CALLED GROUP MANAGER.  IF BIT 8
;			  IS SET, USER IS 'USER MANAGER' AND CAN SET
;			  UIC TO ANY VALUE >[310,X]
;
%
-60,,/; JGD15/
	.MCALL	UCBDF$
	UCBDF$
-607,,/; JGD15/
; CONDITIONAL CODE FOR ASSEMBLING WITH THE CORRECT PRIVLEGE MASK WORD
	.IFNDF	D$$H11&D$$J11&D$$M11&D$$ZMD&D$$Z11
U.PRV1=U.CW3
	.IFF
U.PRV1=U.LUIC-2
	.ENDC
;
-668,669,/; JGD15/
;	BEQ	38$		; NO
	BNE	37$		; IF NE, YES USER PRIVLEGED, SO SKIP OVER
	BIT	#400,U.PRV1(R1)	; MAYBE USER MANAGER?(BIT 8)
	BNE	361$		; IF NE, YES, GO CHANGE UIC IF >[310,X]
	BIT	#200,U.PRV1(R1)	; MAYBE USER IS GRP MANAGER + CAN CHANGE MEM #
	BEQ	38$		; IF EQ, NO , JUST PLAIN UNPRIVLEGED USER
	MOVB	(R5),U.LUIC(R1) ; IS GRP MANAGER, CHANGE MEM #
	BR	38$		; BUT DON'T CHANGE GROUP NUMBER
361$:				; REF LABLE
	CMPB	U.LUIC+1(R1),1(R5) ; ALWAYS CHANGE LOGIN UIC FOR GRP MGR IF ONLY CHANGING
	BEQ	37$		; MEMBER NUMBER. OTHERWISE CHECK TO SEE GROUP CODE LEGAL
	CMPB	#310,1(R5)	; YES, 'USER MANAGER',CHANGE UIC IF >[310,X]
	BHIS	38$		; NAUGHTY, NAUGHTY, NOT <=[310,X]
37$:	MOV	(R5),U.LUIC(R1)	; YES, SET LOGIN UIC
/