* Proof FIXED_FIXED_CONSTANT_POOL (#207) * Proof TVCMASSPROP (#269) * Revert the leading and trailing line breaks of the page comment "# Page ppp" as they were (#269) * Fix typo: AMMNDMENT -> AMENDMENT [p952]
This commit is contained in:
parent
a6693fd688
commit
ffcfaf5d51
@ -31,49 +31,53 @@
|
|||||||
# PROGRAM NAME....MASSPROP
|
# PROGRAM NAME....MASSPROP
|
||||||
# LOG SECTION....TVCMASSPROP PROGRAMMER...MELANSON (ENGEL, SCHLUNDT)
|
# LOG SECTION....TVCMASSPROP PROGRAMMER...MELANSON (ENGEL, SCHLUNDT)
|
||||||
#
|
#
|
||||||
|
#
|
||||||
# FUNCTIONAL DESCRIPTION:
|
# FUNCTIONAL DESCRIPTION:
|
||||||
#
|
#
|
||||||
# MASSPROP OPERATES IN TWO MODES: (1) IF LEM MASS OR CONFIGURATION ARE UPDATED (MASSPROP DOES NOT TEST
|
# MASSPROP OPERATES IN TWO MODES:(1)IF LEM MASS OR CONFIGURATION ARE UPDATED (MASSPROP DOES NOT TEST
|
||||||
# FOR THIS) THE ENTIRE PROGRAM MUST BE RUN THROUGH, BREAKPOINT VALUES AND DERIVATIVES OF THE OUTPUTS WITH
|
# FOR THIS) THE ENTIRE PROGRAM MUST BE RUN THROUGH, BREAKPOINT VALUES AND DERIVATIVES OF THE OUTPUTS WITH
|
||||||
# RESPECT TO CSM MASS BEING CALCULATED PRIOR TO CALCULATION OF THE OUTPUTS. (2) OTHERWISE, THE OUTPUTS CAN BE
|
# RESPECT TO CSM MASS BEING CALCULATED PRIOR TO CALCULATION OF THE OUTPUTS. (2)OTHERWISE, THE OUTPUTS CAN BE
|
||||||
# CALCULATED USING PREVIOUSLY COMPUTED BREAKPOINT VALUES AND DERIVATIVES.
|
# CALCULATED USING PREVIOUSLY COMPUTED BREAKPOINT VALUES AND DERIVATIVES.
|
||||||
#
|
#
|
||||||
# CALLING SEQUENCES
|
# CALLING SEQUENCES
|
||||||
#
|
#
|
||||||
# IF LEM MASS OR CONFIGURATION HAS BEEN UPDATED, TRANSFER TO MASSPROP, OTHERWISE TRANSFER TO FIXCW.
|
# IF LEM MASS OR CONFIGURATION HAS BEEN UPDATED, TRANSFER TO MASSPROP, OTHERWISE TRANSFER TO FIXCW.
|
||||||
# L TC BANKCALL or IBNKCALL
|
# L TC BANKCALL OR IBNKCALL
|
||||||
# L+1 CADR MASSPROP
|
# L+1 CADR MASSPROP
|
||||||
# OR
|
# OR
|
||||||
# L+1 CADR FIXCW
|
# L+1 CADR FIXCW
|
||||||
|
#
|
||||||
# L+2 RETURNS VIA Q
|
# L+2 RETURNS VIA Q
|
||||||
#
|
#
|
||||||
# CALLED: IN PARTICULAR BY DONOUN47 (JOB) AND TVCEXECUTIVE (TASK)
|
# CALLED IN PARTICULAR BY DONOUN47 (JOB) AND TVCEXECUTIVE (TASK)
|
||||||
#
|
#
|
||||||
# JOBS OR TASKS INITIATED: NONE
|
# JOBS OR TASKS INITIATED - NONE
|
||||||
#
|
#
|
||||||
# SUBROUTINES CALLED: NONE
|
# SUBROUTINES CALLED - NONE
|
||||||
#
|
#
|
||||||
# ERASABLE INITIALIZATION REQUIRED
|
# ERASABLE INITIALIZATION REQUIRED
|
||||||
#
|
#
|
||||||
# LEMMASS MUST CONTAIN LEM MASS SCALED AT B+16 KILOGRAMS
|
# LEMMASS MUST CONTAIN LEM MASS SCALED AT B+16 KILOGRAMS
|
||||||
# CSMMASS MUST CONTAIN CSM MASS SCALED AT B+16 KILOGRAMS
|
# CSMMASS MUST CONTAIN CSM MASS SCALED AT B+16 KILOGRAMS
|
||||||
|
#
|
||||||
# DAPDATR1 MUST BE SET TO INDICATE VEHICLE CONFIGURATION.
|
# DAPDATR1 MUST BE SET TO INDICATE VEHICLE CONFIGURATION.
|
||||||
# BITS (15,14,13) = ( 0 , 0 , 1 ) LEM OFF
|
# BITS (15,14,13) = ( 0 , 0 , 1 ) LEM OFF
|
||||||
# ( 0 , 1 , 0 ) LEM ON (ASCNT,DSCNT)
|
# ( 0 , 1 , 0 ) LEM ON (ASCNT,DSCNT)
|
||||||
# ( 1 , 1 , 0 ) LEM ON (ASCNT ONLY)
|
# ( 1 , 1 , 0 ) LEM ON (ASCNT ONLY)
|
||||||
#
|
#
|
||||||
# ALARMS: NONE
|
|
||||||
#
|
#
|
||||||
# EXIT: TC Q
|
# ALARMS - NONE
|
||||||
|
#
|
||||||
|
# EXIT - TC Q
|
||||||
#
|
#
|
||||||
# OUTPUTS:
|
# OUTPUTS:
|
||||||
#
|
#
|
||||||
# (1) IXX, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
|
# (1)IXX, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
|
||||||
# (2) IAVG, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
|
# (2)IAVG, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
|
||||||
# (3) IAVG/TLX, SINGLE PRECISION, SCALED AT B+2 SEC-SQD
|
# (3)IAVG/TLX, SINGLE PRECISION, SCALED AT B+2 SEC-SQD
|
||||||
#
|
|
||||||
# THEY ARE STORED IN CONSECUTIVE REGISTERS IXX0, IXX1, IXX2
|
# THEY ARE STORED IN CONSECUTIVE REGISTERS IXX0, IXX1, IXX2
|
||||||
# CONVERSION FACTOR: (SLUG-FTSQ) = 0.737562 (KG-MSQ)
|
#
|
||||||
|
# CONVERSION FACTOR : (SLUG-FTSQ) = 0.737562 (KG-MSQ)
|
||||||
# Page 952
|
# Page 952
|
||||||
#
|
#
|
||||||
# OUTPUTS ARE CALCULATED AS FOLLOWS:
|
# OUTPUTS ARE CALCULATED AS FOLLOWS:
|
||||||
@ -84,13 +88,13 @@
|
|||||||
# VARST1 = INTVALUE1 + LEMMASS(SLOPEVAL1) IAVG BREAKPOINT VALUE
|
# VARST1 = INTVALUE1 + LEMMASS(SLOPEVAL1) IAVG BREAKPOINT VALUE
|
||||||
# VARST2 = INTVALUE2 + LEMMASS(SLOPEVAL2) IAVG/TLX BREAKPOINT VALUE
|
# VARST2 = INTVALUE2 + LEMMASS(SLOPEVAL2) IAVG/TLX BREAKPOINT VALUE
|
||||||
#
|
#
|
||||||
# VARST3 = INTVALUE3 + LEMMASS(SLOPEVAL3) IAVG/TLX SLOPE FOR CSMMASS > 33956 LBS (SPS > 10000 LBS)
|
# VARST3 = INTVALUE3 + LEMMASS(SLOPEVAL3) IAVG/TLX SLOPE FOR CSMMASS > 33956 LBS ( SPS > 10000 LBS)
|
||||||
# VARST4 = INTVALUE4 + LEMMASS(SLOPEVAL4) IAVG SLOPE FOR CSMMASS > 33956 LBS (SPS > 10000 LBS)
|
# VARST4 = INTVALUE4 + LEMMASS(SLOPEVAL4) IAVG SLOPE FOR CSMMASS > 33956 LBS ( SPS > 10000 LBS)
|
||||||
#
|
#
|
||||||
# VARST5 = INTVALUE5 + LEMMASS(SLOPEVAL5) IXX SLOPE FOR ALL VALUES OF CSMMASS
|
# VARST5 = INTVALUE5 + LEMMASS(SLOPEVAL5) IXX SLOPE FOR ALL VALUES OF CSMMASS
|
||||||
#
|
#
|
||||||
# VARST6 = INTVALUE6 + LEMMASS(SLOPEVAL6) IAVG SLOPE FOR CSMMASS < 33956 LBS (SPS < 10000 LBS)
|
# VARST6 = INTVALUE6 + LEMMASS(SLOPEVAL6) IAVG SLOPE FOR CSMMASS < 33956 LBS ( SPS < 10000 LBS)
|
||||||
# VARST7 = INTVALUE7 + LEMMASS(SLOPEVAL7) IAVG/TLX SLOPE FOR CSMMASS < 33956 LBS (SPS < 10000 LBS)
|
# VARST7 = INTVALUE7 + LEMMASS(SLOPEVAL7) IAVG/TLX SLOPE FOR CSMMASS < 33956 LBS ( SPS < 10000 LBS)
|
||||||
#
|
#
|
||||||
# VARST8 = INTVALUE8 + LEMMASS(SLOPEVAL8) IAVG DECREMENT TO BRKPT VALUE WHEN LEM DSCNT STAGE OFF
|
# VARST8 = INTVALUE8 + LEMMASS(SLOPEVAL8) IAVG DECREMENT TO BRKPT VALUE WHEN LEM DSCNT STAGE OFF
|
||||||
# VARST9 = INTVALUE9 + LEMMASS(SLOPEVAL9) IAVG/TLX DECREMENT TO BRKPT VALUE WHEN LEM DSCNT STAGE OFF
|
# VARST9 = INTVALUE9 + LEMMASS(SLOPEVAL9) IAVG/TLX DECREMENT TO BRKPT VALUE WHEN LEM DSCNT STAGE OFF
|
||||||
@ -98,9 +102,9 @@
|
|||||||
# (2) IF LEM NOT DOCKED
|
# (2) IF LEM NOT DOCKED
|
||||||
#
|
#
|
||||||
# VARST0 = NOLEMVAL0 WHERE THE MEANING AND SCALING OF VARST0
|
# VARST0 = NOLEMVAL0 WHERE THE MEANING AND SCALING OF VARST0
|
||||||
# . TO VARST9 ARE THE SAME AS GIVEN ABOVE
|
# . . TO VARST9 ARE THE SAME AS GIVEN ABOVE
|
||||||
# .
|
# . .
|
||||||
# . NOTE... FOR THIS CASE, VARST8,9 HAVE NO
|
# . . NOTE... FOR THIS CASE, VARST8,9 HAVE NO
|
||||||
# VARST9 = NOLEMVAL9 MEANING (THEY ARE COMPUTED BUT NOT USED)
|
# VARST9 = NOLEMVAL9 MEANING (THEY ARE COMPUTED BUT NOT USED)
|
||||||
#
|
#
|
||||||
# (3) THE FINAL OUTPUT CALCULATIONS ARE THEN DONE
|
# (3) THE FINAL OUTPUT CALCULATIONS ARE THEN DONE
|
||||||
@ -111,15 +115,16 @@
|
|||||||
#
|
#
|
||||||
# IXX2 = VARST2 + (CSMMASS + NEGBPW)VARST(3 OR 7) IAVG/TLX
|
# IXX2 = VARST2 + (CSMMASS + NEGBPW)VARST(3 OR 7) IAVG/TLX
|
||||||
#
|
#
|
||||||
# THE DATA USED CAME FROM THE CSM/LM SPACECRAFT OPERATIONAL DATA BOOK
|
#
|
||||||
|
# THE DATA USED CAME FROM CSM/LM SPACECRAFT OPERATIONAL DATA BOOK.
|
||||||
# VOL. 3, NASA DOCUMENT SNA-8-D-027 (MARCH 1968)
|
# VOL. 3, NASA DOCUMENT SNA-8-D-027 (MARCH 1968)
|
||||||
#
|
#
|
||||||
# PERTINENT MASS DATA: CSM WEIGHT (FULL) 64100 LBS.
|
# PERTINENT MASS DATA : CSM WEIGHT (FULL) 64100 LBS.
|
||||||
# (EMPTY) 23956 LBS.
|
# (EMPTY) 23956 LBS.
|
||||||
# LEM WEIGHT (FULL) 32000 LBS.
|
# LEM WEIGHT (FULL) 32000 LBS.
|
||||||
# (EMPTY) 14116 LBS.
|
# (EMPTY) 14116 LBS.
|
||||||
#
|
#
|
||||||
# (WEIGHTS ARE FROM AMMENDMENT #1 (APRIL 24, 1968) TO ABOVE DATA BOOK)
|
# (WEIGHTS ARE FROM AMENDMENT #1 (APRIL 24,1968) TO ABOVE DATA BOOK)
|
||||||
# Page 953
|
# Page 953
|
||||||
|
|
||||||
BANK 25
|
BANK 25
|
||||||
@ -128,6 +133,7 @@
|
|||||||
EBANK= BZERO
|
EBANK= BZERO
|
||||||
COUNT* $$/MASP
|
COUNT* $$/MASP
|
||||||
|
|
||||||
|
|
||||||
MASSPROP CAF NINE # MASSPROP USES TVC/RCS INTERRUPT TEMPS
|
MASSPROP CAF NINE # MASSPROP USES TVC/RCS INTERRUPT TEMPS
|
||||||
TS PHI333 # SET UP TEN PASSES
|
TS PHI333 # SET UP TEN PASSES
|
||||||
|
|
||||||
@ -152,7 +158,7 @@ LEMYES CAE LEMMASS # LEM IS ATTACHED
|
|||||||
STOINST INDEX PHI333 # STORAGE INST BEGIN HERE
|
STOINST INDEX PHI333 # STORAGE INST BEGIN HERE
|
||||||
TS VARST0
|
TS VARST0
|
||||||
CCS PHI333 # ARE ALL TEN PASSES COMPLETED
|
CCS PHI333 # ARE ALL TEN PASSES COMPLETED
|
||||||
TCF MASSPROP +1 # NO: GO DECREMENT PHI333
|
TCF MASSPROP +1 # NO - GO DECREMENT PHI333
|
||||||
|
|
||||||
DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF
|
DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF
|
||||||
TCF FIXCW
|
TCF FIXCW
|
||||||
@ -166,7 +172,7 @@ FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP
|
|||||||
TS PHI333 # THREE PASSES
|
TS PHI333 # THREE PASSES
|
||||||
TS PSI333
|
TS PSI333
|
||||||
|
|
||||||
CAE CSMMASS # GET DELTA CSM WEIGHT: SIGN DETERMINES
|
CAE CSMMASS # GET DELTA CSM WEIGHT - SIGN DETERMINES
|
||||||
AD NEGBPW # SLOPE LOCATIONS.
|
AD NEGBPW # SLOPE LOCATIONS.
|
||||||
DOUBLE
|
DOUBLE
|
||||||
TS TEMP333
|
TS TEMP333
|
||||||
@ -176,7 +182,7 @@ FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP
|
|||||||
CAF NEG2
|
CAF NEG2
|
||||||
TS PHI333
|
TS PHI333
|
||||||
|
|
||||||
PEGGY INDEX PHI333 # ALL IS READY: CALCULATE OUTPUTS NOW
|
PEGGY INDEX PHI333 # ALL IS READY - CALCULATE OUTPUTS NOW
|
||||||
CAE VARST5 # GET SLOPE
|
CAE VARST5 # GET SLOPE
|
||||||
EXTEND
|
EXTEND
|
||||||
MP TEMP333 # MULT BY DELTA CSM WEIGHT
|
MP TEMP333 # MULT BY DELTA CSM WEIGHT
|
||||||
@ -184,10 +190,11 @@ PEGGY INDEX PHI333 # ALL IS READY: CALCULATE OUTPUTS NOW
|
|||||||
INDEX PSI333
|
INDEX PSI333
|
||||||
AD VARST0 # ADD BREAKPOINT VALUE
|
AD VARST0 # ADD BREAKPOINT VALUE
|
||||||
INDEX PSI333
|
INDEX PSI333
|
||||||
TS IXX # ***** OUTPUTS (IXX0, IXX1, IXX2) *****
|
TS IXX # ****** OUTPUTS (IXX0, IXX1, IXX2) ******
|
||||||
|
|
||||||
CCS PSI333 # BOOKKEEPING: MASSPROP FINISHED OR NOT
|
|
||||||
TCF BOKKEP2 # NO: GO TAKE CARE OF INDEXING REGISTERS
|
CCS PSI333 # BOOKKEEPING - MASSPROP FINISHED OR NOT
|
||||||
|
TCF BOKKEP2 # NO - GO TAKE CARE OF INDEXING REGISTERS
|
||||||
|
|
||||||
CAE DAPDATR1 # UPDATE WEIGHT/G
|
CAE DAPDATR1 # UPDATE WEIGHT/G
|
||||||
MASK BIT14
|
MASK BIT14
|
||||||
@ -236,4 +243,3 @@ SLOPEVAL DEC 1.96307 B-6
|
|||||||
|
|
||||||
NEGBPW DEC -15402.17 B-16
|
NEGBPW DEC -15402.17 B-16
|
||||||
DXITFIX DEC* -1.88275 E-5 B+12*
|
DXITFIX DEC* -1.88275 E-5 B+12*
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user