PROC G_FL_RECOVERY
;Version 8
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:		G_FL_RECOVERY
;#		    MMS-F Name:	GLF_RECOVERY (Case 1)
;#		    SUM Issue:		N/A
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:	8-SEP-94
;#				Revision:	1. 14-NOV-94	MH
;#						2. 30-NOV-94   BS
;#						3. 24-JAN-95	HB
;#						4. 08-MAR-95	CG
;#						5. 19-OCT-95	TB
;#						6. 03-NOV-95	TB
;#						7.  6-DEC-95	MH
;#						8.  8-DEC-95	MH
;#
;#		1.3	Change Description:	
;#
;#			1. Deleted TM checks for exe and par.
;#			2. Added waits for GKTCxEXE, GKTCxPAR(x=4) after /GBDOCL
;#			   Added waits for GKTCxEXE, GKTCxPAR(x=2,3,4) after
;#			   /GBPOFIX,/GBHV2ON
;#			   Added waits for GKTCxEXE, GKTCxPAR(x=1,2,3,4) after
;#			   /GBCSOF,/GBSP2THR,/GBCOUDUR,/GBFIRNG,/GBFINB,/GBCSSTP,
;#			   /GBCSNB,/GBHV2ON,/GBCSMON,/GBSWDIEA
;#			   /GBFICST,2328 -> /GBFICST,1000
;#			   Sending /GBPM1FRE,/GBPN2FRE with /GBCOUMAX,/GBCOUDUR
;#			   Delete WAITs for GSDOMOT,GSPWCHN,GSSENSID,GSDAYLD
;#			3. Changed TM value after GBSP2THR.  GKTC4EXE = 90 vice 50.
;#			   Changed TM value after GBCSNB.  GKTC4PAR = 10 vice 106.
;#			4. Corrected 'G-15' in WAIT statement.
;#			5. Changed name from TS -> FL. No TSTOL changes.
;#			6. Changed data words. See 10-31-95 MOCR
;#			7. Deleted TB/TV reference in intended use. OCD-40. No TSTOL.
;#			8. Really Deleted TB/TV reference in intended use. No TSTOL.
;#
;#		1.4	Point of Contact:	CCazeau 286-6374
;#			FOT Author:	MHill	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			MAIN AND REDUNDANT CHANNEL RECOVERY TO STANDBY
;#
;#		2.2	Intended Use:
;#
;#			FS MAIN AND REDUNDANT CHANNEL RECOVERY TO STANDBY
;#
;#		2.3	Duration:	9 min
;#
;#		2.4 References:
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			None
;#
;#		3.2	Critical Activities
;#
;#			None
;#
;#		3.3	Special Constraints or Activities
;#
;#			This sequence will put GOLF experiment into Stand-By no matter 
;#			what the current status is.
;#
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

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

;RETURN TO STANDBY CONFIGURATION

/GBDOCL		;Close Door
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (GKTC4EXE = 37) AND (GKTC4PAR = 0)
WAIT UNTIL (P@GSDO = "CLOSE")

;SET POLARISER AND QUARTER-WAVE MECHANISMS IN STANDBY MODE
/GBPOINI,0400	
/GBQWINI,0800	
/GBPOFIX,0000
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (GKTC2EXE = 64)
WAIT UNTIL (GKTC2PAR = 1024)
WAIT	UNTIL (GKTC3EXE = 65)
WAIT UNTIL (GKTC3PAR = 2048)
WAIT	UNTIL (GKTC4EXE = 100)
WAIT UNTIL (GKTC4PAR = 0)

/GBQWFIX,0000
/GBMM+I		;TURN MODULATION CURRENT OFF
/GBMMON
/GBCSOF		;TURN CELL STEM HEATING OFF
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (GKTC1EXE = 101)
WAIT UNTIL (GKTC1PAR = 0)
WAIT UNTIL (GKTC2EXE = 45)
WAIT UNTIL (GKTC2PAR = 0)
WAIT	UNTIL (GKTC3EXE = 44)
WAIT UNTIL (GKTC3PAR = 0)
WAIT	UNTIL (GKTC4EXE = 53)
WAIT UNTIL (GKTC4PAR = 0)

/GBCBCST,3000	;TURN CELL BULB HEATING AT NOMINAL LEVEL
/GBFICST,2000	;TURN FILTER HEATING ON AT NOMINAL LEVEL

;SELECT CONSTANT MODE AND PARAMETERS FOR SPECTRAL CHANNELS
/GBSP1THR,005A
/GBSP2THR,005A
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (GKTC1EXE = 75)
WAIT UNTIL (GKTC1PAR = 12288)
WAIT UNTIL (GKTC2EXE = 68)
WAIT UNTIL (GKTC2PAR = 8192)
WAIT	UNTIL (GKTC3EXE = 89)
WAIT UNTIL (GKTC3PAR = 90)
WAIT	UNTIL (GKTC4EXE = 90)
WAIT UNTIL (GKTC4PAR = 90)

;INHIBIT PMTs COUNTING RATE MONITORING
/GBPM1FRE
/GBPM2FRE

;RETURN TO DEFAULT VALUES
/GBCOUMAX,1000
/GBCOUDUR,0005
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (GKTC1EXE = 33)
WAIT UNTIL (GKTC1PAR = 0)
WAIT UNTIL (GKTC2EXE = 32)
WAIT UNTIL (GKTC2PAR = 0)
WAIT	UNTIL (GKTC3EXE = 102)
WAIT UNTIL (GKTC3PAR = 4096)
WAIT	UNTIL (GKTC4EXE = 103)
WAIT UNTIL (GKTC4PAR = 5)

