;
	.TITLE		SETUIC
;
	.LIBRARY	'SYS$LIBRARY:LIB.MLB'
;
	$CLIDEF
	$JIBDEF
	$PCBDEF
;
	.PSECT		$OWN$,NOEXE,2
			NPARM = 0
			NEWUIC = 4
;
	USR_UIC:	.BLKL	1
;
	.ENTRY		SET_UIC, ^M<R8,R9,R10,R11>
;
	MOVL		@NEWUIC(AP),R8
;
	$CMKRNL_S	TWEAK
;
	RET
;
	.EXTRN		CTL$T_USERNAME,SCH$GL_CURPCB
;
	.ENTRY		TWEAK,	^M<>
;
	MOVL		SCH$GL_CURPCB,R11
	MOVL		R8,PCB$L_UIC(R11)
	MOVL		#SS$_NORMAL,R0
;
	RET
;
	.END