# File: doalign.src
#
# Executes procedures to test IP XALIGN and YALIGN instructions. 
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/doalign.src"
descr "doalign - test align instruction."

display "Executing procedure  doalign."

# 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 align

open decom160

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

display "Downlinking XALIGNed Data"
tcblock mbipldin 0x152 0x165
wait time 35

display "Downlinking YALIGNed Data"
tcblock mbipldin 0x152 0x181
wait time 35

close decom160

display "Finished procedure doalign"
return
