# HISTORY:
#       Written 30-May-96 by M.Morrison 
#		(using loidmp.src as the starting point)
#
program "@(#) MODULE: loidmp.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/runcam_ice.src"
descr "runcam_ice - Runs campaign to take ice cal images"

tcblock mbsqreg 67 110              ## set campaign address
wait until getint(mksqrg16) = 110   ## R22

tcblock mbsqreg 66   1              ## set campaign flag on
wait until getint(mksqrg4) = 1

wait time 150			    ## assume ~30sec response time
				    ## so cam running for total of
				    ## at least 180 sec (3 passes)

tcblock mbsqreg 66   0              ## set campaign flag off

wait until getint(mksqrg4) = 0

