Source Code
042225,000001: # Copyright: Public domain.
042226,000002: # Filename: TVCMASSPROP.agc
042227,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
042228,000004: # It is part of the source code for the Command Module's (CM)
042229,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
042230,000006: # Assembler: yaYUL
042231,000007: # Contact: Ron Burkey <info@sandroid.org>.
042232,000008: # Website: www.ibiblio.org/apollo.
042233,000009: # Pages: 951-955
042234,000010: # Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
042235,000011: # same name, using Comanche055 page images.
042236,000012:
042237,000013: # This source code has been transcribed or otherwise adapted from digitized
042238,000014: # images of a hardcopy from the MIT Museum. The digitization was performed
042239,000015: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
042240,000016: # thanks to both. The images (with suitable reduction in storage size and
042241,000017: # consequent reduction in image quality as well) are available online at
042242,000018: # www.ibiblio.org/apollo. If for some reason you find that the images are
042243,000019: # illegible, contact me at info@sandroid.org about getting access to the
042244,000020: # (much) higher-quality images which Paul actually created.
042245,000021:
042246,000022: # Notations on the hardcopy document read, in part:
042247,000023:
042248,000024: # Assemble revision 055 of AGC program Comanche by NASA
042249,000025: # 2021113-051. 10:28 APR. 1, 1969
042250,000026:
042251,000027: # This AGC program shall also be referred to as
042252,000028: # Colossus 2A
042253,000029:
042254,000030: # Page 951
042255,000031: # PROGRAM NAME....MASSPROP
042256,000032: # LOG SECTION....TVCMASSPROP PROGRAMMER...MELANSON (ENGEL, SCHLUNDT)
042257,000033:
042258,000034: # FUNCTIONAL DESCRIPTION:
042259,000035:
042260,000036: # MASSPROP OPERATES IN TWO MODES: (1) IF LEM MASS OR CONFIGURATION ARE UPDATED (MASSPROP DOES NOT TEST
042261,000037: # FOR THIS) THE ENTIRE PROGRAM MUST BE RUN THROUGH, BREAKPOINT VALUES AND DERIVATIVES OF THE OUTPUTS WITH
042262,000038: # RESPECT TO CSM MASS BEING CALCULATED PRIOR TO CALCULATION OF THE OUTPUTS. (2) OTHERWISE, THE OUTPUTS CAN BE
042263,000039: # CALCULATED USING PREVIOUSLY COMPUTED BREAKPOINT VALUES AND DERIVATIVES.
042264,000040:
042265,000041: # CALLING SEQUENCES
042266,000042:
042267,000043: # IF LEM MASS OR CONFIGURATION HAS BEEN UPDATED, TRANSFER TO MASSPROP, OTHERWISE TRANSFER TO FIXCW.
042268,000044: # L TC BANKCALL or IBNKCALL
042269,000045: # L+1 CADR MASSPROP
042270,000046: # OR
042271,000047: # L+1 CADR FIXCW
042272,000048: # L+2 RETURNS VIA Q
042273,000049:
042274,000050: # CALLED: IN PARTICULAR BY DONOUN47 (JOB) AND TVCEXECUTIVE (TASK)
042275,000051:
042276,000052: # JOBS OR TASKS INITIATED: NONE
042277,000053:
042278,000054: # SUBROUTINES CALLED: NONE
042279,000055:
042280,000056: # ERASABLE INITIALIZATION REQUIRED
042281,000057:
042282,000058: # LEMMASS MUST CONTAIN LEM MASS SCALED AT B+16 KILOGRAMS
042283,000059: # CSMMASS MUST CONTAIN CSM MASS SCALED AT B+16 KILOGRAMS
042284,000060: # DAPDATR1 MUST BE SET TO INDICATE VEHICLE CONFIGURATION.
042285,000061: # BITS (15,14,13) = ( 0 , 0 , 1 ) LEM OFF
042286,000062: # ( 0 , 1 , 0 ) LEM ON (ASCNT,DSCNT)
042287,000063: # ( 1 , 1 , 0 ) LEM ON (ASCNT ONLY)
042288,000064:
042289,000065: # ALARMS: NONE
042290,000066:
042291,000067: # EXIT: TC Q
042292,000068:
042293,000069: # OUTPUTS:
042294,000070:
042295,000071: # (1) IXX, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
042296,000072: # (2) IAVG, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
042297,000073: # (3) IAVG/TLX, SINGLE PRECISION, SCALED AT B+2 SEC-SQD
042298,000074: #
042299,000075: # THEY ARE STORED IN CONSECUTIVE REGISTERS IXX0, IXX1, IXX2
042300,000076: # CONVERSION FACTOR: (SLUG-FTSQ) = 0.737562 (KG-MSQ)
042301,000077: # Page 952
042302,000078:
042303,000079: # OUTPUTS ARE CALCULATED AS FOLLOWS:
042304,000080:
042305,000081: # (1) IF LEM DOCKED, LEMMASS IS FIRST ELIMINATED AS A PARAMETER
042306,000082:
042307,000083: # VARST0 = INTVALUE0 + LEMMASS(SLOPEVAL0) IXX BREAKPOINT VALUE
042308,000084: # VARST1 = INTVALUE1 + LEMMASS(SLOPEVAL1) IAVG BREAKPOINT VALUE
042309,000085: # VARST2 = INTVALUE2 + LEMMASS(SLOPEVAL2) IAVG/TLX BREAKPOINT VALUE
042310,000086:
042311,000087: # VARST3 = INTVALUE3 + LEMMASS(SLOPEVAL3) IAVG/TLX SLOPE FOR CSMMASS > 33956 LBS (SPS > 10000 LBS)
042312,000088: # VARST4 = INTVALUE4 + LEMMASS(SLOPEVAL4) IAVG SLOPE FOR CSMMASS > 33956 LBS (SPS > 10000 LBS)
042313,000089:
042314,000090: # VARST5 = INTVALUE5 + LEMMASS(SLOPEVAL5) IXX SLOPE FOR ALL VALUES OF CSMMASS
042315,000091:
042316,000092: # VARST6 = INTVALUE6 + LEMMASS(SLOPEVAL6) IAVG SLOPE FOR CSMMASS < 33956 LBS (SPS < 10000 LBS)
042317,000093: # VARST7 = INTVALUE7 + LEMMASS(SLOPEVAL7) IAVG/TLX SLOPE FOR CSMMASS < 33956 LBS (SPS < 10000 LBS)
042318,000094:
042319,000095: # VARST8 = INTVALUE8 + LEMMASS(SLOPEVAL8) IAVG DECREMENT TO BRKPT VALUE WHEN LEM DSCNT STAGE OFF
042320,000096: # VARST9 = INTVALUE9 + LEMMASS(SLOPEVAL9) IAVG/TLX DECREMENT TO BRKPT VALUE WHEN LEM DSCNT STAGE OFF
042321,000097:
042322,000098: # (2) IF LEM NOT DOCKED
042323,000099:
042324,000100: # VARST0 = NOLEMVAL0 WHERE THE MEANING AND SCALING OF VARST0
042325,000101: # . TO VARST9 ARE THE SAME AS GIVEN ABOVE
042326,000102: # .
042327,000103: # . NOTE... FOR THIS CASE, VARST8,9 HAVE NO
042328,000104: # VARST9 = NOLEMVAL9 MEANING (THEY ARE COMPUTED BUT NOT USED)
042329,000105:
042330,000106: # (3) THE FINAL OUTPUT CALCULATIONS ARE THEN DONE
042331,000107:
042332,000108: # IXX0 = VARST0 + (CSMMASS + NEGBPW)VARST5 IXX
042333,000109:
042334,000110: # IXX1 = VARST1 + (CSMMASS + NEGBPW)VARST(4 OR 6) IAVG
042335,000111:
042336,000112: # IXX2 = VARST2 + (CSMMASS + NEGBPW)VARST(3 OR 7) IAVG/TLX
042337,000113:
042338,000114: # THE DATA USED CAME FROM THE CSM/LM SPACECRAFT OPERATIONAL DATA BOOK
042339,000115: # VOL. 3, NASA DOCUMENT SNA-8-D-027 (MARCH 1968)
042340,000116:
042341,000117: # PERTINENT MASS DATA: CSM WEIGHT (FULL) 64100 LBS.
042342,000118: # (EMPTY) 23956 LBS.
042343,000119: # LEM WEIGHT (FULL) 32000 LBS.
042344,000120: # (EMPTY) 14116 LBS.
042345,000121:
042346,000122: # (WEIGHTS ARE FROM AMMENDMENT #1 (APRIL 24, 1968) TO ABOVE DATA BOOK)
042347,000123: # Page 953
042348,000124:
042349,000125: 25,3774 BANK 25
042350,000126: 05,2000 SETLOC DAPMASS
042351,000127: 05,2000 BANK
042352,000128: 05,3366 E6,1702 EBANK= BZERO
042353,000129: 05,3366 COUNT* $$/MASP
042354,000130:
042355,000131: 05,3366 34334 MASSPROP CAF NINE # MASSPROP USES TVC/RCS INTERRUPT TEMPS
042356,000132: 05,3367 55506 TS PHI333 # SET UP TEN PASSES
042357,000133:
042358,000134: 05,3370 31466 LEMTEST CAE DAPDATR1 # DETERMINE LEM STATUS
042359,000135: 05,3371 75003 MASK BIT13
042360,000136: 05,3372 00006 EXTEND
042361,000137: 05,3373 13377 BZF LEMYES
042362,000138:
042363,000139: 05,3374 51506 LEMNO INDEX PHI333 # LEM NOT ATTACHED
042364,000140: 05,3375 33463 CAF NOLEMVAL
042365,000141: 05,3376 13407 TCF STOINST
042366,000142:
042367,000143: 05,3377 31473 LEMYES CAE LEMMASS # LEM IS ATTACHED
042368,000144: 05,3400 60000 DOUBLE
042369,000145: 05,3401 00006 EXTEND
042370,000146: 05,3402 51506 INDEX PHI333
042371,000147: 05,3403 73505 MP SLOPEVAL
042372,000148: 05,3404 20001 DDOUBL
042373,000149: 05,3405 51506 INDEX PHI333
042374,000150: 05,3406 63473 AD INTVALUE
042375,000151:
042376,000152: 05,3407 51506 STOINST INDEX PHI333 # STORAGE INST BEGIN HERE
042377,000153: 05,3410 55511 TS VARST0
042378,000154: 05,3411 11506 CCS PHI333 # ARE ALL TEN PASSES COMPLETED
042379,000155: 05,3412 13367 TCF MASSPROP +1 # NO: GO DECREMENT PHI333
042380,000156:
042381,000157: 05,3413 11466 DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF
042382,000158: 05,3414 13422 TCF FIXCW
042383,000159: 05,3415 13422 TCF FIXCW
042384,000160: 05,3416 53522 DXCH VARST0 +8D
042385,000161: 05,3417 21513 DAS VARST0 +1
042386,000162: 05,3420 33520 CA DXITFIX
042387,000163: 05,3421 27520 ADS VARST0 +7
042388,000164:
042389,000165: 05,3422 35016 FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP
042390,000166: 05,3423 55506 TS PHI333 # THREE PASSES
042391,000167: 05,3424 55507 TS PSI333
042392,000168:
042393,000169: 05,3425 31474 CAE CSMMASS # GET DELTA CSM WEIGHT: SIGN DETERMINES
042394,000170: 05,3426 63517 AD NEGBPW # SLOPE LOCATIONS.
042395,000171: 05,3427 60000 DOUBLE
042396,000172: 05,3430 55510 TS TEMP333
042397,000173: # Page 954
042398,000174: 05,3431 00006 EXTEND
042399,000175: 05,3432 63435 BZMF PEGGY # DETERMINE CORRECT SLOPE
042400,000176: 05,3433 37715 CAF NEG2
042401,000177: 05,3434 55506 TS PHI333
042402,000178:
042403,000179: 05,3435 51506 PEGGY INDEX PHI333 # ALL IS READY: CALCULATE OUTPUTS NOW
042404,000180: 05,3436 31516 CAE VARST5 # GET SLOPE
042405,000181: 05,3437 00006 EXTEND
042406,000182: 05,3440 71510 MP TEMP333 # MULT BY DELTA CSM WEIGHT
042407,000183: 05,3441 60000 DOUBLE
042408,000184: 05,3442 51507 INDEX PSI333
042409,000185: 05,3443 61511 AD VARST0 # ADD BREAKPOINT VALUE
042410,000186: 05,3444 51507 INDEX PSI333
042411,000187: 05,3445 55470 TS IXX # ***** OUTPUTS (IXX0, IXX1, IXX2) *****
042412,000188:
042413,000189: 05,3446 11507 CCS PSI333 # BOOKKEEPING: MASSPROP FINISHED OR NOT
042414,000190: 05,3447 13457 TCF BOKKEP2 # NO: GO TAKE CARE OF INDEXING REGISTERS
042415,000191:
042416,000192: 05,3450 31466 CAE DAPDATR1 # UPDATE WEIGHT/G
042417,000193: 05,3451 75002 MASK BIT14
042418,000194: 05,3452 10000 CCS A
042419,000195: 05,3453 31473 CA LEMMASS
042420,000196: 05,3454 61474 AD CSMMASS
042421,000197: 05,3455 55475 TS WEIGHT/G # SCALED AT B+16 KILOGRAMS
042422,000198: 05,3456 00002 ENDMASSP TC Q
042423,000199:
042424,000200: 05,3457 55507 BOKKEP2 TS PSI333 # REDUCE PSI BY ONE
042425,000201: 05,3460 00006 EXTEND
042426,000202: 05,3461 27506 DIM PHI333
042427,000203: 05,3462 13435 TCF PEGGY
042428,000204:
042429,000205: # Page 955
042430,000206: 05,3463 00616 NOLEMVAL DEC 25445 B-20
042431,000207: 05,3464 02526 DEC 87450 B-20
042432,000208: 05,3465 02352 DEC .30715 B-2
042433,000209: 05,3466 01471 DEC 1.22877 E-5 B+12
042434,000210: 05,3467 00634 DEC 1.6096 B-6
042435,000211: 05,3470 00612 DEC 1.54 B-6
042436,000212: 05,3471 03706 DEC 7.77177 B-6
042437,000213: 05,3472 04425 DEC 3.46458 E-5 B+12
042438,000214:
042439,000215: 05,3473 00644 INTVALUE DEC 26850 B-20
042440,000216: 05,3474 03710 DEC 127518 B-20
042441,000217: 05,3475 04246 DEC .54059 B-2
042442,000218: 05,3476 02011 DEC .153964 E-4 B+12
042443,000219: 05,3477 77501 DEC -.742923 B-6
042444,000220: 05,3500 00612 DEC 1.5398 B-6
042445,000221: 05,3501 04656 DEC 9.68 B-6
042446,000222: 05,3502 10372 DEC .647625 E-4 B+12
042447,000223: 05,3503 77126 DEC -27228 B-20
042448,000224: 05,3504 76261 DEC -.206476 B-2
042449,000225:
042450,000226: 05,3505 00767 SLOPEVAL DEC 1.96307 B-6
042451,000227: 05,3506 15624 DEC 27.5774 B-6
042452,000228: 05,3507 03054 DEC 2.3548 E-5 B+12
042453,000229: 05,3510 04532 DEC 2.1777 E-9 B+26
042454,000230: 05,3511 10433 DEC 1.044 E-3 B+8
042455,000231: 05,3512 00000 DEC 0 B-14
042456,000232: 05,3513 22070 DEC 2.21068 E-3 B+8
042457,000233: 05,3514 03204 DEC 1.5166 E-9 B+26
042458,000234: 05,3515 77266 DEC -1.284 B-6
042459,000235: 05,3516 02476 DEC 2 E-5 B+12
042460,000236:
042461,000237: 05,3517 70364 NEGBPW DEC -15402.17 B-16
042462,000238: 05,3520 75420 DXITFIX DEC* -1.88275 E-5 B+12*
042463,000239:
End of include-file TVCMASSPROP.agc. Parent file is MAIN.agc