# File: liptlm2.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: liptlm2.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/liptlm2.src"
descr " liptlm2 - Configure IP WCS for tlm2"

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

# Register set to use redundant telemetry
writen !GS9 "IP register 33 set to use redundant telemtry"

tcblock mbipldin 0x140 0x21 1

writen !GS9 "Finished procedure liptlm2 : %s" !TIME
writen !GS9 " "


