[RECOVERY
[NEW VERSION OF DECEMBER 1967 - AJH
[DIGITIZING OF DATA FOR RECOVERY CYCLES.
[STIMULUS MARKER FOR EACH EVOKED POTENTIAL MUST BE LONGER THAN 340 MICROSECS. AND IS SAMPLED VIA SAM 10.
[DATA ENTERS BY SAM 11.
[EACH PAIR OF POTENTIALS OCCUPIES 1 BLOCK, WITH 128 POINTS PER POTENTIAL.
[WORD 377 IN EACH BLOCK IS THE INTERVAL IN MSECS. BETWEEN STIMULI.
[SAMPLING RATE APPROXIMATELY 3000 PER SECOND, OR EXACTLY 336 MICROSECS. PER POINT.
$20
[POSITION TAPE UNIT 1 FOR STORAGE OF DATA.
LDA
377
STC p+2
CHKu
3001
JMP 4D
[CLEAR DATA STORAGE AREA.
#4D SETi16
1377
CLR
STAi16
XSK 16
JMP p-2
[CLEAR INTERVAL COUNTER AND SET UP TO SAMPLE 200 POINTS OF THE FIRST POTENTIAL.
STC 4C
SETi16
1377
SETi17
-200
[LOOK FOR FIRST STIMULUS.
SAM 10
ADD 4N
APO
JMP p-3
SAM 10
ADD 4N
APO
JMP p-7
[BEGIN SAMPLING FIRST POTENTIAL AND COUNTING INTERVAL.
#4A SAM 11
STAi16
JMP 4T
SCR 17
NOP
XSKi17
JMP 4A
[SET UP COUNTERS FOR SECOND POTENTIAL.
SETi16
1577
SETi17
-200
[LOOK FOR SECOND STIMULUS AND CARRY ON COUNTING INTERVAL.
#4F SAM 10
ADD 4N
APOi
JMP p+4
SCR 17
NOP
JMP p+5
SAM 10
ADD 4N
APOi
JMP p+3
JMP 4T
JMP 4F
[BEGIN SAMPLING SECOND POTENTIAL.
#4B SAM 11
STAi16
MUL 1
MUL 1
SCR 0
XSKi17
JMP 4B
[SAMPLING COMPLETED OR INTERVAL TIMER OVERFLOWED, SAVE TIMER.
#4G LDA
4C
MUL
4E+4000
STC 1777
STC 1577
[SET UP TAPE INSTRUCTION.
ADD 377
ADD 4Z
STC 377
JMP 376
[INTERVAL COUNTER.
#4T SET 15
0
CLR
ADD 4Z
LAMi
#4C 0
LZEi
JMP 15
JMP 4G
[CONSTANTS
#4Z 1
#4E 1252
#4N -100
[WRITE DATA ON TAPE UNIT 1.
$376
WRCu
3000
SXL 1
JMP 4D
JMP 20
[END RECOVERY