PROC S_FL_PWR_ON ;VERSION 9 GOTO BEGIN ; ;#************************************************************************** ;# ****PROCEDURE HEADER**** ;# ;# 1.0 Introduction ;# ;# 1.1 FOT Name: S_FL_PWR_ON ;# MMS-F Name: N/A ;# SUM Issue: N/A ;# Simulator Validation Status: ;# ;# 1.2 Date Created: 01 APRIL 95 ;# Revision: 1) 27 APR 95 TB ;# 2) 18 MAY 95 TB ;# 3) 24 MAY 95 TL ;# 4) 09 JUN 95 CQ ;# 5) 16 JUN 95 TL ;# 6. 24 OCT 95 RS ;# 7) 28 NOV 95 TB ;# 8) 08 DEC 95 TB ;# 9) 16 Dec 95 ;# 1.3 Change Description: ;# ;# 1) Added to description : Anticipated for initial turn on i orbit. ;# Changed 20+- 4C to 20c +/- 4 ;# Added comment for temps. 20C +/- .5 is real value ;# Turned all limits off before /SB3POWON ;# Turned all limits on after /SB3POWON ;# Moved LIM OFF for all detector mnemonics to after /SB3POWON ;# Deleted line 244-248 (lim on items) ;# ;# 2) ADDED: ;# START K_EXP_MON_ENA ;Define the related parameters for monitoring, enable ;# ;the function at channel level, and enable the corrective ;# ;action ;# ;# 3) Added WAIT statements before line 164 and 296. ;# 4) Corrected line 125 for mnemonic SIPWA value to >=0.2 and <=0.35 ;# and added a wait statement @ line 190. ;# 5) Changed TM mnemonic SSP2MMM to SSP2M. ;# 6. Changed the name from s_ts_pwr_on ---> s_fl_pwr_on. ;# 7) Added command /SBSPOKE. Added comment to check if X_PREP_ON has ;# been run. Added section to enable subs htr. Changed limits for ;# MC ;# 8) Removed section of code that turned on a substitution heater ;# per OCD # 46 ;# 9) Thermal adjustment: switch on all MCs and set heater mode to 3 ;# delete door position check ;# 1.4 Point of Contact: ;# FOT Author: Travis Bailey ATSC/SOHO 286-4799 ;# ;#************************************************************************** ;# 2.0 Description ;# ;# 2.1 Narrative Description ;# ;# This sequence configures the experiment into a safe ;# standby mode in any configuration from a powered off state. ;# Anticipated for initial turn on i orbit. ;# ;# 2.2 Intended Use: ;# ;# Power up SUMER ;# ;# 2.3 Duration: 10 min. ;# ;# 2.4 References: ;# ;# ;# 3.0 Instructions for Use: ;# ;# 3.1 Parameters Required ;# ;# None ;# ;# 3.2 Critical Activities ;# ;# 3.3 Special Constraints or Activities ;# ;# This procedure requires SDB version FM6 or later to run ;# ;#************************************************************************** ;# 4.0 STEPS: BEGIN: ;Variable declaration section local config ;Flag for nominal or redundant config local high ;For first byte in LOBT local medium ;For second byte in LOBT local low ;For third byte in LOBT IF (P@CMD_STATE#TELECOMMAND = "AVAILABLE") THEN ELSE /CLEAR ;Clearing the Command Buffer. ENDIF WAIT ;VERIFY X_EXP_PREP_ON HAS BEEN PERFORMED WRITE "Start SUMER Power up" ;Verify non-operational temperature of SUMER 1 to be 20c +/- 6 ********* WAIT UNTIL ( (P@QTSR1 >= 10.0) and (P@QTSR1 <= 24.0) ) WAIT UNTIL ( (P@QTSR2 >= 10.0) and (P@QTSR2 <= 24.0) ) WAIT UNTIL ( (P@QTSR3 >= 16.0) and (P@QTSR3 <= 24.0) ) WAIT UNTIL ( (P@QTSI1A >= 14.0) and (P@QTSI1A <= 26.0) ) WAIT UNTIL ( (P@QTSI1B >= 14.0) and (P@QTSI1B <= 26.0) ) /KNSPWAFN ;current limiter +28 V A off nominal to SUMER experiment WAIT ;Verify command buffer contents? /SEND WAIT 5 ;WAIT FOR VALID COMMAND STATE /KNSPWBFR ;current limiter +28 V B off WAIT ;Verify command buffer contents /SEND ASK "Is power up for nominal or redundant configuration? (NOM/RED)"config LET config = %UPPER(config) IF (config = "NOM") THEN /KNSPWANN ;Switch on bus to experiment WAIT ;Verify command buffer contents /SEND WAIT UNTIL (P@SSPWA = "ON") TIMEOUT 60 ;Power A Status IF (P@SSPWA .NE. "ON") THEN WAIT ;Contact Experimenter and ask how to proceed. ENDIF WAIT UNTIL ( (P@SIPWA >= 0.2) AND (P@SIPWA <= 0.35) ) ;Current @ S/C ELSE /KNSPWBNR ;Switch on bus to experiment WAIT ;Verify command buffer contents /SEND WAIT UNTIL (P@SSPWB = "ON") TIMEOUT 60 ;Power B Status IF (P@SSPWB .NE. "ON") THEN WAIT ;Contact Experimenter and ask how to proceed. ENDIF WAIT UNTIL ( (P@SIPWB >= 0.2) AND (P@SIPWB <= 0.35) ) ;Current @ S/C ENDIF WAIT 120 ;Wait 120s then verify reception of tm in channel 0 WAIT UNTIL (SSBCVAL = H'0000') WAIT UNTIL (SSBCREG = H'0040') WAIT UNTIL (P@SKEXPSTA = "SUM standby") WAIT ;Within 30 mins after booting send valid configuration (follows) START K_EXP_MON_ENA ;Define the related parameters for monitoring, enable ;the function at channel level, and enable the corrective ;action IF (config = "NOM") THEN /SBSYSCFG B117,FFFE,FFFF,3FFF,003A WAIT ;Verify command buffer contents /SEND ELSE /SBSYSCFG D22B,FFFE,FFFF,3FFF,003A WAIT ;Verify command buffer contents /SEND ENDIF WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") WAIT 5 ;For smooth commanding /SBSPOKE 0000,8000,670E,0041 WAIT ;Verify command buffer contents /SEND LIM OFF SUMER WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") /SB3POWON ;Switch on SUMER 4 WAIT ;Verify command buffer contents /SEND 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 WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") 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 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 START K_OBT_DIST ;Distribute OBT to SUMER WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE") /SBFLEX1 ;Choose Science TM rate 10kbits/s WAIT ;Verify command buffer contents /SEND ; switch on more motor controllers for thermal reasons /SBPEXON, 0027 ;Door /SBPEXON, 0028 ;Telescope azimuth /SBPEXON, 002B ;Slit focus /SBPEXON, 002E ;Scan mirror ; change automatic heater mode from 2 to 3 /SBAMODE,0003,0000 WRITE "End of SUMER power on" ;#************************************************************************** ;# 5.0 Final Constraints ;# ;# SUMER heater control is now using main thermistors. ;# In case of change, new configuration and MC1 handling ;# will have to be implemented in SUMER procedures ;# ;#************************************************************************** ENDPROC