[AUTOCORR
[NEW VERSION OF COAUTO, WITH INPUT LIST ENTERED AT THE BUFFERED TELETYPE AND CORRELATIONS CALCULATED FROM THE BEGINNING OF EACH EVOKED POTENTIAL, THAT IS AT EVERY 100 OCTAL POINTS.
[A J HANCE, JUNE 1967
[ENTRY LIST
[COMPILER
$20
JMP 1Y
NOP
SETi12
2A-2
SETi3
-401
CLR
COM
STAi12
XSKi3
JMP p-2
SETi12
2A-1
LDAi
12
JMP 7P
SROi
3737
JMP p-5
#5Z JMP 7R
STA
p+3
JMP 7P
LDAi
00
SHDi
7300
JMP 6E
SHDi
1300
JMP 6D
SHDi
1200
JMP 6C
ADAi
-7
APOi
JMP 6A-1
ADAi
7
STC 6B
ADD 6A
ROL 3
ADAi
#6B 00
BCLi
7000
STC 6A
JMP 5Z
#6D LDAi
215
OPRi2
LDAi
330
OPRi2
SROi
3777
JMP p-5
LDAi
12
JMP 7P
LDA 12
APO
JMP 6A+4
CLR
COM
STA 12
ADD 2P
ADM
12
JMP p-11
LDAi
#6A 00
AZEi
JMP 5Z
STAi12
CLR
STC 6A
JMP 5Z
#6C LDA
6A
AZE
STAi12
LDA 12
APOi
COM
STA 12
JMP 6A+4
#6E SETi3
6E+3777+10
LDHi3
JMP 7P
SROi
3737
JMP p-4
JMP p+4
3134
4134
4633
OPRi1
JMP 2N
[BUFTTY
[BUFFERED TTY
[READ AND PRINT
[SUBROUTINE.
[PRINT
#7P STC p+13
ADD 0
STC p+14
ADD p+10
ADAi
7L
STC p+2
LDA
0
OPRi2
LDAi
0
SAEi
12
JMP 000
SROi
5252
JMP p-3
LDAi
212
JMP p-13
[READ
#7R LDA
0
STC p+33
ADD 1
STC p+22
ADD 2
STC p+23
OPRi1
SETi1
-101
SETi2
7L-1
SAEi2
JMP p+21
LDAi
7L
COM
ADD 2
AZEi
COM
STC p+10
LDAi
0
STC 1
LDAi
0
STC 2
LDAi
0
JMP 000
XSKi1
JMP p-23
JMP p-14
[TABLE
#7L 260
261
262
263
264
265
266
267
270
271
215
377
240
246
247
255
253
257
243
215
301
302
303
304
305
306
307
310
311
312
313
314
315
316
317
320
321
322
323
324
325
326
327
330
331
332
275
245
254
256
244
333
212
251
337
336
273
276
274
252
242
335
272
277
207
[END OF SUBROUT
#2P -1
[END COMPILER
#2N SETi13
2A-1
LDAi13
APOi
JMP p+12
SAEi
7777
JMP p+2
JMP 4F
COM
BSEi
5000
STC 2J
JMP p+10
BSEi
5000
STA
2J
BCLi
7000
ADAi13
ADAi
-1
STC 10
ADD 2J
ADAi
1001
STA
4B
ADD p-3
STC 4C
STC 2B
[READ IN DATA TO QUARTERS 5, 6, 7.
RDC i
#2J 5001
RDC i
#4B 6002
RDC
#4C 7003
SETi3
2377
LDAi
#2B 0000
AZEi
JMP 2C
ROR 3
ADAi
2377
STC 2
SETi1
-1000
LDAi2
STAi3
XSKi1
JMP p-3
#2C LDAi
1000
ADM 
2B
SETi1
-1000
SETi2
3377
SETi3
3777
LDA 2
STA 3
LDAi
-1
ADD 2
STC 2
ADD p-3
ADD 3
STC 3
XSKi1
JMP p-12
[AUTOCORREL,
SETi12
2777
JMP 4A
SETi1
1377
SETi2
2377
CLR
STAi2
XSKi1
JMP p-2
SETi1
6777
SETi4
1577
SETi5
2400
SETi6
4A-1
LDAi
2777
STC 3A
#1I SETi2
2777
CLR
STC 4A-1
SETi3
#3A 2777
#1J LDAi3
MULi2
STA
1K
SCR 13
STC 1L
CLR
ADD 1K
LAM 6
STC 0
ADD 1L
LAM 5
STC 0
LAM 6
STC 0
LAM 5
XSK 3
JMP 1J
LDA 5
STC 1L
ADD 1
COM
STC 1A
STC 7F
STC 7
SETi11
-14
ADD 1L
STAi
#7F 0
APOi
JMP 7B
COM
STC 1L
ADD 4A-1
COM
STC 4A-1
#7B CLR
ADD 7
ROL 1
STC 7
ADD 4A-1
ROLi1
STC 4A-1
ADD 1L
ROLi1
STA
1L
ADD 1
AZEi
CLR
APO
JMP p+6
STC 1L
LDAi
1
ADD 7
STC 7
XSKi11
JMP 7B
LDA
7F
APOi
JMP p+5
LDA
7
COM
STC 7
LDA
7
STA 5
XSKi1
LDAi5
LDAi5
XSKi4
JMP p+2
JMP 3C
LDAi
1
ADM
3A
JMP 1I
#3C SETi1
0
LDAi
-3770
ADA
2400
APOi
JMP p+3
XSKi1
JMP p-5
SETi2
2377
SETi3
1377
LDAi2
MUL
1
SCR 3
STA 2
XSKi3
JMP p-6
SETi1
1577
SETi2
2376
SETi3
2377
SETi4
2400
LDA
2776
STA
3000
#1Q XSKi2
XSKi3
XSKi4
LDAi2
ADAi4
SCR 1
STAi3
XSKi1
JMP 1Q
LDA
2J
BCLi
7000
BSE
2B
STA 
2777
LDAi
1
ADM 
4D
ADAi
-5777
APOi
JMP 4G
WRCu
#4D 5000
LDA
2B
SAEi
4000
JMP 2J-1
LDAi
1
ADD 2J
STC 2J
XSKi10
JMP 2J-11
JMP 2N+2
#4F CHK
0
CLR
SETi1
100
SETi2
4E
SETi3
1767
DSCi2
XSKi3
JMP p-2
#4E JMP 4F+2
4477
4044
0
7741
0041
0
3077
7706
#1A 0
#1K 0
#1L 0
[NORMALIZE SUBROUTINE
000
#4A LDA
0
STC 5A
STC 5B
STC 5C
SET 2
12
SETi3
777
#5E CLR
LDAi2
SCR 13
STC 5D
LDA 2
LAM
5C
STC 0
ADD 5D
LAM
5B
STC 0
LAM 
5C
STC 0
LAM
5B
XSKi3
JMP 5E
SETi2
1774
#5F CLR
ADD 5C
ROLi1
STC 5C
ADD 5B
ROLi1
STC 5B
XSKi2
JMP 5F
ADD 5B
COM
STC 5B
STC 4A-1
SET 2
12
SETi3
777
#5G LDAi2
ADD 5B
STA 2
APOi
COM
ADD 4A-1
APOi
JMP 5H
COM
ADD 4A-1
STC 4A-1
#5H XSKi3
JMP 5G
SETi1
0
LDAi
-2640
ADD 4A-1
APOi
JMP p+4
XSKi1
JMP p-4
JMP 1X
SET 2
12
SETi3
777
#5N LDAi2
MUL
1
SCR 5
STA 2
XSKi3
JMP 5N
#5A 00
#5B 00
#5C 00
#5D 00
#1X SETi1
2377
CLR
STAi1
XSK 1
JMP p-2
JMP 4D-11
[STARTING MESSAGE
#1Y MTBi
0
SETi1
-33
SETi2
1Z+3777
LDHi2
JMP 7P
XSKi1
JMP p-3
LDAi
NOP
STA
1Y
STC 1Y+1
JMP 22
#1Z "
MOUNT
  DATATAPE - UNIT 0
'
[FUL MESSAGE
#4G LDAi
4H
STC 4F+6
#4H JMP 4F+2
4477
4044
0
0177
7701
0
0177
0301
7777
#2A 7777
7777
7777
7777
[END OF AUTOCORR