# File: fix_ld.src
#

program "@(#) MODULE: fix_ld.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/fix_ld_v01.src"
descr "fix_ld - Patche to set l-depth shift count to 0"

display "Executing procedure fix_ld."

# Patch shift count
tcblock mbipmacl 0x4b0 0

# reselect ldepth for downlink
tcblock mbipldin 0x140 1683  1

display "Finished procedure fix_ld: %s" !TIME

return

