[DIGITAL FILTER FOR REAL TIME  SAMPLING.
[BASIC SAMPLING RATE IS ROUGHLY 18 KC-SEC
[FINAL SAMPLING RATE IS 5OO SAMPLES PER SEC
[DISPLAY ALLOWS LOOKING AT FINAL SECOND OF SAMPLED DATA AND AT INCOMING SIGNAL
$20
SETi1
1A-1
LDAi
0421
STAi1
ROR 3
STAi1
ROR 3
STAi1
ROR 3
STAi1
SETi2
1000
LDAi
3567
STC 1J 
COM
STC 1C
#1E NOP
SETi3
-25
XSKi3
JMP p-1
LDAi
-10
STC 3
STC 1B
SAMi10
ADM
1B
XSKi3
JMP p-4
SCR 3
SETi1
1A-1
SETi3
1A+3
XSKi3
SROi1
STA 3
SROi
#1J 3567
JMP p-5
LDAi
#1C 7777
APO
JMP 1D
SETi3
1A+3
CLR
ADAi3
SROi
3567
JMP p-3
SCR 2
STA 2
LDAi
1
ADM
2
APOi
JMP 1E
[DISPLAY
#1F SETi2
2777
SETi1
777
#1G LDAi2
DISi1
XSK 1
JMP 1G
SNS 0
JMP 1F
SETi1
777
#1H SAM 10
DISi1
XSK 1
JMP 1H
SNS 0
JMP 1F
JMP 1H-2
#1A 0421
1042
2104
4210
0
0
0
0
0
#1B 0
#1D LDA
1A+4
STA
1A+5
STA
1A+6
STC 1A+7
STC 1C
JMP 0
[END FOR NOW
[REALFILT  OCT.67