.TITLE CRELOG PROGRAM TO DO A CRELOG IN SUPERVISOR MODE
	.SHOW	ME

CRELOG::
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