# File: ldimages.src
#
# Loads WCS versions of built in codes 3 (1024^2 extract), 4 (256^2 extract)
# and 5 (4x4 sum).
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/sim/src/ldimages.src"
descr "ldimages - Load IP bic replacement programs"

display "Executing procedure  ldimages."

perf images_v04
perf lrbin4x4_v03

# Set 1st IP vector entry to point to VLCTY procedure
tcblock  mbipldin 0x154
wait time 5
 
tcblock mbipcmd 0x91 0 0x1f00
wait time 3

tcblock mbipldin 0x136

tcblock mbipldin 0x140 32   5  ## Default program is 4x4 summing 
tcblock mbipldin 0x140 33   0  ## Set downlink from using prime TLM

display "Finished procedure ldimages"
return
