PROC F_FL_STOF_WAX
;VERSION 1
GOTO BEGIN
;
;#***********************************************************************
;# ****PROCEDURE HEADER****
;#
;# 1.0 Introduction
;#
;#  1.1 FOT Name: F_FL_STOF_WAX
;#      MMS-F Name:
;#      SUM Issue:
;#      Simulator Validation Status
;#
;#  1.2 Date Created: 27-AUG-95 WB
;#      Revision:  1. 01-DEC-95  BS
;#
;#  1.3 Change Description:
;#
;#      1. GO TO -> GOTO.
;#
;#  1.4 Point of Contact:
;#      Author: W.Bornemann MPE 49-89-3299-3842
;#      Revised: A Galvin UMD
;#***********************************************************************
;# 2.0 Description
;#
;#  2.1 Narrative Description
;#      STOF wax motor on for 3 min.
;#
;#  2.2 Intended Use: Shutter open command
;#
;#  2.3 Duration: TBD
;#
;#  2.4 References:
;#
;#***********************************************************************
;# 3.0 Instructions for Use:
;#
;#  3.1 Parameters Required
;#
;#     None
;#
;# 3.2 Critical Activities
;#
;#     MTOF and CTOF sensors must be in a POWER OFF state
;#     STOF must be in a STANDBY state
;#     MTOF wax motor must be off.
;#
;#     The STOF wax motor operation involves a CRITICAL command.
;#
;# 3.3 Special Constraints or Activities
;#         
;#     Require explicit authorization to run this procedure
;#     from either the CELIAS PI, an STOF representative, or
;#     the CELIAS Operations Coordinator (A. GALVIN).  
;#
;#     If procedure is run while STOF wax motor is already
;#     in operation, ask for additional authorization to continue.
;#
;# ************************************************************************* 
;# 4.0 STEPS:

BEGIN:

IF (P@CMD_STATE#TELECOMMAND = "AVAILABLE") THEN
ELSE
 /CLEAR ;Clearing the Command Buffer.
ENDIF

WAIT UNTIL (P@FSDSPS1 = "On") ;stof on
WAIT UNTIL (P@FSDSPM1 = "Off") ;double check mtof off
WAIT UNTIL (P@FSDSPM2 = "Off") ;check mtof wax motor off
WAIT UNTIL (P@FSDSPC1 = "Off") ;double check ctof off

WAIT UNTIL (P@FSDMODS = "Standby") ;stof in standby
WAIT UNTIL (P@FSDMODC = "Power Off") ;ctof off
WAIT UNTIL (P@FSDMODM = "Power Off") ;mtof off

IF (P@FSDSPS2 = "On")THEN
   WRITE " WARNING: STOF WAX MOTOR ALREADY IN OPERATION."
   ASK "SHOULD WE PROCEED?"
   ANSWER = %UPPER(ANSWER)

   IF (ANSWER = "Y") THEN
   ELSE
      GOTO GETOUT
   ENDIF
ENDIF

WAIT
WAIT      ;CRITICAL COMMAND

/FBSOPT1,0489 ;STOF wax motor on for 3 min. (1 unit = 155ms)
WAIT ;VERIFY BUFFER CONTENTS
/SEND

WAIT  ;Verify Celias current -> 650mA during 3 min wax motor time, -> 320mA

WAIT UNTIL (P@FSDSPS2 = "Off") ;stof wax motor off
GOTO GETOUT

GETOUT:
;#***********************************************************************
;#   5.0   Final Constraints
;#
;#         Verify stof wax motor stays off for at least 5 minutes (i.e.,
;#         ensure it will not restart on its own). Do not proceed with
;#         MTOF, CTOF sensor power on commands until stof wax motor is off.
;#
;#***********************************************************************
ENDPROC