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

[LISTAUTO
[THIS PROGRAM EXAMINES THE LAST WORD IN EACH BLOCK OF A TAPE ON UNIT 1 , ASSUMING IT TO BE THE OUTPUT TAPE FROM AUTOCORR.
[A LIST IS PREPARED, FOUR COLUMNS AND 64 LINES PER PAGE, OF THE DATA BLOCKS FROM WHICH EACH BLOCK OF CORRELATION IS DERIVED.
[THE BLOCK NUMBER OF THE OUTPUT TAPE IS FOLLOWED BY THE BLOCK NUMBER OF THE DATA AND WHETHER THE DATA SET BEGINS AT THE 1ST., 2ND, 3RD OR 4TH EVOKED POTENTIAL IN THAT BLOCK.
$20
[SEARCH TAPE
SETi10
3000
LDA
10
ADAi
1
STC p+2
RDCui
3000
LDA
1777
STAi10
XSK 10
JMP p-13
[REWIND TAPE
MTBui
0000
[EJECT PAPER
LDAi
12
JMP 7P
SROi
3737
JMP p-5
SETi12
9H-1
CLR
COM
STAi12
SROi
0177
JMP p-3
SETi12
9H-1
SETi10
2777
SETi11
-1
#9F LDAi10
AZEi
JMP 9E
ROL 3
BCLi
7770
ADAi
-4
APO
JMP p+6
CLR
STA 10
#9E XSK 10
JMP 9F
JMP 9G
[LIST STARTING ADDRESSES FOR COLUMNS
XSKi11
JMP 9E
LDA
10
STAi12
SETi11
-100
JMP 9F
#9H 7777
7777
7777
7777
7777
7777
7777
7777
7777
#9G SETi12
9H-1
SETi11
0
LDAi12
AZE
ADD 9F-1
STAi11
SROi
0177
JMP p-6
#9J SETi13
-100
XSK 1
JMP p+2
JMP p+7
LDAi1
AZEi
JMP p-5
LDA
1
JMP 9A
XSK 2
JMP p+2
JMP p+7
LDAi2
AZEi
JMP p-5
LDA
2
JMP 9A
XSK 3
JMP p+2
JMP p+7
LDAi3
AZEi
JMP p-5
LDA
3
JMP 9A
XSK 4
JMP p+2
JMP p+7
LDAi4
AZEi
JMP p-5
LDA
4
JMP 9A
XSKi13
JMP p+2
JMP p+5
LDAi
12
JMP 7P
JMP 9J+2
SROi
7776
JMP 9K
LDAi
12
JMP 7P
SROi
3737
JMP p-5
SET 1
5
SET 2
6
SET 3
7
SET 4
10
LDA
1
AZE
JMP 9J
#9K LDAi
12
JMP 7P
SROi
3737
JMP p-5
HLT
[PRINT ADDRESS AND CONTENTS. ENTER WITH ADDRESS IN ACCUM.
#9A STC 17
ADD 0
STC 9C
ADD 17
JMP 9D
LDAi
14
JMP 7P
JMP 7P
LDA 17
JMP 9D
LDAi
17
JMP 7P
LDA 17
ROL 3
BCLi
7770
JMP 7P
LDAi
14
JMP 7P
SROi
3333
JMP p-5
#9C JMP 0000
#9D STC p+7
ADD 0
STC p+16
ADD p+4
ROL 3
ROL 3
STAi
0000
BCLi
7770
JMP 7P
LDA
p-5
SROi
3333
JMP p-12
JMP 0000
[END OF LISTAUTO
[L6BUFTTY
[LAP 6 COMPATIBLE VERSION OF BUFFERED TELETYPE SUBROUTINES.
[READ AND PRINT
[ALPHANUMERICS
[SUBROUTINE.
[AJH REVISED
[JUNE 1967
[LAP 6 CHARACTER
[IN ACCUM.
[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.LEAVES
[LAP 6 CHARACTER
[IN ACCUM.
#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
251
000
277
275
245
254
256
244
333
300
336
273
274
276
335
252
272
207
[END SUBROUTINE L6BUFTTY.