# File: scitbls_v03.src
#
# Loads IP tables and lists.
#
# Created M Levay 04.09.20--includes crop,limb, and other lists
#                           and dumps for verification 
# Heritage .. Iptbload  93.12.17 M. Levay
#          .. with mods 94.09.01 R Rehse 
#          .. Added Crop List load and Dump 94.09.18 M Levay
#          .. Added Limb Figure List load and Dump 94.09.20 M Levay
#          .. Added Vector and Medium-l List load and Dump 94.09.21 M Levay
#          .. Changed Vector to a "realistic" one supplied by TDT
#             And Added Rectangular Bin Lists 94.09.22 M Levay
#	   .. Fixed a couple of minor bugd    94.09.29 M Levay
# Assumptions:
#	IP Flight Code version xx.xx or higher has been loaded
#	Memory 16 has been initialized for 2 byte edac
#	Memory 14 has been initialized for 8 byte edac
#   These assumptions are realized by executing ipstrtf
#
#   V5  2 Nov 95  DPM
#       Changed Radius parameter for CROP and LF.
#   V6  7 Nov 95  DPM
#       Corrected Max and Min radii.
#   V7 14 Nov 95 DPM
#       "Proper" DPC's for Limb Figure, Med-l, Mag-Proxy and Flux budget 
#       data products.
#   V8  1 Dec 95 DPM
#       Changes Source Addresses of Golf Proxy, Flux Budget and Limb Figure
#   V9  8 Dec 95 DPM,MDM
#	changed DPCs to be flight-like
#	Removed lrbin perf commands (put them in ldstr)
#---------------------------------------------------------------------

program "@(#) MODULE: mkobstbl.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/srcscitbls_v03.src"
descr "  mkobstbl - Loads IP tables and lists"

display "Executing procedure mkobstbl."

# Initialize Table and List Pages
# tcblock mbipldin 0x116 0x8000 128
# tcblock mbipldin 0x118 0x7000 136

#  Load reciprocal table
tcblock mbiptbl 0 0x8000 0x8009 0
wait time 10 

#  Load sqr root compr table
tcblock mbiptbl 1 0x0000 0x8009 0
wait time 10 

#  Load sqr root compr table (for Line-depth)
tcblock mbiptbl 1 0x0000 0x8008 0 1 16384
wait time 10 

#  Load velocity look-up table
tcblock mbiptbl 2 0x0000 0x800B 0
wait time 12 

# Load the geometry
tcblock mbiptbl 0x10 4032 3968 4096 4096 1024
wait time 10

# Load the Full Disk Crop List
tcblock mbiptbl 3 0 0x7000 0
wait time 15

# Load the Limb Figure List
tcblock mbiptbl 4 0x1000 0x7000 0 4056 4016 \
                296 12 0x8000 0x700B 0 0 1490 0x1180 0xAFB0
wait time 15

# Load X-vector for use by Medium-l
tcblock mbiptbl 0x11 1920 3584 6016 9472 13824 18816 23936 28416 31488 \
            32640 31488 28416 23936 18816 13824 9472 6016 3584 1920

wait time 2
# Load Y-vector for use by Medium-l
tcblock mbiptbl 0x12 1920 3584 6016 9472 13824 18816 23936 28416 31488 \
            32640 31488 28416 23936 18816 13824 9472 6016 3584 1920

wait time 5
# Load the Medium-l List
tcblock mbiptbl 6 0x7000 0x7000 0 3264 6 0x0008 \
                360 4 0 0x3811 14 5 3584 0x0300 0x6001
wait time 15

# Load a Line Depth List for Magnetic Proxy
tcblock mbiptbl 7 0x1000 0x7001 0 4032 8 8 8 0x800F 1 0\
                168 12 0x0000 0x700B 14 5 1024 0x0580 0x5001
wait time 15

# Load a Line Depth List for Flux Budget
tcblock mbiptbl 7 0x1000 0x7002 0 4032 8 8 8 0x800A 1 0\
                232 12 0x4000 0x700B 14 5 1024 0x0780 0x5001
wait time 15

display "Finished procedure mkobstbl: %s" !TIME

return

