# File: dosclsum.src
#
# Executes procedure to scale and sum two images and downlink the results.
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/dosclsum.src"
descr "dosclsum - test scale summing instructions"

display "Executing procedure  dosclsum."

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

perform   sclsum_v01

open decom160

tcblock mbcmhdr1 0x4242 0x4242 0 1 0

display "Take a picture "
tcblock mbcmtp1r 0xffff 0xff15 10000
wait time 110

display "downlink SCLSUMMed image"
tcblock mbipldin 0x152 0x140  
wait time 105

close decom160

display "Finished procedure dosclsum"
return
