.Title	USERSET
;
;
;
	$uafdef
	$pcbdef
	$jibdef
;
;
;
	.psect  data, noshr,wrt,pic,noexe
;
infab:	$fab	fac=get -
		fnm=<sys$system:sysuaf.dat> -
		shr=<put,get,del,upd>
;
inrab:	$rab	fab=infab -
		kbf=usekey+8 -
		krf=0 -	
		ksz=12 -
		rac=key -
		rop=nlk -
		ubf=inbuff -
		usz=2048
inbuff:	.blkb	2048	
usekey:	.ascid	/            /
usrprmt:.ascid	/Username: /
dirdes: .word 32
	.word 0
	.long	defdir
defdir: .ascii  /                                /
devlin: .word 16
	.word 0
        .long	defdev
defdev: .ascii  /                /
inpline:.word	0
tt:	.ascid	/TT/
chantt:	.word	0
iosb:	.quad	0
;
	.psect code,shr,pic,nowrt,exe,con
errorb:	jmp	error
	.entry	start,^m<>
	pushaw	inpline	
	pushal	usrprmt	
	pushal	usekey	
	calls	#3,g^lib$get_foreign
	blbc	r0,errorb
;
	$open	fab=infab -
		err=error
	$connect rab=inrab -
		err=error
;
	$get	rab=inrab
	cmpl	r0,#rms$_rnf
	beql	errorb
	cmpl	r0,#rms$_normal
	bneq	errorb
;
        $close  fab=infab -
                err=error
;	
	movl	inrab+rab$l_rbf,r7
	movl	uaf$l_uic(r7),r8
	$cmkrnl_s kerstuf
	blbc	r0,error1
	brb	continue
error1: jmp	error
continue:
;
	movc3	#16,uaf$t_defdev(r7),defdev
	movc3	#32,uaf$t_defdir(r7),defdir
	pushal  dirdes
	pushal  devlin
	calls 	#2,g^setname
	movl	#ss$_normal,r0
;
exit:	$exit_s r0
error:	movl    #ss$_nopriv,r0
        $exit_s	r0
;
	.entry	kerstuf,^m<>
	movl	sch$gl_curpcb,r11
	movl	r8,pcb$l_uic(r11)
	movl	pcb$l_jib(r11),r10
;
;	        Stuff stuff into JIB and CTL
;
	movc3	#12,uaf$t_username(r7),jib$t_username(r10)
	movc3	#12,uaf$t_username(r7),ctl$t_username
        movc3   #8,uaf$t_account(r7),jib$t_account(r10)
        movc3   #8,uaf$t_account(r7),ctl$t_account
eexit:	movl	#ss$_normal,r0
	ret
	.end	start