# File: mditap.src
# 
# Configure optics, check mechanisms, take 4 pictures.
#
#     !GI0 = exposure time in shutter ticks (0.25 msec/tick)
#     !GI5 = IP program (3,4,5)
#     !GI7 = Sequence ID
#     !GI8 = shutter path; 1 - 1x ; 3 - 3x
#     !GI9 = wait time after exposure command in seconds
#

program "@(#) MODULE: mditap.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/mditap.src"
descr "  mditap - Take four pictures on prime h/r tlm"

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

perform lobsmode

# Set IP to 4x4 pack mode
#tcblock mbiplbic 5 5
set !GI5 = 4
perform liplbic
#wait time 10

set !GI0 = 4000
set !GI7 = 0xc01a
set !GI8 = 1
set !GI9 = 10

display ": taking picture " to 30
for !LI0 = 0 to 4
  display "%3d" !LI0 to 47
  perform lcmtap
end for

display "Finished procedure mditap"
writen !GS9 "Finished procedure mditap : %s" !TIME
writen !GS9 " "
