PROC h_fl_fcalx
;Version 3
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:	h_fl_fcalx   
;#		   	MMS-F Name: h_fl_fcalx 	 
;#		   	SUM Issue: N/A	
;#			Simulator Validation Status: Validated
;#
;#		1.2	Date Created: 8 Aug 95  TL
;#			    Revision: 1) 11 Aug 95  TL 
;#                           2) 18 Sep 95  TL
;#                           3) 25 Oct 95  TL
;#
;#		1.3	Change Description:	
;#
;#			1) Changed name to _FL_ (FLight ready).
;#             2) Added 17 upload commands to proc end, changed one
;#                command from HBFCONOF to HBFCDEFG.
;#			3) Added version number, comments.
;#
;#		1.4	Point of Contact: T. La Fave
;#			FOT Author: T. La Fave 	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			This proc is part of the TTP commissioning sequence.
;#
;#		2.2	Intended Use:
;#
;#		
;#		2.3	Duration:	25 min.
;#
;#		2.4	References:
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			None
;#
;#		3.2	Critical Activities
;#
;#			None.
;#
;#		3.3	Special Constraints or Activities
;#
;#		     CEPAC should have been switched on before running
;#             this proc.
;#     		
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:


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

/HBFUPLD3,0700,F522,0033         ; Upload data
/HBFUPLD3,0700,F800,4400
/HBFUPLD3,0700,FB55,0066
/HBFUPLD3,0700,FE00,7700
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,0128,0039         ; Upload data
/HBFUPLD3,0701,0400,4A00
/HBFUPLD3,0701,075B,006C
/HBFUPLD3,0701,0A00,7D00
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,0D2E,003F         ; Upload data
/HBFUPLD3,0701,1000,7F00
/HBFUPLD3,0701,139F,2491
/HBFUPLD3,0701,1627,1124
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,19F1,2491         ; Upload data
/HBFUPLD3,0701,1C3C,9120
/HBFUPLD3,0701,1F91,E4FF
/HBFUPLD3,0701,22FF,8124
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,2500,2448         ; Upload data
/HBFUPLD3,0701,2890,D8FC
/HBFUPLD3,0701,2B06,2A52
/HBFUPLD3,0701,2E9A,DEE2
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,310A,325A         ; Upload data
/HBFUPLD3,0701,349E,C2E6
/HBFUPLD3,0701,3712,3A00
/HBFUPLD3,0701,3A24,4890
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,3DD8,FC06         ; Upload data
/HBFUPLD3,0701,402A,529A
/HBFUPLD3,0701,43DE,E20A
/HBFUPLD3,0701,4632,5A9E
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,49C2,E612         ; Upload data
/HBFUPLD2,0701,4C3A
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFAONOF,027F                   ; Set failure mode detector A
/HBFBONOF,037F                   ; Set failure mode detector B
/HBFCDEFG,041F                   ; Set failure mode detectors C,D,E,F,G
/HBFTMODE                        ; Put EPHIN in TEST mode
WAIT                        ; Verify command buffer contents
/SEND

WAIT 1200

/HBFUPLD3,0700,F511,00F0         ; Upload data
/HBFUPLD3,0700,F8FF,8FFF
/HBFUPLD3,0700,FB11,007F
/HBFUPLD3,0700,FEFC,FFE3
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,0154,0033         ; Upload data
/HBFUPLD3,0701,0405,C329
/HBFUPLD3,0701,07A2,0065
/HBFUPLD3,0701,0A02,1A53
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,0D2D,00F6         ; Upload data
/HBFUPLD3,0701,100E,5879
/HBFUPLD3,0701,13B9,03C7
/HBFUPLD3,0701,1614,B39D
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,192E,00BF         ; Upload data
/HBFUPLD3,0701,1C03,64A6
/HBFUPLD3,0701,1FFB,CA7F
/HBFUPLD3,0701,22E0,1CEF
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,2501,9200         ; Upload data
/HBFUPLD3,0701,2804,4488
/HBFUPLD3,0701,2B24,0810
/HBFUPLD3,0701,2ED0,F83C
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,3128,4818         ; Upload data
/HBFUPLD3,0701,341C,5098
/HBFUPLD3,0701,37DC,E491
/HBFUPLD3,0701,3A00,9020
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,3D84,C4D8         ; Upload data
/HBFUPLD3,0701,4040,80C8
/HBFUPLD3,0701,43E8,F030
/HBFUPLD3,0701,46FC,C0E0
WAIT                        ; Verify command buffer contents
/SEND

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/HBFUPLD3,0701,4938,585C         ; Upload data
/HBFUPLD2,0701,4C9C
WAIT                        ; Verify command buffer contents
/SEND
;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		None
;#
;#**************************************************************************
ENDPROC