# file: sample8.hea		G. Moody	15 February 1991
#				Last revised:	29 January 1992
# Example header file with DAP program for use with `sample'

# Copyright(C) Massachusetts Institute of Technology 1992. All rights reserved.

# This file is provided as an example of a moderately complex DAP program for
# use with the program `sample'.  The DAP program is embedded in the `info'
# strings at the end of this header file.

# Use this file with `sample' to digitize 8 signals (from the differential
# inputs) played back at twice real time.  The signals are sampled at twice
# the desired rate and decimated within the DAP's on-board DSP.

# This version uses the external clock and samples at 360 Hz per signal (1/32
# of the external clock frequency).  The external clock must be set to 11520
# Hz.  To use the internal clock, remove the line containing the statement
#   #>clock external
# If you do so, sampling will be at 86.8 microsecond intervals, yielding a
# sampling frequency of 360.023 Hz per signal, relative to real time.

# Sample using this file by:
#   sample -o sample8 -n NEW -t TIME -x 2
# where NEW is the name for the record to be created, and TIME is the length
# of the new record (e.g., "2:0:0").

sample8 8 360
test.dat 212 1000 12 0 0 0 0 zero
test.dat 212 1000 12 0 0 0 0 one
test.dat 212 1000 12 0 0 0 0 two
test.dat 212 1000 12 0 0 0 0 three
test.dat 212 1000 12 0 0 0 0 four
test.dat 212 1000 12 0 0 0 0 five
test.dat 212 1000 12 0 0 0 0 six
test.dat 212 1000 12 0 0 0 0 seven
#>; start a,b
#>reset
#>pipes p0,p1,p2,p3,p4,p5,p6,p7
#>;  lowpass taps=63 cutoff=15.3% window=Blackman
#>vector lp = (0,0,1,3,4,-2,-14,-20,-3,34,58,27,-58,-130,-94,70,246,239,-33
#>  -401,-508,-118,579,976,511,-746,-1869,-1566,866,4819,8508,10012,8508,4819
#>  866,-1566,-1869,-746,511,976,579,-118,-508,-401,-33,239,246,70,-94,-130
#>  -58,27,58,34,-3,-20,-14,-2,4,3,1,0,0)
#>idef a 8
#>clock external
#>set 0 d0
#>set 1 d1
#>set 2 d2
#>set 3 d3
#>set 4 d4
#>set 5 d5
#>set 6 d6
#>set 7 d7
#>time 86.8
#>filter(0,lp,p0,2)
#>filter(1,lp,p1,2)
#>filter(2,lp,p2,2)
#>filter(3,lp,p3,2)
#>filter(4,lp,p4,2)
#>filter(5,lp,p5,2)
#>filter(6,lp,p6,2)
#>filter(7,lp,p7,2)
#>end
#>pdef b
#>merge(p0,p1,p2,p3,p4,p5,p6,p7,$binout)
#>end