# File: ldstr.src
#
# Loads procedures to construct and downlink observables(velocity, 
# line depth and continuum).
# 
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/ldstr.src"
descr "ldstr - load structure program."

display "Executing procedure  ldstr."

tcblock mbdpmod 1              ## Set 5k mode

# Load Structure Frame Lists
perf dyn60obs_c
perf dyn30obs_a
perf mag30obs_b

tcblock mbdpml  0x1000 0x3C5E 0x0707   ## Patch HDR15 IP Q Ptr
tcblock mbdpml  0x1000 0x3C54 0x0005   ## Patch HDR15 IP Q Ptr

# Load All IP Vectors
perf init_ipvec                ## Load all IP vectors
perf catchall

perf scitbls

perf loi

perf mkstr

perf mag30
 
perf maghrdl

perf hdr
perf callback

perf ldcmpg

perf callback		## MDM 16-Oct-95

display "Finished procedure ldstr"
return
