PROC V_FL_NEW_PROC
;Version 0	
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:  V_FL_NEW_PROC	   
;#		   	VIRGO Name:   	 
;#		   	Issue/Rev:     	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  06-FEB-96 
;#			    Revision:  
;#
;#		1.3	Change Description:	
;#
;#			
;#
;#		1.4	Point of Contact:  CCazeau	
;#			FOT Author:  CQ 	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			
;#
;#		2.2	Intended Use:
;#
;#			
;#
;#		2.3	Duration:	21 minutes
;#
;#		2.4	References:
;#			
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			None.
;#
;#		3.2	Critical Activities
;#
;#			None.
;#
;#		3.3	Special Constraints or Activities
;#
;#			The VIRGO commands execute on a 3 minute cycle.  Only one
;#			command can be sent between command executions.
;#     		
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:


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

/VZML,90B0		;Ref-1, SPM-A, PMO-A, SPM-B-red
WAIT				;Verify contents of command buffer.
/SEND

WAIT 180			;Wait 3 mins

/VZML,800B		;Open Cover SPM-B.
WAIT				;Verify contents of command buffer.
/SEND

WAIT 540			;Wait 9 mins

/VZML,90B1		;Ref-1, SPM-A, PMO-A, SPM-B-green
WAIT				;Verify contents of command buffer.
/SEND

WAIT 360			;Wait 6 mins

/VZML,90B2		;Ref-1, SPM-A, PMO-A, SPM-B-blue
WAIT				;Verify contents of command buffer.
/SEND

WAIT 360			;Wait 6 mins

/VZML,8003		;Close Cover SPM-B.
WAIT				;Verify contents of command buffer.
/SEND

WAIT 180			;Wait 3 mins

/VZML,90BF		;Ref-1, SPM-A, PMO-A, SPM-B/ PMO-B cycle
WAIT				;Verify contents of command buffer.
/SEND

WAIT 360			;Wait 6 mins

/VZML,90B6		;Ref-1, SPM-A, PMO-A, SPM-B current
WAIT				;VERIFY CONTENTS OF COMMAND BUFFER
/SEND

WAIT 180			;Wait 3 mins

/VZML,800D		;Cover PMO-B open
WAIT				;VIRIFY CONTENTS OF COMMAND BUFFER
/SEND

WAIT 180			;Wait 3 mins

WRITE "EGSE CHECK:POSITION OF SHUTTER"

IF (VSTCRETN = H'4008') THEN		;CHECK IF SHUTTER IS CLOSED

WAIT 180			;Wait 3 mins

/VZML,400A		;PMO-B shutter open
WAIT				;VERIFY CONTENTS OF COMMAND BUFFER
/SEND

ENDIF

WAIT 180			;Wait 3 mins

WRITE "EGSE CHECK:POSITION OF SHUTTER"

IF (VSTCRETN = H'400A') THEN		;CHECK IF SHUTTER IS OPEN

GOTO CONT1

	ELSEIF (VSTCRETN = H'4008') THEN	;CHECK IF SHUTTER IS CLOSED	

	WAIT 360			;Wait 6 mins

	/VZML,70FF		;Power on
	WAIT				;VERIFY CONTENTS OF COMMAND BUFFER
	/SEND

WRITE "EGSE CHECK:POSITION OF SHUTTER"

IF (VSTCRETN = H'400A') THEN		;CHECK IF SHUTTER IS OPEN

GOTO CONT1
	
	ELSEIF (VSTCRETN = H'4008') THEN	;CHECK IF SHUTTER IS CLOSED	


WAIT	;Verify in science data (PI) all covers are closed.

;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		None.
;#
;#**************************************************************************
ENDPROC