# File: dmpmem_v03.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/dmpmem_v03.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; 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
#;   SETREGS   R3576  6 0xBFFF  0xFF65  16:0xBE000  0x2000L
#;
#QPROG_DMPMEM::
#    CALLQUE &QSR_DMPMEM
tcblock mbipmacl 0x1E38    0x01F8 0x1E3B 
#    END
tcblock mbipmacl 0x1E3A    0x01FC 
#
#QSR_DMPMEM::
#    COPYREG   R3580  R3582
tcblock mbipmacl 0x1E3B    0x0142 0x0DFC 0x0DFE 
#    COPYREG   R3581  R3583
tcblock mbipmacl 0x1E3E    0x0142 0x0DFD 0x0DFF 
#    SETREGS   R3580  2     9:0x00226
tcblock mbipmacl 0x1E41    0x01B2 0x0DFC 0x0002 0x0226 \
                                0x4800 
#    SETREGS   R3572  4  0:0x00001  0x4800  0
tcblock mbipmacl 0x1E46    0x01B2 0x0DF4 0x0004 0x0001 \
                                0x0000 0x4800 0x0000 
#    HRDINIT   R3572
tcblock mbipmacl 0x1E4D    0x019C 0x0DF4 
#   _MOVBLKI   R3578 
tcblock mbipmacl 0x1E4F    0x8166 0x0DFA 
#    START1HR   0x13   0x4800 R3582
tcblock mbipmacl 0x1E51    0x0174 0x0013 0x4800 0x0DFE 
#    RTNQUE
tcblock mbipmacl 0x1E55    0x01FA 
#    END
tcblock mbipmacl 0x1E56    0x01FC 
#
#
#=======================================================
#
return
#
#=======================================================
