X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fadventure%2Fsrc%2FDSTROY.RA;fp=sw%2Fadventure%2Fsrc%2FDSTROY.RA;h=59a5b364d7a0560bbc35e743ffda751bec20edfb;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/adventure/src/DSTROY.RA b/sw/adventure/src/DSTROY.RA
new file mode 100644
index 0000000..59a5b36
--- /dev/null
+++ b/sw/adventure/src/DSTROY.RA
@@ -0,0 +1,44 @@
+	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