# File: do_dmp_ipreg_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "do_dmp_ipreg_v01.ips"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#;
#; FILE: do_dmp_ipreg
#; PURPOSE: To dump the IP registers as a data product.  It runs a
#;	   a subroutine, not a program
#; RESTRICTION: It assumes that DMPMEM.IPS is loaded starting at 0
#; HISTORY: Written 8-Sep-95
#;	12-Sep-95 (MDM) - Added a wait BEFORE the dump call also (neede
#;	13-Sep-95 (MDM) - Added a PURGELST call to wait 82 msec before
#;			  looking for non-busy page 9 (it takes a bit 
#;			  before it's acted on)
#;	20-Sep-95 (MDM) - Added capability to skip the dumpping action
#;			  (look at reg $IPRL_DEBUG_SKIP)
#;	25-Sep-95 (MDM) - Moved flag from R4094 to R8190
#;	16-Nov-95 (MDM) - Changed the routine to not be a debug dump bu
#;			  to be a more general dump ipreg subroutine.
#;			- Stopped using DMPMEM.IPS code and modified to
#;			  use the DOWNLINK subroutine so that other downlinks
#;			  are interrupted properly.
#;	16-Nov-95 (MDM) - Patched to set the length register before dow
#;	11-Dec-95 (MDM) - Changed the DPC from bfffff65 to 20010000
#;	14-Dec-95 (MDM) - Renamed from "do_dump_ipreg" to "do_dmp_ipreg
#;			  work with the egse after applying the versioning
#;			  to the file name "v03_1" and check-pointing "q_"
#;
#;
#QSR_DUMP_IPREG::
#
#    SETREGS R3576 6 0x2001 0x0000 0xe000 0x800b 0x2000 0
tcblock mbipcmd 0x0091 0x11DC   0x01B2 0x0DF8 0x0006 0x2001 \
                                0x0000 0xE000 0x800B 0x2000 \
                                0x0000 
#
#    ;------- vvvvvvv Extracted from DMPMEM.IPS ------------
#    COPYREG   R3580  R3582
tcblock mbipcmd 0x0091 0x11E5   0x0142 0x0DFC 0x0DFE 
#    COPYREG   R3581  R3583
tcblock mbipcmd 0x0091 0x11E8   0x0142 0x0DFD 0x0DFF 
#    SETREGS   R3580  2     9:0x00226
tcblock mbipcmd 0x0091 0x11EB   0x01B2 0x0DFC 0x0002 0x0226 \
                                0x4800 
#    SETREGS   R3572  4  0:0x00001  0x4800  0
tcblock mbipcmd 0x0091 0x11F0   0x01B2 0x0DF4 0x0004 0x0001 \
                                0x0000 0x4800 0x0000 
#    HRDINIT   R3572
tcblock mbipcmd 0x0091 0x11F7   0x019C 0x0DF4 
#   _MOVBLKI   R3578
tcblock mbipcmd 0x0091 0x11F9   0x8166 0x0DFA 
#    ; START1HR   0x13   0x4800 R3582
#    ;------- ^^^^^^^ Extracted from DMPMEM.IPS ------------
#
#    SETREG    $IPRP_HDECODE_PAGE9+3 0			; set n/k to be raw
tcblock mbipcmd 0x0091 0x11FB   0x0140 0x105D 0x0000 
#    SETREGS   $IPRP_HDECODE_PAGE9+8 2 8192L		; Set the length pro
tcblock mbipcmd 0x0091 0x11FE   0x01B2 0x1062 0x0002 0x2000 \
                                0x0000 
#    SETREG    $IPRL_DL_PARAM  0x4800
tcblock mbipcmd 0x0091 0x1203   0x0140 0x11D0 0x4800 
#    CALLQUE   $QSR_DL_1PAGE
tcblock mbipcmd 0x0091 0x1206   0x01F8 0x10D6 
#
#    RTNQUE
tcblock mbipcmd 0x0091 0x1208   0x01FA 
#    END
tcblock mbipcmd 0x0091 0x1209   0x01FC 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
