projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
software: Added more and more
[pdp8.git]
/
sw
/
adventure
/
RSPEAK.RA
1
SECT RSPEAK
2
/ SUBROUTINE RSPEAK(I)
3
/C
4
/C PRINT THE I-TH "RANDOM" MESSAGE (SECTION 6 OF DATABASE).
5
/C
6
/ IMPLICIT INTEGER (A-Z)
7
/ COMMON /TXTCOM/ RTEXT
8
/ DIMENSION RTEXT(205)
9
10
EXTERN SPEAK
11
JA #ST
12
#XR, ORG .+10
13
TEXT +RSPEAK+
14
#RET, SETX #XR
15
SETB #BASE
16
JA .+3
17
#BASE, ORG .+6
18
I, ORG .+3
19
J, ORG .+3
20
ORG #BASE+30
21
FNOP
22
JA #RET
23
FNOP
24
#GOBAK, 0;0
25
#LBL=.
26
COMMON TXTCOM
27
RTEXT, ORG .+1147
28
LINES, ORG .+44
29
ASCVAR, ORG .+3
30
TXTLOC, ORG .+3
31
DATA, ORG .+0234
32
ORG #LBL
33
#RTN, BASE #BASE
34
JA #GOBAK
35
#ST, STARTD
36
0210
37
FSTA #GOBAK,0
38
0200
39
SETX #XR
40
SETB #BASE
41
LDX 0,1
42
FSTA #BASE
43
FLDA% #BASE,1+
44
FSTA I
45
STARTF
46
/ IF(I.NE.0)CALL SPEAK(RTEXT(I))
47
FLDA% I
48
JEQ #RTN
49
/ CALL SPEAK(RTEXT(I))
50
ATX 7
51
FLDA RTEXT-3,7
52
FSTA J
53
JSR SPEAK
54
/ RETURN
55
JA #RTN
56
JA J
57
END