# File: do_time_mark_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/do_time_mark_v01.src"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#;
#; FILE: do_time_mark
#; PURPOSE: To dump the first 10 IP registers as a data product.  
#;	   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),
tcblock mbipcmd 0x0091 0x1914   0x01B2 0x0DF8 0x0006 0x2002 \
                                0x0000 0xE000 0x800B 0x000A \
                                0x0000 
#
#    ;------- vvvvvvv Extracted from DMPMEM.IPS ------------
#    COPYREG   R3580  R3582
tcblock mbipcmd 0x0091 0x191D   0x0142 0x0DFC 0x0DFE 
#    COPYREG   R3581  R3583
tcblock mbipcmd 0x0091 0x1920   0x0142 0x0DFD 0x0DFF 
#    SETREGS   R3580  2     9:0x00226
tcblock mbipcmd 0x0091 0x1923   0x01B2 0x0DFC 0x0002 0x0226 \
                                0x4800 
#    SETREGS   R3572  4  0:0x00001  0x4800  0
tcblock mbipcmd 0x0091 0x1928   0x01B2 0x0DF4 0x0004 0x0001 \
                                0x0000 0x4800 0x0000 
#    HRDINIT   R3572
tcblock mbipcmd 0x0091 0x192F   0x019C 0x0DF4 
#   _MOVBLKI   R3578
tcblock mbipcmd 0x0091 0x1931   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 0x1933   0x0140 0x105D 0x0000 
#    SETREGS   $IPRP_HDECODE_PAGE9+8 2 10L		; Set the length prope
tcblock mbipcmd 0x0091 0x1936   0x01B2 0x1062 0x0002 0x000A \
                                0x0000 
#    SETREG    $IPRL_DL_PARAM  0x4800
tcblock mbipcmd 0x0091 0x193B   0x0140 0x11D0 0x4800 
#    CALLQUE   $QSR_DL_1PAGE
tcblock mbipcmd 0x0091 0x193E   0x01F8 0x10D6 
#
#    RTNQUE
tcblock mbipcmd 0x0091 0x1940   0x01FA 
#    END
tcblock mbipcmd 0x0091 0x1941   0x01FC 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
