;
; FILE: debug_ipreg_v03
; PURPOSE: To dump the IP registers as a data product.  It runs as
;	   a subroutine, not a program
; HISTORY: Written 16-Nov-95 (taking do_dump_ipreg.ips as starting point)
;	 7-Dec-95 (MDM) - Changed waiting branch to look at page 8, not
;			  page 9 since we're using the downlink subroutine
;			  now (not DMPMEM)
;
;
QSR_DEBUG_IPREG::

    BRANCHEQ $IPRL_DEBUG_SKIP 1 &DONE

    CALLQUE  $QSR_DUMP_IPREG

    SETREG   R143 16
    PURGELST R136				;wait 82 msec before checking the page
WAITING:
    BRANCHNR 0x4000 &WAITING			;wait until the downlink in page 8 is finished

DONE:
    RTNQUE