[BELLRAND
[SUBROUTINE TO GENERATE RANDOM NUMBERS
[INITIALIZE BY JMP 9I
[OBTAIN RANDOM 12-BIT NUMBER BY JMP 9R
[ON EXIT, RANDOM NUMBER IN ACCUMULATOR
[----
[INITIALIZE
#9I CLR
ADD 0
STC 9R-1
LDAi
1
STC 9P
STC 9N
STC 9M
JMP 9R-1
[RANDOM NUMBER
JMP 000
#9R CLR
ADD 0
STC 9R-1
ADD 9M
STC 9T
ADD 9N
STA
9U
STC 9M
ADD 9P
STA
9V
STC 9N
STC 9P
JMP 9S
SROi
3567
JMP p-3
JMP 9A
JMP 9S
JMP 9A
LDA
9M
JMP 9R-1
[MULTIPLE SHIFT LEFT
#9S CLR
ADD 9P
ROLi1
STC 9P
ADD 9N
ROLi1
STC 9N
ADD 9M
ROLi1
STC 9M
JMP 0
[MULTIPLE ADD
#9A CLR
LDAi
#9V 000
LAMi
#9P 000
LDAi
#9U 000
LAMi
#9N 000
LDAi
#9T 000
LAMi
#9M 000
JMP 0
[END SUBROUTINE BELLRAND
[20 APRIL 1978
[TEST
$400
JMP 9I
#1A SETi1
-12
LDAi
212
OPRi2
#1B SETi2
-12
LDAi
215
OPRi2
LDAi
212
OPRi2
#1D JMP 9R
STC 1C
LDAi
#1C 0000
ROL 3
STA
1C
BCLi
7770
ADAi
0260
OPRi2
SROi
3567
JMP 1C-1
LDAi
240
OPRi2
OPRi2
XSKi2
JMP 1D
XSKi1
JMP 1B
JMP 1A
[END TEST