###CHECKPOINT ARGS: -nolog-flow -nolog-blocks -nostartlog -queue=0
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/lt_on_v05.src"
descr "lt_on - turn ON ISS with nominal parameters"
# program lt_on.src, created 95.12.13 Igor Zayer blessed by Chris Edwards
#	96.01.31  IZ	- added queueing commads & checkpoint args
#	98.10.13  DPM	- Removed queueing commads; Added delays
#
# A simple procedure to turn on the iss with the nominal parameters
# for observing on orbit. Is called by 'checkiss' if iss is not on and
# one wishes to use it as part of the alignment procedure
#
# Calls: --
# ------
#
display "Executing procedure lt_on"

tcblock mbpwlton	## ISS on
tcblock mbltopnl	## open loop
ask !LS0 "Type <Enter> when ready to continue"

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 lt_on                                      "
return
