# HISTORY:
#       Written 4-Jun-96 by M.Morrison 
#		(using runcam_ice.src as the starting point)
#
program "@(#) MODULE: loidmp.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/runcam_dmp_pg12.src"
descr "runcam_dmp_pg12 - Runs campaign to dump page 12 over 2 min"

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

tcblock mbipldin  0x0140 0x1422 2   ## shift forward in the list 
				    ## to start dumping page 12

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

wait time 90			    ## assume ~30sec response time
				    ## so cam running for total of
				    ## at least 120 sec (2 passes)

tcblock mbsqreg 66   0              ## set campaign flag off

wait until getint(mksqrg4) = 0

