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