# File: loidmp.src
#
# Execute dyn_cbuf campaign to downlink LOI circular buffers
# in the identicle manner as the corresponding TSTOL proc
#
# HISTORY:
#       15-May-96 SDW - Initial version
#
program "@(#) MODULE: loidmp.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/loidmp.src"
descr "  loidmp - Runs campaign to dump LOI circular buffer"

display "Executing procedure: loidmp"

tcblock mbsqreg 67 698              ## set campaign address
wait until getint(mksqrg16) = 698   ## 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

display "Finished procedure loidmp"
