# File: newobsmd.src	13 Sep 95	R. Bush
#
# This procedure puts MDI into nominal observing mode in vacuum.
#

program "@(#) MODULE: newobsmd.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/newobsmd.src"
descr "newobsmd - Configure mechanisms for observing mode in vacuum"

display "Going to nominal OBSERVING mode & continuum in vacuum" 
#writen !GS9 "Going to nominal OBSERVING mode & continuum in vacuum" 

tcblock mbdpconf 0x0100 0x0100 0x0100 0x0100 0x0100
tcblock mbdpconf     10     47    125    127     89
setstr !GS0   = "    10     47    125    127     89"

wait until getint(mkm1pos) >=  9
wait until getint(mkm1pos) <= 10
wait until getint(mkm2pos) >= 46
wait until getint(mkm2pos) <= 47
wait until getint(mkpapos) >= 124
wait until getint(mkpapos) <= 125
wait until getint(mkc1pos) >= 126
wait until getint(mkc1pos) <= 127
wait until getint(mkc2pos) >= 88
wait until getint(mkc2pos) <= 89

#writen !GS9 "             MTM1   MTM2    PAW   CAL1   CAL2"
#write  !GS9 "command:  "
#writen !GS9 " %s" !GS0
#write  !GS9 "actual:   "
#write  !GS9 "    %3d" getint(mkm1pos) 
#write  !GS9 "    %3d" getint(mkm2pos) 
#write  !GS9 "    %3d" getint(mkpapos) 
#write  !GS9 "    %3d" getint(mkc1pos) 
#writen !GS9 "    %3d" getint(mkc2pos) 
#writen !GS9 " "
