PROC m_fl_dmptbls
;Version 2	
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:m_fl_dmptbls	   
;#		   	experiment Name:  m_fl_dmptbls	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  9-7-95
;#			    Revision:  1. 10-27-95 GJ 
;#						2.  11/18/95 GJ
;#
;#		1.3	Change Description:	
;#
;#			1. Added load instead of downlink and added wait 10;
:#			   let mktccnt update
;#			2. Changed naming convention from m_ts_* to m_fl_*.
;#
;#		1.4	Point of Contact:RRowe	
;#			FOT Author:  RRowe	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#		This procedure loads the IP queue with macros used to dump IP tables
;#		using the DMPMEM command	
;#
;#		2.2	Intended Use:
;#
;#		Initial IP macro queue load to support use of memory dump macro to 
;#		dump IP tables.
;#		
;#		2.3	Duration:	
;#
;#		2.4	References:
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			None
;#
;#		3.2	Critical Activities
;#
;#			None
;#
;#		3.3	Special Constraints or Activities
;#
;#		MDI in SAFE of higher mode.  At least Medium rate TM support
;#		required for duration of sequence.  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

local ccnt

wait 10; let mktccnt update

ccnt=mktccnt;	store DEP command counter

wait;	'GO'	to disable IP macro queue

/mbipldin 0004 0154
/send

wait;	'GO'	to load  SQCOMP table downlink, 16383

/mbipcmd 0091 1e57 01b2 0df8 0006 ffff FF70 0000 8009 4000 0000
/mbipcmd 0091 1e60 01f8 1e3b
/mbipcmd 0091 1e62 01fc
/send

wait;	'GO' to load RECIPROCAL table downlink, 32767 bytes

/mbipcmd 0091 1e63 01b2 0df8 0006 ffff FF71 0000 800A 8000 0000
/mbipcmd 0091 1e6c 01f8 1e3b
/mbipcmd 0091 1e6e 01fc
/send

wait;	'GO' to load VOCOKFD table downlink, 32767 bytes

/mbipcmd 0091 1e6f 01b2 0df8 0006 ffff FF72 8000 800A 8000 0000
/mbipcmd 0091 1e78 01f8 1e3b
/mbipcmd 0091 1e7a 01fc
/send

wait;	'GO' to load CROPLIST table downlink, 3530 bytes

/mbipcmd 0091 1e7b 01b2 0df8 0006 ffff FF73 0000 7000 0DAC 0000
/mbipcmd 0091 1e84 01f8 1e3b
/mbipcmd 0091 1e86 01fc
/send

wait;	'GO' to load LINEFIGLIST table downlink, 6500 bytes

/mbipcmd 0091 1e87 01b2 0df8 0006 ffff FF74 1000 7000 1964 0000
/mbipcmd 0091 1e90 01f8 1e3b
/mbipcmd 0091 1e92 01fc
/send

wait;	'GO' to load MEDIUMLIST table downlink, 40960 bytes

/mbipcmd 0091 1e93 01b2 0df8 0006 ffff FF75 7000 7000 A000 0000
/mbipcmd 0091 1e9c 01f8 1e3b
/mbipcmd 0091 1e9e 01fc
/send

wait;	'GO' to load LIMBDEPTHLIST table downlink, 30000 bytes

/mbipcmd 0091 1e9f 01b2 0df8 0006 ffff FF76 1000 7001 7530 0000
/mbipcmd 0091 1ea8 01f8 1e3b
/mbipcmd 0091 1eaa 01fc
/send

wait;	'GO' to enable queue

/mbipldin 0004 0136
/send

wait until(mktccnt=(ccnt+23));verify DEP commands




;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		None
;#
;#**************************************************************************
OUT:
RETURN
ENDPROC