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
/
PCT.RA
1
SECT PCT
2
/ PCT(N)=RND(100).LT.N
3
EXTERN RND
4
JA #ST
5
#XR, ORG .+10
6
TEXT +PCT +
7
#RET, SETX #XR
8
SETB #BASE
9
JA .+3
10
#BASE, ORG .+6
11
N, ORG .+3
12
HUND, F 100.0
13
ORG #BASE+30
14
FNOP
15
JA #RET
16
FNOP
17
#GOBAK, 0;0
18
#RTN, BASE #BASE
19
JA #GOBAK
20
#ST, STARTD
21
0210
22
FSTA #GOBAK,0
23
0200
24
SETX #XR
25
SETB #BASE
26
LDX 0,1
27
FSTA #BASE
28
FLDA% #BASE,1+
29
FSTA N
30
STARTF
31
/ RND(100)
32
JSR RND
33
JA .+0004
34
JA HUND
35
/ .LT. N
36
FSUB% N
37
EXTERN #LT
38
JSA #LT
39
JA #RTN
40
END