PROC F_FL_M_ENABLE
;VERSION 1   
IF(P@NRT_STATE#TELECOMMAND = "ENABLED")THEN
/NRT TPUT PAUS
ELSE
ENDIF

GOTO BEGIN
;
;#***********************************************************************
;# ****PROCEDURE HEADER****
;#
;# 1.0 Introduction
;#
;#  1.1 FOT Name: F_FL_M_ENABLE
;#      MMS-F Name:
;#      SUM Issue:
;#      Simulator Validation Status:
;#
;#  1.2 Date Created: 05-NOV-95 
;#      Revision: 1. 01-DEC-95  BS
;#
;#  1.3 Change Description:
;#
;#      1. Remove spaces from 'GOTOs'.
;#
;#  1.4 Point of Contact: CCAZEAU   ATSC/SOHO   286-6374
;#      FOT Author: BSAPPER  ATSC/SOHO  286-4799
;#      CELIAS Author: J PAQUETTE UMD  301-405-6223
;#      Revisions: A GALVIN UMD
;#      CELIAS CONTACT: A GALVIN UMD 301-405-6208
;#
;#***********************************************************************
;#      2.0 Description
;#
;#      2.1 Narrative Description
;#
;#          NABLE AN MTOF POWER SUPPLY:
;#          1 = Proton monitor MicroChannel Plate
;#          2 = PM  E/Q deflection system
;#          3 = Wave E/Q deflection system
;#          4 = Vf
;#          5 = Start MCP
;#          6 = Neutral MCP
;#          7 = Ion MCP
;#          8 = Hyperbola
;#
;#      2.2 Intended Use:
;#
;#          INITIAL ENABLE/TURN ON OF AN MTOF POWER SUPPLY 
;#          DETERMINED BY A USER-SUPPLIED PARAMETER
;#
;#      2.3 Duration:   TBD
;#
;#      2.4 References:
;#   
;#***********************************************************************
;#      3.0 Instructions for Use:
;#
;#      3.1 Parameters Required
;#
;#                      PS
;#
;#      3.2 Critical Activities
;#
;#          THIS PROC *ENABLES* AND TURNS ON HIGH VOLTAGES. IF
;#		  USED UNDER NON-VACUUM CONDITIONS, MTOF DISABLE PLUG
;#          MUST BE CONFIRMED BY EXPERIMENTER TO BE IN PLACE.
;#
;#      3.3 Special Constraints or Activities
;#
;#          Monitor MTOF HV HK during procedure
;#          and for at least 60 minutes after procedure ends.
;#
;#          COMMAND LINK must be available for at least 60
;#          minutes after procedure ends, in case contingency
;#          commanding is required, unless waived by experimenter.
;#                                              
;# *************************************************************************
;# 4.0 STEPS:

BEGIN:

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

LOCAL PS

;# 4.1  Prompt for which power supply to enable

WRITE "1=PM MCP,2=PMEQ,3=WAVE,4=Vf,5=START,6=NEUTRAL,7=ION,8=HPS"
ASK "INPUT POWER SUPPLY IDENTIFICATION NUMBER (decimal)"PS

WAIT      ; verify input is in range 1-8

IF (PS < 1) THEN
   ASK "INVALID ID NUMBER, PLEASE REENTER (decimal)"PS 
   WAIT    ; verify number ok
ENDIF

IF (PS > 8) THEN
   ASK "INVALID ID NUMBER, PLEASE REENTER (decimal)"PS 
   WAIT    ; verify number ok
ENDIF

;# 4.2  Enable MTOF PS high voltage

WAIT  ;Note value of command ok counter FSDTCOK

IF(PS=1)THEN
        WRITE "Preparing to enable PM MCPPS"
        WAIT  ; note value of FSMGPMMV

        /FBMENA,0001 
        WAIT  ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT ; note value of FSMGPMMV
        GOTO GOOD
ENDIF

IF(PS=2)THEN
        WRITE "Preparing to enable PM EQ"
        WAIT  ; note value of FSMGPMEV

        /FBMENA,0002 
        WAIT ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT ; note value of FSMGPMEV
        GOTO GOOD
ENDIF

IF(PS=3)THEN
        WRITE "Preparing to enable WAVE EQ"
        WAIT ; note value of FSMGWVEV

        /FBMENA,0004 
        WAIT ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT ; note value of FSMGWVEV
        GOTO GOOD
ENDIF

IF(PS=4)THEN
        WRITE "Preparing to enable  VF PS"
        WAIT  ; note value of FSMGVFV

        /FBMENA,0008 
        WAIT ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT ; note value of FSMGVFV
        GOTO GOOD
ENDIF

IF(PS=5)THEN
        WRITE "Preparing to enable  START MCPPS"
        WAIT  ; note value of FSMVSMV

        /FBMENA,0010
        WAIT ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT ; note value of FSMVSMV
        GOTO GOOD
ENDIF

IF(PS=6)THEN
        WRITE "Preparing to enable  NEUTRAL MCPPS"
        WAIT  ; note value of FSMVNMV

        /FBMENA,0020 
        WAIT ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT ; note value of FSMVNMV
        GOTO GOOD
ENDIF

IF(PS=7)THEN
        WRITE "Preparing to enable  ION MCPPS"
 WAIT  ; note value of FSMVIMV

        /FBMENA,0040
        WAIT ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT ; note value of FSMVIMV
        GOTO GOOD
ENDIF

IF(PS=8)THEN
        WRITE "Preparing to enable  HPS"
        WAIT  ; note value of FSMVHPSV

        /FBMENA,0080 
        WAIT;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT ; note value of FSMVHPSV
        GOTO GOOD
ENDIF

; If we got here, then the user entered an incorrect input. Warn him and then
; exit without sending a command.

WRITE "Incorrect input entered. No power supply enabled."
GOTO DONE

GOOD:
WAIT  ;VERIFY FSDTCOK HAS INCREASED BY 1.
GOTO DONE

DONE:
WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")
;#***********************************************************************
;#   5.0 Final Constraints
;#
;#       CONTINUE MONITORING HV HK FOR 60 MINUTES TO CONFIRM
;#       HV ENABLE.  COMMAND LINK MUST BE AVAILABLE AT LEAST ONE
;#       ONE HOUR FOR CONTINGENCY.
;#
;#       Power supply id number 1 means monitor FSMGPMMV
;#       Power supply id number 2 means monitor FSMGPMEV
;#       Power supply id number 3 means monitor FSMGWVEV
;#       Power supply id number 4 means monitor FSMGVFV
;#       Power supply id number 5 means monitor FSMVSMV
;#       Power supply id number 6 means monitor FSMVNMV
;#       Power supply id number 7 means monitor FSMVIMV
;#       Power supply id number 8 means monitor FSMVHPSV
;#
;#***********************************************************************

IF(P@NRT_STATE#TELECOMMAND = "PAUSE-ENAB")THEN
/NRT TPUT RSUM
/CMSMSG,CELIAS,'Procedure F_FL_M_ENABLE has completed'
ELSE
ENDIF
ENDPROC