PROC S_FL_AFT
;VERSION 4
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_AFT 
;#		   	MMS-F Name:  N\A	 
;#		   	SUM Issue:   N\A	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  3-31-95
;#			    Revision:  1) 27 APR 95	TB
;#						2) 01 May 95	HB
;#                            3) 16 JUN 95   TL
;#						4. 24 OCT 95   RS
;#
;#		1.3	Change Description:	
;#
;#			1) Changed SWTM to SUMER
;#				Added limits off for detector at end of procedure
;#
;#			2) Made the procedure able to be used as an RPR added the
;#				Following sections:
;#				IF (P@NRT_STATE#TELECOMMAND = "ENABLED") THEN
;#					/NRT TPUT PAUS
;#				ELSE
;#				ENDIF
;#
;#				IF (P@NRT_STATE#TELECOMMAND = "PAUSE-ENAB") THEN
;#				WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")
;#					/NRT TPUT RSUM
;#					/CMSMSG,SUMER,'Procedure S_TS_AFT has completed'
;#				ELSE
;#				ENDIF
;#             3) Changed TM mnemonic SSP2 to SSP2M.
;#			4. Changed name from s_ts_aft ---> s_fl_aft
;#
;#		1.4	Point of Contact:	
;#			FOT Author: Travis Bailey  	ATSC/SOHO	286-4799
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			Procedure to do a short self test of SUMER
;#
;#		2.2	Intended Use:
;#
;#			Self test
;#
;#		2.3	Duration:	5 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

/SB3AFT
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

WAIT UNTIL (SKAFTRES = H'0000')

WAIT UNTIL (P@SKAFTDET = "ok")
WAIT UNTIL (P@SKAFTM8 = "ok")
WAIT UNTIL (P@SKAFTM6 = "ok")
WAIT UNTIL (P@SKAFTM5 = "ok")
WAIT UNTIL (P@SKAFTM4 = "ok")
WAIT UNTIL (P@SKAFTM3 = "ok")
WAIT UNTIL (P@SKAFTM2 = "ok")
WAIT UNTIL (P@SKAFTM1 = "ok")
WAIT UNTIL (P@SKAFTIMA = "ok")
WAIT UNTIL (P@SKAFTIMB = "ok")
WAIT UNTIL (P@SKAFTRSC = "ok")
WAIT UNTIL (P@SKAFTPOW = "ok")
WAIT UNTIL (P@SKAFTWAX = "ok")
WAIT UNTIL (P@SKAFTHC = "ok")
WAIT UNTIL (P@SKAFTHB = "ok")
WAIT UNTIL (P@SKAFTHA = "ok")

;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 AFT"

;#************************************************************************** 
;#	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