[CODIG
[ 
[LINC PROGRAM FOR
[DIGITIZING EV POT
[DATA
[10 PER SEC AT 2X SPEED
[TO 63 NOS PER POT
[ -FOR CALIB SIGNAL
[  CALDIG BINARY MUST
[  BE NEXT PROG AFTER
[  CODIG BINARY
$1
ZTA
SCR 2
ADAi
 3005 [BN FOR CALDIG
STC 5A+1
WRCi
3|270
WRC
4|271
JMP 5B  [STARTING POINT
$20
JMP 151
#3A 00
$151
#2B RDCi
3|270
RDC
4|271
JMP 5B
#2U KSTi
JMP 7A
[TICOSA
[FROM AJH
#1U SAMi 10 [TIME CODE IN
APO
JMPp-2
JMP 1C
LDA
13
AZEi
JMPp+6
CLR
STC 1
STC 1I
STC 13
JMP 1U+3
LDA
14
AZEi
JMP 1V
SETi 14
0
JMP 6U
[EXIT TO SAMPLING
#1V SAMi 10
APOi
JMPp-2
CLR
STC 1
STC 1I
STC 13
SETi 12
-3
SETi 11
1Z-1
#1K SAMi 10
APO
JMPp-2
JMP 1C
LDA
1I
STAi 11
CLR
STC 1
STC 1I
XSKi 12
JMP 1K+3
LDAi
12
STA
2Z+12
STC 2Z+15
ADD 1Z
SCR 1
STC 1Z
ADD 1Z
BCLi
7760
STC 2Z+17
ADD 1Z
SCR 5
STC 2Z+16
ADD 1Z+1
BCLi
7760
STC 2Z+14
ADD 1Z+1
SCR 5
STC 2Z+13
ADD 1Z+2
BCLi
7760
STC 2Z+11
ADD 1Z+2
SCR 5
STC 2Z+10
SETi 11
-10
SETi 12
2Z-1
SETi 13
2Z+7
LDAi 12
SAEi 13
JMPp+6
XSKi 11
JMPp-4
SETi 14
1
JMPp+3
SETi 14
0
SETi 5
-120
#1M SETi 2
2Z+7
JMP 1L
XSKi 5
JMP 1M
JMP 1U
#1G CLR
JMP 1H
#1F LDAi 
1000
#1H ADD 1I
SCR 1
STC 1I
STC 1
XSKi 13
NOP
JMP 1A
#1I 00
#1C SET 10
0
#1A SAMi 10
APOi
JMP 1A
SCR 17
SCR 17
SCR 0
SAM 10
ADD 1B
APOi
JMP 1D
XSKi 1
MUL 1
JMP 1A
#1E ADD 1T
APO
JMP 1G
ADD 1S
APO
JMP 1F
JMP 10
#1B 140
$400
#1D LDA
1
AZE
JMP 1E
MUL 1
JMP 1A
[DISPLAY ROUTINE
#1L SET 10
0
SETi 3
-10
SETi 1
100
#1N LDAi 2
ROL 1
ADAi
5E
STC 6
DSC 6
DSCi 6
DSCi
0
XSKi 3
JMP 1N
JMP 10
#1S -3
#1T -3
#2Z 00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
#1Z 00
00
00
#3Z SETi 2
2Z-1
SETi 3
-10
JMP 9W
LDAi 2
SAEi
12
JMPp+7
LDAi
240
OPRi 2
XSKi 3
JMPp-10
JMP 2U
ADAi
260
OPRi 2
JMPp-6
[END TICOSA
#5E 4136  [NUMBER MATRICES
3641
2101
0177
4523
2151
4122
2651
2414
0477
5172
0651
1506
4226
4443
6050
5126
2651
5120
3651
0000
0000
#7N 00
#8A 0
0
0
#9W LDAi  [LINE FEED AND RETURN
215
OPRi 2
LDAi
212
OPRi 2
JMP 0
#4D BCLi  [TTY OUT DIGIT NO 1
0777
ROR 11
ADAi
#9D 260
OPRi 2
JMP 0
#4M BCLi  [TTY OUT DIGIT NO 2
7077
ROR 6
ADD 9D
OPRi 2
JMP 0
#4F BCLi  [TTY OUT DIGIT NO 3
7707
ROR 3
ADD 9D
OPRi 2
JMP 0
#4G BCLi  [TTY OUT DIGIT NO 4
7770
ADD 9D
OPRi 2
JMP 0
#4B LDAi  [SPACE TTY
240
OPRi 2
JMP 0
#6S SETi 2  [LOAD COMPARISON REGISTERS
2Z-1
CLR
STAi 2
LDAi 17
BCLi
0777
ROR 11
STAi 2
LDAi
12
STAi 2
LDA 17
BCLi
7077
SCR 6
STAi 2
LDA 17
BCLi
7700
STAi 2
LDAi
12
STAi 2
LDAi 17
SCR 6
STAi 2
LDA 17
BCLi
7700
STAi 2
SETi 4
1J
JMP 3Z
#4Q SETi 12
-2
SETi 11
0
SAMi 11
ADD 4E
APO
JMP 4T
SETi 2
-2
XSKi 2
JMPp-1
SAMi 11
ADD 4E
APOi
JMP 4P
#4T XSKi 11
JMP 4Q+4
XSKi 12
JMP 4Q+2
JMP 6Y
#6U CLR  [SET UP FOR DATA INPUT
OPR 5
OPR 5
SETi1
1400
CLR 
STA 1
LDAi
1
ADM
1
SAEi
4000
JMPp-10
SETi 3
1377
SETi 16
0
SETi 15
-24
LDAi
1300
STC 6T
LDA 4
AZE
JMPp+4
SETi 5
-1
JMP 4L
STC 7
#4L SAMi 11  [WATCH FOR FIRST FLASH
ADD 4E
APO
JMP 4L
SETi 2
-2
XSKi 2
JMPp-1
SAMi 11
ADD 4E
APO
JMP 4L
LDA 4
AZE
JMP 4P
LDAi
100
ADM
6T
ADAi
77
STA
6
JMP 6D
#4P SETi 11
0
XSKi 11
JMP p-1
XSKi 7
JMP 4Q
#6C XSKi 5 [SAMPLE EVOKED RESPONSE
JMPp+2
JMP 6K  [RESET TO WATCH RESPONSE CHANNEL
LDAi
100
ADM
6T
ADAi
77
STA
6
LDAi
-2000
ADD 6T
APO
JMP p+10
LDAi
100
ADM
3
LDA
6V
ADM 3
SETi 12
-2
SETi 11
0
SAMi 11  [WATCH FOR FLASH
ADAi
#4E -70
APO
JMP 6G [JMP 4J
SETi 2
-2
XSKi 2
JMP p-1
SAMi 11
ADD 4E
APOi
JMP 6D
#4J XSKi 11
JMP 4E-2
XSKi 12
JMP 4E-4
JMP 6Y
#6D SET 2  [SET UP FOR SAMPLING RESPONSE
6T
SETi 1
-77
SAM 12  [DATA IN
STA 2
DISi 16
LDAi
1
ADM
2
XSKi 1
JMP 6F
XSKi 15
JMP 6C
#6Y SETi 13  [SAMPLE LAST 5 BEHAV CODE
-5
LDAi
100
ADM
3
LDAi
065
OPR 5
[OPRi 6
ADM 3
XSKi 13
JMP 6Y+2
#6E LDAi  [SET UP REFERENCE NOS
24
ADD 15
STA
370
ADAi
3
SCR 2
AZEi
JMP 6S
ADAi
-1
STA
 375
LDA 4
COM
ADD 370
STC 371
LDA
 373
BCLi
 7000
ADAi
 3001
#6B STA
 377
STA
 372
ADA 
 375
STA
 373
STC 4S+4
LDA
 375
AZEi
JMP 4S+3
COM
STC 10
LDA
 377
STC p+2
WRIui
#4S 00
XSKi 10
JMP 4R
WRIu
00
SETi 2  [TYPE OUT REF NOS
367
SETi 3
-4
LDAi
240
OPRi 2
OPRi 2
LDAi 2
JMP 4M
LDA 2
JMP 4F
LDA 2
JMP 4G
XSKi 3
JMP p-13
LDA
15
AZE
JMP 6S
JMP 7Z
#4K ADAi  [TTY OUTPUT
260
OPRi 2
JMP 0
#6M ROL 0  [REMAINDER OF TIMING LOOP - SAMPLING  296 uSEC
SETi 10
-10 
XSKi 10
JMPp-1
JMP 6D+4
#6F SAMi 13  [SAMPLING DELAY AND RESP MONITOR
ADD 4E
APO  [OR NOP
JMP 6L
ROL 14
SAMi 13
ADD 4E
APO
JMP 6L+12
JMP 6J
JMP 6M
#6L LDAi  [CHECK BEH CODE
065
OPR 5
SXL 6
JMPp+5
OPR6
STA
6V
JMP p+3
ROL 0
ROL 5
SETi 10
-4
XSKi 10
JMP p-1
JMP 6M
#6G SAMi 13  [WATCH RESP AND FLASH
ADD 4E
APO
JMP 4J
SAMi 11
ADD 4E
APOi
JMP 6H
SAMi 11
ADD 4E
APOi
JMP 6H
SAMi 13
ADD 4E
APO
JMP 4J
JMP 6J
JMP 4J
#6H SAMi 13  [IF RESP ONCE- FLASH ONCE
ADD 4E
APO
JMP 4E+3
JMP 6J
JMP 4E+7
#6J LDAi  [RESET PROG WHEN RESP OCCURS
1000
STA 6
LDAi
 JMP 4J 
STC 4E+2
LDAi
 NOP
STC 6F+2
LDAi
-12
STA
5
JMP 0
#6K LDAi  [RESET TO WATCH RESP
 JMP 6G
STC 4E+2
LDAi
 APO
STC 6F+2
JMP 0
#4R LDA  [INDEX TAPE TRANSFERS
377
ADAi
1001
STA
377
STC 4S
JMP 4S-1
#6T 00
#6V 00
#1J -0
-24
-50
-74
-120
#7Z LDAi 4  [INDEX FLASH SKIP
SAE
 7Z
JMP 7X
JMP 6S
#7X JMP 9W
SETi 1
-10
JMP 4B
XSKi 1
JMPp-2
JMP 2U
#7A KBD
SAEi
 46
JMP 0
WRCi
0|274
WRCi
1|275
WRC
2|276
HLT
#5A RDC
 00 [CALDIG BN
JMP 1400
$1400
#7Y SETi 1  [PAPER UP + START ON LIST
-6
JMP 9W
XSKi 1
JMP p-2
SETi 17
3A
JMP 6S
#9S SETi 1 [REPEAT OR NEW LIST
 -26
SETi 2
9Y-1
JMP 9W
LDAi 2
OPRi 2
XSKi 1
JMP p-3
JMP 9W
JMP 4A
SAEi
 43
JMP 9A
RDCi
0|274
RDCi 
1|275
RDC
2|276
SETi 1
 -7
JMP 4B
XSKi 1
JMPp-2
JMP 1U
#9A SAEi
 42
JMP 9R
RDC
0|273
JMP 7Y
#4H SET 17  [TYPE BACK ADDRESS + CONTENTS
0
LDA
1
JMP 4D
LDA
1
JMP 4M
LDA
1
JMP 4F
LDA
1
JMP 4G
JMP 4B
#4Z LDA 1
JMP 4D
LDA 1
JMP 4M
LDA 1
JMP 4F
LDA 1
JMP 4G
JMP 4B
JMP 17
#9R SETi 1  [LIST INPUT
-130
SETi 3
3A-1
CLR
STAi 3
XSKi 1
JMPp-2
SETi 1
-3
JMP 9W
JMP 9W
SETi 2
9X-1
SETi 3
-26
LDAi 2
OPRi 2
XSKi 3
JMP p-3
JMP 9W
XSKi 1
JMP p-10
JMP 9W
SETi 1
3A-1
JMP 4C
JMP 4A
ADM 1
COM
STA
7N
STC 10
JMP 9W
JMP 9P
#9Q SETi 1  [CHECK LIST
-2
SETi 2
9T-1
SETi 3
-15
LDAi 2
OPRi 2
XSKi 3
JMP p-3
JMP 9W
XSKi 1
JMP p-10
JMP 9W
JMP 4A
STC 10
JMP 4A
STC 11
JMP 9W
JMP 9W
LDA
10
SAEi
36   [N=CHANGE
JMP p+2
JMP p+4
WRC
 0|273
JMP 7Y  [START ON DATA LIST
SETi 1
-2
SETi 2
9V-1
SETi 3
-22
LDAi 2
OPRi 2
XSKi 3
JMP p-3
JMP 9W
XSKi 1
JMP p-10
JMP 9W
SETi 1
-2
SETi 3
-4
LDAi 2
OPRi 2
XSKi 3
JMP p-3
JMP 9W
XSKi 1
JMP p-10
JMP 9W
SETi 1
8A
JMP 4C
JMP 4A
ADM 1
JMP 9W
JMP 4C
JMP 4A
ADM 1
JMP 9W
LDA
8A+1
BSEi
4000
STC p+3
LDA
8A+2
STC  0
JMP 9Q
#9P JMP 4A  [TIME INPUT
JMP 4A
ROL 11
STAi 1
JMP 4N
JMP 4A
ROL 6
ADM 1
JMP 4A
ADM 1
JMP 4N
JMP 4A
ROL 6
STAi 1
JMP 4A
ADM 1
LDAi
-1
ADM
1
JMP 4B
JMP 4B
JMP 4H
JMP 9W
SETi 13
-12
JMP 4B
XSKi 13
JMPp-2
XSKi 1
JMP 4H
JMP 9W
XSKi 10
JMP 9P
JMP 9Q
#4N LDAi
272
OPRi 2
JMP 0
#4C SET 17  [INPUT FIRST 3 DIGITS OF 4 DIGIT NO
0
JMP 4A
ROL 11
STAi 1
JMP 4A
ROL 6
ADM 1
JMP 4A
ROL 3
ADM 1
JMP 17
#4A OPRi 1  [IN AND ECHO ONE DIGIT
OPRi 2
ADAi 
-260
AZEi
CLR
JMP 0
#5B SETi 3 [LIST OR CALIBRATE
 -57
SETi 2
 5C-1
LDAi 2
OPRi 2
XSKi 3
JMPp-3
JMP 4A
SAEi
 34
JMPp+2
JMP 9S
SAEi
 23
JMPp-7
JMP 9W
LDAi
 JMP 5A
STC 4N-3
SETi 1
 3A-1
JMP 9P
$2001
[ENTER LIST OF DATA TO
[BE TRANSFERRED - FIRST
[IS THE NUMBER OF ITEMS
#9X 305
316
324
305
322
240
314
311
323
324
240
317
306
240
304
301
324
301
240
324
317
240
302
305
240
324
322
301
316
323
306
305
322
322
305
304
240
256
240
306
311
322
323
324
311
323
240
324
310
305
240
316
325
315
302
305
322
240
317
306
240
311
324
305
315
323
[CHECK LIST
[TYPE GO OR NO
#9T 303
310
305
303
313
240
314
311
323
324
240
240
240
324
331
320
305
240
307
317
240
317
322
240
316
317
[TYPE ADDRESS FIRST  THEN THE CHANGE
#9V 324
331
320
305
240
301
304
304
322
305
323
323
240
306
311
322
323
324
324
310
305
316
240
324
310
305
240
303
310
301
316
307
305
240
240
240
260
264
260
262
260
267
267
263
#9Y 322  [REPEAT LIST  - R
305
320
305
301
324
240
255 
240
322
240
240
240
323
301
326
305
304
240
255
240
323
[LIST IN - L
[
[CALIBRATE - C
[THEN TIME CODE
#5C 215
212
314
311
323
324
240
311
316
240
255
240
314
215
212
212
303
301
314
311
302
322
301
324
305
240
255
240
303
215
212
324
310
305
316
240
324
311
315
305
240
303
317
304
305
215
212
$2400
 00   [HOLD EXTRA BLOCK FOR CALDIG
[END CODIG