;
; FILE: do_time_mark
; PURPOSE: To dump the first 10 IP registers as a data product.  It runs as
;	   a subroutine, not a program
; HISTORY: Written 29-Feb-96
;
;
QSR_TIME_MARK::

    SETREGS R3576 6 0x2002 0x0000 0xe000 0x800b 10 0	; dpc (h,l), source (l,h), nwords (l,h)

    ;------- vvvvvvv Extracted from DMPMEM.IPS ------------
    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
    ;------- ^^^^^^^ Extracted from DMPMEM.IPS ------------

    SETREG    $IPRP_HDECODE_PAGE9+3 0			; set n/k to be raw
    SETREGS   $IPRP_HDECODE_PAGE9+8 2 10L		; Set the length properly
    SETREG    $IPRL_DL_PARAM  0x4800
    CALLQUE   $QSR_DL_1PAGE

    RTNQUE
    END