PROC C_FL_SLTMTR_RST
;Version 0
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:	C_SLTMTR_RST
;#		   	MMS-F Name:	N/A
;#		   	SUM Issue:	N/A
;#			Simulator Validation Status: Not Validated.
;#
;#		1.2	Date Created:	11-DEC-96 
;#			
;#
;#		1.3	Change Description:	
;#
;#
;#		1.4	Point of Contact:	HBENNEFIELD	ATSC/SOHO	
;#			FOT Author:	KHIBBARD		ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			When the slit motor temperature goes into alarm, commands are
;#			sent to the experiment to prevent damage from occurring
;#
;#		2.2	Intended Use:
;#
;#			CDS slit motor recovery from anomalous red high CTM18
;#			Resets the slit motor function
;#			
;#		2.3	Duration:	2 min
;#
;#		2.4 	References: pages I_EXP_CHECK, C_MCU_HK2
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			None
;#
;#		3.2	Critical Activities
;#
;#			None
;#
;#		3.3	Special Constraints or Activities
;#
;#			CTM18 must be RED HIGH, or else procedure will abort.
;#
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

LOCAL  SMTEMP

IF (P@CMD_STATE#TELECOMMAND = "AVAILABLE") THEN
ELSE
;--------------------------------------------
; Clear the command buffer
;--------------------------------------------
	/CLEAR		
ENDIF

IF (P@CTM18 > 38) THEN
	LET SMTEMP = P@CTM18
;--------------------------------------------
; Aborts currently running science study
;--------------------------------------------
	/CMD CB5ABORT
	/SEND
	WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")
;--------------------------------------------
; Disables mechanism control unit's software
;--------------------------------------------
	/CMD CB2DIS
	/SEND
	WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")
;--------------------------------------------
; Steps slit mechanism up 1 space
;--------------------------------------------
	/CMD CBMSLITU
	/SEND
	WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")
;--------------------------------------------
; Steps slit mechanism down 1 space
;--------------------------------------------
	/CMD CBMSLITD
	/SEND
	WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")
;--------------------------------------------
; Enables mechanism control unit's software
;--------------------------------------------
	/CMD CB2EN
	/SEND

;--------------------------------------------
; Temp CTM18 should start to decrease.
; If after 3 min. CTM18 does NOT decrease,
; contact CDS immediately
;--------------------------------------------
	WAIT UNTIL (P@CTM18 < SMTEMP)	

ELSE
;--------------------------------------------
; CTM18 has not violated red high limit
; procedure aborted
;--------------------------------------------
	WRITE "CTM18 HAS NOT VIOLATED RED HIGH" & ;;
	" LIMIT, PROCEDURE ABORTED."
ENDIF

OUT:
;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		CTM18 should return within limits inside of ten minutes time.
;#
;#**************************************************************************
RETURN
ENDPROC