PROC m_fl_hopspt
;Version 5
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:   m_fl_hopspt
;#		   	MMS-F Name:  	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  20-DEC-94   BS
;#			    Revision:  1. 2-21-95
;#						2. 4/24/95 RR
;#						3. 5-4-95 RR
;#						4. 11/18/95 GJ
;#						5. 12/03/95 GJ
;#
;#		1.3	Change Description:	
;#
;#			1.  Change question in prompt for HOP heater setting
;#			2.  Changed comments
;#			3.  Removed hard wait
;#			4.  Changed name convention from m_ts_* to m_fl_*.
;#			5.  Deleted GOTO END and added WAIT; GO TO CONTINUE.
;#
;#		1.4	Point of Contact:	
;#			FOT Author: BSAPPER 	ATSC/SOHO	805-3749
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			This procedure confingues the set point for the Optics Package
;#			heater.
;#
;#		2.2	Intended Use:
;#
;#			Setting the MDI optics package heater controller set point.
;#
;#		2.3	Duration:	TBD
;#
;#		2.4 References:
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			P1 = set point value, 8 bits: least significant 6 bits control
;#			ariable heater OPH1(0-63), bit 6 (64) controls the fixed value
;#			heater OPH3 and bit 7 (128) controls the fixed value heater
;#			OPH2.  Range in decimal is 0 to 255.0.
;#
;#		3.2	Critical Activities
;#
;#			TBD
;#
;#		3.3	Special Constraints or Activities
;#
;#			MDI in SLEEP or higher mode.  MR TLM required.  MDI operator
;#			concurrence required for set ponit change.
;#
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

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

IF (P@KKTMMODE = "HK") THEN	;Check TM is not in LR
WRITE "TM IS NOT IN MEDIUM/HIGH RATE."
WAIT		; GO TO CONTINUE.
ENDIF

LOCAL P1,SPT,OPH2,OPH3

SV P@MIPWA
SV P@MIPWB
WAIT		;RECORD MDI CURRENT (MIPWA OR MIPWB) SHOULD BE < 2.0

ASK "WHAT IS THE DESIRED HOP HEATER SET POINT (0 TO 255)"P1

IF (P1 >= 128) THEN
	OPH2="ON"
	SPT = P1 - 128
ELSE	
	OPH2="OFF"
ENDIF

IF (SPT >= 64) THEN
	OPH3="ON"
	SPT = SPT - 64
ELSE
	OPH3="OFF"
ENDIF

P1=%HEX(P1,4)

/MBHOPSPT,$P1			;HOP set point
WAIT 		;VERIFY BUFFER CONTENTS'
/SEND

WAIT UNTIL (MKHOPSPT = SPT)
WAIT UNTIL (P@MKHOPH2 = "$OPH2")
WAIT UNTIL (P@MKHOPH3 = "$OPH3")

SV P@MIPWA
SV P@MIPWB
WAIT		;RECORD MDI CURRENT (MIPWA OR MIPWB) 

SV P@QTMI1B
SV P@QTMI1C
WAIT		;RECORD MDI OP TEMPS (QTMI1B, QTMI1C)

;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		TBD
;#
;#**************************************************************************
end:
ENDPROC