PROC V_FL_CLS_CVR
;Version 3	
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:  V_FL_CLS_CVR	   
;#		   	VIRGO Name:  Close all Covers for HOI or Emergencies (PROC 23) 	 
;#		   	Issue/Rev:  2.8   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  08-AUG-95  
;#			    Revision:  1. 31-AUG-95	HB
;#						2. 01-FEB-96	CQ
;#						3. 23-MAR-96	HB
;#
;#		1.3	Change Description:	
;#
;#			1. Made flight ready.  Changed name from v_ts_cls_cvr.  Added
;#			   WAIT for science telemetry check.
;#			2. Modify the proc per OCD #186 submitted by PI.
;#			3. Delete command VZML,8006 and VZML,8007.
;#
;#		1.4	Point of Contact:  CCazeau	
;#			FOT Author:  HBenefield 	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			Procedure to close all open covers in case of emergencies and
;#			for HOI.
;#
;#		2.2	Intended Use:
;#
;#			Close covers for HOI and emergencies.
;#
;#		2.3	Duration:	21 minutes
;#
;#		2.4	References:
;#			PAGES:  V_STATUS, V_TEMP_STAT, V_VOLT_HKCAL, I_EXP_STAT
;#
;#**************************************************************************
;#	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,8002		;Close Cover SPM-A.
WAIT				;Verify contents of command buffer.
/SEND

WAIT UNTIL(VSTCRETN=H'8002')		;Check TC return.

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

WAIT UNTIL(VSTCRETN=H'8003')		;Check TC return.

/VZML,8004		;Close Cover PMO-A.
WAIT				;Verify contents of command buffer.
/SEND

WAIT UNTIL(VSTCRETN=H'8004')		;Check TC return.

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

WAIT UNTIL(VSTCRETN=H'8005')		;Check TC return.

/VZML,3008		;PMO-A SHUTTER CLOSED
WAIT				;VERIFY CONTENTS OF COMMAND BUFFER
/SEND

WAIT UNTIL (VSTCRETN = H'3008')	;CHECK TC RETURN

;

/VZML,90BF		;REF1, SPM-A, PMO-A, BU:CYCLIC, SPM-B, PMO-B
WAIT				;VIRIFY CONTENTS OF COMMAND BUFFER
/SEND

WAIT UNTIL (VSTCRETN = H'90BF')	;CHECK TC RETURN

;

/VZML,500F		;DIARAD LONG CALIBRATION
WAIT				;VERIFY CONTENTS OF COMMAND BUFFER
/SEND

WAIT UNTIL (VSTCRETN = H'500F')	;CHECK TC RETURN

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

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