sw/adventure/src/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         JA      #ST
  10         TEXT    +DSTROY+
  11 DSTXR,  SETX    XRDST
  12         SETB    BPDST
  13         JA      .+3
  14 BPDST,  F 0.0
  15         F 0.0
  16 XRDST,  F 0.0
  17         F 0.0
  18 ZERO,   F 0.0
  19         ORG     10*3+BPDST
  20         FNOP
  21         JA      DSTXR
  22         0
  23 DSTRTN, JA      .
  24         BASE    0
  25 #ST,    STARTD
  26         FLDA    10*3
  27         FSTA    DSTRTN
  28         FLDA    0
  29         SETX    XRDST
  30         SETB    BPDST
  31         BASE    BPDST
  32         FSTA    BPDST
  33         LDX     1,1
  34         FLDA%   BPDST,1
  35         FSTA    CALLPT
  36         STARTF
  37 /        CALL MOVE(OBJECT,0)
  38 /        RETURN
  39 /        END
  40         JSR     MOVE
  41         JA      DSTRTN
  42 CALLPT, JA      .
  43         JA      ZERO
  44         END