[RECOGDIF
[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
377   [PATTERN
SETi3
477   [INCOMING DATA BUFFER
SETi1
100
CLR
STC 1A
STC 1A-3
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
COM
ADAi2
APO
COM
LAMi
000
STC 0
LAMi
#1A 000
LDAi
#1D 000
STC 1B
XSKi4
JMP 1C
[TEST FOR GOODNESS OF FIT
LDH
1A+4000
STH
1A
LDH
1A-3
STH
1A+4000
LDA
1A
ADAi
#1T -200
APOi
JMP 1E
CLR
DSCi
7777
DSCi
7777
LDAi
207
OPRi2
[CLEAR INPUT BUFFER
SET 4
1L
SETi2
477
CLR
STAi2
XSKi4
JMP p-2
[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 LIMIT FOR GOODNESS OF FIT
LDA
1L
STC 1T
SNSi0
JMP p-1
[RETURN AFTER SHORT DELAY FOR SWITCH FUMBLING
XSKi1
JMP p-1
JMP 20
[END