PROC C_FL_PHTRS ;Version 5 GOTO BEGIN ; ;#************************************************************************** ;# ****PROCEDURE HEADER**** ;# ;# 1.0 Introduction ;# ;# 1.1 FOT Name: C_FL_PHTRS ;# CDS Name: CDS_MCU2 ;# CDS Issue: ;# Simulator Validation Status: COBS level only. ;# ;# 1.2 Date Created: 19-MAY-95 ;# Revision: 1. 03-JUN-95 BS ;# 2. 8-AUG-95 MH ;# 3. 23-AUG-95 MH ;# 4. 16-Oct-95 TFM ;# 5. 27-OCT-95 TFM ;# 1.3 Change Description: ;# ;# 1. Add check for CSMMHTRS. ;# 2. Add intended use, duration, page references. Changed WAIT 5 ;# to WAIT UNTIL (p@CMD_STATE#TELECOMMAND = "AVAILABLE"). Edited ;# first two thermostat sets to send all commands and then check ;# TM. ;# 3. Changed data word for first heaters power /CBMHTRPL in section ;# 26 from 0000 to D000. In section 26.2 changed D1 from "0A" to ;# "08" and D2 from %hex(H'18',2) to "A1". In section 26.7 ;# changed D1 from "09" to "00" and D2 from "50" to "95". ;# 4. Removed separate FOR LOOPS which check WAIT UNTIL (p@CSMMHT$I = "OFF") ;# and incorprated the check in the loop which sends the commands. ;# Chaned WAIT UNTIL ((p@'CIEU+27V' > 70) AND (p@'CIEU+27V' < 170)) ;# to WAIT UNTIL ((p@'CIEU+27V' > 877) AND (p@'CIEU+27V' < 947)). ;# in section 26.2. Added ;Switch ALL heaters off and ;# Wait until (CSMMHTRS = 0). CHanged ;Status of main heater I. to ;# Status of each heater. Added OUT: and RETURN. ;# 5. Changed ts in name to fl. ;# 1.4 Point of Contact: CCazeau ;# FOT Author: MHill ATSC/SOHO 286-4799 ;# ;#************************************************************************** ;# 2.0 Description ;# ;# 2.1 Narrative Description ;# ;# This procedure is derived from C_TS_MCU2 section 26 for GSCT2. ;# ;# 2.2 Intended Use: ;# ;# Test of MCU Prime heaters. ;# ;# 2.3 Duration: 20 min ;# ;# 2.4 References: pages C_MCU_HK2, C_CDS_STATUS_HK ;# ;#************************************************************************** ;# 3.0 Instructions for Use: ;# ;# 3.1 Parameters Required ;# ;# None ;# ;# 3.2 Critical Activities ;# ;# /CBEHTRSN - Op Heaters On is a critical command. ;# ;# 3.3 Special Constraints or Activities ;# ;# None ;#************************************************************************** ;# 4.0 STEPS: BEGIN: LOCAL D1, D2, J IF (p@CMD_STATE#TELECOMMAND = "AVAILABLE") THEN ELSE /CLEAR ;Clearing the Command Buffer. ENDIF ;******SECTION 26****** ;PRIME HEATERS /CBMHTRP ;Prime Heaters (MCU control) WAIT ;Verify command buffer contents /SEND WAIT UNTIL (p@CMD_STATE#TELECOMMAND = "AVAILABLE") /CBMHTRPL,D000 ;Heaters Power Limit (power output to 0) WAIT ;Verify command buffer contents /SEND WAIT UNTIL (p@CMD_STATE#TELECOMMAND = "AVAILABLE") ;******SECTION 26.1****** ;ENSURE ALL GO OFF, SET ALL THERMOSTATS TO 0 DEG C ;FOR THIS TEST, TEMP WILL BE SET TO 0 DEGREES C. WAIT ;DATA = ((0 + 273) * 8) , IN HEX = 0888 LET D1 = "08" LET D2 = %HEX(H'88',2) WAIT ;Go to set thermostats FOR I = 0 TO 15 DO LET J = %HEX(I,1) /CBMTEMPL,E$J$D1 /CBMTEMPH,F$J$D2 /SEND WAIT 2 ;Status of each Heater. WAIT UNTIL (p@CSMMHT$I = "OFF") WAIT UNTIL (p@CMD_STATE#TELECOMMAND = "AVAILABLE") ENDDO WAIT UNTIL (CSMMHTRS = 0) ;Main Heaters Status word /CBEHTRSN ;Op Heaters On WAIT ;Verify command buffer contents /SEND WAIT UNTIL (p@CSEHTRS = "ON") ;ON/OFF +27V Op Heater Power WAIT UNTIL ((p@'CIEU+27V' > 40) AND (p@'CIEU+27V' < 65)) ;Nom 52mA ;******SECTION 26.2****** /CBMHTRPL,D080 ;Heaters Power Limit (power output to 4) WAIT ;Verify command buffer contents /SEND WAIT 5 ;FOR THIS TEST, TEMP WILL BE SET TO 50 DEGREES C. WAIT ;DATA = ((50 + 273) * 8) , IN HEX = 0A18 LET D1 = "08" LET D2 = "A1" WAIT ;GO TO SET THERMOSTATS FOR I = 0 TO 15 DO LET J = %HEX(I,1) ;MCU HEATER DRIVE CHIP WAIT UNTIL (p@CTM22 < 50) /CBMTEMPL,E$J$D1 /CBMTEMPH,F$J$D2 /SEND WAIT 2 ;Status of each heater. WAIT UNTIL (p@CSMMHT$I = "ON") WAIT UNTIL (p@CMD_STATE#TELECOMMAND = "AVAILABLE") ENDDO WAIT UNTIL ((p@'CIEU+27V' > 877) AND (p@'CIEU+27V' < 947)) ;******SECTION 26.3****** ;POWER LIMIT 1/4 POWER /CBMHTRPL,D020 ;Heaters Power Limit WAIT ;Verify command buffer contents /SEND WAIT 30 WAIT UNTIL ((p@'CIEU+27V' > 235) AND (p@'CIEU+27V' < 315)) ;******SECTION 26.4****** ;POWER LIMIT 1/2 POWER /CBMHTRPL,D040 ;Heaters Power Limit WAIT ;Verify command buffer contents /SEND WAIT 30 WAIT UNTIL ((p@'CIEU+27V' > 460) AND (p@'CIEU+27V' < 540)) ;******SECTION 26.5****** ;POWER LIMIT 3/4 POWER /CBMHTRPL,D060 ;Heaters Power Limit WAIT ;Verify command buffer contents /SEND WAIT 30 WAIT UNTIL ((p@'CIEU+27V' > 670) AND (p@'CIEU+27V' < 750)) ;******SECTION 26.6****** ;POWER LIMIT FULL POWER /CBMHTRPL,D080 ;Heaters Power Limit WAIT ;Verify command buffer contents /SEND WAIT 30 WAIT UNTIL ((p@'CIEU+27V' > 877) AND (p@'CIEU+27V' < 947)) ;ALL HEATERS OFF. WAIT ;DATA = ((0 + 273) * 8) , IN HEX = 888 LET D1 = "08" LET D2 = %HEX(H'88',2) WAIT ;GO TO SET THERMOSTATS FOR I = 0 TO 15 DO LET J = %HEX(I,1) /CBMTEMPL,E$J$D1 /CBMTEMPH,F$J$D2 /SEND WAIT 15 ;Status of each heater. WAIT UNTIL (p@CSMMHT$I = "OFF") ENDDO WAIT UNTIL (CSMMHTRS = 0) ;******SECTION 26.7****** ;FOR THIS TEST, THERMOSTAT 4 WILL BE SET TO 25 DEGREES C. WAIT ;DATA = ((25 + 273) * 8) , IN HEX = 950 LET D1 = "00" LET D2 = "95" WAIT ;GO TO SET THERMOSTAT #4 CONTROLLING /CBMTEMPL,E4$D1 /CBMTEMPH,F4$D2 /SEND WAIT UNTIL (p@CMD_STATE#TELECOMMAND = "AVAILABLE") /NRT TPUT RSUM /CMSMSG CDS 'MONITOR HEATER STATUS AND TEMP 4' WAIT ;Verify CDS TM Check /NRT TPUT PAUS WAIT 300 ;FOR THIS TEST, THERMOSTAT 4 WILL BE SET TO 0 DEGREES C. WAIT ;DATA = ((0 + 273) * 8) , IN HEX = 888 LET D1 = "08" LET D2 = %HEX(H'88',2) WAIT ;GO TO SET THERMOSTAT #4 CONTROLLING /CBMTEMPL,E4$D1 /CBMTEMPH,F4$D2 /SEND WAIT 5 /NRT TPUT RSUM /CMSMSG CDS 'MONITOR HEATER STATUS AND TEMP 4' WAIT ;Verify CDS TM Check /NRT TPUT PAUS WAIT 5 ; Switch ALL heaters off. /CBMHTRPL,D000 WAIT ;Verify command buffer contents /SEND WAIT UNTIL (CSMMHTRS = 0) OUT: ;#************************************************************************** ;# 5.0 Final Constraints ;# ;# None ;# ;#************************************************************************** RETURN ENDPROC