PROC m_fl_obsmode
;version 4
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:  M_FL_OBSMODE  
;#		   	MMS-F Name:  	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  20-DEC-94   BS
;#			    Revision:  1. 24-APR-95   GLJ
;#					2. 5-26-95
;#					3. 9-15-95 RR
;#					4. 11/18/95 GJ
;#
;#
;#		1.3	Change Description:	
;#
;#			1.  removed wait 30
;#			2. corrected syntax errors
;#			3. comment out air commands
;#			4. Changed name convention from m_ts_* to m_fl_*.
;#
;#		1.4	Point of Contact:	
;#			FOT Author: BSAPPER 	ATSC/SOHO	805-3749
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			This procedure configures the MTM1,MTM2,CAL1,CAL2,and PAW
;#			internal mechanisms for nominal observing mode.
;#
;#		2.2	Intended Use:
;#
;#			Configure MDI for nominal observing.
;#
;#		2.3	Duration:	TBD
;#
;#		2.4 References:
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			None
;#
;#		3.2	Critical Activities
;#
;#			TBD
;#
;#		3.3	Special Constraints or Activities
;#
;#			MDI in SAFE,STANDBY,READY modes. MR TLM or higher requiredd.MDI
;#			operator notified as soon as proc complete.
;#
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

IF (P@CMD_STATE#TELECOMMAND = "AVAILABLE") THEN
ELSE
	/CLEAR		;Clearing the Command Buffer.
ENDIF

IF (P@KKTMMODE = "HK") THEN	;Check TM is not in LR
WRITE "TM IS NOT IN MEDIUM/HIGH RATE."
GOTO END
ENDIF


WAIT;	COMMAND MOTORS IN CLOCKWISE DIRECTION

/MBDPCONF,0100,0100,0100,0100,0100		;CMD MOTORS CLKWISE DIR
/SEND

WAIT UNTIL ((MKM1POS >= 0) AND (MKM1POS <= 1))
WAIT UNTIL ((MKM2POS >= 0) AND (MKM2POS <= 1))
WAIT UNTIL ((MKPAPOS >= 0) AND (MKPAPOS <= 1))
WAIT UNTIL ((MKC1POS >= 0) AND (MKC1POS <= 1))
WAIT UNTIL ((MKC2POS >= 0) AND (MKC2POS <= 1))

;ASK "IS MDI IN AIR OR VAC?"
;ANSWER = %UPPER(ANSWER)
;
;IF (ANSWER = "AIR") THEN
;	/MBDPCONF,000D,0052,007D,0037,0059		;MOVE MECHANSISM TO AIR POS
;	/SEND
;
;	WAIT UNTIL ((MKM1POS >= 12)  AND (MKM1POS <= 13))
;	WAIT UNTIL ((MKM2POS >= 81)  AND (MKM2POS <= 82))
;	WAIT UNTIL ((MKPAPOS >= 124) AND (MKPAPOS <= 125))
;	WAIT UNTIL ((MKC1POS >= 54)  AND (MKC1POS <= 55))
;	WAIT UNTIL ((MKC2POS >= 88)  AND (MKC2POS <= 89))
;ELSEIF (ANSWER = "VAC") THEN
	/MBDPCONF,000A,002F,007D,007F,0059
	/SEND
	WAIT UNTIL ((MKM1POS >= 9)   AND (MKM1POS <= 10))
	WAIT UNTIL ((MKM2POS >= 46)  AND (MKM2POS <= 47))
	WAIT UNTIL ((MKPAPOS >= 124) AND (MKPAPOS <= 125))
	WAIT UNTIL ((MKC1POS >= 126) AND (MKC1POS <= 127))
	WAIT UNTIL ((MKC2POS >= 88)  AND (MKC2POS <= 89))
;ELSE
;ENDIF



SV MIAEMTR
WAIT		;RECORD MOTOR CURRENT (MIAEMTR) APROX = 0.0
	
;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		TBD
;#
;#**************************************************************************
end:
ENDPROC