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