PROC C_FL_MCUON
;Version 2
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name: 	C_FL_MCUON
;#		   	CDS Name: 	CDS_MCU1
;#		   	CDS Issue:	
;#			Simulator Validation Status: COBS level only.
;#
;#		1.2	Date Created:  19-MAY-95
;#			    Revision:  1. 03-JUN-95	BS
;#						2. 07-AUG-95	MH
;#                            3. 27-OCT-95   TFM
;#		1.3	Change Description:	
;#
;#			1. Update tm checks: CIEM+5V,CIEM+12V, CIEM-12V. Add check 
;#			   for CSMPMIRR.
;#			2. Add intended use, duration, page references, modified Analog
;#			   MCU temp TM checks (( )).
;#             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 taken from sections 1-7 of C_TS_MCU1.
;#
;#		2.2	Intended Use:
;#
;#			Power on and check of CDS MCU.
;#
;#		2.3	Duration:	5 min
;#
;#		2.4	References: C_CDS_STATUS_HK, C_MCU_HK2
;#
;#**************************************************************************
;#	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******

WAIT	;GO TO POWER MCU ON
/CBEHTRSF		;Op Heater OFF
/CBEM5VN		;MCU +5V ON
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSEM5V = "ON")

WAIT 5

/CBEM12VN
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL ((p@'CIEM+5V' < 350) AND (p@'CIEM+5V' > 250))
							;MCU +5V Current (nom 296mA)
WAIT UNTIL ((p@'CIEM+12V' < 180) AND (p@'CIEM+12V' > 140))
							;MCU +12V Current (nom 160mA)
WAIT UNTIL ((p@'CIEM-12V' < 160) AND (p@'CIEM-12V' > 140))
							;MCU -12V Current (nom 146mA)


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

;CHECK ALL MCU MECHANSIM RELAYS OFF
;These relays have 12V coils.  Relay status telemetry works on the 28V being
;present on the output side, so cannot be checked without mechanisms 28V ON.

WAIT UNTIL (p@CSSMECN = "ENABLE")	;Ensure Mechanism power ON
WAIT UNTIL (p@'CIEU+27V' <= 10)	;Check S/C +27V current

WAIT UNTIL (p@CSMPSLIT = "OFF")	;Slit Power Status
WAIT UNTIL (p@CSMPOPS = "OFF")	;Ops. Power Status
WAIT UNTIL (p@CSMPDOR = "OFF")	;Door Power Status 
WAIT UNTIL (p@CSMPHTR = "OFF")	;Heater Power Status
WAIT UNTIL (p@CSMPBDOR = "OFF")	;Backup Door Power Status
WAIT UNTIL (p@CSMPMIRR = "OFF")

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

;ENSURE HEATERS OFF AND INITIALIZE
/CBMHTRPL,D000		;Set Heaters power limit (Prime heater power = 0)
/CBMHTRP			;Select prime heaters (MCU control)
/CBMHTRBS,D400		;Set backup heaters all 8 OFF
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMHTRM = "MAIN")	;Heater Mode
WAIT UNTIL (CSMMHTRS = 0)		;Main Heater Status
WAIT UNTIL (CSMBHTRS = 0)		;Backup Heater Status


WAIT 5

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

;IMIF TEST
/CBMHTRB		;Backup Heater status byte is used as a pattern generator
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMHTRM = "BACKUP")	;Heater Mode

/CBCIMIR		;CDHS switch to IMIF Redundant
WAIT			;Verify command buffer contents
/SEND

WAIT 15		;For MCU to detect

/CBMHTRBS,D4AA		;Set backup heaters
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CSMBHTRS = H'AA')		;Backup Heater Status data returned on
		;redundant if IMIF has switched

/CBCIMIP		;CDHS switch to IMIF Prime
WAIT			;Verify command buffer contents
/SEND

WAIT 15		;For MCU to detect

/CBMHTRBS,D455		;Set backup heaters
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CSMBHTRS = H'55')	;Backup Heater Status data returned on prime

/CBMHTRBS,D400		;Set backup heaters all OFF
/CBMHTRP			;Select prime heaters (MCU control)
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMHTRM = "MAIN")	;Heater Mode
WAIT UNTIL (CSMMHTRS = 0)		;Main Heater Status


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

