PROC C_FL_PWRON_R
;# VERSION 6
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:   C_FL_PWRON_R
;#		   	CDS Name:   CDS_ON 
;#		   	CDS Issue:  v3.4  	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  6-FEB-95
;#			    Revision: 	1. 21-FEB-95	MH
;#						2. 28-MAR-95	MH
;#						3.  1-MAY-95	MH
;#						4. 19-MAY-95	MH
;#						5. 01-Sept-95  TFM
;#                            6. 27-OCT-95   TFM
;#		1.3	Change Description:	
;#
;#			1. Replaced /CBCSLOBT with K_OBT_DIST to set OBT
;#			2. Added section delimiters.  Edited command comments and WAIT 
;#			   from Experimenters. Added page references.
;#			3. Changed OBT distribution from K_OBT_DIST to /KNK12000 in
;#			   section 3.
;#			4. Deleted LCL Power off command for CDS B. Added call to 
;#			   S K_EXP_MON_ENA to Enable experiment monitoring and
;#			   corrective action at end of procedure.
;#			5. Changed head information and changed two greater than checks 
;#                to greater than and equal to.
;#             6. Changed ts in name to fl. 
;#		1.4	Point of Contact:	CCazeau
;#			FOT Author:  MHill	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			Power On of CDS (Redundant)
;#
;#		2.2	Intended Use:
;#
;#			Normal Power On sequence of CDS (Redundant Case)
;#
;#		2.3	Duration:	TBD
;#
;#		2.4	References: pages I_EXP_STAT, C_CDS_STATUS_HK, C_CDHS_HARDWARE,
;#		   		C_EPS_HK
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			None
;#
;#		3.2	Critical Activities
;#
;#			NONE
;#
;#		3.3	Special Constraints or Activities
;#
;#			If procedure fails during check of Isolation Relay Status, then
;#			run procedure C_FL_SAFE before C_FL_PWRON_R
;#
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

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

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

IF (p@CSPWA = "ON") THEN
	/KNCPWAFN		;CDS A LCL Power Off (Nominal)
	WAIT		;Verify command buffer contents
	/SEND
	WAIT UNTIL (p@CSPWA = "OFF")
ENDIF


;******SECTION 2.2******

WAIT		;GO TO BEGIN POWER ON SEQUENCE

/CCPWRBR		;CDS Changeover Relay B Power (Redundant)
/KNCPWBNR		;CDS B LCL Power On (Redundant)
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSPWB = "ON")	;Verify CDS B Powered ON
WAIT UNTIL (p@CIPWB > 0.3) AND (p@CIPWB < 0.6)	;Check between .3 and .6 A

WAIT 5

/CCCRSETR		;CDHS Processor Reset (Redundant)
/CZCREPU1		;Select Redundant Interface Processor 1
WAIT		;Verify command buffer contents
/SEND

WAIT 15

/CB0CLER		;Clear and Boot from EPROM (blk,11,12,50,h0040,h1222,h0001)
WAIT		;Verify command buffer contents
/SEND

WAIT 30		;For Boot to complete

WAIT UNTIL (p@CIPWB > 0.25) AND (p@CIPWB < 0.3)	;Check between .25 and .3 A


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

WAIT		;GO To Set LOBT for CDS

/KNK12000,0800		;Distribute OBT to CDS
WAIT		;Verify command buffer contents
/SEND
WAIT 15
WAIT UNTIL (p@CSCLOBT = "RECEIVED")	;Verify CDS LOBT received

/CB5ZZZ		;CDS Snooze Mode
WAIT		;Verify command buffer contents
/SEND
WAIT UNTIL (CKCMODE = H'10')	;Check CDS Mode


;******SECTION 4.2******

;CHECK REDUNDANT ISOLATION RELAY STATUS (IF ANY FAIL RUN C_FL_SAFE):
WAIT UNTIL (p@CSSGHVR = "ENABLE")	
WAIT UNTIL (p@CSSVDSR = "ENABLE")
WAIT UNTIL (p@CSSFILR = "ENABLE")
WAIT UNTIL (p@CSSMECR = "ENABLE")
WAIT UNTIL (p@CSSDORR = "OFF")


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

