# File: dorblr.src
#
# Executes procedures to test IP ROWBIN and LRBIN instructions. 
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/dorblr.src"
descr "dorblr - test LR bin instruction"

display "Executing procedure  dorblr."

# Load LRBIN list 
perform  "ld_lrbin_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
perform  "rblr_v01"

open decom160

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

display "Downlinking ROWBINned Data"
tcblock mbipldin 0x152 0x13e
wait time 60

display "Downlinking LRBINned Data"
tcblock mbipldin 0x152 0x15A
wait time 30

display "Downlinking LRBIN List"
tcblock mbipldin 0x152 0x183
wait time 15

close decom160

display "Finished procedure dorblr"
return
