# File: strdpc.src

program "@(#) MODULE: mkobstbl.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/strdpc.src"
descr "  strdpc - 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
#   8. 96/04/05 - Structure Reload
##########################################################

display "Executing procedure strdpc"

# Velocity-60
  tcblock mbipldin 0x01b2 1516 2 0x4200 0x0FC0   ##   0
# 
# Velocity-30
  tcblock mbipldin 0x01b2 1524 2 0x4240 0x0FC0   ##   0
# 
#
# Continuum-60
  tcblock mbipldin 0x01b2 1532 2 0x4604 0x0FC0   ##   8 
# tcblock mbipldin 0x01b2 1532 2 0x4602 0x0FC0   ##   1 
# tcblock mbipldin 0x01b2 1532 2 0x4601 0x0FC0   ##   1 
# tcblock mbipldin 0x01b2 1532 2 0x4600 0x0FC0
# 
# Continuum-30
  tcblock mbipldin 0x01b2 1540 2 0x4644 0x0FC0   ##   8
# tcblock mbipldin 0x01b2 1540 2 0x4642 0x0FC0   ##   1
# tcblock mbipldin 0x01b2 1540 2 0x4641 0x0FC0   ##   1
# tcblock mbipldin 0x01b2 1540 2 0x4640 0x0FC0
# 
#
# LineDepth-60
  tcblock mbipldin 0x01b2 1669 2 0x4C00 0x0FC0   ##   8 
#
# LineDepth-30
  tcblock mbipldin 0x01b2 1675 2 0x4C40 0x0FC0   ##   8 
#
#
# CB-LOIv (LOI-v, VEL) 
  tcblock mbipldin 0x01b2 1632 2 0x43C1 0x9001   ##   4
# tcblock mbipldin 0x01b2 1632 2 0x43C0 0x9001
# 
# CB-LOIc
  tcblock mbipldin 0x01b2 1638 2 0x47C4 0x9002   ##   8
# tcblock mbipldin 0x01b2 1638 2 0x47C2 0x9002   ##   4
# tcblock mbipldin 0x01b2 1638 2 0x47C1 0x9002   ##   3
# tcblock mbipldin 0x01b2 1638 2 0x47C1 0x9001   ##   1 
# tcblock mbipldin 0x01b2 1638 2 0x47C0 0x9001   ## 
# 
#
# 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-Stored
  tcblock mbipldin 0x01b2 1346 2 0x4943 0x0FC0   ##   7
  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
#
#
# Medium-l
  tcblock mbipldin 0x01b2  370 2 0x0300 0x6005   ##   8
# tcblock mbipldin 0x01b2  370 2 0x0300 0x6001
#
# Mag Proxy
  tcblock mbipldin 0x01b2  178 2 0x0584 0x5003   ##   8
# tcblock mbipldin 0x01b2  178 2 0x0581 0x5002   ##   2
# tcblock mbipldin 0x01b2  178 2 0x0581 0x5001
#
# Flux Budget
  tcblock mbipldin 0x01b2  242 2 0x0784 0x5002   ##   8
# tcblock mbipldin 0x01b2  242 2 0x0781 0x5002   ##   2
# tcblock mbipldin 0x01b2  242 2 0x0781 0x5001
#
# Limb Figure
  tcblock mbipldin 0x01b2  306 2 0x1684 0xEF30   ##   8
# tcblock mbipldin 0x01b2  306 2 0x1181 0xCF50   ##   5
# tcblock mbipldin 0x01b2  306 2 0x1180 0xAFB0   ##   0

# LOI-v
  tcblock mbipldin 0x01b2  426 2 0x0300 0x7005   ##   8
# tcblock mbipldin 0x01b2  426 2 0x0300 0x7003
#
# LOI-c (Continuum, LineDepth)
  tcblock mbipldin 0x01b2  440 2 0x0704 0x7004   ##   8
# tcblock mbipldin 0x01b2  440 2 0x0701 0x7004   ##   3
# tcblock mbipldin 0x01b2  440 2 0x0701 0x7004   ##   3
# tcblock mbipldin 0x01b2  440 2 0x0701 0x7001
#
# Register Dump
  tcblock mbipldin 0x01b2 1156 2 0x2000 0x058C   ##   0

# Error Dump
  tcblock mbipldin 0x01b2  470 2 0x2E00 0x0000   ##   0

display "Finished procedure strdpc: %s" !TIME

return
