X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fadventure%2FJUGGLE.RA;fp=sw%2Fadventure%2FJUGGLE.RA;h=55b6be9d78abdb928fb93030af9f7a868b5835ae;hb=84b5715c66b026062d9c455da3509b814bc32b1b;hp=0000000000000000000000000000000000000000;hpb=9107854b0bc70913de9757805c976b7442d88178;p=pdp8.git

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