A large commit.

[pdp8.git] / sw / adventure / src / DSTROY.RA

diff --git a/sw/adventure/src/DSTROY.RA b/sw/adventure/src/DSTROY.RA
new file mode 100644 (file)
index 0000000..59a5b36
--- /dev/null
+++ b/sw/adventure/src/DSTROY.RA
@@ -0,0 +1,44 @@
+       SECT    DSTROY\r
+/       SUBROUTINE DSTROY(OBJECT)\r
+/       C\r
+/       C PERMANENTLY ELIMINATE "OBJECT" BY MOVING TO A NON-EXISTENT LOCATION.\r
+/       C\r
+/       \r
+/       IMPLICIT INTEGER (A-Z)\r
+       EXTERN  MOVE\r
+       JA      #ST\r
+       TEXT    +DSTROY+\r
+DSTXR, SETX    XRDST\r
+       SETB    BPDST\r
+       JA      .+3\r
+BPDST, F 0.0\r
+       F 0.0\r
+XRDST, F 0.0\r
+       F 0.0\r
+ZERO,  F 0.0\r
+       ORG     10*3+BPDST\r
+       FNOP\r
+       JA      DSTXR\r
+       0\r
+DSTRTN,        JA      .\r
+       BASE    0\r
+#ST,   STARTD\r
+       FLDA    10*3\r
+       FSTA    DSTRTN\r
+       FLDA    0\r
+       SETX    XRDST\r
+       SETB    BPDST\r
+       BASE    BPDST\r
+       FSTA    BPDST\r
+       LDX     1,1\r
+       FLDA%   BPDST,1\r
+       FSTA    CALLPT\r
+       STARTF\r
+/       CALL MOVE(OBJECT,0)\r
+/       RETURN\r
+/       END\r
+       JSR     MOVE\r
+       JA      DSTRTN\r
+CALLPT,        JA      .\r
+       JA      ZERO\r
+       END\r