# File: dmptbls.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/ip/dmptbls.ips"
descr  "dmptbls - loads macros to dump lists and tables"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#; DMPTBLS
#;
#; IP table dump routines
#;
#
#; downlink SQCOMP table, 16383 bytes
#QPROG_SQCOMPDMP::
#    SETREGS    R3576  6  0xffff 0xff70  16:0x90000  0x4000L
tcblock mbipcmd 0x0091 0x1E57   0x01B2 0x0DF8 0x0006 0xFFFF \
                                0xFF70 0x0000 0x8009 0x4000 \
                                0x0000 
#    CALLQUE    &QSR_DMPMEM
tcblock mbipcmd 0x0091 0x1E60   0x01F8 0x1E3B 
#    END
tcblock mbipcmd 0x0091 0x1E62   0x01FC 
#
#; downlink RECIPROCAL table, 32767 bytes
#QPROG_RECIPDMP::
#    SETREGS    R3576  6  0xffff 0xff71  16:0xA0000  0x8000L
tcblock mbipcmd 0x0091 0x1E63   0x01B2 0x0DF8 0x0006 0xFFFF \
                                0xFF71 0x0000 0x800A 0x8000 \
                                0x0000 
#    CALLQUE    &QSR_DMPMEM
tcblock mbipcmd 0x0091 0x1E6C   0x01F8 0x1E3B 
#    END
tcblock mbipcmd 0x0091 0x1E6E   0x01FC 
#
#; downlink VLOOKFD table, 32767 bytes
#QPROG_VLOOKFDDMP::
#    SETREGS    R3576  6  0xffff 0xff72  16:0xA8000  0x8000L
tcblock mbipcmd 0x0091 0x1E6F   0x01B2 0x0DF8 0x0006 0xFFFF \
                                0xFF72 0x8000 0x800A 0x8000 \
                                0x0000 
#    CALLQUE    &QSR_DMPMEM
tcblock mbipcmd 0x0091 0x1E78   0x01F8 0x1E3B 
#    END
tcblock mbipcmd 0x0091 0x1E7A   0x01FC 
#
#; downlink CROPLIST table, 3500 bytes
#QPROG_CROPLDMP::
#    SETREGS    R3576  6  0xffff 0xff73  14:0x00000  0x0DACL
tcblock mbipcmd 0x0091 0x1E7B   0x01B2 0x0DF8 0x0006 0xFFFF \
                                0xFF73 0x0000 0x7000 0x0DAC \
                                0x0000 
#    CALLQUE    &QSR_DMPMEM
tcblock mbipcmd 0x0091 0x1E84   0x01F8 0x1E3B 
#    END
tcblock mbipcmd 0x0091 0x1E86   0x01FC 
#
#; downlink LIMBFIGLIST table, 6500 bytes
#QPROG_LFIGLDMP::
#    SETREGS    R3576  6  0xffff 0xff74  14:0x01000  0x1964L
tcblock mbipcmd 0x0091 0x1E87   0x01B2 0x0DF8 0x0006 0xFFFF \
                                0xFF74 0x1000 0x7000 0x1964 \
                                0x0000 
#    CALLQUE    &QSR_DMPMEM
tcblock mbipcmd 0x0091 0x1E90   0x01F8 0x1E3B 
#    END
tcblock mbipcmd 0x0091 0x1E92   0x01FC 
#
#; downlink MEDIUMLLIST table, 40960 bytes
#QPROG_MEDLLDMP::
#    SETREGS    R3576  6  0xffff 0xff75  14:0x07000  0xA000L
tcblock mbipcmd 0x0091 0x1E93   0x01B2 0x0DF8 0x0006 0xFFFF \
                                0xFF75 0x7000 0x7000 0xA000 \
                                0x0000 
#    CALLQUE    &QSR_DMPMEM
tcblock mbipcmd 0x0091 0x1E9C   0x01F8 0x1E3B 
#    END
tcblock mbipcmd 0x0091 0x1E9E   0x01FC 
#
#; downlink LINEDEPTHLIST table, 30000 bytes
#QPROG_LDEPLDMP::
#    SETREGS    R3576  6  0xffff 0xff76  14:0x11000  0x7530L
tcblock mbipcmd 0x0091 0x1E9F   0x01B2 0x0DF8 0x0006 0xFFFF \
                                0xFF76 0x1000 0x7001 0x7530 \
                                0x0000 
#    CALLQUE    &QSR_DMPMEM
tcblock mbipcmd 0x0091 0x1EA8   0x01F8 0x1E3B 
#    END
tcblock mbipcmd 0x0091 0x1EAA   0x01FC 
#
#
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
