# File: ltlm2old.src.src
#
# This procedure modifies the Image Processor writeable control
# store to use the high rate telemetry board #2 instead of high
# rate telemetry board #1.
#

program "@(#) MODULE: ltlm2old.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/ltlm2old.src"
descr " ltlm2old - Configure IP WCS for tlm2"

display "Executing procedure ltlm2old.src."
write  !GS9 "Executing procedure ltlm2old.src :"
write  !GS9 " %s" !DATE
writen !GS9 " %s" !TIME
writen !GS9 " "

# Patch to use redundant telemetry
writen !GS9 "IP patched to use redundant telemtry"

tcblock mbdpml 0x2000 2 0x200 0x60e4
tcblock mbiplwcs 1 0x2000 2 0 0 0 0 0 0 0 0 0 0 0 4

tcblock mbiprsal

# set initial camera header

#tcblock mbcmhdr1 0x4040 0x4040 0 1 0
binary 0x2a87 0x0005 0x4040 0x4040 0x0000 0x0001 0x0000

writen !GS9 "Finished procedure ltlm2old.src : %s" !TIME
writen !GS9 " "
