PROC C_FL_BHTRS
;Version 3
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name: 	C_TS_BHTRS
;#		   	CDS Name: 	CDS_MCU2
;#		   	CDS Issue:	
;#			Simulator Validation Status: COBS level only.
;#
;#		1.2	Date Created:  17-MAY-95
;#			    Revision:  1.  7-AUG-95	MH
;#						2. 16-Oct-95   TFM
;#                            3. 27-OCT-95   TFM
;#		1.3	Change Description:	
;#
;#			1. Add inteded use, duration , page reference, WAIT for command
;#			   availability after first command.
;#			2. Added OUT: and RETURN.
;#                Changed data words:
;#    		   /CBMHTRBS,0001 to /CBMHTRBS,D401
;#    		   /CBMHTRBS,0002 to /CBMHTRBS,D402
;#    		   /CBMHTRBS,0004 to /CBMHTRBS,D404
;#    		   /CBMHTRBS,0008 to /CBMHTRBS,D408
;#    		   /CBMHTRBS,0010 to /CBMHTRBS,D410
;#    		   /CBMHTRBS,0020 to /CBMHTRBS,D420
;#    		   /CBMHTRBS,0040 to /CBMHTRBS,D440
;#    		   /CBMHTRBS,0080 to /CBMHTRBS,D480
;#    		   /CBMHTRBS,0000 to /CBMHTRBS,D400
;#
;#              3. Changed ts in name to fl.
;#		1.4	Point of Contact:	CCazeau
;#			FOT Author:  MHill	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			This procedure is derived from C_TS_MCU2 section 27 for GSCT2.
;#
;#		2.2	Intended Use:
;#
;#			Test of MCU Backup heaters.
;#
;#		2.3	Duration:	10 min
;#
;#		2.4	References: page C_MCU_HK2
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			None
;#
;#		3.2	Critical Activities
;#
;#			None
;#
;#		3.3	Special Constraints or Activities
;#
;#			None
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

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

;******SECTION 27******

;BACKUP HEATERS SWITCHED ON/OFF IN TURN
/CBMHTRB		;Backup Heaters
WAIT			;Verify command buffer contents
/SEND

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

/CBMHTRBS,D401		;Backup Heater 0 On
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (P@CSMBHT0 = "ON")	;Verify Backup heater 0 ON

/CBMHTRBS,D402		;Backup Heater 1 On
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (P@CSMBHT1 = "ON")		;Verify Backup heater 1 ON
WAIT UNTIL (P@CSMBHT0 = "OFF")	;Verify Backup heater 0 OFF

/CBMHTRBS,D404		;Backup Heater 2 On
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (P@CSMBHT2 = "ON")		;Verify Backup heater 2 ON
WAIT UNTIL (P@CSMBHT1 = "OFF")	;Verify Backup heater 1 OFF

/CBMHTRBS,D408		;Backup Heater 3 On
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (P@CSMBHT3 = "ON")		;Verify Backup heater 3 ON
WAIT UNTIL (P@CSMBHT2 = "OFF")	;Verify Backup heater 2 OFF

/CBMHTRBS,D410		;Backup Heater 4 On
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (P@CSMBHT4 = "ON")		;Verify Backup heater 4 ON
WAIT UNTIL (P@CSMBHT3 = "OFF")	;Verify Backup heater 3 OFF

/CBMHTRBS,D420		;Backup Heater 5 On
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (P@CSMBHT5 = "ON")		;Verify Backup heater 5 ON
WAIT UNTIL (P@CSMBHT4 = "OFF")	;Verify Backup heater 4 OFF

/CBMHTRBS,D440		;Backup Heater 6 On
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (P@CSMBHT6 = "ON")		;Verify Backup heater 6 ON
WAIT UNTIL (P@CSMBHT5 = "OFF")	;Verify Backup heater 5 OFF

/CBMHTRBS,D480		;Backup Heater 7 On
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (P@CSMBHT7 = "ON")		;Verify Backup heater 7 ON
WAIT UNTIL (P@CSMBHT6 = "OFF")	;Verify Backup heater 6 OFF

/CBMHTRBS,D400		;Backup Heater 6 On
WAIT			;Verify command buffer contents
/SEND
WAIT UNTIL (P@CSMBHT7 = "OFF")	;Verify Backup heater 7 OFF


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