.title	CreLogSup -- Create logical name in supervisor mode

crelogsup::
start:
	.word	^m<r2,r3>
	movl	4(ap),r2
	movl	8(ap),r3
	$cmexec_s	routin=setvar
	ret


setvar:
	.word	0
	pushl	#2	;acmode
	pushl	r3	;eqlnam
	pushl	r2	;lognam
	pushl	#2	;tblflg, 0 system, 1 group, 2 process
	calls	#4,g^sys$crelog
	ret
	.end