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