.TITLE	UICSET - CHANGE USER UIC
	.IDENT	/02/

;
;	Modify the UIC of a user.
;
;	Author:	Mark Pilant
;	Modified: James G. Downward	Remove funny restrictions
;
;-

	.LIBRARY	"SYS$LIBRARY:LIB.MLB"

	$PHDDEF

UIC:	.BLKL	1

	.ENTRY	UICSET,^M<R2,R3>

	MOVL	@4(AP),UIC		;GET USER UIC
	$CMKRNL_S	10$		;GO SET IT
	RET				; AND RETURN
10$:	.WORD	^M<R0,R1>		;REGS TO SAVE
	MOVL	@#SCH$GL_CURPCB,R0	;GET ADDR OF CURRENT PCB
	MOVL	UIC,PCB$L_UIC(R0)	;SET NEW UIC
	RET				;AND RETURN

	.END