# File: magdpc.src

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

##########################################################
# Changes 
#   1. 96/01/10 - Line depth shift count changed 
#   2. 96/01/10 - RWBIN shift count changed
#   3. 96/01/17 - LOI-c List changed (shift count)
#   4. 96/01/19 - Size of Circular Buffer changed for both
#                 LOI-c and LOI-v. 
#   5. 96/01/10 - New Limb Figure
#   6. 96/01/23 - Corrected High Rate Magnetogram DPC's
#   7  96/03/26 - Changed the sign of magnetograms
##########################################################

display "Executing procedure magdpc"

# Magnetogram-Single
  tcblock mbipldin 0x01b2 1598 2 0x4842 0x0FC0   ##   7
# tcblock mbipldin 0x01b2 1598 2 0x4840 0x0FC0   ##   6
# tcblock mbipldin 0x01b2 1598 2 0x4800 0x0FC0   ##   0
#
# Magnetogram-Summed
  tcblock mbipldin 0x01b2 1346 2 0x4943 0x2000   ##   7
# tcblock mbipldin 0x01b2 1346 2 0x4940 0x0FC0   ##   6
# tcblock mbipldin 0x01b2 1346 2 0x4900 0x0FC0   ##   0
#
# Magnetogram-5K
  tcblock mbipldin 0x01b2 1650 2 0x0942 0x0FC0   ##   7
# tcblock mbipldin 0x01b2 1650 2 0x0940 0x0FC0   ##   0
#

display "Finished procedure magdpc: %s" !TIME

return
