PROC m_fl_calmode
;version 4
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:    m_ts_calmode
;#		   	MMS-F Name:  	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  12-8-94
;#			    Revision:  1. 4-24-95  GJ
;#						2. 05-04-95 RR
;#					3. 9-15-95 RR
;#					4. 11-18-95 GJ
;#
;#		1.3	Change Description:	
;#
;#			1.  Removed timed waits.  Use TM checks.
;#			2.  Changed comments for wait statements.
;#			3.  commented out air commands.
;#			4.  Changed name convention from m_ts_* to m_fl_*.
;#
;#		1.4	Point of Contact:	RRowe
;#			FOT Author:  RRowe	ATSC/SOHO	805-3642
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			This procedure configures the MTM1, MTM2, CAL1, CAL2, and PAW internal
;#			mechanisms for nominal calibration mode.
;#
;#		2.2	Intended Use:
;#
;#			Configure MDI for nominal calibration
;#
;#		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, or READY modes.  Medium rate or higher telemetry
;#			support required for duration of sequence.  MDI Operator notified as
;#			soon as procedure is 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
ELSE
ENDIF

WAIT;		'GO' TO COMMAND MOTORS IN CLOCKWISE DIRECTION

/MBDPCONF,0100,0100,0100,0100,0100;	COMMAND MOTORS
/SEND

WAIT UNTIL((MKM1POS>=0) AND (MKM1POS<=1)); VERIFY POSITION OF MOTORS
WAIT UNTIL((MKM2POS>=0) AND (MKM2POS<=1)); VERIFY POSITION OF MOTORS
WAIT UNTIL((MKPAPOS>=0) AND (MKPAPOS<=1)); VERIFY POSITION OF MOTORS
WAIT UNTIL((MKC1POS>=0) AND (MKC1POS<=1)); VERIFY POSITION OF MOTORS
WAIT UNTIL((MKC2POS>=0) AND (MKC2POS<=1)); VERIFY POSITION OF MOTORS


;ASK "IS MDI IN VACUUM (Y/N)?"
;ANSWER=%UPPER(ANSWER)
;
;IF(ANSWER="Y")THEN
;	GOTO VACUUM
;ELSE 
;	GOTO AIR
;ENDIF
;
;GOTO DONE
;
;AIR:
;
;WAIT;	MOVE MECHANISMS TO AIR POSITIONS
;
;/MBDPCONF,000D,0052,007D,0013,007D;	MECH TO AIR POSITION
;/SEND
;
;WAIT UNTIL((MKM1POS>=12) AND (MKM1POS<=13)); VERIFY POSITION OF MOTORS
;WAIT UNTIL((MKM2POS>=81) AND (MKM2POS<=82)); VERIFY POSITION OF MOTORS
;WAIT UNTIL((MKPAPOS>=124) AND (MKPAPOS<=125)); VERIFY POSITION OF MOTORS
;WAIT UNTIL((MKC1POS>=18) AND (MKC1POS<=19)); VERIFY POSITION OF MOTORS
;WAIT UNTIL((MKC2POS>=124) AND (MKC2POS<=125)); VERIFY POSITION OF MOTORS
;
;GOTO DONE


VACUUM:

WAIT;	MOVE MECHANISMS TO VACCUUM POSITIONS

/MBDPCONF,000A,002F,007D,0013,007D; MECH TO VACUUM POSITION
/SEND

WAIT UNTIL((MKM1POS>=9) AND (MKM1POS<=10)); VERIFY POSITION OF MOTORS
WAIT UNTIL((MKM2POS>=46) AND (MKM2POS<=47)); VERIFY POSITION OF MOTORS
WAIT UNTIL((MKPAPOS>=124) AND (MKPAPOS<=125)); VERIFY POSITION OF MOTORS
WAIT UNTIL((MKC1POS>=18) AND (MKC1POS<=19)); VERIFY POSITION OF MOTORS
WAIT UNTIL((MKC2POS>=124) AND (MKC2POS<=125)); VERIFY POSITION OF MOTORS

DONE:


SV P@MIAEMTR;		SHOW MOTOR CURRENT
WAIT;			RECORD THE MOTOR CURRENT


;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		TBD
;#
;#**************************************************************************
end:
ENDPROC