# program fl_lton.src
#
# A simple procedure to turn on the MDI limb tracker or Image Stabilization System
# with the nominal parameters for observing on orbit. 

program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/fl_lton.src
descr "fl_lton.src - power up ISS with nominal parameters"

display "Executing procedure fl_lton"

tcblock mbpwlton	## ISS on
tcblock mbltopnl	## open loop

wait time 60

if getdig(mkpwlt) <> "          ON" then
  display "ISS is NOT on - procedure halted"
  halt
end if

tcblock mbltpdio	## prime diodes
tcblock mbltpout	## prime output
tcblock mbltlogn	## low gain (sun)
tcblock mbltfine	## fine offsets

ask !LS0 "Type <Enter> when ready to continue"

tcblock mbltxgn 99 	## x-gain to nominal (safe)
tcblock mbltygn 87 	## y-gain to nominal (safe)
tcblock mbltxofs 208 	## x-offset to neutral
tcblock mbltyofs 238 	## y-offset to neutral	
tcblock mbltaofs 63 	## PZT-A offset to home
tcblock mbltbofs 63 	## PZT-B offset to home
tcblock mbltcofs 63 	## PZT-C offset to home	

display "Finished Procedure fl_lton                                    "
return
