# File: doiptst.src
#
# Executes procedures to test IP binning instructions. 
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/doiptst.src"
descr "doiptst - execute macros from ip_test."

display "Executing procedure  doiptst."

# Load Tables
perf   veriptbl_v01

# Load Camera header
tcblock  mbcmhdr1  0x4040 0x4040 0 1 0

# Set 1st IP vector entry to point to EXTRACT procedure
tcblock  mbipldin 0x154
tcblock  mbipcmd  0x91  0 256

# Load the queue
perf   ip_test_v01

open d

# Take a picture (this starts the downlink of the raw image)
tcblock mbcmtp1r  0xffff 0x1111 12000
wait time 115

display "Downlinking EXTRACTed Data"
# tcb mbipldin 0x152 0x100
# wait time 110

display "Downlinking Crop List and Data"
tcb mbipldin 0x152 0x12E
wait time 90

display "Downlinking Limb Figure List and Data"
tcb mbipldin 0x152 0x169
wait time 15

display "Downlinking Rect Bin List and Data"
tcb mbipldin 0x152 0x1A8
wait time 10

display "Downlinking Vect Bin List and Data"
tcb mbipldin 0x152 0x1EB
wait time 10

close d

display "Finished procedure doiptst"
return
