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

program "@(#) MODULE: iptload.src RELEASE: 2.3 CREATED: 04/18/94 19:15:30"
source "/mdisw/cfl/eof/src/iptload.src"
descr "iptload - Loads IP tables"

display "Executing procedure iptload."
write  !GS9 "Executing procedure iptload :"
write  !GS9 " %s" !DATE
writen !GS9 " %s" !TIME
writen !GS9 " "

if getint(mkdpmd) <> 0 then
  display "DEP not in engineering mode, cont to send command"
  tcblock mbdpmod 1
end if 

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

#  Load square root compression table
tcblock mbiptbl 1 0 0x8009 0
wait time 10 

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

# Load the geometry
tcblock mbiptbl 0x10 4000 3800 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 4000 3952 \
                176 24 0 0x6800 0 0 0x200 0xFA 0xF70
wait time 15

# Load 4x4 bin list to DEP memory

tcblock mbdpml 0x2000 0x0000 0x01D0 0x0400 0x0000 0x0004 0x0000 0x0000 \
               0x0000 0x0000
tcblock mbdpml 0x2000 0x0010 0x0000 0x0000 0x0000 0x0000 0x0000 0x0000 \
               0x0000 0x0000
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

# Dump memory and have MDI operator verify contents in sci5k

tcblock mbdpmd 0x2000 0x0000 0x005b

# Load 4x4 bin list to IP memory

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

# 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 3840 6 0x0008 \
                192 4 0 0x3001 0 0 0x1000 0x1000 0
wait time 15

# Load a Line Depth List
tcblock mbiptbl 7 0x1000 0x7001 0 3840 8 8 8 0x800A 1 0\
                208 24 0xC000 0x3001 0 0 450 0x3000 0
wait time 15

writen !GS9 "Finished procedure iptload: %s" !TIME
writen !GS9 " "

return

