sw/adventure/DSTROY.RA

   1         SECT    DSTROY
   2 /        SUBROUTINE DSTROY(OBJECT)
   3 /        C
   4 /        C PERMANENTLY ELIMINATE "OBJECT" BY MOVING TO A NON-EXISTENT LOCATION.
   5 /        C
   6 /
   7 /        IMPLICIT INTEGER (A-Z)
   8         EXTERN  MOVE
   9
  10 /DSTROY,
  11         0;0                     / Subroutine entry point
  12         FSTA    TEMP
  13 /        CALL MOVE(OBJECT,0)
  14 /        RETURN
  15 /        END
  16         JSR     MOVE
  17         JA      DSTROY
  18         JA      TEMP
  19         JA      ZERO
  20 TEMP,   ORG     .+3
  21 ZERO,   F 0.0
  22         END