# File: strdpc_cal.src

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

display "Executing procedure strdpc_cal"

# Velocity-60
  tcblock mbipldin 0x01b2 1516 2 0x423f 0x0FC0
# 
# Continuum-60
  tcblock mbipldin 0x01b2 1532 2 0x463f 0x0FC0
# 
#
# Medium-l
  tcblock mbipldin 0x01b2  370 2 0x033f 0x6001
#
# Mag Proxy
  tcblock mbipldin 0x01b2  178 2 0x05bf 0x5002
#
# Flux Budget
  tcblock mbipldin 0x01b2  242 2 0x07bf 0x5002
#
# Limb Figure
  tcblock mbipldin 0x01b2  306 2 0x11bf 0xCF50

# LOI-v
  tcblock mbipldin 0x01b2  426 2 0x033f 0x7003
#
# LOI-c (Continuum, LineDepth)
  tcblock mbipldin 0x01b2  440 2 0x073f 0x7004
#
display "Finished procedure strdpc_cal: %s" !TIME

return
