[RECOGNIZ
[MODEL PROGRAM TO INVESTIGATE PROBLEMS OF MATCHING INCOMING DATA WITH PATTERN
[DATA INPUT TO SAM 10
[THRESHOLD AT #1T
[PATTERN LENGTH AT #1L
$20
SETi4
#1L -100   [PATTERN LENGTH
SETi2
4377   [PATTERN
SETi3
477   [INCOMING DATA BUFFER
SETi1
100
CLR
STC 1A
STC 1B
SAM 0
COM   [FOR HUMANS
STAi
#1J 000  [NEW DATA
ADAi
#1K 000   [COMPL. OF OLD DATA
ROL 3
STC 1H
ADD 1J
COM
STC 1K
#1C LDAi3
ADAi
#1H 000
STA
1D
SCR 3
DISi1
LDAi
#1B 000
STA 3
MULi2
SCR 3
ADMi
#1A 000
LDAi
#1D 000
STC 1B
XSKi4
JMP 1C
[TEST FOR CORRELATION WITHIN LIMITS
LDA
1A
COM
ADAi
#1T 200
APOi
JMP 1E
[EXCEEDS LOWER LIMIT
ADAi
#1U 40
APO
JMP 1E
[BUT LESS THAN UPPER LIMIT
CLR
DSCi
7777
DSCi
7777
LDAi
207
OPRi2
[DISPLAY PATTERN
#1E SETi2
377
SET 6
1L
LDAi2
SCR 3
DISi1
XSKi6
JMP p-4
SNS 0
JMP 20
[PICK UP NEW PATTERN
SET 1
1L
SETi2
477
SETi3
377
LDAi2
STAi3
XSKi1
JMP p-3
[CALCULATE UPPER AND LOWER LIMITS FOR CORRELATION
CLR
STC 1T
SET 1
1L
SETi2
4377
SETi3
377
#1G LDAi3
MULi2
SCR 3
ADM
1T
XSKi1
JMP 1G
SCR 2
STA
1U
SCR 1
COM
ADM
1T
SNSi0
JMP p-1
[RETURN AFTER SHORT DELAY FOR SWITCH FUMBLING
XSKi1
JMP p-1
JMP 20
[END