PROC C_FL_MCU1
; VERSION 3
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name: 	C_FL_MCU1
;#		   	CDS Name: 	CDS_MCU1
;#		   	CDS Issue:	V3.4
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  24-FEB-95
;#			    Revision:  1. 21-APR-95	MH
;#						2.  1-MAY-95	MH
;#                            3. 27-OCT-95   TFM 
;#		1.3	Change Description:	
;#
;#			1. Added section delimiters.  Changed TM check in section 1 from
;#			   CSEM5VN to CSEM5V.  Made TM checks BTMQCM1 and BTMQCM2
;#			   from section 5 to be checked by CDS IWS via CMSMSG.
;#			2. Added /NRT TPUT RSUM and /NRT TPUT PAUS directives beofre and
;#			   after /CMSMSG directive in section 5.
;#             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 tests the MCU electronics and mechanisms of CDS.
;#
;#		2.2	Intended Use:
;#
;#			Tests the MCU electronics and mechanisms of CDS.
;#
;#		2.3	Duration:	TBD
;#
;#		2.4	References:  pages C_MCU_HK, 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
;#
;#			ENSURE CDS PURGE GAS IS FLOWING BEFORE RUNNING THIS PROCEDURE.
;#			FAILURE OF THE GAS SUPPLY WILL DAMAGE THE MECHANISM LEAD BEARINGS.
;#			Verify EPS is powered ON
;#			Verify CDHS is powered ON
;#			Verify Heater Power OFF
;#
;#**************************************************************************
;#	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 OFF
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSEM5V = "ON")

/CBEM12VN
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@'CIEM+5V' < 350)	;MCU +5V Current (nom 296mA)
WAIT UNTIL (p@'CIEM+12V' < 180)	;MCU +12V Current (nom 160mA)
WAIT UNTIL (p@'CIEM-12V' < 160)	;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


;******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


;******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

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

;SLIT MECHANSIM POWER ON
WAIT UNTIL (p@CSMSLITI = "DISABLED")	;Slit Cmd Invlaid (no cmd yet)
/CBMPBSN		;Power BU slit ON
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMPSLIT = "ON")	;Slit Power Status

/CBMPBSF		;Power BU slit OFF
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMPSLIT = "OFF")	;Slit Power Status

/CBMPMSN		;Power slit ON
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMPSLIT = "ON")	;Slit Power Status
WAIT UNTIL (p@'CIEU+27V' > 0) AND (p@'CIEU+27V' < 20)	;Check Slit standby I


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

;SLIT - CLOSED LOOP
/CBMSLITN,9201		;Slit Number 1
/CBMSLITP,9188		;Slit position -120
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMSLITP = H'188')	;Check slit position
WAIT UNTIL (CKMSLITN = 1)		;Check slit number
WAIT UNTIL (p@CSMSLITM = "PRIME")	;Check slit mode
WAIT UNTIL (p@CSMSLITI = "_")		;Check Slit Cmd Invlaid status
WAIT UNTIL (p@CSMSLITE = "OK")	;Check Slit equals

/CBMSLITN,9206		;Slit Number 6
/CBMSLITP,9078		;Slit position +120
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMSLITP = H'78')		;Check slit position
WAIT UNTIL (CKMSLITN = 6)		;Check slit number
WAIT UNTIL (p@CSMSLITE = "OK")	;Check Slit equals

/CBMSLITN,9203		;Slit Number 3 (Home Position)
/CBMSLITP,9000		;Slit position 0
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMSLITP = 0)		;Check slit position
WAIT UNTIL (CKMSLITN = 3)		;Check slit number
WAIT UNTIL (p@CSMSLITE = "OK")	;Check Slit equals


;******SECTION 9******

;SLIT - OPEN LOOP
/CBMSLITU		;Slit Up
/CBMSLITU		;Slit Up
/CBMSLITU		;Slit Up
/CBMSLITU		;Slit Up
/CBMSLITU		;Slit Up
/CBMSLITU		;Slit Up
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMSLITP = 6)	;Check Slit Position
WAIT UNTIL (p@CSMSLITM = "STEP")	;Check Slit Mode

/CBMSLITD		;Slit Down
/CBMSLITD		;Slit Down
/CBMSLITD		;Slit Down
/CBMSLITD		;Slit Down
/CBMSLITD		;Slit Down
/CBMSLITD		;Slit Down
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMSLITP = 0)	;Check Slit Position
WAIT UNTIL (p@CSMSLITM = "STEP")	;Check Slit Mode


;******SECTION 10******

;SLIT POWER OFF
/CBMPMSF		;Power Slit OFF
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMPSLIT = "OFF")	;Slit Power Status


;******SECTION 11******

;MIRROR MECHANISM POWER ON
/CBMPBMN		;Power BU Mirror ON
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMPMIRR = "ON")	;Check Mirror Power Status

/CBMPBMF		;Power BU Mirror OFF
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMPMIRR = "OFF")	;Check Mirror Power Status

/CBMPMMN		;Power Mirror ON
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMPMIRR = "ON")	;Check Mirror Power Status
WAIT UNTIL (p@'CIEU+27V' > 0) AND (p@'CIEU+27V' < 20)	;Check S/C +27V Current


;******SECTION 12******

;MIRROR - CLOSED LOOP
/CBMMIRRP,98BC		;Set Mirror Position (+60)
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMMIRRP = H'BC')		;Check mirror position
WAIT UNTIL (p@CSMMIRRM = "PRIME")	;Check Mirror Mode
WAIT UNTIL (p@CSMMIRRH = "_")		;Check Mirror High EndStop
WAIT UNTIL (p@CSMMIRRE = "OK")	;Check Mirror Equals

/CBMMIRRP,9844		;Set Mirror Position (-60)
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMMIRRP = H'44')		;Check mirror position
WAIT UNTIL (p@CSMMIRRE = "OK")	;Check Mirror Equals

/CBMMIRRP,9880		;Set Mirror Position (80h)
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMMIRRP = H'80')		;Check mirror position
WAIT UNTIL (p@CSMMIRRE = "OK")	;Check Mirror Equals


;******SECTION 13******

;MIRROR - OPEN LOOP
/CBMMIRRU		;Mirror Up
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMMIRRP = H'81')		;Check mirror position

/CBMMIRRU		;Mirror Up
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMMIRRP = H'82')		;Check mirror position

/CBMMIRRU		;Mirror Up
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMMIRRP = H'83')		;Check mirror position

/CBMMIRRU		;Mirror Up
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMMIRRP = H'84')		;Check mirror position

/CBMMIRRU		;Mirror Up
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMMIRRP = H'85')		;Check mirror position
WAIT UNTIL (p@CSMMIRRM = "STEP")	;Check Mirror Mode

/CBMMIRRD		;Mirror Down
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMMIRRP = H'84')		;Check mirror position

/CBMMIRRD		;Mirror Down
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMMIRRP = H'83')		;Check mirror position

/CBMMIRRD		;Mirror Down
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMMIRRP = H'82')		;Check mirror position

/CBMMIRRD		;Mirror Down
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMMIRRP = H'81')		;Check mirror position

/CBMMIRRD		;Mirror Down
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (CKMMIRRP = H'80')		;Check mirror position
WAIT UNTIL (p@CSMMIRRM = "STEP")	;Check Mirror Mode


;******SECTION 14******

;MIRROR POWER OFF
/CBMPMMF		;Power Mirror OFF
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (p@CSMPMIRR = "OFF")	;Check Mirror Power Status

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