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