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

diff --git a/sw/adventure/src/PCT.RA b/sw/adventure/src/PCT.RA
new file mode 100644
index 0000000..967fd44
--- /dev/null
+++ b/sw/adventure/src/PCT.RA
@@ -0,0 +1,40 @@
+	SECT	PCT
+/	 PCT(N)=RND(100).LT.N
+	EXTERN	RND
+	JA	#ST
+#XR,	ORG	.+10
+	TEXT	+PCT  +
+#RET,	SETX	#XR
+	SETB	#BASE
+	JA	.+3
+#BASE,	ORG	.+6
+N,	ORG	.+3
+HUND,	F 100.0
+	ORG	#BASE+30
+	FNOP
+	JA	#RET
+	FNOP
+#GOBAK,	0;0
+#RTN,	BASE	#BASE
+	JA	#GOBAK
+#ST,	STARTD
+	0210
+	FSTA	#GOBAK,0
+	0200
+	SETX	#XR
+	SETB	#BASE
+	LDX	0,1
+	FSTA	#BASE
+	FLDA%	#BASE,1+
+	FSTA	N
+	STARTF
+/	 RND(100)
+	JSR	RND
+	JA	.+0004
+	JA	HUND
+/	 .LT. N
+	FSUB%	N
+	EXTERN	#LT
+	JSA	#LT
+	JA	#RTN
+	END