File: DSTROY.RA of Disk: V50/Source/Source-Listing-FORTRAN-2

(Source file text) 

---

	SECT	DSTROY
/	 SUBROUTINE DSTROY(OBJECT)
/	 C
/	 C PERMANENTLY ELIMINATE "OBJECT" BY MOVING TO A NON-EXISTENT LOCATION.
/	 C
/	 
/	 IMPLICIT INTEGER (A-Z)
	EXTERN	MOVE
	JA	#ST
	TEXT	+DSTROY+
DSTXR,	SETX	XRDST
	SETB	BPDST
	JA	.+3
BPDST,	F 0.0
	F 0.0
XRDST,	F 0.0
	F 0.0
ZERO,	F 0.0
	ORG	10*3+BPDST
	FNOP
	JA	DSTXR
	0
DSTRTN,	JA	.
	BASE	0
#ST,	STARTD
	FLDA	10*3
	FSTA	DSTRTN
	FLDA	0
	SETX	XRDST
	SETB	BPDST
	BASE	BPDST
	FSTA	BPDST
	LDX	1,1
	FLDA%	BPDST,1
	FSTA	CALLPT
	STARTF
/	 CALL MOVE(OBJECT,0)
/	 RETURN
/	 END
	JSR	MOVE
	JA	DSTRTN
CALLPT,	JA	.
	JA	ZERO
	END

---