PROC F_FL_CT_PMCS5
;Version 1
GOTO BEGIN
;
;#***********************************************************************
;#      ****PROCEDURE HEADER****
;#
;#      1.0     Introduction
;#
;#              1.1     FOT Name: F_FL_CT_PMCS5
;#                      MMS-F Name:
;#                      SUM Issue:
;#                      Simulator Validation Status: Valid
;#
;#              1.2     Date Created: 01-Nov-95 heg
;#
;#							1. 16-JAN-96  BS
;#
;#
;#              1.3     Change Description:
;#
;#					1. Update version # and format.
;#                      
;#
;#              1.4     Point of Contact:
;#                      Author: 
;#                      H.Gruenwaldt MPAe Lindau  (49) 5556-979 413
;#***********************************************************************
;#      2.0     Description
;#
;#              2.1     -->> Narrative Description <<--
;#
;#                      PURPOSE: switch CTOF MCPS to level: PARAMETER, dec
;#
;#              2.2     Intended Use:
;#
;#              2.3     Duration:       TBD
;#
;#              2.4     References:
;#
;#***********************************************************************
;#      3.0     Instructions for Use:
;#
;#              3.1     Parameters Required (hex)
;#                     
;#                           0000:    50 V 
;#                           0001:   155 V
;#                           0002:   535 V
;#                           0003:   700 V
;#                           0004:   750 V
;#                           0005:   800 V 
;#                           0006:   850 V  
;#                           0007:   900 V  
;#                           0008:   960 V 
;#                           0009:   975 V
;#                           000A:   990 V
;#                           000B:  1005 V
;#                           000C:  1020 V
;#                           000D:  1035 V 
;#                           000E:  1050 V  
;#                           000F:  1065 V  
;#
;#      3.2     Critical Activities
;#
;#
;#
;#      3.3     Special Constraints or Activities
;#
;#
;#
;# ************************************************************************* 
 

;#      4.0     STEPS:

BEGIN:

LOCAL PARHV

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

ASK "WHAT MCPS VOLTAGE DO YOU WANT TO SWITCH TO, [VOLT] ?"PARHV

IF (PARHV = 50) THEN
/FBCMCPS,0000             ;switch MCPS  to level 0, 50 V/plate
WAIT                      ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 155) THEN
/FBCMCPS,0001          ;switch MCPS  to level 1, 155 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 535) THEN
/FBCMCPS,0002          ;switch MCPS  to level 2, 535 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 700) THEN
/FBCMCPS,0003          ;switch MCPS  to level 3, 700 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 750) THEN
/FBCMCPS,0004          ;switch MCPS  to level 4, 750 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 800) THEN
/FBCMCPS,0005          ;switch MCPS  to level 5, 800 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 850) THEN
/FBCMCPS,0006          ;switch MCPS  to level 6, 850 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 900) THEN
/FBCMCPS,0007          ;switch MCPS  to level 7, 900 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 960) THEN
/FBCMCPS,0008          ;switch MCPS  to level 8, 960 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 975) THEN
/FBCMCPS,0009          ;switch MCPS  to level 9, 975 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 990) THEN
/FBCMCPS,000A          ;switch MCPS  to level A, 990 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 1005) THEN
/FBCMCPS,000B          ;switch MCPS  to level B, 1005 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 1020) THEN
/FBCMCPS,000C          ;switch MCPS  to level C, 1020 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 1035) THEN
/FBCMCPS,000D          ;switch MCPS  to level D, 1035 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 1050) THEN
/FBCMCPS,000E          ;switch MCPS  to level E, 1050 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

IF (PARHV = 1065) THEN
/FBCMCPS,000F          ;switch MCPS  to level F, 1065 V/plate
WAIT                   ;VERIFY BUFFER Contents
/SEND
GOTO LDONE
ELSE
ENDIF

LDONE:
;#
;#
;#
;#***********************************************************************
;#   5.0   Final Constraints
;#
;#         TBD
;#
;#***********************************************************************
ENDPROC