OU:ST1OV.MAC;2/AU:72.=[12,10]ST1OV.VGN
\
-2,2
	.IDENT	/01.04X/
-/JRK238/
;
;	JGD30	28-MAY-81	ADD SET /LIBUIC SUPPORT
;
;	JGD31	28-MAY-81 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]
;

%
-/UCBDF$/,,/; JGD30/
;
; 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
	.IFF			; IF MULTIPLE CLI SUPPORT IS INCLUDED
	.IFDF	M$$CLI!A$$CLI	; IF MULTIPLE CLI SUPPORT INCLUDED
U.PRV1=U.CLI-2			; THEN OFFSET FROM U.CLI
	.IFF			; IF IT IS NOT
U.PRV1=U.LUIC-2			;  THEN OFFSET IT FROM U.LUIC
	.ENDC			; .END M$$CLI!A$$CLI
	.ENDC			; .END D$$H11... ECT.
 
-/$NTUIC/,,/; JGD30/
	.WORD	$LBUIC		; LIBRARY UIC

-/SETUIC:/,.,/; JGD30/
SETUIC:				; /UIC, /SYSUIC, /NETUIC, /LIBUIC
-/BEQ	DISUIC/,.,/; JGD30/
	BNE	2$		; Not display, skip over
	JMP	DISUIC		; Display, go to its own section
2$:				; Reference lable
-/10$:/
-/36$:/,,
-/38$/
-/38$/,/MOV/,/; JGD31/
	BNE	37$		; IF NE, YES USER PRIVLEGED, SO SKIP 
	BIT	#400,U.PRV1(R1)	; MAYBE USER MANAGER?(BIT 8)
	BNE	361$		; IF NE, YES, CHANGE UIC IF >[310,X]
	BIT	#200,U.PRV1(R1)	; IS USER IS GRP MNGR (CAN CHANGE MEM #)
	BEQ	38$		; IF EQ, NO , JUST PLAIN UNPRIV USER
	MOVB	(R5),U.LUIC(R1) ; IS GRP MANAGER, CHANGE MEM #
	BR	38$		; BUT DON'T CHANGE GROUP NUMBER
361$:				; REF LABLE
				; CHANGE LOGIN UIC FOR GRP MGR IF USER
	CMPB	U.LUIC+1(R1),1(R5) ; IS ONLY CHANGING MEMBER #
	BEQ	37$		; IF EQ, GRP SAME, GO CHANGE U.LUIC
				; IF NE, ONLY CHANGE IF UIC >[310,X]
	CMPB	#310,1(R5)	;  SO CHECK TARGET UIC
	BHIS	38$		; NAUGHTY, NAUGHTY, NOT <=[310,X]
37$:	MOV	(R5),U.LUIC(R1)	; YES, SET LOGIN UIC
-/DISUIC:/,.,/; JGD30/
DISUIC:				; Display UIC, SYSUIC, NETUIC, or LIBUIC
/