PROC F_FL_MP_HV0
;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_MP_HV0
;#   MMS-F Name:
;#   SUM Issue:
;#   Simulator Validation Status:
;#
;#  1.2 Date Created: 02-OCT-95 
;#   Revision: 
;#
;#  1.3 Change Description:
;#
;#   None.
;#
;#  1.4 Point of Contact: CCAZEAU   ATSC/SOHO   286-6374
;#   FOT Author: BSAPPER  ATSC/SOHO  286-4799
;#   CELIAS Author: AGALVIN UMD  301-405-6208
;#
;#***********************************************************************
;# 2.0 Description
;#
;#  2.1 Narrative Decription
;#
;#   SET MTOF HIGH VOLTAGE POWER SUPPLIES TO
;#   LOWEST VOLTAGE LEVEL, DISABLED, LIMIT/DELTA=0/0
;#
;#  2.2 Intended Use:
;# 
;#   Put CELIAS MTOF sensor into a safe high voltage
;#   configuration of ALL OFF, without changing modes.
;#
;#  2.3 Duration: TBD
;#
;#  2.4 References:
;#
;#***********************************************************************
;# 3.0 Instructions for Use: 
;#
;#  3.1 Parameters Required
;#
;#   None
;#
;#  3.2 Critical Activities
;#
;#   NONE
;# 
;#  3.3 Special Constraints or Activities
;#
;#   NONE
;#
;# *************************************************************************
;# 4.0 STEPS:

BEGIN:

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

;# 4.1 Set all MTOF high volages to lowest voltage level

WAIT  ;NOTE VALUE OF FSDTCOK (command OK counter)
 
/FBMPM,0000  ;PM MCP power supply to level 0
/FBMPE,0000  ;PM E/Q power supply to level 0
/FBMWE,0000  ;MAIN WAVE power supply to level 0
/FBMVF,0080  ;MAIN Vf power supply to level 128 = 0kV
/FBMSM,0000  ;MAIN Start MCP power supply to level 0
/FBMNM,0000  ;MAIN Neutral MCP power supply to level 0
/FBMIM,0000  ;MAIN Ion MCP power supply to level 0
/FBMHV,0000  ;MAIN Hyperbola power supply to level 0

WAIT  ;VERIFY BUFFER CONTENTS
/SEND

WAIT  ;VERIFY FSDTCOK HAS INCREASED BY 8.  NOTE NEW VALUE.

;# 4.2 Set all MTOF high voltage limits and deltas to 0

/FBMLIMPM,0000 ;PM MCP power supply delta/limit = 0,0
/FBMLIMPE,0000 ;PM E/Q power supply delta/limit = 0,0
/FBMLIMWE,0000 ;MAIN WAVE power supply delta/limit = 0,0
/FBMLIMVF,0000 ;MAIN Vf power supply delta/limit = 0,0
/FBMLIMSM,0000 ;MAIN Start MCP power supply delta/limit = 0,0
/FBMLIMNM,0000 ;MAIN Neutral MCP power supply delta/limit = 0,0
/FBMLIMIM,0000 ;MAIN Ion MCP power supply delta/limit = 0,0
/FBMLIMHV,0000 ;MAIN Hyperbola power supply delta/limit = 0,0

WAIT  ;VERIFY BUFFER CONTENTS
/SEND

WAIT  ;VERIFY FSDTCOK HAS INCREASED BY 8.  NOTE NEW VALUE.

;# 4.3 Disable all MTOF high voltages

/FBMDISI,00FF ;disable ALL MTOF high voltages, MAIN AND PM
WAIT  ;VERIFY BUFFER CONTENTS
/SEND

WAIT  ;VERIFY FSDTCOK HAS INCREASED BY 1.

WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")
;#***********************************************************************
;#   5.0   Final Constraints
;#
;#         NONE
;#
;#***********************************************************************

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