# File: lmchsprn.src
#
# This procedure prints the command, position and limit status of the
# internal mechanisms: MTM1, MTM2, CAL1, CAL2, and PAW.

program "@(#) MODULE: lmchsprn.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/lmchsprn.src"
descr "lmchsprn - Prints internal mechanisms positions to log file"

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) 
write  !GS9 "limits:   "
write  !GS9 "    %3s" getmon(mkm1pos) 
write  !GS9 "    %3s" getmon(mkm2pos) 
write  !GS9 "    %3s" getmon(mkpapos) 
write  !GS9 "    %3s" getmon(mkc1pos) 
writen !GS9 "    %3s" getmon(mkc2pos) 