;CHECK TEMPERATURES, ANALOG MONITORS
WAIT UNTIL ((p@CTM0 > 15) AND (p@CTM0 < 30))	;MCU Temp Sensor 0
WAIT UNTIL ((p@CTM1 > 15) AND (p@CTM1 < 30))	;MCU Temp Sensor 1
WAIT UNTIL ((p@CTM2 > 15) AND (p@CTM2 < 30))	;MCU Temp Sensor 2
WAIT UNTIL ((p@CTM3 > 15) AND (p@CTM3 < 30))	;MCU Temp Sensor 3
WAIT UNTIL ((p@CTM4 > 15) AND (p@CTM4 < 30))	;MCU Temp Sensor 4
WAIT UNTIL ((p@CTM5 > 15) AND (p@CTM5 < 30))	;MCU Temp Sensor 5
WAIT UNTIL ((p@CTM6 > 15) AND (p@CTM6 < 30))	;MCU Temp Sensor 6
WAIT UNTIL ((p@CTM7 > 15) AND (p@CTM7 < 30))	;MCU Temp Sensor 7
WAIT UNTIL ((p@CTM8 > 15) AND (p@CTM8 < 30))	;MCU Temp Sensor 8
WAIT UNTIL ((p@CTM9 > 15) AND (p@CTM9 < 30))	;MCU Temp Sensor 9
WAIT UNTIL ((p@CTM10 > 15) AND (p@CTM10 < 30))	;MCU Temp Sensor 10
WAIT UNTIL ((p@CTM11 > 15) AND (p@CTM11 < 30))	;MCU Temp Sensor 11
WAIT UNTIL ((p@CTM12 > 15) AND (p@CTM12 < 30))	;MCU Temp Sensor 12
WAIT UNTIL ((p@CTM13 > 15) AND (p@CTM13 < 30))	;MCU Temp Sensor 13
WAIT UNTIL ((p@CTM14 > 15) AND (p@CTM14 < 30))	;MCU Temp Sensor 14
WAIT UNTIL ((p@CTM15 > 15) AND (p@CTM15 < 30))	;MCU Temp Sensor 15
WAIT UNTIL ((p@CTM16 > 15) AND (p@CTM16 < 30))	;MCU Temp Sensor 16
WAIT UNTIL ((p@CTM17 > 15) AND (p@CTM17 < 30))	;MCU Temp Sensor 17
WAIT UNTIL ((p@CTM18 > 15) AND (p@CTM18 < 30))	;MCU Temp Sensor 18
WAIT UNTIL ((p@CTM19 > 15) AND (p@CTM19 < 30))	;MCU Temp Sensor 19
WAIT UNTIL ((p@CTM20 > 15) AND (p@CTM20 < 30))	;MCU Temp Sensor 20
WAIT UNTIL ((p@CTM21 > 15) AND (p@CTM21 < 30))	;MCU Temp Sensor 21
WAIT UNTIL ((p@CTM22 > 15) AND (p@CTM22 < 30))	;MCU Temp Sensor 22
WAIT UNTIL ((p@CTM23 > 15) AND (p@CTM23 < 30))	;MCU Temp Sensor 23
WAIT UNTIL ((p@CTM24 > 15) AND (p@CTM24 < 30))	;MCU Temp Sensor 24
WAIT UNTIL ((p@CTM25 > 15) AND (p@CTM25 < 30))	;MCU Temp Sensor 25
WAIT UNTIL ((p@CTM26 > 15) AND (p@CTM26 < 30))	;MCU Temp Sensor 26
WAIT UNTIL ((p@CTM27 > 15) AND (p@CTM27 < 30))	;MCU Temp Sensor 27
WAIT UNTIL ((p@CTM28 > 15) AND (p@CTM28 < 30))	;MCU Temp Sensor 28
WAIT UNTIL ((p@CTM29 > 15) AND (p@CTM29 < 30))	;MCU Temp Sensor 29
WAIT UNTIL ((p@CTM30 > 15) AND (p@CTM30 < 30))	;MCU Temp Sensor 30
WAIT UNTIL ((p@CTM31 > 15) AND (p@CTM31 < 30))	;MCU Temp Sensor 31

WAIT UNTIL ((CKMFYAW > H'7FC') AND (CKMFYAW < H'804'))	;Sun Sensor YAW 0V +-.05V
WAIT UNTIL ((CKMFPIT > H'7FC') AND (CKMFPIT < H'804'))	;Sun Sensor Pitch 0V +-.05V
WAIT UNTIL ((CKMFPRE > H'7FC') AND (CKMFPRE < H'804'))	;Sun Sensor Presence 0V +-.05V
WAIT UNTIL ((CKMFSUP > H'C60') AND (CKMFSUP < H'C73'))	;Sun Sensor Supply 11.01V
									;+-.01V

/NRT TPUT RSUM
/CMSMSG CDS 'VERIFY BTMQCM1 and BTMQCM2 ARE BETWEEN 15 and 30 DEGREES'
WAIT	;Verify from IWS the previous TM checks
/NRT TPUT PAUS

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