.TITLE DELETE -- REMOVE ENTRY FROM NAME
	.SBTTL TITLE PAGE
	.IDENT /VIN0.0/
;+
;
;	AUTHOR: 1 LT JOEL IRWIN (SAC/ADIPI)
;
;
;	DATE: 10 NOV 1977
;
;
;	SYSTEM: OISS			SUBSYSTEM: INFORMATIONAL
;
;
;	FUNCTIONAL DESCRIPTION:
;
;	THIS SUBROUTINE WILL REMOVE AN ENTRY FROM THE NAME
;	GCA AND REINITIALIZE IT SO THAT IT CAN BE REUSED
;
;
;
;	RECORD OF MODIFICATIONS
;
;	VERSION		DATE		BY			DESCRIPTION
;	_______		____		__			___________
;
;	
;
;
;
;	GLOBAL EVENT FLAG USAGE:
;
;
;-
	.SBTTL MACROS,SYMBOLS,AND DATA
	.PAGE
;
;
;	LOCAL MACRO DEFINITIONS AND SYSTEM MACRO CALLS
;
;
	.MCALL STRUCT,GETARG,SAVE,MOVC,END,UNSAVE,TEXT ;STRUCTURED MACROS USED
	.MCALL	IF,QUIT
	STRUCT				;DEFINE THE STRUCTURED MACROS
;
;
;	GLOBAL SYMBOL DEFINITIONS AND DATA
;
;
	.SBTTL INPUTS,OUTPUTS AND EFFECTS
	.PAGE
;+
;
;	INPUTS:
;
;	ARG1 - ADDRESS OF THE ENTRY IN THE NAME GCA (OBTAINED VIA
;		THE FETCH SUBROUTINE) TO BE DELETED AND REINITIALIZED
;
;	OUTPUTS:
;
;	(NONE) ALWAYS SUCCEEDS EVEN THE ENTRY WAS ALREADY BLANK
;
;	EFFECTS:
;
;	WILL ZERO OUT THE WHOLE ENTRY POINTED TO BY ARG1
;
;-
	.PAGE
	.NLIST	BIN
	.GLOBL	DELETE
;	.PSECT	DELETE,RW	;FOR DEBUGGING PURPOSES ONLY
	.PSECT	DELETE,RO
	TEXT	DELETE,<DELETE AN ENTRY IN NAME>
	SAVE	R0,R1
	GETARG	@1,R0		;ADDRESS OF THE ENTRY TO DELETE

	IF	R0 EQ		;AUTOMATIC RETURN IF THERE IS NOTHING
	UNSAVE	R0,R1
	QUIT			;TO CLEAR (FOR EFFICIENCY PURPOSES)
	END

	CLRB	GPID(R0)	;CLEAR THE GROUP ID
	CLRB	USID(R0)	;CLEAR THE USER ID

	ADD	#USNAME,R0
	MOV	#ELSZ-1,R1	;CLEAR THE NAME
1$:	CLRB	(R0)+
	SOB	R1,1$

	UNSAVE	R0,R1
	END
	.END