# File: ipstrup.src
#

program "@(#) MODULE: ipstrup.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/ipstrup.src"
descr "  ipstrup - IP Start-up for flight configuration"

display "Executing procedure ipstrup."

perform ipwload

perform ipedac

perform ipfp1901

perform iptload

perform ipqload

set !GI5 = 5
perform liplbic

tcblock mbipldin 0x154		## disable queue

tcblock mbipcmd 0x91 0 0x1f00	## load vector 0 as heritage load replacement

tcblock mbipldin 0x136		## enable queue

tcblock mbipldin 0x134		## enable DEP interrupts

tcblock mbipldin 0x140 0x21 0	## prime side for downlink

tcblock mbipldin 0x140 0x3d 0	## disable compression

display "Setting Initial camera header"

tcblock mbcmhdr1 0x4040 0x4040 0 1 0

return

