PROC m_fl_ipmemchk
;Version 3
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name: m_fl_ipmemchk 
;#		   	MMS-F Name:  	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created: 24 APR 1995   RR
;#			Revision:     1. 25 APR 1995   GJ
;#					2. 05-26-95 RR
;#					3. 11/18/95	GJ
;#
;#		1.3	Change Description:	
;#
;#			1.  Procedure Header from m_ts_ipnewchk.prc to m_ts_ipmbmchk.prc
;#			2.  change name from ipmbmchk to ipmemchk.
;#			3.  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
;#
;#			
;#
;#		2.2	Intended Use:
;#
;#			Initial checkout of the image processor memory.
;#
;#		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.  Medium and rate telemetry
;#             support required for duration of checkout sequence.  MDI
;#             Operator on station to support verification of procedure.
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

LOCAL REPLY

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


WAIT;	Verify medium rate telem. on and sci5k being recorded by MDI.

WAIT;	'GO' TO CHECK PAGES 8, 9, 0

/MBIPLDIN,0004,0110,4000,4800,0000 ; Check pages 8,9,0
/SEND
WAIT 15;	15 SECOND DELAY
/MBIPRDDR,0006
/SEND
WAIT		 ;MDI Operator verifies pages in sci5k.

WAIT;	'GO' TO CHECK PAGES 10,11,1

/MBIPLDIN,0004,0110,5000,5800,0800 ; Check pages 10,11,1
/SEND
WAIT 15;	 15 SECOND DELAY
/MBIPRDDR,0006
/SEND
WAIT		 ;MDI Operator verifies pages in sci5k.

WAIT;	'GO' TO CHECK PAGES 12, 13, 2

/MBIPLDIN,0004,0110,6000,6800,1000 ; Check pages 12,13,2
/SEND
WAIT 15;	15 SECOND DELAY
/MBIPRDDR,0006
/SEND
WAIT		 ;MDI Operator verifies pages in sci5k.

WAIT;	'GO' TO CHECK PAGES 14, 15, 3

/MBIPLDIN,0004,0110,7000,7800,1800 ; Check pages 14,15,3
/SEND
WAIT 15;	15 SECOND DELAY
/MBIPRDDR,0006
/SEND
WAIT		 ;MDI Operator verifies pages in sci5k.

WAIT;	'GO' TO CHECK PAGES 16, 17, 4

/MBIPLDIN,0004,0110,8000,8800,2000 ; Check pages 16,17,4
/SEND
WAIT 15;	15 SECOND DELAY
/MBIPRDDR,0006
/SEND
WAIT		 ;MDI Operator verifies pages in sci5k.

WAIT;	'GO' TO CHECK PAGES 18, 19, 5

/MBIPLDIN,0004,0110,9000,9800,2800 ; Check pages 18,19,5
/SEND
WAIT 15;	15 SECOND DELAY
/MBIPRDDR,0006
/SEND
WAIT		 ;MDI Operator verifies pages in sci5k.

WAIT;	'GO' TO CHECK PAGES 6, 7, 0

/MBIPLDIN,0004,0110,3000,3800,0000 ; Check pages 6,7,0
/SEND
WAIT 15;	15 SECOND DELAY
/MBIPRDDR,0006
/SEND
WAIT		 ;MDI Operator verifies pages in sci5k.

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