PROC F_FL_M_MCP70
;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_MCP70
;#   MMS-F Name:
;#   SUM Issue:
;#   Simulator Validation Status:
;#
;#  1.2 Date Created: 05-NOV-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: J PAQUETTE UMD  301-405-6223
;#   CELIAS Contact:  A GALVIN UMD 301-405-6208
;#
;#***********************************************************************
;# 2.0 Description
;#
;#  2.1 Narrative Decription
;#
;#   FOR ALL MTOF MICROCHANNEL PLATE POWER SUPPLIES:
;#   SET LIMIT/DELTA=70,70, SET LEVEL TO 70.
;#
;#  2.2 Intended Use:
;# 
;#   INITIAL SETTING OF ALL MCPS IN WARM UP LEVEL 70.
;#   THIS PROCEDURE DOES NOT, REPEAT NOT, ENABLE.
;#
;#  2.3 Duration: TBD
;#
;#  2.4 References:
;#
;#***********************************************************************
;# 3.0 Instructions for Use: 
;#
;#  3.1 Parameters Required
;#
;#  3.2 Critical Activities
;#
;#   THIS COMMAND AFFECTS HIGH VOLTAGE SETTINGS. 
;#   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 MCP voltage during procedure
;#   and for at least an hour after procedure ends.
;#
;#   COMMAND LINK must be available for at least an
;#   hour 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

;# 4.1 Send initial message to user

WRITE "All 4 MCP's will be set to Level=70, Limit=70, and delta=70"

WAIT            ;If this is what is desired, proceed.

;# 4.2 SET DELTA/LIMIT = 70/70, Set MCP to level 70

WAIT  ;NOTE VALUE OF FSDTCOK (command OK counter)
 
/FBMLIMSM,4646 ;MAIN Start MCP power supply delta/limit = 70,70
WAIT  ;VERIFY BUFFER CONTENTS
/SEND
        
WAIT  ;VERIFY FSDTCOK HAS INCREASED BY 1. NOTE NEW VALUE.

/FBMSM,0046 ;set START MCP to level 70
WAIT  ;VERIFY BUFFER CONTENTS
/SEND

WAIT            ;NOTE VALUE OF FSMVSMV (START MCP Power Supply voltage) 
WAIT  ;VERIFY FSDTCOK HAS INCREASED BY 1. NOTE NEW VALUE.


/FBMLIMNM,4646 ;MAIN NEUTRAL MCP power supply delta/limit = 70,70
WAIT  ;VERIFY BUFFER CONTENTS
/SEND

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

/FBMNM,0046 ;set NEUTRAL MCP to level 70
WAIT  ;VERIFY BUFFER CONTENTS
/SEND

WAIT            ;NOTE VALUE OF FSMVNMV (NEUTRAL MCP Power Supply voltage) 
WAIT  ;VERIFY FSDTCOK HAS INCREASED BY 1. NOTE NEW VALUE.


/FBMLIMIM,4646 ;MAIN ION MCP power supply delta/limit = 70,70
WAIT  ;VERIFY BUFFER CONTENTS
/SEND

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

/FBMIM,0046 ;set ION MCP to level 70
WAIT  ;VERIFY BUFFER CONTENTS
/SEND

WAIT            ;NOTE VALUE OF FSMVIMV (ION MCP Power Supply voltage)  
WAIT  ;VERIFY FSDTCOK HAS INCREASED BY 1. NOTE NEW VALUE.


/FBMLIMPM,4646 ;PM MCP power supply delta/limit = 70,70
WAIT  ;VERIFY BUFFER CONTENTS
/SEND

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

/FBMPM,0046 ;set PM MCP to level 70

WAIT  ;VERIFY BUFFER CONTENTS
/SEND

WAIT            ;NOTE VALUE OF FSMGPMMV (PM MCP Power Supply voltage)   
WAIT     ;VERIFY FSDTCOK HAS INCREASED BY 1.

WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")
;#***********************************************************************
;#   5.0   Final Constraints
;#
;#         CONTINUE MONITORING FSMVSMV FOR SEVERAL MINUTES 
;#         CONTINUE MONITORING FSMVNMV FOR SEVERAL MINUTES   
;#         CONTINUE MONITORING FSMVIMV FOR SEVERAL MINUTES  
;#         CONTINUE MONITORING FSMGPMMV FOR SEVERAL MINUTES 
;#
;# 
;#        KEEP COMMAND LINK AVAILABLE FOR AT LEAST AN HOUR
;#        IN CASE OF HIGH VOLTAGE EMERGENCY CONTINGENCY.
;#
;#***********************************************************************

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