; DMPMEM
;
; generic IP memory dump utility
;
; the following registers should be loaded
;       3576-3577       DPC Code assigned to data 
;			(generic dump is FFFFFF80)
; 	3578-3579	source memory to be dumped
; 	3580-3581	length of memory to be dumped
;
; example - loading the following into 3576-3581 will dump the IP registers
;   SETREGS   R3576  6 0xBFFF  0xFF65  16:0xBE000  0x2000L
;
QPROG_DMPMEM::
    CALLQUE &QSR_DMPMEM
    END

QSR_DMPMEM::
    COPYREG   R3580  R3582
    COPYREG   R3581  R3583
    SETREGS   R3580  2     9:0x00226
    SETREGS   R3572  4  0:0x00001  0x4800  0
    HRDINIT   R3572
   _MOVBLKI   R3578 
    START1HR   0x13   0x4800 R3582
    RTNQUE
    END