# File: fix_5kmag.src
#

program "@(#) MODULE: fix_5kmag.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/fix_5kmag.src"
descr "fix_5kmag - change mag 5k lrdxfr params"

display "Executing procedure fix_5kmag."

# Patch SegLength parameter
tcblock mbipldin 0x140 0x0671 0x0640

display "Finished procedure fix_5kmag: %s" !TIME

return

