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

diff --git a/sw/src/adventure/RSPEAK.RA b/sw/src/adventure/RSPEAK.RA
new file mode 100644
index 0000000..1a94df8
--- /dev/null
+++ b/sw/src/adventure/RSPEAK.RA
@@ -0,0 +1,57 @@
+	SECT	RSPEAK
+/	SUBROUTINE RSPEAK(I)
+/C
+/C PRINT THE I-TH "RANDOM" MESSAGE (SECTION 6 OF DATABASE).
+/C
+/	IMPLICIT INTEGER (A-Z)
+/	COMMON /TXTCOM/ RTEXT
+/	DIMENSION RTEXT(205)
+
+	EXTERN	SPEAK
+	JA	#ST
+#XR,	ORG	.+10
+	TEXT	+RSPEAK+
+#RET,	SETX	#XR
+	SETB	#BASE
+	JA	.+3
+#BASE,	ORG	.+6
+I,	ORG	.+3
+J,	ORG	.+3
+	ORG	#BASE+30
+	FNOP
+	JA	#RET
+	FNOP
+#GOBAK,	0;0
+	#LBL=.
+	COMMON	TXTCOM
+RTEXT,	ORG	.+1147
+LINES,	ORG	.+44
+ASCVAR,	ORG	.+3
+TXTLOC,	ORG	.+3
+DATA,	ORG	.+0234
+	ORG	#LBL
+#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	I
+	STARTF
+/	 IF(I.NE.0)CALL SPEAK(RTEXT(I))
+	FLDA%	I
+	JEQ	#RTN
+/	 CALL SPEAK(RTEXT(I))
+	ATX	7
+	FLDA	RTEXT-3,7
+	FSTA	J
+	JSR	SPEAK
+/	 RETURN
+	JA	#RTN
+	JA	J
+	END