A large commit.
[pdp8.git] / sw / adventure / JUGGLE.RA
diff --git a/sw/adventure/JUGGLE.RA b/sw/adventure/JUGGLE.RA
deleted file mode 100644 (file)
index 55b6be9..0000000
+++ /dev/null
@@ -1,49 +0,0 @@
-       SECT    JUGGLE\r
-/       SUBROUTINE JUGGLE(OBJECT)\r
-/       C\r
-/       C JUGGLE AN OBJECT BY PICKING IT UP AND PUTTING IT DOWN AGAIN, THE PURPOSE\r
-/       C BEING TO GET THE OBJECT TO THE FRONT OF THE CHAIN OF THINGS AT ITS LOC.\r
-/       C\r
-/       IMPLICIT INTEGER (A-Z)\r
-/       COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG\r
-/       DIMENSION ATLOC(150),LINK(200),PLACE(100),FIXED(100)\r
-/       \r
-       EXTERN  MOVE\r
-       #LBL=.\r
-       COMMON  PLACOM\r
-ATLOC, ORG     .+0702\r
-LINK,  ORG     .+1130\r
-PLACE, ORG     .+454\r
-FIXED, ORG     .+454\r
-HOLDNG,        ORG     .+3\r
-       ORG     #LBL\r
-\r
-/JUGGLE,\r
-       0;0                     /JSA entry point\r
-       FSTA    OBJECT\r
-       ATX     6\r
-/       I=PLACE(OBJECT)\r
-       FLDA    PLACE-3,6\r
-       FSTA    I\r
-/       J=FIXED(OBJECT)\r
-       FLDA    FIXED-3,6\r
-       FSTA    J\r
-/       CALL MOVE(OBJECT,I)\r
-       JSR     MOVE\r
-       JA      .+6\r
-       JA      OBJECT\r
-       JA      I\r
-/       CALL MOVE(OBJECT+100,J)\r
-/       RETURN\r
-/       END\r
-       FLDA    HUND\r
-       FADDM   OBJECT\r
-       JSR     MOVE\r
-       JA      JUGGLE\r
-       JA      OBJECT\r
-       JA      J\r
-OBJECT, ORG     .+3\r
-I,      ORG     .+3\r
-J,      ORG     .+3\r
-HUND,   F 100.0\r
-       END\r