PROC C_FL_OPS
;Version 3
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name: 	C_FL_OPS
;#		   	CDS Name: 	CDS_MCU2
;#		   	CDS Issue:	
;#			Simulator Validation Status: COBS level only
;#
;#		1.2	Date Created:  17-MAY-95
;#			    Revision:  1.  6-3-95 	BS
;#						2.  8-AUG-95	MH
;#                            3. 27-OCT-95   TFM
;#		1.3	Change Description:	
;#
;#			1. Add command CBMPMOF to be sent with CBMPBOF.  Change data word
;#			   on command CBMOPSRP to A280. Change sata word for cmd CBMOPSLP
;#			   to B280.
;#			2. Add intended use, duration, page references.  Grouped Primary
;#			   and redundant Actuator position checks together and added 
;#			   TIMEOUTs to them.
;#             3. 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
;#
;#			This procedure was derived from C_TS_MCU2 sections 15-20 for 
;#			GSCT2.
;#
;#		2.2	Intended Use:
;#
;#			Test of CDS OPS.
;#
;#		2.3	Duration:	25 min
;#
;#		2.4	References: pages C_MCU_HK1, C_CDS_STATUS_HK
;#
;#**************************************************************************
;#	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


;******SECTION 15******

;OFFSET POINTING POWER
/CBMPBON		;Power BU OPS ON
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMPOPS = "ON")		;Check OPS Power Status

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

/CBMPBOF		;Power BU OPS OFF
/CBMPMOF
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMPOPS = "OFF")	;Check OPS Power Status

/CBMPMON		;Power OPS ON
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMPOPS = "ON")		;Check OPS Power Status
WAIT UNTIL ((p@'CIEU+27V' > 10) AND (p@'CIEU+27V' < 30)) ;Check S/C +27V Current


;******SECTION 16******

;RIGHT ACTUATOR - CLOSED LOOP
/CBMOPSRP,A280		;OPS Right Position (bottom end)
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL ((CKMORP > H'4FC') AND (CKMORP < H'504') AND (CKMORR > H'52B') AND (CKMORR < H'53B')) TIMEOUT 480  
		;OPS Right Actuator Position Primary and Redundant timeout 8 minutes

/CBMOPSRP,A800		;OPS Right Position (home)
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL ((CKMORP > H'7FC') AND (CKMORP < H'804') AND (CKMORR > H'82B') AND (CKMORR < H'83B')) TIMEOUT 240 
		;OPS Right Action Position Primary and Redundant timeout 4 minutes


;******SECTION 17******

;RIGHT ACTUATOR - OPEN LOOP
/CBMOPSRD		;OPS Right Down 1 Step
/CBMOPSRD		;OPS Right Down
/CBMOPSRD		;OPS Right Down
/CBMOPSRD		;OPS Right Down
/CBMOPSRD		;OPS Right Down
/CBMOPSRD		;OPS Right Down
/CBMOPSRD		;OPS Right Down
/CBMOPSRD		;OPS Right Down
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL ((CKMORP > H'7F4') AND (CKMORP < H'7FC'))  ;OPS Right Action Position
			;Primary
WAIT UNTIL ((CKMORR > H'822') AND (CKMORR < H'832'))  ;OPS Right Action Position
			;Redundant

/CBMOPSRU		;OPS Right Up 1 Step
/CBMOPSRU		;OPS Right Up 1 Step
/CBMOPSRU		;OPS Right Up 1 Step
/CBMOPSRU		;OPS Right Up 1 Step
/CBMOPSRU		;OPS Right Up 1 Step
/CBMOPSRU		;OPS Right Up 1 Step
/CBMOPSRU		;OPS Right Up 1 Step
/CBMOPSRU		;OPS Right Up 1 Step
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL ((CKMORP > H'7FC') AND (CKMORP < H'804'))  ;OPS Right Action Position
			;Primary
WAIT UNTIL ((CKMORR > H'82D') AND (CKMORR < H'83D'))  ;OPS Right Action Position
			;Redundant


;******SECTION 18******

;LEFT ACTUATOR - CLOSED LOOP
/CBMOPSLP,B280		;OPS left Position (bottom end)
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL ((CKMOLP > H'4FC') AND (CKMOLP < H'504') AND (CKMOLR > H'4C4') AND (CKMOLR < H'4D4')) TIMEOUT 480  
		;OPS Left Actuator Position Primary and Redundant timeout 8 minutes

/CBMOPSLP,B800		;OPS left Position (home)
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL ((CKMOLP > H'7FC') AND (CKMOLP < H'804') AND (CKMOLR > H'7CA') AND (CKMOLR < H'7DA')) TIMEOUT 240 
		;OPS Left Action Position Primary and Redundant timeout 4 minutes


;******SECTION 19******

;LEFT ACTUATOR - OPEN LOOP
/CBMOPSLD		;OPS Left Down 1 Step
/CBMOPSLD		;OPS Left Down
/CBMOPSLD		;OPS Left Down
/CBMOPSLD		;OPS Left Down
/CBMOPSLD		;OPS Left Down
/CBMOPSLD		;OPS Left Down
/CBMOPSLD		;OPS Left Down
/CBMOPSLD		;OPS Left Down
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL ((CKMOLP > H'7F4') AND (CKMOLP < H'7FC'))  ;OPS Left Action Position
			;Primary
WAIT UNTIL ((CKMOLR > H'7C2') AND (CKMOLR < H'7D2'))  ;OPS Left Action Position
			;Redundant

/CBMOPSLU		;OPS Left Up 1 Step
/CBMOPSLU		;OPS Left Up 1 Step
/CBMOPSLU		;OPS Left Up 1 Step
/CBMOPSLU		;OPS Left Up 1 Step
/CBMOPSLU		;OPS Left Up 1 Step
/CBMOPSLU		;OPS Left Up 1 Step
/CBMOPSLU		;OPS Left Up 1 Step
/CBMOPSLU		;OPS Left Up 1 Step
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL ((CKMOLP > H'7FC') AND (CKMOLP < H'804'))  ;OPS Left Action Position
			;Primary
WAIT UNTIL ((CKMOLR > H'7CA') AND (CKMOLR < H'7DA'))  ;OPS Left Action Position
			;Redundant


;******SECTION 20******

;OPS POWER OFF
/CBMPMOF		;Power OPS OFF
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMPOPS = "OFF")	;Check OPS Power Status

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