# File: rdump_10.src
#

program "@(#) MODULE: fix_str31.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/fix_csize.src"
descr "rdump_10 - Change the length of Register dumps 5k"

display "Executing procedure rdump_10."

# Change Register dump data product length to 64 words 
# instead of 94.
tcblock mbipldin 0x0140 1152 64 
tcblock mbipldin 0x0140 1155 64 
tcblock mbipldin 0x0140 1158 64 

# Change DPC to indicate new format
tcblock mbipldin 0x01b2 1156 2 0x2001 0x0000 

# Change dump register block size
tcblock mbipldin 0x140 1134 1420
tcblock mbipldin 0x140 1138 1430

# Patch str_rlinit to change dump length
tcblock mbipmacl 0x07FF    0x01B2 0x0480 0x0006 0x0040 \
                                0x0000 0x0000 0x0040 0x2000 \
                                0x0000
tcblock mbipmacl 0x0808    0x01B2 0x0486 0x0002 0x0040 \
                                0x0000

# Patch str_setup to change last dump register to 1430
tcblock mbipmacl 0x0F3F    0x0140 1134 1420
tcblock mbipmacl 0x0F45    0x0140 1138 1430

tcblock mbipldin 0x140 1130 1

display "Finished procedure rdump_10: %s" !TIME

return

