# File: iptbload.src
#
# Loads IP tables.
# Created by M.Levay 17-dec-93 from ipload.
#

program "@(#) MODULE: iptbload.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/iptbload.src"
descr "  iptbload - Loads IP WCS, tables and dynamics program"

display "Executing procedure iptbload."

#  Load reciprocal table
tcblock mbiptbl 0 0 0x800a 0x0
wait time 10 

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

#  Load velocity look-up table
tcblock mbiptbl 2 0x8000 0x800a 0x0
wait time 12 


# Load geometry for crop/limb figure
tcblock mbiptbl 0x10 0x0fa0 0x0ed8 0x1000 0x1000 0x0400
wait time 10

# Load crop lookup table
tcblock mbiptbl 3 0 0x7000 0
wait time 15

# Load limb figure lookup table
tcblock mbiptbl 4 0x1000 0x7000 0 0xfa0 0xf70 0xb0 0x18 0 0x6800 0 0 0x200 0xfa 0xf70 
wait time 15

# Load 4x4 bin list 
tcblock mbdpml 0x2000 0 0x01D0 0x0400 0 0x0004 0 0x0000 0 0
tcblock mbdpml 0x2000 0x0010 0x0000 0 0 0 0 0 0 0
tcblock mbdpml 0x2000 0x0020 0x0000 0x0000 0x0004 0x0800 0x000e 0x0001 
tcblock mbdpml 0x2000 0x002C 0x2000 0x0000 0x0004 0x0800 0x000e 0x0001
tcblock mbdpml 0x2000 0x0038 0x4000 0x0000 0x0004 0x0800 0x000e 0x0001
tcblock mbdpml 0x2000 0x0044 0x6000 0x0000 0x0004 0x0800 0x000e 0x0001
tcblock mbdpml 0x2000 0x0050 0xFFFF 0xFFFF 0x0004 0x0800 0x000e 0x0001

wait time 15
tcblock mbdpmd 0x2000 0x0000 0x005b

tcblock mbiptbl 9 0xfe00 0x700f 0 0 0x2000 0x01d0 0x0190 0x0190 0x00e0 \
                   0 0 0x1800 0 0 0x1000 0x4000 0

# Load X-Vector
tcblock MBIPTBL 0x0011 0x0780 0x0e00 0x1780 0x2500 0x3600 0x4980 0x5D80 \ 
         0x6F00 0x7b00 0x7F80 0x7B00 0x6F00 0x5d80 0x4980 0x3600 \ 
         0x2500 0x1780 0x0E00 0x0780
wait time 15

# Load Y-Vector 
tcblock MBIPTBL 0x0012 0x0780 0x0e00 0x1780 0x2500 0x3600 0x4980 0x5D80 \ 
         0x6F00 0x7b00 0x7F80 0x7B00 0x6F00 0x5d80 0x4980 0x3600 \ 
         0x2500 0x1780 0x0E00 0x0780
wait time 15

#Load Med-l List 
tcblock MBIPTBL 0x0006 0x7000 0x7000 0x0000 0x0f00 0x0006 0x0008 \ 
         0x00C0 0x0004 0x0000 0x3001 0x0000 0x0000 0x1000 0x1000 0x0000
wait time 15

# LOAD A LINE DEPTH LIST

tcblock MBIPTBL 0x0007 0x1000 0x7001 0x0000 0x0f00 0x0008 0x0008 0x0008 0x800A \ 
         0x0001 0x0000 0x00D0 0x0018 0xC000 0x3001 0x0000 0x0000 0x01C2 \ 
         0x3000 0x0000
wait time 15

return