/GBSP1END,00CE
/GBSP2END,00CE
/GBPOSTP,0000
/GBFIRNG,0005
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (GKTC1EXE = 98)
WAIT UNTIL (GKTC1PAR = 206)
WAIT UNTIL (GKTC2EXE = 99)
WAIT UNTIL (GKTC2PAR = 206)
WAIT	UNTIL (GKTC3EXE = 66)
WAIT UNTIL (GKTC3PAR = 0)
WAIT	UNTIL (GKTC4EXE = 69)
WAIT UNTIL (GKTC4PAR = 0)

/GBFISAMP,0040
/GBFIPAU,0080
/GBFISTP,0001
/GBFINB,000A
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (GKTC1EXE = 70)
WAIT UNTIL (GKTC1PAR = 64)
WAIT UNTIL (GKTC2EXE = 71)
WAIT UNTIL (GKTC2PAR = 128)
WAIT	UNTIL (GKTC3EXE = 72)
WAIT UNTIL (GKTC3PAR = 1)
WAIT	UNTIL (GKTC4EXE = 73)
WAIT UNTIL (GKTC4PAR = 10)

/GBFIDUR,0040
/GBCBSTP,0000
/GBCBGRAD,011E
/GBCSSTP,0010
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (GKTC1EXE = 74)
WAIT UNTIL (GKTC1PAR = 64)
WAIT UNTIL (GKTC2EXE = 77)
WAIT UNTIL (GKTC2PAR = 0)
WAIT	UNTIL (GKTC3EXE = 78)
WAIT UNTIL (GKTC3PAR = 286)
WAIT	UNTIL (GKTC4EXE = 79)
WAIT UNTIL (GKTC4PAR = 16)

/GBCSRNG,0005
/GBCSSAMP,0040
/GBCSPAU,0080
/GBCSNB,000A
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (GKTC1EXE = 80)
WAIT UNTIL (GKTC1PAR = 5)
WAIT UNTIL (GKTC2EXE = 81)
WAIT UNTIL (GKTC2PAR = 64)
WAIT	UNTIL (GKTC3EXE = 82)
WAIT UNTIL (GKTC3PAR = 128)
WAIT	UNTIL (GKTC4EXE = 83)
WAIT UNTIL (GKTC4PAR = 10)

/GBCSDUR,0040
/GBHV1ON,0000
/GBHV2ON,0000
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (GKTC2EXE = 84)
WAIT UNTIL (GKTC2PAR = 64)
WAIT	UNTIL (GKTC3EXE = 85)
WAIT UNTIL (GKTC3PAR = 0)
WAIT	UNTIL (GKTC4EXE = 86)
WAIT UNTIL (GKTC4PAR = 0)

/GBSC1THR,003C
/GBCBMAX,0F3C,0F3C
/GBCSMON
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (GKTC1EXE = 87)
WAIT UNTIL (GKTC1PAR = 60)
WAIT UNTIL (GKTC2EXE = 95)
WAIT UNTIL (GKTC2PAR = 3900)
WAIT	UNTIL (GKTC3EXE = 96)
WAIT UNTIL (GKTC3PAR = 3900)
WAIT	UNTIL (GKTC4EXE = 31)
WAIT UNTIL (GKTC4PAR = 0)

/GBSC2THR,003C
/GB8HDLAY,0168
/GBSWDUIA,0000
/GBSWDUEA,FFFF
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (GKTC1EXE = 88)
WAIT UNTIL (GKTC1PAR = 60)
WAIT UNTIL (GKTC2EXE = 94)
WAIT UNTIL (GKTC2PAR = 360)
WAIT	UNTIL (GKTC3EXE = 92)
WAIT UNTIL (GKTC3PAR = 0)
WAIT	UNTIL (GKTC4EXE = 93)
WAIT UNTIL (GKTC4PAR = 65535)

WAIT UNTIL (P@GSFIMOD = "HEAT CST")
WAIT UNTIL (P@GSCBCST = "HEAT CST")
WAIT UNTIL (P@GSCSMOD = "HEAT OFF")

WAIT UNTIL (P@GSSP1 = "CST")
WAIT UNTIL (P@GSSP2 = "CST")
WAIT UNTIL (P@GSHV1 = "ON")
WAIT UNTIL (P@GSHV2 = "ON")

WAIT UNTIL (P@GSDO = "CLOSE")

WAIT UNTIL (P@GSMMOO = "ON")
WAIT UNTIL (P@GSMM = "PERM+I")

WAIT UNTIL (P@GSPOCHN = "ON")
WAIT UNTIL (P@GSQWCHN = "ON")

WAIT UNTIL (P@GSMECMOD = "QW TECH")

WAIT UNTIL ((P@'G+5' > 4.6) AND (P@'G+5' < 5.3))
WAIT UNTIL ((P@'G-5' > -5.7) AND (P@'G-5' < -5.0))
WAIT UNTIL ((P@'G+15' > 14.6) AND (P@'G+15' < 15.3))
WAIT UNTIL ((P@'G-15' > -15.3) AND (P@'G-15' < -14.6))
WAIT UNTIL ((P@'G+28' > 27) AND (P@'G+28' < 28.5))

WAIT UNTIL (P@GSDPUID = "FS")

WAIT UNTIL (P@GSONSEQ = "ENDED")
WAIT UNTIL (P@GSWDSTA = "NO")

WAIT UNTIL (P@GSWDRST = "NRST")

WAIT UNTIL (P@GSTIMLD = "WELC")
WAIT UNTIL (P@GSPROMPW = "OFF")

;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		NONE
;#
;#**************************************************************************
ENDPROC