sw/src/adventure/JUGGLE.RA

   1         SECT    JUGGLE
   2 /        SUBROUTINE JUGGLE(OBJECT)
   3 /        C
   4 /        C JUGGLE AN OBJECT BY PICKING IT UP AND PUTTING IT DOWN AGAIN, THE PURPOSE
   5 /        C BEING TO GET THE OBJECT TO THE FRONT OF THE CHAIN OF THINGS AT ITS LOC.
   6 /        C
   7 /        IMPLICIT INTEGER (A-Z)
   8 /        COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
   9 /        DIMENSION ATLOC(150),LINK(200),PLACE(100),FIXED(100)
  10 /
  11         EXTERN  MOVE
  12         #LBL=.
  13         COMMON  PLACOM
  14 ATLOC,  ORG     .+0702
  15 LINK,   ORG     .+1130
  16 PLACE,  ORG     .+454
  17 FIXED,  ORG     .+454
  18 HOLDNG, ORG     .+3
  19         ORG     #LBL
  20
  21 /JUGGLE,
  22         0;0                     /JSA entry point
  23         FSTA    OBJECT
  24         ATX     6
  25 /        I=PLACE(OBJECT)
  26         FLDA    PLACE-3,6
  27         FSTA    I
  28 /        J=FIXED(OBJECT)
  29         FLDA    FIXED-3,6
  30         FSTA    J
  31 /        CALL MOVE(OBJECT,I)
  32         JSR     MOVE
  33         JA      .+6
  34         JA      OBJECT
  35         JA      I
  36 /        CALL MOVE(OBJECT+100,J)
  37 /        RETURN
  38 /        END
  39         FLDA    HUND
  40         FADDM   OBJECT
  41         JSR     MOVE
  42         JA      JUGGLE
  43         JA      OBJECT
  44         JA      J
  45 OBJECT, ORG     .+3
  46 I,      ORG     .+3
  47 J,      ORG     .+3
  48 HUND,   F 100.0
  49         END