;<TITLE>LOGINTERM.MAR login at a terminal specified in commandline</TITLE>

	.title	loginterm	create an interactive process w/o user prompt
;				with same username as caller.
;
;	w.j.m. 15-oct-1987 (VMS V4.5)
;
;	privileges required:
;	- DETACH required by caller
;	- access to terminal by uaf default privilege
;
	$prcdef
	$dvidef
;
image:		.ascid	"SYS$SYSTEM:LOGINOUT.EXE"
input_b:	.blkb	32
input:		.long	32,input_b
inputprompt:	.ascid	"Terminal: "
devnam_b:	.blkb	32
devnam:		.long	32,devnam_b
priv:		.long	-1,-1
;
dvicode2:	.long	dvi$_devnam
;
;*****
;
.entry	begin,^m<>
;
	pushaw	input				;ask for terminal name
	pushaq	inputprompt
	pushaq	input
	calls	#3,g^lib$get_foreign
	blbs	r0,11$
	ret
11$:
	pushaw	devnam				;better use physical device name
	pushaq	devnam
	clrl	-(sp)
	pushaq	input
	clrl	-(sp)
	pushal	dvicode2
	calls	#6,g^lib$getdvi
	blbs	r0,12$
	ret
12$:
	$creprc_s	-			;do the real work
		image=image,-
		input=devnam,-
		output=devnam,-
		error=devnam,-
		prvadr=priv,-
		prcnam=input,-
		baspri=#4,-
		uic=#^x00010004,-
		stsflg=#<prc$m_nopassword!prc$m_inter>
	ret
;
	.end	begin