Directory of image this file is from
This file as a plain text file

[RANDOMD
[ROUTINE TO RETURN RANDOM NUMBER
[USES XR 1,2,3
[USES FLOD-1R: FLODBASE
[VALUE RETURNED:
[    0<=X<1
[CALL:
[  JMP 2R
[  ADDR RESULT
[
#2R LDA
0
JMP 1X
ADD 1R+1
STC p+16
ADD 3
STC p+13
[GET FIRST HALF
JMP p+14
BCL i
4000
STC p+43
[GET SECOND HALF
JMP p+10
BCL i
4000
STC p+37+1
[FLOAT AS FRACTION
JMP 1F
p+35
 0
 JMP [RETURN
[FIND SINGLE-WORD RANDOM NUMBER
 LDA i
 23
MUL i
37
ADA i
3
STA
p-6
SCR 6
BCL i
7760
BSE i
ROL
STC p+7
LDA i
 45
MUL i
35
ADA i
5
 ROL
STA
p-7
BCO
p-27
JMP 0
[STORAGE
  0
0
[END RANDOMD
[MJM 4-8-70
[MJM 4-15-71