PROC m_fl_iptload
;version 6
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:    m_fl_iptload
;#		   	MMS-F Name:  	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  4-26-95
;#			    Revision:  1.  5-26-95
;#					2. 9-11-95
;#					3. 9-21-95 RR
;#					4. 10-31-95 RR
;#					5. 11/18/95 GJ
;#					6. 12/03/95 GJ
;#
;#		1.3	Change Description:	
;#
;#			1.  Changed comments
;#			2.  modifed load sequence
;#			3.  Corrected table load data words
;#			4.  modified data words in commands
;#			5.  Changed name convention from m_ts_* to m_fl_*.
;#			6.  Corrected Data word.
;#
;#		1.4	Point of Contact:	
;#			FOT Author:  RRowe	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			This procedure loads the square root, reciprocal,
;#			velocity lookup and 4x4 bin tables
;#
;#		2.2	Intended Use:
;#
;#			Initial load and checkout of the image processor.
;#
;#		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 telemetry
;#			support required for duration of checkout sequence.  MDI
;#			Operator on station to support verification of procedure.
;#**************************************************************************
;#	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 at least in MR
WRITE "TM IS NOT AT LEAST IN MEDIUM RATE."
GOTO END
ENDIF


wait until(p@mspwipn="ON");
wait until(p@mspwipr="ON");
wait until(p@mkpwip="ON");

wait until(mkdpmd=0) timeout 60

if(mkdpmd<>0)then
  /mbdpmod 0001
  /send
  wait until(mkdpmd=0)
endif

wait;	'GO' to load reciprical table

/mbiptbl,0000,0000,800a,0000
/send
wait 10

wait;	'GO' to load square root compress table

/mbiptbl,0001,0000,8009,0000
/send
wait 10

wait;	'GO' to load velocity look-up table

/mbiptbl,0002,8000,800a,0000
/send
wait 15

wait;	'GO' to load geometry for crop/limb figure look-up table

/mbiptbl,0010,0fa0,0ed8,1000,1000,0400
/send
wait 10

wait;	'GO' to load crop look-up table

/mbiptbl,0003,0000,7000,0000
/send
wait 15

wait;	'GO' to load limb figure look-up table

/mbiptbl,0004,1000,7000,0000,0fa0,0f70,00b0,0018,0000,6800,0000,0000,0200,00fa,0f70
/send
wait 15

wait;	'GO' to load 4x4 bin list to DEP memory

/mbdpml 2000,0000,01D0,0400,0000,0004,0000,0000,0000,0000
/mbdpml 2000,0010,0000,0000,0000,0000,0000,0000,0000,0000
/mbdpml 2000,0020,0000,0000,0004,0800,000e,0001	
/mbdpml 2000,002C,2000,0000,0004,0800,000e,0001
/mbdpml 2000,0038,4000,0000,0004,0800,000e,0001
/mbdpml 2000,0044,6000,0000,0004,0800,000e,0001
/mbdpml 2000,0050,FFFF,FFFF,0004,0800,000e,0001

/send

wait;	'GO' to dump memory and have MDI operator verify contents in sci5k

/mbdpmd,2000,0000,005b
/send

wait;	'GO' to load 4x4 bin list to IP memory

/mbiptbl,0009,fe00,700f,0000,0000,2000,01d0,0190,0190,00e0,0000,0000,1800,0000,0000,1000,4000,0000
/send
wait 15

wait;	'GO' to load X-vector for use by medium-1

/MBIPTBL 0011 0780 0e00 1780 2500 3600 4980 5D80 ;;
         6F00 7b00 7F80 7B00 6F00 5d80 4980 3600 ;;
         2500 1780 0E00 0780

/SEND
WAIT 15

WAIT;	'GO' TO LOAD Y-VECTOR FOR USE BY MEDIUM-1

/MBIPTBL 0012 0780 0e00 1780 2500 3600 4980 5D80 ;;
         6F00 7B00 7F80 7b00 6F00 5D80 4980 3600 ;;
         2500 1780 0E00 0780

/SEND
WAIT 15

WAIT;	'GO' TO LOAD THE MEDIUM-1 LIST

/MBIPTBL 0006 7000 7000 0000 0f00 0006 0008 ;;
         00C0 0004 0000 3001 0000 0000 1000 1000 0000
/SEND
WAIT 15

WAIT;	'GO' TO LOAD A LINE DEPTH LIST

/MBIPTBL 0007 1000 7001 0000 0f00 0008 0008 0008 800A ;;
         0001 0000 00D0 0018 C000 3001 0000 0000 01C2 ;;
         3000 0000
/SEND
WAIT 15



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