	SECT	DSTROY
/	 SUBROUTINE DSTROY(OBJECT)
/	 C
/	 C PERMANENTLY ELIMINATE "OBJECT" BY MOVING TO A NON-EXISTENT LOCATION.
/	 C
/	 
/	 IMPLICIT INTEGER (A-Z)
	EXTERN	MOVE

/DSTROY,
	0;0			/ Subroutine entry point
	FSTA	TEMP
/	 CALL MOVE(OBJECT,0)
/	 RETURN
/	 END
	JSR	MOVE
	JA	DSTROY
	JA	TEMP
	JA	ZERO
TEMP,	ORG	.+3
ZERO,	F 0.0
	END
