PROC S_FL_SAFE ;Version 7 GOTO BEGIN ;#************************************************************************** ;# ****PROCEDURE HEADER**** ;# ;# 1.0 Introduction ;# ;# 1.1 FOT Name: S_FL_SAFE ;# MMS-F Name: ;# SUM Issue: ;# Simulator Validation Status: ;# ;# 1.2 Date Created: 01-APR-95 ;# Revision: 1) 03 APR 95 TB ;# 2) 08 JUN 95 TL ;# 3) 24 OCT 95 TB ;# 4) 24 OCT 95 RS ;# 5) 28 NOV 95 TB ;# 6) 16 DEC 95 ?? ;# 7) 02 JAN 96 TFM ;# ;# Simulator Validation Status: ;# ;# 1.3 Change Description: ;# 1) Changed procedure name from S_TS_SUM_SAFE -> S_TS_SAFE ;# 2) Changed proc call from s_ts_sum_off to s_ts_off. ;# 3) Changed content of procedure to commands for soft ;# safe procedure (IRENE BUETTNER inputs). ;# 4) Changed name of proc from s_ts_safe ---> s_fl_safe. ;# 5) Corrected typos. ;# 6) Changed door maneouvre and tempertature trimming. ;# 7) Fixed syntax errors, Changed comments to fit in event ;# window. Added more comments. Changed layout of procedure. ;# ;# 1.4 Point of Contact: ;# FOT Author:: Travis Bailey ATSC/SOHO 286-4799 ;# ;#************************************************************************** ;# 2.0 Description ;# ;# 2.1 Narrative Description ;# ;# This procedure takes SUMER to SAFE mode. ;# It will switch off all high voltages and ;# close the entrance door to a safe position ;# for attitude maneouvres. ;# The instrument will remain on with its internal ;# thermal control active. ;# ;# 2.2 Intended Use: ;# ;# To put SUMER into SAFE Mode without need to reboot ;# afterwards. ;# ;# 2.3 Duration: 10 min ;# ;# 2.4 References: ;# ;#************************************************************************** ;# ;# 3.0 Instructions for Use: ;# ;# 3.1 Parameters Required ;# ;# None ;# ;# 3.2 Critical Activities ;# ;# None ;# ;# 3.3 Special Constraints or Activities ;# ;# Does not disable motor drives and will ;# not interrupt long exposures ;# ;#************************************************************************** ;# 4.0 STEPS: BEGIN: IF (P@CMD_STATE#TELECOMMAND = "AVAILABLE") THEN ELSE /CLEAR ;Clearing the Command Buffer. ENDIF WRITE "START OF SUMER SAFE" ;-------------------------------------------- ; Commands to switch off HV to detector ; and close door. ;-------------------------------------------- ;-------------------------------------------- ; First abort any programme that may be ; running. Could take a long time for long ; exposure times. ;-------------------------------------------- WAIT ; 'GO' After reading the message. WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") /CMD SBCANCEL WAIT ;Verify Command Buffer /SEND WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") ;-------------------------------------------- ; The command list is now disabled; dump list ; and clear any remaining commands. ;-------------------------------------------- /CMD SBLDCL WAIT ;Verify Command Buffer /SEND ;-------------------------------------------- ; Wait 20 seconds for 73 records of type 248 ; to be dumped. ;-------------------------------------------- WAIT 20 WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") /CMD SBLCCL WAIT ;Verify Command Buffer /SEND WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") ;-------------------------------------------- ; Reenable command list for subsequent ; activities ;-------------------------------------------- /CMD SBCLE WAIT ;Verify Command Buffer /SEND WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") ;-------------------------------------------- ; Switch off detector HV first. ;-------------------------------------------- /CMD SB3SHUTD WAIT ;Verify Command Buffer /SEND ;-------------------------------------------- ; Close door section. ;-------------------------------------------- WRITE"If door is open, close door" WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") ;-------------------------------------------- ; Switch on MC 1 ;-------------------------------------------- /CMD SBPEXON,0027 WAIT ;Verify Command Buffer /SEND ;-------------------------------------------- ; Wait until SSMC1POS is equal to zero. ; This may take a minute. ;-------------------------------------------- WAIT UNTIL (SSMC1POS > 0) WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") ;-------------------------------------------- ; If SSMC1POS is less than or equal to 1900 ; then the door is open. ;-------------------------------------------- IF (SSMC1POS .LE. 1900) THEN IF (SSMC1POS .LE. 700) THEN ;---------------------------------- ; Note the SSMC1POS is LESS than ; or equal to 700. ;---------------------------------- ;---------------------------------- ; Initialize door position to open. ;---------------------------------- /CMD SBCHGP,0001,0000,0000 ;---------------------------------- ; Change right limit to closed w/o ; pressure ;----------------------------------- /CMD SBCHGP,000F,4400,0000 ;---------------------------------- ; Qualify door movement ;---------------------------------- /CMD SBMQUAL ;---------------------------------- ; Close door ;---------------------------------- /CMD SB3MCMOV,0000,4400,0001 ELSE ;---------------------------------- ; Note the SSMC1POS is GREATER than ; 700. ;---------------------------------- ;---------------------------------- ; Initialize door position to ; partially open ;---------------------------------- /CMD SBCHGP,0001,387C,0000 ;---------------------------------- ; Change position limit to closed ; w/o pressure ;---------------------------------- /CMD SBCHGP,000F,4400,0000 ;---------------------------------- ; Qualify door movement ;---------------------------------- /CMD SBMQUAL ;---------------------------------- ; Close door ;---------------------------------- /CMD SB3MCMOV,0000,4400,0001 ENDIF WAIT ; Verify command buffer. /SEND ;--------------------------------------- ; Wait 2 minutes for the door to close. ;--------------------------------------- WAIT 120 ;--------------------------------------- ; Checks if door is really closed. ;--------------------------------------- IF (SSMC1POS .LE. 1900) THEN ;---------------------------------- ; NOTE: The door did NOT close! ; Please contact the PI. ;---------------------------------- WAIT ; Contact experimenter. ELSE ;---------------------------------- ; NOTE: The door has sucessfully ; closed. ;---------------------------------- ENDIF WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") ;--------------------------------------- ; Sets door left limit to closed. ;--------------------------------------- /CMD SBCHGP,0008,4400,0000 WAIT ; Verify command Buffer /SEND ELSE ;--------------------------------------- ; SSMC1POS is GREATER than 1900. ; Therefore the door is already closed. ;--------------------------------------- ENDIF WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") ;-------------------------------------------- ;Switch off deflector (SUMER 4 switch #11). ;-------------------------------------------- /CMD SBPEXOFF 000B ;-------------------------------------------- ; Switch off all motor controllers for safety ; reasons. ;-------------------------------------------- /CMD SBPEXOFF,0027 /CMD SBPEXOFF,0028 /CMD SBPEXOFF,0029 /CMD SBPEXOFF,002A /CMD SBPEXOFF,002B /CMD SBPEXOFF,002C /CMD SBPEXOFF,002E WAIT ;Verify Command Buffer /SEND WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") WAIT 30 ;-------------------------------------------- ; Switch off +/- 18 V. ;-------------------------------------------- /CMD SBPEXOFF,0030 /CMD SBPEXOFF,0031 /CMD SBPEXOFF,0032 /CMD SBPEXOFF,0033 WAIT ;Verify Command Buffer /SEND WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") WAIT 30 ;-------------------------------------------- ; Switch on +/- 18 V. ;-------------------------------------------- /CMD SBPEXON,0030 /CMD SBPEXON,0031 /CMD SBPEXON,0032 /CMD SBPEXON,0033 WAIT ;Verify Command Buffer /SEND WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") WAIT 30 ;-------------------------------------------- ; Switch on all motor controllers and go to ; heater mode 3 for thermal reasons. ;-------------------------------------------- /CMD SBPEXON,0027 /CMD SBPEXON,0028 /CMD SBPEXON,0029 /CMD SBPEXON,002A /CMD SBPEXON,002B /CMD SBPEXON,002C /CMD SBPEXON,002E WAIT ; Verify Command Buffer /SEND WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") WAIT 30 ;-------------------------------------------- ; ;-------------------------------------------- /CMD SBAUTO,0000 /CMD SBAUTO,0001 /CMD SBAUTO,0002 /CMD SBAMODE,0003,0000 WAIT ;Verify Command Buffer /SEND WAIT 30 ;-------------------------------------------- ; End of SUMER safe WITHOUT reboot. ;-------------------------------------------- OUT: ;#************************************************************************** ;# 5.0 Final Constraints ;# ;# None ;# ;#************************************************************************** RETURN ENDPROC