# Name: M_HOPSPT
#
# Date:
#
# created:	09 01 1994	SDW
# revisions:	
#
# Change Description
#
# None
#
# MDI Author:	Scott Williams	415-725-0482
#
# Description
#
# This procedure configures the set point for the Optics Package
# heater
#
# Parameters
#
# 1) P1 - set point value, 8 bits where the least significant 6 bits
#    control the variable heater OPH1 (0 to 63), bit 6 (64) controls
#    the fixed value heater OPH3 and bit 7 (128) controls the fixed
#    value heater OPH2.
#
# Intended Use
#
# Setting the MDI optics package heater controller set point
#
# Duration
#
# ?
#
# Requirements and Constraints
#
# MDI in SLEEP or higher mode.  Medium rate telemetry support required for
# set point change.  MDI operator concurrence required for set point
# change.
#
# Steps
#
# Step	Description				Command	   Monitor  Value
#  1	record MDI current, either			   MIPWA     <2.0
#	or						   MIPWB     
#  2    HOP set point 				mbhopspt   mkhopspt  mod(P1,64)
#		mbhopspt P1 				   mkhoph2   
#							   mkhoph3
#  3	record MDI current				   MIPWA     
#							   MIPWB     
#  4	record MDI OP temperatures			   QTMI1B
#							   QTMI1B
#							   QTMI1C
#  5    end of procedure