# File: do_dump_ipreg.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "do_dump_ipreg.ips"
descr "do_dump_ipreg - dump the IP registers as a data product"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#;
#; FILE: do_dump_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
#;
#;
#QSR_DUMP_IPREG::
#
#
#    BRANCHEQ $IPRL_DEBUG_SKIP 1 &DONE
tcblock mbipcmd 0x0091 0x1028   0x01AE 0x1FFE 0x0001 0x103F 
#
#    SETREGS R3576 6 0xbfff 0xff65 0xe000 0x800b 0x2000 0
tcblock mbipcmd 0x0091 0x102C   0x01B2 0x0DF8 0x0006 0xBFFF \
                                0xFF65 0xE000 0x800B 0x2000 \
                                0x0000 
#    CALLQUE 0x1E3B
tcblock mbipcmd 0x0091 0x1035   0x01F8 0x1E3B 
#
#    SETREG  R143 16
tcblock mbipcmd 0x0091 0x1037   0x0140 0x008F 0x0010 
#    PURGELST R136				;wait 82 msec before checking the page
tcblock mbipcmd 0x0091 0x103A   0x0190 0x0088 
#WAITING:
#    BRANCHNR 0x4800 &WAITING			;wait until the downlink in page 9
tcblock mbipcmd 0x0091 0x103C   0x01A6 0x4800 0x103C 
#
#DONE:
#    RTNQUE
tcblock mbipcmd 0x0091 0x103F   0x01FA 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
