# File: fl_mchson.src
#
# This procedure powers up the MDI mechanisms
#

program "@(#) MODULE: fl_mchson.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/fl_mchson.src"
descr "  fl_mchson - Power up MDI mechanisms"

display "Executing procedure fl_mchson."

# Switch on shutter
tcblock mbshrs
tcblock mbpwshon
tcblock mbshrs
wait time 10

# Switch on MTM1
tcblock mbm1rs
tcblock mbpwm1on
tcblock mbm1rs
wait time 10

# Switch on MTM2
tcblock mbm2rs
tcblock mbpwm2on
tcblock mbm2rs
wait time 10

# Switch on PAW
tcblock mbpars
tcblock mbpwpaon
tcblock mbpars
wait time 10

# Switch on CAL1
tcblock mbc1rs
tcblock mbpwc1on
tcblock mbc1rs
wait time 10

# Switch on CAL2
tcblock mbc2rs
tcblock mbpwc2on
tcblock mbc2rs
wait time 10

if getdig(mkpwsh) <> "          ON" then
  display "Shutter mechanism is NOT on"
  halt
end if

if getdig(mkpwm1) <> "          ON" then
  display "MTM1 mechanism is NOT on"
  halt
end if

if getdig(mkpwm2) <> "          ON" then
  display "MTM2 mechanism is NOT on"
  halt
end if

if getdig(mkpwpa) <> "          ON" then
  display "PAW mechanism is NOT on"
  halt
end if

if getdig(mkpwc1) <> "          ON" then
  display "CAL1 mechanism is NOT on"
  halt
end if

if getdig(mkpwc2) <> "          ON" then
  display "CAL2 mechanism is NOT on"
  halt
end if

display "Finished procedure fl_mchson : %s" !TIME
return
