PROC m_fl_tlm1ip
;Version 2
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:    m_fl_tlm1ip 
;#		   	MMS-F Name:  	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  4-27-95
;#			    Revision:  1. 5-26-95
;#						2. 11/18/95 GJ
;#
;#		1.3	Change Description:	
;#
;#			1.  corrected address from 0x201 to 0x021
;#			2.  Changed name convention from m_ts_* to m_fl_*.
;#
;#		1.4	Point of Contact:	
;#			FOT Author:  RRowe	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			This procedure configures the IP to use the prime high rate
;#			telemetry interface (board1) for heritage load image d/l
;#
;#		2.2	Intended Use:
;#
;#			Set the IP to use prime high rate telemetry board 1.
;#
;#		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 mode following successful performance of a power up
;#			with redundant high rate telemetry selected.  S/C configured
;#			redundant high rate telemetry.  High rate telemetry support
;#			required for duration of IP configuration sequence and high
;#			rate TLM checkout.  MDI operator on station to support
;#			verification of procedure.  MDI operator verification required
;#			for each step before continuing.
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

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

IF ((P@KKTMMODE<3) and (P@KKTMFID<1)) THEN	;Check TM is not in HR
WRITE "TM IS NOT IN HIGH RATE."
GOTO END
ENDIF

wait;		'GO' to set IP to d/l from page 8 (prime)

/mbipldin,0004,0140,0021,0000
/send

wait;		'GO' to reload the camera header

/mbcmhdr1,4040,4040,0000,0001,0000
/send

wait until(P@CMD_STATE#TELECOMMAND = "AVAILABLE")

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