[RECOV2
[DIGITIZING FOR
[RECOVERY CYCLE
[DATA.STORAGE
[ON UNIT 1 WITH
[EACH PAIR OF
[POTENTIALS
[OCCUPYING ONE
[BLOCK. WORD
[NO. 177 IN
[EACH BLOCK IS
[INTERSTIMULUS
[INTERVAL IN
[MILLISECS.
[AJH JUNE 66
LDA
377
STC p+2
CHKu
3000
JMP 4D
#4D SETi16
1377
CLR
STAi16
XSK 16
JMP p-2
SAMi10
JMP 4T
JMP p+2
JMP p-3
JMP 4A
#4L XSK 17
JMP 4S
JMP 4P
SAMi10
#4X JMP 4T
JMP 4B
SCR 0
SCR 17
LDAi
1
LAMi
#4C 0
LZEi
JMP 4L
CLR
STC 1777
ADD 377
ADD 4Z
BSEi
3000
STC 377
JMP 376
[SET FIRST
#4A CLR
STC 4C
SETi16
1377
SETi17
-200
LDAi
JMP 4U
STC 4X
LDAi
3777
STC 4U+3
JMP 0
[SET SECOND
#4B SETi16
1577
SETi17
-200
LDAi
JMP 4U
STC 4X
LDAi
3777
STC 4U+3
ADD 4C
MUL
4E+4000
STC 1577
JMP 0
#4E 1252
[SAM AND STORE
#4S SAMi11
STAi16
XSKi0
XSKi17
NOP
JMP 0
[SAM PAD
#4P SCR 13
SCR 17
JMP 0
[TEST THRESHOLD
#4T ADD 4N
APO
XSKi0
JMP 0
#4N -100
[LOCKOUT THRESH
[OLD TEST.
#4U NOP
XSKi0
SROi
3777
JMP 0
LDAi
JMP 4T
STC 4X
JMP 0
#4Z 1
[GAP HERE
[WRITE TAPE
$376
WRCu
3000
SXL 1
JMP 4D
JMP 20
[END FOR NOW