.title		KERNEL
	.library	"SYS$LIBRARY:LIB"
	.link		"SYS$SYSTEM:SYS.STB"/SE
	$ACCDEF
	$JIBDEF
	$JPIDEF
	$PCBDEF
	$PSLDEF
	$FCHDEF	GLOBAL	; pour File_io
	.psect		$DATA,RD,WRT,NOPIC,NOSHR
work:	.blkl		1
group:	.blkb		ACC$S_ACCOUNT
;
	.psect		$CODE,RD,NOWRT,LONG,SHR,PIC
;
SETUIC_KERN:.WORD	^M<>
	MOVAL		HANDLER,(FP)
	movl		PCB$L_UIC(r4),R0
	MOVL		work,PCB$L_UIC(R4)
	movl		R0,work
	MOVZBL		#1,R0
	RET
TRAP:	MOVZBL		#12,R0
	RET
;
HANDLER:.WORD		^M<>
	$UNWIND_S	depadr=#0,newpc=TRAP
	RET
;
SETACCOUNT_KERN:.WORD	^M<R2,R3,R4,R5>
	MOVAL		HANDLER,(FP)
	MOVC3		#ACC$S_ACCOUNT,GROUP,CTL$T_ACCOUNT
	MOVL		CTL$GL_PCB,R0
	MOVL		PCB$L_JIB(R0),R0
	MOVC3		#JIB$S_ACCOUNT,GROUP,JIB$T_ACCOUNT(R0)
	MOVZBL		#1,R0
	RET

	$CMKRNL_S	routin=SETACCOUNT_KERN
	BLBC		R0,RET

	.entry		setuic,^M<>
	movl 		4(ap),work
	$CMKRNL_S	routin=SETUIC_KERN
	blbc		r0,err
	movl		work,r0
RET:	RET
err::	ret
	.END