PROC V_FL_OPMODE
;Version 2
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:  V_FL_OPMODE
;#		   	VIRGO Name:  Operational Mode (#12B)	 
;#		   	Issue/Rev.:  2.3  	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  10 DEC 95
;#			    Revision:	1. 23-MAR-95	HB
;#					2. 31-Jan-97	RJ
;#
;#		1.3	Change Description:	
;#
;#			1. Delete commands VZML, 800E and VZML, 800F.  Replaced VZML,
;#			   300C with VZML,3008.  Inserted VZML,8004 after VZML,8005.
;#			   Deleted VZML,800B.
;#			2.  Changed commands and waits to reflect the current
;#				operational mode.  Changes to SPM-A&B heater on
;#				commands. (VZML,1008 & VZML,2008)
;#
;#		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,8003		;Close cover SPM-B
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'8003')		;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,8004		;Close cover PMO-A
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'8004')		;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,1008		;SPM-A:  Heater 1&2 ON, LU enable.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'1008')		;Check TC return.

/VZML,2008		;SPM-B:  Heater 1&2 ON, LU enable.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'2008')		;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,800A		;Cover open SPM-A.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'800A')	;Check TC return.

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

/VZML,4008		;PMO-B:  LU en, shutter auto.
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-B status.

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

/VZML,6080		;LOI:  Y-axis guiding.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'6080')	;Check TC return.

/VZML,6084		;LOI:  Z-axis guiding, arming HV.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'6084')	;Check TC return.

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

WAIT	;Verify current increase (VIPWA) appx 10 mA

/VZML,5002		;DIARAD:  Mode left.
WAIT				;Verify contents of command buffer.
/SEND
WAIT UNTIL(VSTCRETN=H'5002')	;Check TC return.

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