+++ /dev/null
- 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