PROC C_FL_GISON
;# VERSION 3
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name: 	C_FL_GISON
;#		   	CDS Name: 	
;#		   	CDS Issue:	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  17-MAY-95
;#			    Revision:  1. 03-JUN-95  BS
;#						2. 01-Sept-95 TFM
;#                            3. 27-OCT-95  TFM
;#		1.3	Change Description:	
;#
;#			1. Add upper limits for CUGHV1-4. Change lower limit for
;#			   CTGTEMP1,2,3. 
;#			2. Changed header information and changed a WAIT to WAIT UNTIL 
;#			   command buffer cleared.
;#             3. Changed ts in name to fl.
;#		1.4	Point of Contact:	MHill
;#			FOT Author:  MHill	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			This procedure is derived from C_TS_GIS sections 1-7 for GSCT2.
;#
;#		2.2	Intended Use:
;#
;#			
;#
;#		2.3	Duration:	?
;#
;#		2.4	References:
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			None
;#
;#		3.2	Critical Activities
;#
;#			NONE
;#
;#		3.3	Special Constraints or Activities
;#
;#			NONE
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

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

WAIT UNTIL (CKCMODE = H'10')	;Verify CDS in Snooze Mode


;******SECTION 1******

;ENSURE HIGH VOLTAGES OFF
/CBEGHV1F		;GIS HV1 OFF
/CBEGHV2F		;GIS HV2 OFF
/CBEGHV3F		;GIS HV3 OFF
/CBEGHV4F		;GIS HV4 OFF
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSEGHV1 = "OFF")	;Relay ON/OFF +27V GIS HV 1
WAIT UNTIL (p@CSEGHV2 = "OFF")	;Relay ON/OFF +27V GIS HV 2
WAIT UNTIL (p@CSEGHV3 = "OFF")	;Relay ON/OFF +27V GIS HV 3
WAIT UNTIL (p@CSEGHV4 = "OFF")	;Relay ON/OFF +27V GIS HV 4

WAIT UNTIL (p@CSSGHVN = "ENABLE")	;Isolation relay


WAIT ; Verify TLM. 

;******SECTION 2******

