A large commit.

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

diff --git a/sw/src/adventure/DSTROY.RA b/sw/src/adventure/DSTROY.RA
new file mode 100644 (file)
index 0000000..a6ace9d
--- /dev/null
+++ b/sw/src/adventure/DSTROY.RA
@@ -0,0 +1,22 @@
+       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
+\r
+/DSTROY,\r
+       0;0                     / Subroutine entry point\r
+       FSTA    TEMP\r
+/       CALL MOVE(OBJECT,0)\r
+/       RETURN\r
+/       END\r
+       JSR     MOVE\r
+       JA      DSTROY\r
+       JA      TEMP\r
+       JA      ZERO\r
+TEMP,  ORG     .+3\r
+ZERO,  F 0.0\r
+       END\r