# File: dump_ipreg_v03.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/dump_ipreg_v03_1.src"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#;
#; FILE: dump_ipreg_v03
#; PURPOSE: Main program to dump the IP registers as a data produc
#; RESTRICTION: It assumes that DMPMEM.IPS is loaded starting at 0
#; HISTORY: Written 2-Oct-95
#;	18-Oct-95 (MDM) - Removed the wait
#;
#;
#QPROG_DUMP_IPREG::
#
#    SETREGS R3576 6 0xbfff 0xff65 0xe000 0x800b 0x2000 0
tcblock mbipcmd 0x0091 0x15A5   0x01B2 0x0DF8 0x0006 0xBFFF \
                                0xFF65 0xE000 0x800B 0x2000 \
                                0x0000 
#    CALLQUE 0x1E3B
tcblock mbipcmd 0x0091 0x15AE   0x01F8 0x1E3B 
#
#DONE:
#    END
tcblock mbipcmd 0x0091 0x15B0   0x01FC 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
