# 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 Camera header
tcblock mbcmhdr1  0x4040 0x4040 0 1 12

# Set 1st IP vector entry to point to EXTRACT procedure
tcblock mbipldin 0x154			## disable macro queue
tcblock mbipcmd  0x91  12 0x1D00	## load vector 12

tcblock mbipldin 0x136			## enable macro queue
tcblock mbipldin 0x134			## enable DEP interrupts

open decom

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

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

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

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

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

close decom

tcblock mbcmhdr1 0x4040 0x4040 0 1 0

display "Finished procedure doiptst"
return
