[REAL TIME FILTERING OF DATA, TO GIVE FINAL SAMPLING RATE OF 500 SAMPLES PER SECOND. ACTUAL SAMPLING RATE IS ABOUT 14+ KCS. PER SECOND
[SAMPLING VIA CHANNEL 10
[AJH OCT.1967
$20
SETi2
1000
#1B SETi1
-47
XSKi1
JMP p-1
LDAi
-10
STC 1
STC 1A
SAMi10
ADM
1A
XSKi1
JMP p-4
LDAi
#1A 000
SCR 3
STA 2
LDAi
1
ADM
2
APOi
JMP 1B
[DISPLAY
#1C SETi2
2777
SETi1
777
#1D LDAi2
DISi1
XSK 1
JMP 1D
SETi1
4777
#1E SAM 10
DISi1
XSK 1
JMP 1E
JMP 1C
[END FOR NOW
[REAL TIME SAMPLING