PROC m_fl_ip5kld
;Version 3	
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name: m_fl_ip5kld	   
;#		   	experiment Name:  m_ip5kld	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  9-11-95
;#			    Revision:  1. 9-15-95 RR
;#					2. 10-30-95 RR
;#					3. 11/18/95 GJ
;#
;#		1.3	Change Description:	
;#
;#			1.  added DEP command counter checks
;#			2.  added /mbipcmd command
;#			3.  Changed name 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 the sci5k test macro	
;#
;#		2.2	Intended Use:
;#
;#		Initial IP macro queue load to support use of sci5k macro
;#		
;#		2.3	Duration:	5m
;#
;#		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 or 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; for mktccnt to updat

ccnt = mktccnt

wait;	'GO' to disable IP macro queue

/mbipldin 0004 0154
/send

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

/mbipcmd 0091 000B 1CD7
/send

wait;	'GO' to load fill pattern

/mbipcmd 0091 1c43 016c 0000 0800 0400 0000 0000
/mbipcmd 0091 1c49 016c 0400 0800 0400 0000 1111
/mbipcmd 0091 1c4f 016c 0800 0800 0400 0000 2222
/mbipcmd 0091 1c55 016c 0c00 0800 0400 0000 3333
/mbipcmd 0091 1c5b 016c 1000 0800 0400 0000 4444
/send
wait until(P@CMD_STATE#TELECOMMAND = "AVAILABLE")
wait 5

/mbipcmd 0091 1c61 016c 1400 0800 0400 0000 5555
/mbipcmd 0091 1c67 016c 1800 0800 0400 0000 6666
/mbipcmd 0091 1c6d 016c 1c00 0800 0400 0000 7777
/mbipcmd 0091 1c73 016c 2000 0800 0400 0000 8888
/mbipcmd 0091 1c79 016c 2400 0800 0400 0000 9999
/send
wait until(P@CMD_STATE#TELECOMMAND = "AVAILABLE")
wait 5

/mbipcmd 0091 1c7f 016c 2800 0800 0400 0000 AAAA
/mbipcmd 0091 1c85 016c 2c00 0800 0400 0000 BBBB
/mbipcmd 0091 1c8b 016c 3000 0800 0400 0000 C123
/mbipcmd 0091 1c91 016c 3400 0800 0400 0000 D456
/mbipcmd 0091 1c97 016c 3800 0800 0400 0000 E789
/send
wait until(P@CMD_STATE#TELECOMMAND = "AVAILABLE")
wait 5

/mbipcmd 0091 1c9d 016c 3c00 0800 0400 0000 FABC
/mbipcmd 0091 1ca3 018e 3500
/send
wait until(P@CMD_STATE#TELECOMMAND = "AVAILABLE")
wait 5

wait;	'GO' to downlink raw image

/mbipcmd 0091 1ca5 01b2 00c0 0009 0000 0000 0000 0001 0000 0800 2000 0000 0000
/mbipcmd 0091 1cb1 01b2 00c9 0005 2000 FFFF FFB8 2000 0000
/mbipcmd 0091 1cb9 0198 00c0
/send
wait until(P@CMD_STATE#TELECOMMAND = "AVAILABLE")
wait 5

wait;	'GO' to downlink compressed image

/mbipcmd 0091 1cbb 01b2 00c0 0009 0000 0000 0000 0002 0000 0800 2000 000E 0005
/mbipcmd 0091 1cc7 01b2 00c9 0005 1000 FFFF FFB9 2000 0000
/mbipcmd 0091 1ccf 0198 00c0
/mbipcmd 0091 1cd1 0198 00c0
/mbipcmd 0091 1cd3 0196
/mbipcmd 0091 1cd4 014e 0001
/mbipcmd 0091 1cd6 01fc
/send
wait until(P@CMD_STATE#TELECOMMAND = "AVAILABLE")

wait;	'GO' to load image handling

/mbipcmd 0091 1cd7 01b2 0045 0002 0000 0000
/mbipcmd 0091 1cdc 01b2 00a8 0008 0514 0000 0000 0800 0400 0400 0410 0045
/mbipcmd 0091 1ce7 017a 00a8
/mbipcmd 0091 1ce9 0156 1ca3
/send

wait;	'GO' to enable queue

/mbipldin 0004 0136
/send

wait until(mktccnt=(ccnt+34));  DEP command counter checks


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