# File liplbic.src	12-06-95	SDW
#
# Does new heritage load register setting using GI5
#
#     !GI5 = LBIC to perform for 3, 4, or 5
#

program "@(#) MODULE: liplbic.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/liplbic.src"
descr "liplbic  - loads MDI IP Heritage Programs"

display "Executing procedure: liplbic"

checkLBIC:
if !GI5 > 2 then
  if !GI5 < 6 then
    goto doLBIC 
  end if
end if

display "Invalid LBIC set in GI5, re-enter (3,4,5) and continue"
ask !GI5 "enter lbic to load: "
goto checkLBIC

doLBIC:
display "setting IP register 32 to desired lbic %d" !GI5
tcblock mbipldin 0x140 0x20 !GI5

setstr !LS1 = getdig(mktmsel)

if !LS1 = 2 then
  perform  "liptlm2_v01"
end if

# set initial camera header

tcblock mbcmhdr1 0x4040 0x4040 0 1 0

# use this if tcgse database not fixed
#
#binary 0x2a87 0x0005 0x4040 0x4040 0x0000 0x0001 0x0000



