PROC C_FL_QCM
;Version 3
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name: 	C_FL_QCM
;#		   	CDS Name: 	CDS_MCU2
;#		   	CDS Issue:	
;#			Simulator Validation Status: COBS level only.
;#
;#		1.2	Date Created:  17-MAY-95
;#			    Revision:  1.  3-JUN-95	BS
;#						2.  7-AUG-95	MH
;#                            3. 27-OCT-95   TFM
;#		1.3	Change Description:	
;#
;#			1.  Repeat sending command CB2Q2AS.
;#			2.  Added intended use, duration.   Changed first /NRT TPUT ENA 
;#			    to /NRT TPUT RSUM.  Changed WAIT 5s to WAIT UNTIL 
;#			    (p@CMD...)
;#             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 was derived from C_TS_MCU2 section 25.1-25.2 for 
;#			GSCT2.
;#
;#		2.2	Intended Use:
;#
;#			CDS QCM Test.
;#
;#		2.3	Duration:	30 min
;#
;#		2.4	References: None
;#
;#**************************************************************************
;#	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 25.1******

;QCM1
/CB2Q1AS		;QCM 1 Accumulate short (4 seconds), dummy read, first after 
			;power up is inaccurate
WAIT			;Verify command buffer contents
/SEND
WAIT 15

;SHORT ACCUMULATION
/CB2Q1AS		;QCM 1 Accumulate short 
WAIT			;Verify command buffer contents
/SEND

WAIT 15

/NRT TPUT RSUM
/CMSMSG CDS 'RECORD BKMQCMC COUNT  = Hz X 2.097'
WAIT		;WAIT FOR CDS TM VERIFICATION
/NRT TPUT PAUS

/CB2IRST		;Reset IMIF module flags, mk=0004
WAIT			;Verify command buffer contents
/SEND

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

;LONG ACCUMULATION
/CB2Q1AL		;QCM 1 Accumulate long 
WAIT			;Verify command buffer contents
/SEND

WAIT 45

/NRT TPUT RSUM
/CMSMSG CDS 'RECORD BKMQCMC COUNT  = Hz X 33.554'
WAIT		;WAIT FOR CDS TM VERIFICATION
/NRT TPUT PAUS

/CB2IRST		;Reset IMIF module flags, mk=0004
WAIT			;Verify command buffer contents
/SEND

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

;HEATER

/NRT TPUT RSUM
/CMSMSG CDS 'RECORD BTMQCMT1'
WAIT		;WAIT FOR CDS TM VERIFICATION
/NRT TPUT PAUS

/CBMQC1HN		;QCM 1 Heater ON
WAIT			;Verify command buffer contents
/SEND
WAIT 120		;Wait 2 minutes

/NRT TPUT RSUM
/CMSMSG CDS 'RECORD BTMQCMT1, CHECK IT IS HOTTER'
WAIT		;WAIT FOR CDS TM VERIFICATION
/NRT TPUT PAUS

/CBMQC1HF		;QCM 1 Heater OFF
WAIT			;Verify command buffer contents
/SEND

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


;******SECTION 25.2******

;QCM2
/CB2Q2AS		;QCM 2 Accumulate short 
WAIT			;Verify command buffer contents
/SEND
;WAIT UNTIL (p@CS2QCM = "REQUEST")	

WAIT 15

/CB2Q2AS		;QCM 2 Accumulate short 
WAIT			;Verify command buffer contents
/SEND
;WAIT UNTIL (p@CS2QCM = "REQUEST")	

WAIT 15

/NRT TPUT RSUM
/CMSMSG CDS 'RECORD BKMQCMC COUNT  = Hz X 2.097'
WAIT		;WAIT FOR CDS TM VERIFICATION
/NRT TPUT PAUS

/CB2IRST		;Reset IMIF module flags, mk=0004
WAIT			;Verify command buffer contents
/SEND

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

;LONG ACCUMULATION
/CB2Q2AL		;QCM 2 Accumulate long 
WAIT			;Verify command buffer contents
/SEND

WAIT 45

/NRT TPUT RSUM
/CMSMSG CDS 'RECORD BKMQCMC COUNT  = Hz X 33.554'
WAIT		;WAIT FOR CDS TM VERIFICATION
/NRT TPUT PAUS

/CB2IRST		;Reset IMIF module flags, mk=0004
WAIT			;Verify command buffer contents
/SEND

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

/NRT TPUT RSUM
/CMSMSG CDS 'RECORD BTMQCMT2'
WAIT		;WAIT FOR CDS TM VERIFICATION
/NRT TPUT PAUS

;HEATER
/CBMQC2HN		;QCM 2 Heater ON
WAIT			;Verify command buffer contents
/SEND
WAIT 120		;Wait 2 minutes

/NRT TPUT RSUM
/CMSMSG CDS 'RECORD BTMQCMT2, CHECK IT IS HOTTER'
WAIT		;WAIT FOR CDS TM VERIFICATION
/NRT TPUT PAUS

/CBMQC2HF		;QCM 2 Heater OFF
WAIT			;Verify command buffer contents
/SEND

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