# File: ldvwbin.src
#
# Loads Vector Weighted Bin List for Medium-l.
#
program "@(#) MODULE: ldvwbin.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/ldvwbin_v01.src"
descr "  ldvwbin - Loads IP tables and lists"

display "Executing procedure ldvwbin."


# The X and Y vector weights are taken from "Simulation of Vector-Weighted
# Binning for the Medium-l Program" by Kosovichev, Duvall and Scherrer,
# SOI Tecnical Notes 96-130, for 'a = 4' (Gaussian half width parameter). 
# The weights have been scaled by a factor of 0.566484 to make the sum of 
# weights equal 2^17.
#
# Load X-vector for use by Medium-l
tcblock mbiptbl 0x11  0x0032 0x00a6 0x01df 0x04c7 0x0ac4 0x1569 0x2594 \
                      0x3a34 0x4f8e 0x5ff6 0x6626 0x5ff6 0x4f8e 0x3a34 \
                      0x2594 0x1569 0x0ac4 0x04c7 0x01df 0x00a6 0x0032
#
# 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  0x0032 0x00a6 0x01df 0x04c7 0x0ac4 0x1569 0x2594 \
                      0x3a34 0x4f8e 0x5ff6 0x6626 0x5ff6 0x4f8e 0x3a34 \
                      0x2594 0x1569 0x0ac4 0x04c7 0x01df 0x00a6 0x0032

# tcblock mbiptbl 0x12 1920 3584 6016 9472 13824 18816 23936 28416 31488 \
#            32640 31488 28416 23936 18816 13824 9472 6016 3584 1920

# Load the Medium-l List; Radius = 432 (3456)
tcblock mbiptbl 6 0x0000 0x7004 0 3456 5 0x000d \
                360 8 0 0x5811 14 6 8000 0x0300 0x6005


wait time 15

display "Finished procedure ldvwbin: %s" !TIME

return

