55b6be9d78abdb928fb93030af9f7a868b5835ae
[pdp8.git] / 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