# File: strdpc_cal.src
# HISTORY:
#	4-Apr-96 (MDM) - UPdated to reflect the latest formatting dpc values
#			 and changed the observerable version from "3f" to "3e"

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

display "strdpc_cal - Executing procedure strdpc_cal"

# Velocity-60
  tcblock mbipldin 0x01b2 1516 2 0x423e 0x0FC0
# 
# Continuum-60
  tcblock mbipldin 0x01b2 1532 2 0x463e 0x0FC0
# 
#
# Medium-l
  tcblock mbipldin 0x01b2  370 2 0x033e 0x6005
#
# Mag Proxy
  tcblock mbipldin 0x01b2  178 2 0x05be 0x5003
#
# Flux Budget
  tcblock mbipldin 0x01b2  242 2 0x07be 0x5002
#
# Limb Figure
  tcblock mbipldin 0x01b2  306 2 0x16be 0xef30

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

return
