PROC S_FL_SFT7
;VERSION 2
IF (P@NRT_STATE#TELECOMMAND = "ENABLED") THEN
/NRT TPUT PAUS
ELSE
ENDIF

GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:   S_FL_SFT7 
;#		   	MMS-F Name:  N\A	 
;#		   	SUM Issue:   N\A	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  5-31-95
;#			    Revision:  1) 16 JUN 95   TL
;#						2. 24 OCT 95   RS
;#	
;#		1.3	Change Description:	
;#
;#             1) Changed TM mnemonic SSP2 to SSP2M.
;#			2. Changed name from s_ts_sft7 ---> s_fl_sft7.
;#
;#		1.4	Point of Contact:	
;#			FOT Author: Travis Bailey  	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			Procedure to obtain a stim pulse image (A detector)
;#
;#		2.2	Intended Use:
;#
;#			Detector test
;#
;#		2.3	Duration:	10 min.
;#
;#		2.4 References:
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			None
;#
;#		3.2	Critical Activities
;#
;#			TBD
;#
;#		3.3	Special Constraints or Activities
;#
;#			TBD
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

;Variable declaration section
local config			;Flag for nominal or redundant config


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

ASK "Is current SUMER configuration nominal or redundant? (NOM/RED)"config
LET config = %UPPER(config)

;Check SUMER 4 Switch status
IF (CONFIG = "NOM") THEN
	WAIT UNTIL (SSP1 = H'42')
	WAIT UNTIL (SSP0 = H'2E')
	WAIT UNTIL (SSP3 = H'16')
	WAIT UNTIL (SSP2M = H'0C')
	WAIT UNTIL (SSP4M = H'0F')
ELSE
	WAIT UNTIL (SSP1 = H'84')
	WAIT UNTIL (SSP0 = H'52')
	WAIT UNTIL (SSP3 = H'16')
	WAIT UNTIL (SSP2M = H'0C')
	WAIT UNTIL (SSP4M = H'0F')
ENDIF

WAIT UNTIL (P@SKEXPSTA = "SUM standby")	;Verify SUMER 2 in stand by

LIM OFF SUMER

/SBPEXON, 0028	;Switch on motor controller 2 (azimuth)
WAIT			;Verify command buffer contents
/SEND

;Wait for command verification
WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")	

/SB3STDBY		;Switch on detector to standby (no high voltage)
WAIT			;Verify command buffer contents
/SEND

;Wait for command verification
WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/SBDXTIM, 0005	;Set detector thresholds
WAIT			;Verify command buffer contents
/SEND

;Wait for command verification
WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/SBDYTIM, 0006	;
WAIT			;Verify command buffer contents
/SEND

;Wait for command verification
WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/SBDXCHG, 0007	;
WAIT			;Verify command buffer contents
/SEND

;Wait for command verification
WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/SBDYCHG, 0008
WAIT			;Verify command buffer contents
/SEND

;Wait for command verification
WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/SBDXUTHR, 00FD
WAIT			;Verify command buffer contents
/SEND

;Wait for command verification
WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/SBDYUTHR, 00FE
WAIT			;Verify command buffer contents
/SEND

;Wait for command verification
WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/SBDQUAL, 0000, 0001	;Enable stim pulse
WAIT			;Verify command buffer contents
/SEND

;Wait for command verification
WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")

;make inage with 30 s exposure time
/SB3SPHEL, 0078, 0009, 0000, 0000
WAIT			;Verify command buffer contents
/SEND

WAIT UNTIL (P@SKEXPSTA = "SUM opertnal") TIMEOUT 60
IF (P@SKEXPSTA = "SUM opertnal") THEN
	WAIT ;CONTACT PI, WAIT FOR FURTHER DIRECTION
ENDIF

WAIT UNTIL (P@SKEXPSTA = "SUM standby") TIMEOUT 360 ;Verify SUMER 2
IF (P@SKEXPSTA = "SUM standby") THEN
	WAIT ;CONTACT PI, WAIT FOR FURTHER DIRECTION
ENDIF

/SBDQUAL, 0000, 0000 	;Disable stim pulse
WAIT					;Verify command buffer contents
/SEND

;Wait for command verification
WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/SBPEXOFF, 0028	;Switch off motor controller 2 (azimuth)
WAIT				;Verify command buffer contents
/SEND

;Wait for command verification
WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")

/SB3SHUTD		;Switch off detector
WAIT			;Verify command buffer contents
/SEND

WAIT UNTIL (P@SKEXPSTA = "SUM standby") ;Verify SUMER 2 in standby

;Check SUMER 4 Switch status
IF (config = "NOM") THEN
	WAIT UNTIL (SSP1 = H'42')
	WAIT UNTIL (SSP0 = H'2E')
	WAIT UNTIL (SSP3 = H'16')
	WAIT UNTIL (SSP2M = H'0C')
	WAIT UNTIL (SSP4M = H'0F')
ELSE
	WAIT UNTIL (SSP1 = H'84')
	WAIT UNTIL (SSP0 = H'52')
	WAIT UNTIL (SSP3 = H'16')
	WAIT UNTIL (SSP2M = H'0C')
	WAIT UNTIL (SSP4M = H'0F')
ENDIF

WAIT UNTIL (P@SKEXPSTA = "SUM standby") ;Verify SUMER 2 in standby

LIM ON SUMER

LIM OFF SIXLVPI		;INHIBIT LIMITS FOR DETECTOR
LIM OFF S+XTDC5		;INHIBIT LIMITS FOR DETECTOR
LIM OFF S+XTDC10		;INHIBIT LIMITS FOR DETECTOR
LIM OFF S-XTDC5		;INHIBIT LIMITS FOR DETECTOR
LIM OFF S-XTDC15		;INHIBIT LIMITS FOR DETECTOR
LIM OFF S+XMON13		;INHIBIT LIMITS FOR DETECTOR
LIM OFF S-XMON13		;INHIBIT LIMITS FOR DETECTOR
LIM OFF S+XMON5		;INHIBIT LIMITS FOR DETECTOR
LIM OFF S-XMCPV		;INHIBIT LIMITS FOR DETECTOR
LIM OFF SSXACCEL		;INHIBIT LIMITS FOR DETECTOR
LIM OFF STXLVPSB		;INHIBIT LIMITS FOR DETECTOR
LIM OFF STXAMPBX		;INHIBIT LIMITS FOR DETECTOR
LIM OFF STXHVPSB		;INHIBIT LIMITS FOR DETECTOR
LIM OFF STXDET			;INHIBIT LIMITS FOR DETECTOR
LIM OFF STXTDCBX		;INHIBIT LIMITS FOR DETECTOR
LIM OFF STXMONBX		;INHIBIT LIMITS FOR DETECTOR

WRITE "END OF SUMER SFT7"

;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		TBD
;#
;#**************************************************************************
IF (P@NRT_STATE#TELECOMMAND = "PAUSE-ENAB") THEN
	WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")
	/NRT TPUT RSUM
	/CMSMSG,SUMER,'Procedure S_FL_AFT has completed'
ELSE
ENDIF


ENDPROC