# 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 "

display "Executing procedure strdpc"

# Velocity-60
tcblock mbipldin 0x01b2 1512 2 0x4200 0x0FC0
# 
# Velocity-30
tcblock mbipldin 0x01b2 1520 2 0x4240 0x0FC0
# 
# Continuum-60
tcblock mbipldin 0x01b2 1528 2 0x4600 0x0FC0
# 
# Continuum-30
tcblock mbipldin 0x01b2 1536 2 0x4240 0x0FC0
# 
# Magnetogram-1
# Magnetogram-S
# CB-LOIv
tcblock mbipldin 0x01b2 1628 2 0x43C0 0x9001
# 
# CB-LOIc
tcblock mbipldin 0x01b2 1634 2 0x47C1 0x9001
# 
#
# Medium-l
tcblock mbipldin 0x01b2  370 2 0x0300 0x6001
#
# Mag Proxy
tcblock mbipldin 0x01b2  178 2 0x0581 0x5001
#
# Flux Budget
tcblock mbipldin 0x01b2  242 2 0x0781 0x5001
#
# Limb Figure
# LOI-v
tcblock mbipldin 0x01b2  426 2 0x0300 0x7001
#
# LOI-c (Continuum, LineDepth)
tcblock mbipldin 0x01b2 440 2 0x0701 0x7001
#
# Register Dump
# Magnetogram-5K
#
# Error Dump

display "Finished procedure strdpc: %s" !TIME

return
