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

LDA i
#1X  2525
STA i
#1A    [12 BIT RN
BCL i
 7700
STA i
#2A 
LDA i
 20
STA i
#1Y
SET i 1
 -40
SET i 2
 1777
#1C SET i 3
#3C  2000
#2C JMP 9A [GET RN
[COLLECT DATA FOR FREQUENCY TEST
LDA
 1A
ROL 5
BCL i
 7740
ADD 3
STC 3
LDA 3
ADA i
#4C   1
APO
JMP 7C
STA 3
[COLLECT DATA FOR INDEPENDENCE TEST
SET i 3
#5C  2200
LDA
 1A
ROL 3
BCL i
 7770
ADD 1Y
ADD 3
STC 3
LDA 3
ADD 4C 
APO
JMP 7C
STA 3
LDA
 1A
ROR 6
BCL i
 7707
STC 1Y
XSK i 2
JMP 1C
XSK i 1
JMP 1C
[SAVE DATA ON TAPE
#7C WRC
 4|600
HLT
LDA i
 1
ADD p-4
STC p-5
SET i 10
 3777
CLR
STA i 10
XSK 10
JMP p-2
JMP 1Y+1
[RANDOM NUMBER GENERATOR
#9A LDA
 0
STC 8A
#3A SET i 5
 -14
#4A CLR
ADD 1A
BCL i
 3776
AZE i
JMP 5A
SAE i
 4001
JMP 6A
#5A CLR
ADD 2A
JMP 7A
#6A CLR
ADD 2A
BSE i
 100
#7A ROR i 1
STC 2A
ADD 1A
ROR i 1
STC 1A
XSK i 5
JMP 4A
#8A    [RETURN