;LOW VOLTAGE POWER ON
/CBEG5VN		;GIS +5V ON
/CBEG12VN		;GIS +/- 12V ON
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (p@CMD_STATE#TELECOMMAND = "AVAILABLE")

/CBGLDE		;Load from EPROM
WAIT		;Verify command buffer contents
/SEND

WAIT UNTIL (p@CSEG5V = "ON")	;Relay ON/OFF +5V GIS 
WAIT UNTIL (p@'C+EG12V' >= 12.1) AND (p@'C+EG12V' <= 12.3)
WAIT UNTIL (p@'C-EG12V' >= -12.3) AND (p@'C-EG12V' <= -12.1)

WAIT UNTIL (p@'CIEG+5V' > 300) AND (p@'CIEG+5V' < 360)	;Nom 320mA
WAIT UNTIL (p@'CIEG+12V' > 240) AND (p@'CIEG+12V' < 280)	;Nom 258mA
WAIT UNTIL (p@'CIEG-12V' > 180) AND (p@'CIEG-12V' < 210)	;Nom 192mA


;******SECTION 3******

;HOUSEKEEPING CHECKS
WAIT UNTIL ((p@'C+GA1A5V' >= 4.8) AND (p@'C+GA1A5V' <= 5.2))	;+5V A Anal Det 1
WAIT UNTIL ((p@'C+GA1B5V' >= 4.8) AND (p@'C+GA1B5V' <= 5.2))	;+5V B Anal Det 1	
WAIT UNTIL ((p@'C+GA2A5V' >= 4.8) AND (p@'C+GA2A5V' <= 5.2))	;+5V A Anal Det 2
WAIT UNTIL ((p@'C+GA2B5V' >= 4.8) AND (p@'C+GA2B5V' <= 5.2))	;+5V A Anal Det 2

WAIT UNTIL ((p@'C+GP1A5V' >= 4.8) AND (p@'C+GP1A5V' <= 5.2))	;+5V A Anal Proc Card 1
WAIT UNTIL ((p@'C+GP1B5V' >= 4.8) AND (p@'C+GP1B5V' <= 5.2))	;+5V B Anal Proc Card 1
WAIT UNTIL ((p@'C+GP2A5V' >= 4.8) AND (p@'C+GP2A5V' <= 5.2))	;+5V A Anal Proc Card 2
WAIT UNTIL ((p@'C+GP2B5V' >= 4.8) AND (p@'C+GP2B5V' <= 5.2))	;+5V B Anal Proc Card 2

WAIT UNTIL ((p@'C+GHK5V' >= 4.8) AND (p@'C+GHK5V' <= 5.2))	;+5V HK card
WAIT UNTIL ((p@'C+GA16V' >= 5.6) AND (p@'C+GA16V' <= 6.4))	;+6V Anal Card 1
WAIT UNTIL ((p@'C+GA26V' >= 5.6) AND (p@'C+GA26V' <= 6.4))	;+6V Anal Card 2
WAIT UNTIL ((p@'C+GHK12V' >= 11.8) AND (p@'C+GHK12V' <= 12.2))	;+12V HK Card
WAIT UNTIL ((p@'C-GA16V' >= -6.4) AND (p@'C-GA16V' <= -5.6))	;-6V Anal Card 1
WAIT UNTIL ((p@'C-GA26V' >= -6.4) AND (p@'C-GA26V' <= -5.6))	;-6V Anal Card 2
WAIT UNTIL ((p@'C-GHK12V' >= -12.2) AND (p@'C-GHK12V' <= -11.8))	;-12V HK card

WAIT UNTIL ((p@CUGHV1 < 0.04) AND (p@CUGHV1 > -0.1))	;HV Detector 1
WAIT UNTIL ((p@CUGHV2 < 0.04)	AND (p@CUGHV2 > -0.1))	;HV Detector 2
WAIT UNTIL ((p@CUGHV3 < 0.04)	AND (p@CUGHV3 > -0.1))	;HV Detector 3
WAIT UNTIL ((p@CUGHV4 < 0.04)	AND (p@CUGHV4 > -0.1))	;HV Detector 4

WAIT UNTIL ((p@CTGTEMP1 > 0) AND (p@CTGTEMP1 < 30))	;Temp Mon 1
WAIT UNTIL ((p@CTGTEMP2 > 0) AND (p@CTGTEMP2 < 30))	;Temp Mon 2
WAIT UNTIL ((p@CTGTEMP3 > 0) AND (p@CTGTEMP3 < 30))	;Temp Mon 3


;******SECTION 4******

;DEFAULT STATUS WORD VALUES
WAIT UNTIL (p@CSGDD1 = "ENABLED")	;Detector 1 Data Enabled
WAIT UNTIL (p@CSGDD2 = "ENABLED")	;Detector 2 Data Enabled
WAIT UNTIL (p@CSGDD3 = "ENABLED")	;Detector 3 Data Enabled
WAIT UNTIL (p@CSGDD4 = "ENABLED")	;Detector 4 Data Enabled

WAIT UNTIL (p@CSGHV1 = "DISABLED")	;HV 1 Enabled
WAIT UNTIL (p@CSGHV2 = "DISABLED")	;HV 2 Enabled
WAIT UNTIL (p@CSGHV3 = "DISABLED")	;HV 3 Enabled
WAIT UNTIL (p@CSGHV4 = "DISABLED")	;HV 4 Enabled

WAIT UNTIL (p@CSGMCPB1 = "-12V")		;Det 1 Bias at -12V
WAIT UNTIL (p@CSGMCPB2 = "-12V")		;Det 2 Bias at -12V
WAIT UNTIL (p@CSGMCPB3 = "-12V")		;Det 3 Bias at -12V
WAIT UNTIL (p@CSGMCPB4 = "-12V")		;Det 4 Bias at -12V

WAIT UNTIL (p@CSGIMIF = "NOMINAL")	;IMIF Selected
WAIT UNTIL (p@CSGSTIM = "OFF")	;Electrical Stim Status


;******SECTION 5******

/NRT TPUT RSUM
/CMSMSG CDS 'CHECK BKGHV(1,2,3,4)L = 0 AND BKGLDLD(1,2,3,4) = 4'
WAIT	;WAIT FOR VERIFICATION OF DEFAULT THRESHOLDS (CHECKED ON CDS IWS)
;BKGHV1L = 0
;BKGHV2L = 0
;BKGHV3L = 0
;BKGHV4L = 0

;BKGLDLD1 = 4
;BKGLDLD2 = 4
;BKGLDLD3 = 4
;BKGLDLD4 = 4
/NRT TPUT PAUS


;******SECTION 6******

;COMMAND FUNCTION
WAIT UNTIL (CKGCMDI = 0)		;Number of invalid commands
WAIT UNTIL (CKGCMDV = 0)		;Number of valid commands

/CBGNOOP		;CDS NOOP
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (CKGCMDI = 0)		;Number of invalid commands
WAIT UNTIL (CKGCMDV = 1)		;Number of valid commands


;******SECTION 7******

;CHECK REDUNDANT IMIF
/CBCIMIR		;CDHS switch to IMIF Redundant
WAIT		;Verify command buffer contents
/SEND
WAIT 15
WAIT UNTIL (p@CSGIMIF = "REDUND")	;IMIF Selected

/CBGNOOP		;CDS NOOP
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (CKGCMDV = 2)		;Number of valid commands

/CBGNOOP		;CDS NOOP
/CBGNOOP		;CDS NOOP
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (CKGCMDV = 4)		;Number of valid commands

/CBCIMIP		;CDHS switch to IMIF prime.
WAIT		;Verify command buffer contents
/SEND
WAIT 15
WAIT UNTIL (p@CSGIMIF = "NOMINAL")	;IMIF Selected
	
OUT:
;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		NONE
;#
;#**************************************************************************
RETURN
ENDPROC