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

DELLOG::
START:
	.WORD	^M<R2>
	MOVL	4(AP),R2
	$CMEXEC_S	ROUTIN=DELVAR
	RET


DELVAR:
	.WORD	0
	PUSHL	#2	;acmode
	PUSHL	R2	;lognam
	PUSHL	#2	;tblflg, 0 system, 1 group, 2 process
	CALLS	#3,G^SYS$DELLOG
	RET
	.END