PROC F_FL_SNOM_B
;Version 2
GOTO BEGIN
;
;#***********************************************************************
;# ****PROCEDURE HEADER****
;#
;# 1.0 Introduction
;#
;#  1.1 FOT Name: F_FL_SNOM_B
;#   MMS-F Name:
;#   SUM Issue:
;#   Simulator Validation Status:
;#
;#  1.2 Date Created: 12-JUN-96 WB
;#   	 Revision: 	1. 15 JAN 97 RJL
;#			2. 05-FEB-97 RJL	
;#			
;#
;#  1.3 Change Description:
;#
;#			1. 	Added OUT label and RETURN statement, made proc
;#				conform to standardproc.prc guidelines. Added
;#				check for STOF manual mode.
;#			2.	Corrected check for manual mode.
;#
;#  1.4 Point of Contact:
;#       Author: 	W.Bornemann MPE 49-89-3299-3842
;#
;#***********************************************************************
;# 2.0 Description
;#
;#  2.1 Narrative Decription
;#
;#   	Set STOF to Nominal Mode, DblCo off !!
;#
;#  2.2 Intended Use:
;#
;#  2.3 Duration: TBD
;#
;#  2.4 References:
;#
;#***********************************************************************
;# 3.0 Instructions for Use:
;#
;#  3.1 Parameters Required
;#
;#			None
;#
;# 3.2 Critical Activities
;#
;#			TBD
;#
;# 3.3 Special Constraints or Activities
;#
;#			Check of limits required !
;#			STOF has to be in manual mode first.
;#  
;#************************************************************************
;# 4.0 STEPS:

BEGIN:

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

;---------------------------------
; Verify STOF is in manual mode
;---------------------------------
IF (P@FSDMODS.NE."Manual") THEN
	WRITE "STOF must be in manual mode to run this procedure!"
	GOTO OUT
ENDIF

;---------------------------------
; Set EVS control
; (Enbl 2PF, SYNC/TRG = SFR)
;---------------------------------
/CMD FBSEVS,7844              
WAIT			;Verify Buffer Contents
/SEND

;---------------------------------
; Set Diagnostic control (DblCo off)
;---------------------------------
/CMD FBSSDIAG,0C00            
WAIT			;Verify Buffer Contents
/SEND

;---------------------------------
; STOF Nominal Mode
;---------------------------------
WAIT			;Verify Buffer Contents
/SEND                

WAIT UNTIL (P@FSDMODS = "Nominal")

OUT:
;#***********************************************************************
;#   5.0   Final Constraints
;#
;#         TBD
;#
;#***********************************************************************
RETURN
ENDPROC