PROC F_FL_PWRON_PR
;VERSION 6
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:  F_FL_PWRON_PR  
;#		   	MMS-F Name:  	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  14-MAR-95   BS
;#			    Revision:	1. 24-APR-95	HB  
;#						2. 02-MAY-95   BS
;#						3. 02-JUN-95   CG
;#						4. 18-SEP-95   BS
;#						5. 25-OCT-95	BB
;#						6. 08-DEC-95	MH
;#
;#		1.3	Change Description:	
;#
;#			1. Changed WAIT UNTIL (FSDSWV >= 43) to WAIT UNTIL (FSDSWV >=
;#			   H'55').  Deleted four WAIT UNTIL (P@FSDJOB... statements prior 
;#			   to WAIT UNTIL (P@FSDJOB = "IDLE").  Changed 0ff to Off in WAIT 
;#			   UNTIL (P@FSDSPS2... statement.  Deleted 18 WAIT UNTIL statements
;#			   after WAIT UNTIL (FSDSCECC = 0).
;#			2. Change discrete states for FSDMEMSx,Mx,Cx to 'Not Tested. 
;#			   Change discrete state for FSDESRD to 'On', FSDJOB to 'Idle'.
;#			   Add P@s to check for FIPWA.
;#			3. Modified turn on sequence.
;#			4. Delete check for FSDMPB1 and FSDTOG. Change discrete for
;#			   FSDESRD to STANDBY vice On. FSDCLMU1 = 1, FSDCLMU3 = 3.
;#			5. Changed proc name from TS to FL. Updated version number.
;#			6. Changed Op Htr OFF checks from QSF1 and QSF4 to QSFA and QSFB.
;#
;#		1.4	Point of Contact:	
;#			FOT Author: BSAPPER  	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			Power on CELIAS into SAFE mode using DPU MAIN Bus and 
;#			nominal side current.
;#
;#		2.2	Intended Use:
;#
;#			TURN ON CELIAS EXPERIMENT SIDE A (PRIME).
;#
;#		2.3	Duration:	15 min.
;#
;#		2.4 References:
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			None
;#
;#		3.2	Critical Activities
;#
;#			TBD
;#
;#		3.3	Special Constraints or Activities
;#
;#			Power line selection for the DPU must only take place when
;#			CELIAS is off. The cmds to select DPU power are critical.
;#			When S/C is in ambient conditions, the High Voltage DISABLE 
;#			must be in place to prevent HV turn on to prevent exp damage.
;#			Verify with CELIAS rep that disable plugs for CTOF (1 plug),
;#			MTOF (1 plug), and STOF (3 plugs) are in place.
;#			HV cmds identified as critical should only be sent with 
;#			authorization by exp rep. Written authorization is required for
;#			critical cmds used to open exp doors. Do not power on unless
;#			power off proc is available.
;#
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

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

WAIT UNTIL (P@FSPWA = "OFF") 
WAIT		;VERIFY DISABLE PLUGS IN PLACE FOR GROUND (AMBIENT) TEST.
WAIT UNTIL (P@PS1PE = "ON")
WAIT		;VERIFY CELIAS WITHIN OPERATIONAL TEMPERATURES.
WAIT UNTIL (P@QSFA = "OFF")
WAIT UNTIL (P@QSFB = "OFF")

/FCPWRAN					;Select DPU main power nominal side.
WAIT			;VERIFY BUFFER CONTENTS
/SEND

WAIT 5

/KNFPWANN					;Power on Celias LCL nom
WAIT			;VERIFY BUFFER CONTENTS
/SEND

WAIT UNTIL (P@FSPWA = "ON")
WAIT UNTIL ((P@FIPWA < 0.12) AND (P@FIPWA > 0.06))

WAIT 60

IF (FSDSWV < H'55' )THEN
	/KNFPWAFN		;LCL CELIAS A PWR OFF(N)
	WAIT			;VERIFY BUFFER CONTENTS
	/SEND

	WAIT 30

	/KNFPWANN		;LCL CELIAS A PWR ON(N)
	WAIT			;VERIFY BUFFER CONTENTS
	/SEND

	WAIT UNTIL (P@FSPWA = "ON")
	WAIT UNTIL ((FIPWA < 0.12) AND (FIPWA > 0.06))
	WAIT UNTIL (FSDSWV >= H'55' )
ENDIF

START K_EXP_MON_ENA			;Start proc to enable exp monitoring.

WAIT UNTIL (P@FSDESRD = "STANDBY")
WAIT UNTIL (P@FSDJOB = "Idle")
WAIT UNTIL (FSDPOC >= 1 )
WAIT	;VERIFY FSDIDLE starts at zero and ends at about 60
WAIT	;VERIFY FSDEDBC increments by 1 every 15 sec
WAIT	;VERIFY FSDHDBC increments by 1 every 15 sec,should be w/in 1 or 2 of EDB 
WAIT UNTIL (FSDPEC = 0)
WAIT UNTIL (FSDCLMU1 = 1)
WAIT UNTIL (FSDCLMU2 = 2)
WAIT UNTIL (FSDCLMU3 = 3)

WAIT UNTIL (FSDTTMUX = H'2000')
WAIT UNTIL (P@FSDSPS1 = "Off")
WAIT UNTIL (P@FSDSPS2 = "Off")
WAIT UNTIL (P@FSDSPS3 = "Off")
WAIT UNTIL (P@FSDSPM1 = "Off")
WAIT UNTIL (P@FSDSPM2 = "Off")
WAIT UNTIL (P@FSDSPM3 = "Off")
WAIT UNTIL (P@FSDSPC1 = "Off")
WAIT UNTIL (P@FSDSPC2 = "Off")
WAIT UNTIL (P@FSDMODS = "Power Off")
WAIT UNTIL (P@FSDMODM = "Power Off")
WAIT UNTIL (P@FSDMODC = "Power Off")

WAIT UNTIL (FSDTCOK = 0 )
WAIT UNTIL (FSDTCERR = 0 )
WAIT UNTIL (FSDEXAD = 5 )
WAIT UNTIL (P@FSDTCHS1 = "<empty>")
WAIT UNTIL (P@FSDTCHS2 = "<empty>")
WAIT UNTIL (P@FSDTCHS3 = "<empty>")
WAIT UNTIL (FSDSCECS = 0 )
WAIT UNTIL (FSDSCECM = 0 )
WAIT UNTIL (FSDSCECC = 0 )

WAIT UNTIL (P@FSDMEMS1 = "Not Tested")
WAIT UNTIL (P@FSDMEMS2 = "Not Tested")
WAIT UNTIL (P@FSDMEMM1 = "Not Tested")
WAIT UNTIL (P@FSDMEMM2 = "Not Tested")
WAIT UNTIL (P@FSDMEMC1 = "Not Tested")
WAIT UNTIL (P@FSDMEMC2 = "Not Tested")

/KNK12000,0400
WAIT 		;VERIFY BUFFER CONTENTS
/SEND

WAIT		;VERIFY FSDTCOK 0 -> 1 AFTER CMD RECEIVE
WAIT 	;VERIFY FSDTOG 0 -> 1 AFTER CMD RECEIVE
WAIT		;VERIFY FKTMOBTS IS SYNCED W OBT

;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		TBD
;#
;#**************************************************************************
ENDPROC