;CHECK EPS RELAY INITIAL STATUS:
WAIT UNTIL (p@CSEVHV = "OFF") 	;Verify VDS HV OFF
WAIT UNTIL (p@CSEVHTR = "OFF")	;Verify VDS Heater OFF
WAIT UNTIL (p@CSEGHV1 = "OFF")	;Verify GIS HV 1 +27V Relay OFF
WAIT UNTIL (p@CSEGHV2 = "OFF")	;Verify GIS HV 2 +27V Relay OFF
WAIT UNTIL (p@CSEGHV3 = "OFF")	;Verify GIS HV 3 +27V Relay OFF
WAIT UNTIL (p@CSEGHV4 = "OFF")	;Verify GIS HV 4 +27V Relay OFF
WAIT UNTIL (p@CSEVDS = "OFF") 	;Verify VDS Elec +27V Relay OFF
WAIT UNTIL (p@CSEVSBY = "OFF")	;Verify VDS Standby +27V Relay OFF
WAIT UNTIL (p@CSECOMP = "OFF")	;Verify Compens. Heat (VDS Ballast) Relay OFF
WAIT UNTIL (p@CSEM5V = "OFF") 	;Verify MCU +5V Relay OFF
WAIT UNTIL (p@CSEG5V = "OFF") 	;Verify GIS +5V Relay OFF
WAIT UNTIL (p@CSEHTRS = "OFF")	;Verify Oper. Heater Power +27V Relay OFF
WAIT UNTIL (p@CSEFIL = "OFF") 	;Verify Filament Relay OFF
WAIT UNTIL (p@CSEIRXE = "_")  	;Verify Logic Receive Error Status (No error)
WAIT UNTIL (p@'C+EG12V' >= 0.0) AND (p@'C+EG12V' < 0.1) ;Verify GIS +12V between 
			;0.0 and 0.1 V
WAIT UNTIL (p@'C+EM12V' > 0.0) AND (p@'C+EM12V' < 0.3) ;Verify MCU +12V between 
			;0.0 and 0.3 V


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

;CHECK POWER CONVERTERS AND SUPPLY VOLTAGE:
WAIT UNTIL (p@'C+ESC27V' > 26.5) AND (p@'C+ESC27V' < 29.0)	;Verify +27V Voltage 
			;between 26.5 and 29.0 volts
WAIT UNTIL (p@'C+ECN5V' > 5.08) AND (p@'C+ECN5V' < 5.28)	;Verify +5V Conv.
			;Voltage between 5.08 and 5.28 volts
WAIT UNTIL (p@'C+ECN12V' > 12.08) AND (p@'C+ECN12V' < 12.28) ;Verify +12V Conv.
			;Voltage between 12.08 and 12.28 volts
WAIT UNTIL (p@'C-ECN12V' >= -12.28) AND (p@'C-ECN12V' < -12.08) ;Verify -12V Conv.
			;Voltage between -12.28 and -12.08 volts
WAIT UNTIL (p@'CIEU+27V' < 10)	;Verify +27V current < 10mA


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

;CHECK EPS MONITORED TEMPS:
WAIT UNTIL (p@CTEE1 > 0.0) AND (p@CTEE1 < 25.0)	;Verify EPS Temp 1
WAIT UNTIL (p@CTEE2 > 0.0) AND (p@CTEE2 < 25.0)	;Verify EPS Temp 2
WAIT UNTIL (p@CTEE3 > 0.0) AND (p@CTEE3 < 25.0)	;Verify EPS Temp 3
WAIT UNTIL (p@CTEE4 > 0.0) AND (p@CTEE4 < 25.0)	;Verify EPS Temp 4
WAIT UNTIL (p@CTEC1 > 0.0) AND (p@CTEC1 < 25.0)	;Verify CDHS Temp 1
WAIT UNTIL (p@CTEC2 > 0.0) AND (p@CTEC2 < 25.0)	;Verify CDHS Temp 2
WAIT UNTIL (p@CTEC3 > 0.0) AND (p@CTEC3 < 25.0)	;Verify CDHS Temp 3
WAIT UNTIL (p@CTEC4 > 0.0) AND (p@CTEC4 < 25.0)	;Verify CDHS Temp 4


;******SECTION 8******

;CHECK CDHS I:
WAIT UNTIL (p@'CIEC+5V' > 800) AND (p@'CIEC+5V' < 950)	;CDHS +5V Current

START K_EXP_MON_ENA	;Enable experiment monitoring and corrective action 

OUT:
;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		None
;#
;#**************************************************************************
RETURN
ENDPROC