# File: ld_dmp_limb.src
#
# Loads and dumps Limb Figure List 
#
#---------------------------------------------------------------------

program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/ld_dmp_limb.src"
descr "  ld_dmp_limb - Loads and dumps limb figure list"

display "Executing procedure ld_dmp_limb"

open d

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

# Limb inner radius = 479.0 (3832)
# Limb outer radius = 486.0 (3888)
# Load the Limb Figure List
    tcblock mbiptbl 4 0x1000 0x7000 0 3888 3832 \
                296 12 0x8000 0x700B 0 0 1490 0x1685 0xeef8
    wait time 10
# Dump LimbFigure List
    tcb mbipldin 0x1b2 3576 6 0x6300 0xeef8  0x1000  0x7000 0x2000 0 
    tcb mbipldin 0x152 0x1e38
    wait time 10

# Limb inner radius = 479.5 (3836)
# Limb outer radius = 486.5 (3892)
# Load the Limb Figure List
    tcblock mbiptbl 4 0x1000 0x7000 0 3892 3836 \
                296 12 0x8000 0x700B 0 0 1490 0x1685 0xeefc
    wait time 10
# Dump LimbFigure List
    tcb mbipldin 0x1b2 3576 6 0x6300 0xeefc  0x1000  0x7000 0x2000 0 
    tcb mbipldin 0x152 0x1e38
    wait time 10

# Limb inner radius = 480.0 (3840)
# Limb outer radius = 487.0 (3896)
# Load the Limb Figure List
    tcblock mbiptbl 4 0x1000 0x7000 0 3896 3840 \
                296 12 0x8000 0x700B 0 0 1490 0x1685 0xef00
    wait time 10
# Dump LimbFigure List
    tcb mbipldin 0x1b2 3576 6 0x6300 0xef00  0x1000  0x7000 0x2000 0 
    tcb mbipldin 0x152 0x1e38
    wait time 10

# Limb inner radius = 480.5 (3844)
# Limb outer radius = 487.5 (3900)
# Load the Limb Figure List
    tcblock mbiptbl 4 0x1000 0x7000 0 3900 3844 \
                296 12 0x8000 0x700B 0 0 1490 0x1685 0xef04
    wait time 10
# Dump LimbFigure List
    tcb mbipldin 0x1b2 3576 6 0x6300 0xef04  0x1000  0x7000 0x2000 0 
    tcb mbipldin 0x152 0x1e38
    wait time 10

# Limb inner radius = 481.0 (3848)
# Limb outer radius = 488.0 (3904)
# Load the Limb Figure List
    tcblock mbiptbl 4 0x1000 0x7000 0 3904 3848 \
                296 12 0x8000 0x700B 0 0 1490 0x1685 0xef08
    wait time 10
# Dump LimbFigure List
    tcb mbipldin 0x1b2 3576 6 0x6300 0xef08  0x1000  0x7000 0x2000 0 
    tcb mbipldin 0x152 0x1e38
    wait time 10

# Limb inner radius = 481.5 (3852)
# Limb outer radius = 488.5 (3908)
# Load the Limb Figure List
    tcblock mbiptbl 4 0x1000 0x7000 0 3908 3852 \
                296 12 0x8000 0x700B 0 0 1490 0x1685 0xef0c
    wait time 10
# Dump LimbFigure List
    tcb mbipldin 0x1b2 3576 6 0x6300 0xef0c  0x1000  0x7000 0x2000 0 
    tcb mbipldin 0x152 0x1e38
    wait time 10

# Limb inner radius = 482.0 (3856)
# Limb outer radius = 489.0 (3912)
# Load the Limb Figure List
    tcblock mbiptbl 4 0x1000 0x7000 0 3912 3856 \
                296 12 0x8000 0x700B 0 0 1490 0x1685 0xef10
    wait time 10
# Dump LimbFigure List
    tcb mbipldin 0x1b2 3576 6 0x6300 0xef10  0x1000  0x7000 0x2000 0 
    tcb mbipldin 0x152 0x1e38
    wait time 10

# Limb inner radius = 482.5 (3860)
# Limb outer radius = 489.5 (3916)
# Load the Limb Figure List
    tcblock mbiptbl 4 0x1000 0x7000 0 3916 3860 \
                296 12 0x8000 0x700B 0 0 1490 0x1685 0xef14
    wait time 10
# Dump LimbFigure List
    tcb mbipldin 0x1b2 3576 6 0x6300 0xef14  0x1000  0x7000 0x2000 0 
    tcb mbipldin 0x152 0x1e38
    wait time 10

# Limb inner radius = 483.0 (3864)
# Limb outer radius = 490.0 (3920)
# Load the Limb Figure List
    tcblock mbiptbl 4 0x1000 0x7000 0 3920 3864 \
                296 12 0x8000 0x700B 0 0 1490 0x1685 0xef18
    wait time 10
# Dump LimbFigure List
    tcb mbipldin 0x1b2 3576 6 0x6300 0xef18  0x1000  0x7000 0x2000 0 
    tcb mbipldin 0x152 0x1e38
    wait time 10

close d

display "Finished procedure ld_dmp_limb: %s" !TIME

return
