# File: dovldc.src
#
# Executes procedures to construct and downlink observables(velocity, 
# line depth and continuum).
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/dovldc.src"
descr "dovldc - execute macros from genvldc."

display "Executing procedure  dovldc."

# Load Tables
perf ldobstbl

# Set 1st IP vector entry to point to EXTRACT procedure
tcblock  mbipldin 0x154
tcblock  mbipcmd  0x91  0 256

# Load the queue
perf genvldc

# Load DEP sequence OBSGEN
perf obsgen

open d

# Run DEP sequence OBSGEN (this starts the downlink of the raw image)
tcblock mbsqstr 0
wait time 230

display "Downlinking Reciprocal Table "
tcb mbipldin 0x152 0x11C
wait time 10

display "Downlinking Velocity Table"
tcb mbipldin 0x152 0x138
wait time 10

display "Downlinking Sa"
tcb mbipldin 0x152 0x154
wait time 110

display "Downlinking Sc"
tcb mbipldin 0x152 0x17B
wait time 110

display "Downlinking Sd"
tcb mbipldin 0x152 0x19D
wait time 110

display "Downlinking Si"
tcb mbipldin 0x152 0x1BF
wait time 110

display "Downlinking Velocity"
tcb mbipldin 0x152 0x1E1
wait time 110

display "Downlinking Line Depth"
tcb mbipldin 0x152 0x21D
wait time 110

display "Downlinking Continuum"
tcb mbipldin 0x152 0x24D
wait time 110

close d

display "Finished procedure dovldc"
return
