# HISTORY:
#       Written 10-JUL-96 by M.Morrison (made wait time 120 sec
#			because when changing the address, the timing is
#			such that we were only getting a single data product)
#
program "@(#) MODULE: loidmp.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/runcam_dmp_pg16_v01.src"
descr "runcam_dmp_pg16 - Runs campaign to dump page 16 over 2 min"

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

tcblock mbipldin  0x0140 0x1422 6   ## shift forward in the list 
				    ## to start dumping page 16

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

wait time 120			    

tcblock mbsqreg 66   0              ## set campaign flag off

wait until getint(mksqrg4) = 0

