PROC F_FL_PWRON_RD
;VERSION 6
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:  F_FL_PWRON_RD  
;#		   	MMS-F Name:  	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  15-MAR-95   BS
;#			    Revision:  1. 24-APR-95	HB
;#						2. 02-MAY-95   BS
;#						3. 02-JUN-95	TB
;#						4. 12-JUN-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).  Changed WAIT 
;#			   UNTIL (FSDTTMUX = H'2FFF') to WAIT UNTIL (FSDTTMUX = H'FFFF').
;#			2. Change discrete states for FSDMEMSx,Mx,Cx to 'Not Tested'.
;#			   Change discrete states for FSDJOB to 'Idle'. Change TM check
;#			   for FSDTTMUX to H'4FFf'.
;#			3. Modified turn on sequence.
;#			4. Add 'P@'s to checks of FIPWB.
;#			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.
;#			   Deleted check FSDMPBI = "MPB 2".  Changed FSDESRD check from
;#			   ON to STANDBY. Changed FSDCLMU1=3 to = 1, FSDCLMU3=1 to = 3.
;#			   Chenged FSDTTMUX check from H'4FFF' TO H'FFFF'.  Deleted check
;#			   FSDTOG = 0. All changes at request of PI - MOCR dated 12/1/95.
;#
;#		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 REDUNDANT Bus and 
;#			redundant side current.
;#
;#		2.2	Intended Use:
;#
;#			TURN ON CELIAS EXPERIMENT SIDE B (REDUNDANT).
;#
;#		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@FSPWB = "OFF") 
WAIT		;VERIFY DISABLE PLUGS IN PLACE FOR GROUND (AMBIENT) TEST.
WAIT UNTIL (P@PS2PE = "ON")
WAIT		;VERIFY CELIAS WITHIN OPERATIONAL TEMPERATURES.
WAIT UNTIL (P@QSFA = "OFF")
WAIT UNTIL (P@QSFB = "OFF")

/FCPWRBR					;Select DPU main power redundant side.
WAIT			;VERIFY BUFFER CONTENTS
/SEND

WAIT 5

/KNFPWBNR					;Power on Celias LCL red
WAIT			;VERIFY BUFFER CONTENTS
/SEND

WAIT UNTIL (P@FSPWB = "ON")
WAIT UNTIL ((P@FIPWB < 0.12) AND (P@FIPWB > 0.06))

WAIT 60

IF (FSDSWV < H'55')THEN
	/KNFPWBFR		;LCL CELIAS B PWR OFF (R)
	WAIT			;VERIFY BUFFER CONTENTS
	/SEND

	WAIT 30

	/KNFPWBNR		;LCL CELIAS B PWR ON (R)
	WAIT			;VERIFY BUFFER CONTENTS
	/SEND

	WAIT UNTIL (P@FSPWB = "ON")
	WAIT UNTIL ((P@FIPWB < 0.12) AND (P@FIPWB > 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'FFFF')
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