###CHECKPOINT ARGS: -nolog-flow -nolog-blocks -nostartlog -queue=0
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/iss_on_v05.src"
descr "iss_on - turn ON ISS with nominal parameters"
# program iss_on.src, created 95.12.13 Igor Zayer blessed by Chris Edwards
#	96.01.31  IZ	- added queueing commads & checkpoint args
#
# 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: --
# ------
#
# Variable usage:
#----------------
# !GS9: name of user logfile
#----------------

display "Executing procedure iss_on"
write  !GS9 "Executing procedure iss_on :"
write  !GS9 " %s" !DATE
writen !GS9 " %s" !TIME

queue on
tcblock mbpwlton	## ISS on
tcblock mbltopnl	## open loop
tcblock mbltpdio	## prime diodes
tcblock mbltpout	## prime output
tcblock mbltlogn	## low gain (sun)
tcblock mbltfine	## fine offsets
tcblock mbltxgn 0x60	## x-gain to nominal (safe)
tcblock mbltygn 0x54	## y-gain to nominal (safe)
tcblock mbltxofs 0x0	## x-offset to neutral	(= dec 0!)
tcblock mbltyofs 0x0	## y-offset to neutral	(= dec 0!)
tcblock mbltaofs 0x40	## PZT-A offset to home	(= dec 64)
tcblock mbltbofs 0x40	## PZT-B offset to home	(= dec 64)
tcblock mbltcofs 0x40	## PZT-C offset to home	(= dec 64)
queue off

writen !GS9 "Finished procedure iss_on : %s" !TIME
writen !GS9 " "
display "Finished Procedure iss_on                                      "
return
