PROC F_FL_P_THRESH
;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_P_THRESH
;#   MMS-F Name:
;#   SUM Issue:
;#   Simulator Validation Status:
;#
;#  1.2 Date Created: 06-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: J PAQUETTE UMD  301-405-6223
;#                            Revision: A GALVIN
;#                      CELIAS Contact: A GALVIN UMD 301-405-6208
;#
;#***********************************************************************
;# 2.0 Description
;#
;#  2.1 Narrative Description
;#
;#   SET THE PROTON MONITOR THRESHOLD TO A LEVEL GIVEN 
;#                      BY THE INPUT PARAMETER.
;#
;#  2.2 Intended Use:
;# 
;#   Change the threshold on the PM MCP.
;#
;#  2.3 Duration: TBD
;#
;#  2.4 References:
;#
;#***********************************************************************
;# 3.0 Instructions for Use: 
;#
;#  3.1 Parameters Required
;#
;#   THRESH(decimal)
;#
;#  3.2 Critical Activities
;#
;#                  NONE
;# 
;#  3.3 Special Constraints or Activities
;#
;#   NONE
;#
;# *************************************************************************
;# 4.0 STEPS:

BEGIN:

LOCAL THRESH

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

;#      4.1 Prompt user for the desired threshold value

ASK "Enter threshold value (0-255 decimal)"THRESH

IF(THRESH >= 256) THEN
   WRITE "Input exceeded allowed values (0-255).  Try again."
   ASK "Enter threshold value (0-255 decimal)"THRESH
   WRITE "Verify correct input.  Otherwise operator backtrack or abort."
   WAIT  ; move on if correct, or backtract or abort  
ENDIF   

IF(THRESH >= 256) THEN
   WRITE " Incorrect input, exiting."
   WAIT
   GOTO GETOUT
ENDIF

THRESH=%HEX(THRESH,4)

WAIT  ;Note value of Command Ok counter (FSDTCOK)

/FBMPVTHR,$THRESH      ;Set PM threshold to level = THRESH
WAIT               ;VERIFY BUFFER CONTENTS
/SEND

WAIT  ;Verify FSDTCOK increments by 1. 
GOTO GETOUT

GETOUT:
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_P_THRESH has completed'
ELSE
ENDIF

ENDPROC