PROC V_FL_COMODE
;Version 1
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:  V_FL_COMODE
;#		   	VIRGO Name:  Operational Mode (#12A)	 
;#		   	Issue/Rev.:  2.3  	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  10 DEC 95
;#			    Revision:  1.  23-MAR-96	HB
;#
;#		1.3	Change Description:	
;#
;#			1. Deleted commands VZML,8006 and VZML,8007.
;#
;#		1.4	Point of Contact:  Carline Cazeau
;#			FOT Author:  HBenefield	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			This procedure is used to bring the experiment into a nominal
;#			commissioning mode after a nominal switch ON.  PMO-A, SPM-A, 
;#			LOI, and DIARAD (in left mode) are operational.
;#
;#		2.2	Intended Use:
;#
;#			Instruments switch ON after unexpected switch OFF.
;#
;#		2.3	Duration:	 90 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
;#
;#			This procedure is not used for the very first switch ON.
;#
;#			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,703F		;Switch ON all instruments.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'703F')		;Check TC return.

WAIT	;Check current consumption (0.2 A increase expected)
SV VSPDU H
WAIT ;UNTIL(VSPDU=B'X011 1111')	;Check PDU status.

/VZML,70BF		;DIARAD LU enable.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'70BF')		;Check TC return.

SV VSPDU H
WAIT ;UNTIL(VSPDU=H'x000 00BF')	;Check PDU status.


/VZML,100E		;SPM-A:  Heater 1&2 ON, LU enable.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'100E')		;Check TC return.

/VZML,200E		;SPM-B:  Heater 1&2 ON, LU enable.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'200E')		;Check TC return.

/VZML,90BF		;Ref1, SPM-A, PMO-A, BU:  SPM-B & PMO-B.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'90BF')		;Check TC return.

SV VSDAS B
WAIT ;UNTIL (VSDAS=B'XX1X XXXX)	;Check DAS status.
SV VS1PMA B
WAIT	;UNTIL(VSXPMA=B'1XXX')			;Check PMO-A status.
SV VS1PMB B
WAIT	;UNTIL(VSXPMB=B'0XXX')			;Check PMO-B status.
SV VS1SPA B
WAIT	;UNTIL(VSXSPA=B'001X')			;Check SPM-A status.
SV VS1SPB B
WAIT	;UNTIL(VSXSPB=B'000X')			;Check SPM-B status.
WAIT UNTIL(VSBUP=H'F')			;Check backup status.

/VZML,3008		;PMO-A:  LU en, shutter closed, check TC return.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'3008')	;Check TC return.

/VZML,4008		;PMO-B:  LU en, shutter closed, check TC return.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'4008')	;Check TC return.

SV VS1PMB B
WAIT	;UNTIL(VS1PMB=B'0X10')			;Check PMO-A status.

/VZML,6000		;LOI:  No cal, LU low.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'6000')	;Check TC return.

/VZML,6044		;LOI:  Calibration ON.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'6044')	;Check TC return.

/VZML,500F		;DIARAD:  Calbiration Mode 15.
WAIT				;Verify contents of command buffer.
/SEND

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

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