# File: fix_cbhdr.src
#

program "@(#) MODULE: fix_str31.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/fix_cbhdr.src"
descr "fix_cbhdr - Correct CB Header address"

display "Executing procedure fix_cbhdr."

tcblock mbipldin 0x01b2 1840 2 0x0001 0x4000  ## CB-v HRDINIT Address
tcblock mbipldin 0x01b2 1850 2 0x0001 0x4000  ## CB-i HRDINIT Address

display "Finished procedure fix_cbhdr: %s" !TIME

return

