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

diff --git a/sw/adventure/JUGGLE.RA b/sw/adventure/JUGGLE.RA
deleted file mode 100644
index 55b6be9..0000000
--- a/sw/adventure/JUGGLE.RA
+++ /dev/null
@@ -1,49 +0,0 @@
-	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