#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/set_tracking_v03.src"
descr "set_tracking - Set parameters for rotation tracking"
#=======================================================
#
# Interactive routine to allow tracking parameters to be set
#

ask !LI0 "Number of minutes before shift (ie: 4)"
ask !LI1 "Number of pixel to shift (ie: 1)"
ask !LI2 "Column num to stop shifting (1024 minus extract) (ie: 520)"
ask !LI3 "Starting Count (typically number of min +1) (ie: 5)"
ask !LI4 "Starting Column for extract (0-1023) (ie: 0)"

tcblock mbipldin    0x0140 0x151B !LI0			## iprl_track_nmin
tcblock mbipldin    0x0140 0x151C !LI1			## iprl_track_npix
tcblock mbipldin    0x0140 0x151D !LI2			## iprl_track_npix_max
tcblock mbipldin    0x0140 0x151E !LI3			## iprl_track_imin
tcblock mbipldin    0x0140 0x1521 !LI4			## iprl_track_offset

tcblock mbipldin    0x01B2 0x151F 0x0002 0x0000 0x0000 	## iprl_track_extract

#
#;iprl_track_nmin - number of minutes before increment
#tcblock mbipldin    0x0140 0x151B 4
#;
#;iprl_track_npix - number of pixels to move extract
#tcblock mbipldin    0x0140 0x151C 1
#;
#;iprl_track_npix_max - maximum number of pixels to move (1024 minus extract size)
#tcblock mbipldin    0x0140 0x151D 520
#;
#;iprl_track_imin - counter for N minutes (count down)  one more than NMIN
#tcblock mbipldin    0x0140 0x151E 5
#;
#;iprl_track_extract - offset location (low/high)
#tcblock mbipldin    0x01B2 0x151F 0x0002 0x0000 0x0000 
#;
#;iprl_track_offset - current offset value to be added to track_extract
#tcblock mbipldin    0x0140 0x1521 250
#;

