# File: loidpc.src

program "@(#) MODULE: mkobstbl.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/loidpc_v01.src"
descr "  loidpc - Loads DPC registers "

display "Executing procedure loidpc"


# LOI-v
  tcblock mbipldin 0x01b2  426 2 0x0300 0x7003
#
# LOI-c (Continuum, LineDepth)
  tcblock mbipldin 0x01b2  440 2 0x0704 0x7004   ##   8

display "Finished procedure loidpc: %s" !TIME

return
