PROC V_FL_LOICAL
;Version 5
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:  V_FL_LOICAL  
;#		   	VIRGO Name:  LOI Guiding Calibration & Commissioning 2nd 
;#						Part (PROC 17)  	 
;#		   	Issue/Rev:  2.8   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  18 JAN 95
;#			    Revision:  1. 30-MAR-95	HB
;#						2. 08-AUG-95	HB
;#						3. 30-AUG-95	HB
;#						4. 16-JAN-95	HB
;#						5. 23-MAR-96	HB
;#
;#		1.3	Change Description:	
;#
;#			1. Updated memory load commands to VZML.  Changed length of
;#			   WAIT statements.
;#			2. Added version number.  Added page references.  Removed TBDs.
;#			   Deleted WAIT statements between commands.  Deleted commands
;#			   per Rev 2.3.
;#			3. Made flight ready.  Changed name from v_ts_loical.  No
;#			   TSTOL changes.
;#			4. Deleted two VZML commands (data words 6004 and 8007) with
;#			   associated telemetry checks.  Added six VZML commands (data 
;#			   words 6080, 6084, 6085, 90BF, 8005, 4008) and associated
;#			   telemetry checks.
;#			5. Deleted VZML,800F 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 conducts a calibration of LOI guiding during
;#			TTP.
;#
;#		2.2	Intended Use:
;#
;#			
;#
;#		2.3	Duration:	65 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
;#
;#			LOI already in the nominal mode.
;#
;#		3.2	Critical Activities
;#
;#			None.
;#
;#		3.3	Special Constraints or Activities
;#
;#			Sun pointing.
;#
;#			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,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.

/VZML,609C		;LOI Z-axis fix on 1/2.
WAIT				;Verify contents of command buffer.
/SEND

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

/VZML,6088		;LOI Y-axis fix on FS.
WAIT				;Verify contents of command buffer.
/SEND

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

/VZML,6090		;LOI Y-axis fix on 3/4 FS.
WAIT				;Verify contents of command buffer.
/SEND

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

/VZML,6098		;LOI Y-axis fix on 1/2 FS.
WAIT				;Verify contents of command buffer.
/SEND

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

/VZML,60A0		;LOI Y-axis fix on 1/4 FS.
WAIT				;Verify contents of command buffer.
/SEND

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

/VZML,60A8		;LOI Y-axis fix on minimum.
WAIT				;Verify contents of command buffer.
/SEND

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

/VZML,6098		;LOI Y-axis fix on 1/2 FS.
WAIT				;Verify contents of command buffer.
/SEND

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

/VZML,608C		;LOI Z-axis fix on FS.
WAIT				;Verify contents of command buffer.
/SEND

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

/VZML,6094		;LOI Z-axis fix on 3/4 FS.
WAIT				;Verify contents of command buffer.
/SEND

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

/VZML,609C		;LOI Z-axis fix on 1/2 FS.
WAIT				;Verify contents of command buffer.
/SEND

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

/VZML,60A4		;LOI Z-axis fix on 1/4 FS.
WAIT				;Verify contents of command buffer.
/SEND

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

/VZML,60AC		;LOI Z-axis fix on minimum.
WAIT				;Verify contents of command buffer.
/SEND

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

/VZML,60AD		;LOI HV OFF.
WAIT				;Verify contents of command buffer.
/SEND

WAIT UNTIL(VSTCRETN=H'60AD')		;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.
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.

/VZML,90BF		;Ref1, SPM-A, PMO-A, BU: Cyclic SPM-B, PMO-B.
WAIT				;Verify contents of command buffer.
/SEND

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

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

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

/VZML,4008		;PMO-B:  LU en, Shutter closed.
WAIT				;Verify contents of command buffer.
/SEND

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

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