projects / pdp8.git / blame
| 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 |