Source Code

001143,000001: # Copyright: Public domain. 001144,000002: # Filename: TAGS_FOR_RELATIVE_SETLOC.agc 001145,000003: # Purpose: Header information for Luminary 1C, revision 131. 001146,000004: # It is part of the source code for the Lunar Module's (LM) 001147,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 001148,000006: # This file is intended to be a faithful transcription, except 001149,000007: # that the code format has been changed to conform to the 001150,000008: # requirements of the yaYUL assembler rather than the 001151,000009: # original YUL assembler. 001152,000010: # Reference: Pages 33-42 of 1729.pdf. 001153,000011: # Contact: Ron Burkey <info@sandroid.org>. 001154,000012: # Website: www.ibiblio.org/apollo/index.html 001155,000013: # Mod history: 04/23/03 RSB. First draft. 001156,000014: # 05/14/05 RSB Corrected website reference above. 001157,000015: 001158,000016: # The contents of this file, and all associated "Luminary131" files, are 001159,000017: # transcribed from a scanned document obtained from MIT's website, 001160,000018: # http://hrst.mit.edu/hrs/apollo/public/archive/1729.pdf. Notations on this 001161,000019: # document read, in part: 001162,000020: 001163,000021: # NASA Apollo LUMINARY 131 (1C) Program Source Code Listing. 001164,000022: # MIT Instrumentation/Draper Laboratory -- 19 December 1969, 1742 pages. 001165,000023: # This listing contains the flight program for the Lunar Module 001166,000024: # as created by MIT's Draper Lab for the Apollo 13/14 moon missions. 001167,000025: 001168,000026: # Refer directly to the online document mentioned above for further information. 001169,000027: # Please report any errors in this listing (relative to 1729.pdf) to info@sandroid.org. 001170,000028: 001171,000029: # Page 33 001172,000030: # TAGS FOR RELATIVE SETLOC AND BLANK BANK CARDS 001173,000031: 001174,000032: ??????? COUNT BANKSUM 001175,000033: 001176,000034: # MODULE 1 CONTAINS BANKS 0 THROUGH 5 001177,000035: 001178,000036: 4000 BLOCK 02 001179,000037: 4000 RADARFF EQUALS 001180,000038: 4000 FFTAG1 EQUALS 001181,000039: 4000 FFTAG2 EQUALS 001182,000040: 4000 FFTAG3 EQUALS 001183,000041: 4000 FFTAG4 EQUALS 001184,000042: 4000 FFTAG7 EQUALS 001185,000043: 4000 FFTAG8 EQUALS 001186,000044: 4000 FFTAG9 EQUALS 001187,000045: 4000 FFTAG10 EQUALS 001188,000046: 4000 FFTAG11 EQUALS 001189,000047: 4000 FFTAG12 EQUALS 001190,000048: 4000 FFTAG13 EQUALS 001191,000049: 4000 BNKSUM 02 001192,000050: 001193,000051: 6000 BLOCK 03 001194,000052: 6000 FFTAG5 EQUALS 001195,000053: 6000 FFTAG6 EQUALS 001196,000054: 6000 BNKSUM 03 001197,000055: 001198,000056: 00,2000 BANK 00 001199,000057: 00,2000 DLAYJOB EQUALS 001200,000058: 00,2000 BNKSUM 00 001201,000059: 001202,000060: 01,2000 BANK 01 001203,000061: 01,2000 RESTART EQUALS 001204,000062: 01,2000 LOADDAP1 EQUALS 001205,000063: 01,2000 BNKSUM 01 001206,000064: 001207,000065: 04,2000 BANK 04 001208,000066: 04,2000 ORBITAL3 EQUALS 001209,000067: 04,2000 R02 EQUALS 001210,000068: 04,2000 VERB37 EQUALS 001211,000069: 04,2000 PINBALL4 EQUALS 001212,000070: 04,2000 CONICS1 EQUALS 001213,000071: 04,2000 KEYRUPT EQUALS 001214,000072: 04,2000 R36LM EQUALS 001215,000073: 04,2000 UPDATE2 EQUALS 001216,000074: 04,2000 E/PROG EQUALS 001217,000075: 04,2000 AOTMARK2 EQUALS 001218,000076: 001219,000077: # Page 34 001220,000078: 001221,000079: 04,2000 BNKSUM 04 001222,000080: 001223,000081: 05,2000 BANK 05 001224,000082: 05,2000 FRANDRES EQUALS 001225,000083: 05,2000 DOWNTELM EQUALS 001226,000084: 05,2000 ABORTS1 EQUALS 001227,000085: 05,2000 EPHEM1 EQUALS 001228,000086: 05,2000 ASENT3 EQUALS 001229,000087: 05,2000 BNKSUM 05 001230,000088: 001231,000089: # MODULE 2 CONTAINS BANKS 6 THROUGH 13 001232,000090: 001233,000091: 06,2000 BANK 06 001234,000092: 06,2000 IMUCOMP EQUALS 001235,000093: 06,2000 T4RUP EQUALS 001236,000094: 06,2000 RCSMONT EQUALS 001237,000095: 06,2000 MIDDGIM EQUALS 001238,000096: 06,2000 EARTHLOC EQUALS 001239,000097: 06,2000 BNKSUM 06 001240,000098: 001241,000099: 07,2000 BANK 07 001242,000100: 07,2000 AOTMARK1 EQUALS 001243,000101: 07,2000 MODESW EQUALS 001244,000102: 07,2000 ASENT2 EQUALS 001245,000103: 07,2000 BNKSUM 07 001246,000104: 001247,000105: 10,2000 BANK 10 001248,000106: 10,2000 RTBCODES EQUALS 001249,000107: 10,2000 DISPLAYS EQUALS 001250,000108: 10,2000 PHASETAB EQUALS 001251,000109: 10,2000 FLESHLOC EQUALS 001252,000110: 10,2000 SLCTMU EQUALS 001253,000111: 10,2000 BNKSUM 10 001254,000112: 001255,000113: 11,2000 BANK 11 001256,000114: 11,2000 ORBITAL EQUALS 001257,000115: 11,2000 F2DPS*11 EQUALS 001258,000116: 11,2000 INTVEL EQUALS 001259,000117: 11,2000 BNKSUM 11 001260,000118: 001261,000119: # Page 35 001262,000120: 12,2000 BANK 12 001263,000121: 12,2000 CONICS EQUALS 001264,000122: 12,2000 ORBITAL1 EQUALS 001265,000123: 12,2000 INTPRET2 EQUALS 001266,000124: 12,2000 BNKSUM 12 001267,000125: 001268,000126: 13,2000 BANK 13 001269,000127: 13,2000 LATLONG EQUALS 001270,000128: 13,2000 INTINIT EQUALS 001271,000129: 13,2000 LEMGEOM EQUALS 001272,000130: 13,2000 P76LOC EQUALS 001273,000131: 13,2000 ORBITAL2 EQUALS 001274,000132: 13,2000 ABTFLGS EQUALS 001275,000133: 13,2000 BNKSUM 13 001276,000134: 001277,000135: # Page 36 001278,000136: # BANK 3 CONTAINS BANKS 14 THROUGH 21 001279,000137: 001280,000138: 14,2000 BANK 14 001281,000139: 14,2000 P50S1 EQUALS 001282,000140: 14,2000 STARTAB EQUALS 001283,000141: 14,2000 ASENT4 EQUALS 001284,000142: 14,2000 BNKSUM 14 001285,000143: 001286,000144: 15,2000 BANK 15 001287,000145: 15,2000 P50S EQUALS 001288,000146: 15,2000 EPHEM EQUALS 001289,000147: 15,2000 BNKSUM 15 001290,000148: 001291,000149: 16,2000 BANK 16 001292,000150: 16,2000 DAPS1 EQUALS 001293,000151: 16,2000 BNKSUM 16 001294,000152: 001295,000153: 17,2000 BANK 17 001296,000154: 17,2000 DAPS2 EQUALS 001297,000155: 17,2000 C13BANK EQUALS 001298,000156: 17,2000 BNKSUM 17 001299,000157: 001300,000158: 20,2000 BANK 20 001301,000159: 20,2000 DAPS3 EQUALS 001302,000160: 20,2000 LOADDAP EQUALS 001303,000161: 20,2000 BNKSUM 20 001304,000162: 001305,000163: 21,2000 BANK 21 001306,000164: 21,2000 DAPS4 EQUALS 001307,000165: 21,2000 R10 EQUALS 001308,000166: 21,2000 R11 EQUALS 001309,000167: 21,2000 BNKSUM 21 001310,000168: # Page 37 001311,000169: 001312,000170: # MODULE 4 CONTAINS BANKS 22 THROUGH 27 001313,000171: 001314,000172: 22,2000 BANK 22 001315,000173: 22,2000 KALCMON1 EQUALS 001316,000174: 22,2000 KALCMON2 EQUALS 001317,000175: 22,2000 R30LOC EQUALS 001318,000176: 22,2000 RENDEZ EQUALS 001319,000177: 22,2000 SERV2 EQUALS 001320,000178: 22,2000 LANDCNST EQUALS 001321,000179: 22,2000 BNKSUM 22 001322,000180: 001323,000181: 23,2000 BANK 23 001324,000182: 23,2000 POWFLITE EQUALS 001325,000183: 23,2000 POWFLIT1 EQUALS 001326,000184: 23,2000 INFLIGHT EQUALS 001327,000185: 23,2000 APOPERI EQUALS 001328,000186: 23,2000 R61 EQUALS 001329,000187: 23,2000 R62 EQUALS 001330,000188: 23,2000 INTPRET1 EQUALS 001331,000189: 23,2000 MEASINC EQUALS 001332,000190: 23,2000 MEASINC1 EQUALS 001333,000191: 23,2000 EXTVB1 EQUALS 001334,000192: 23,2000 P12A EQUALS 001335,000193: 23,2000 NORMLIZ EQUALS 001336,000194: 23,2000 ASENT7 EQUALS 001337,000195: 23,2000 RODTRAP EQUALS 001338,000196: 23,2000 BNKSUM 23 001339,000197: 001340,000198: 24,2000 BANK 24 001341,000199: 24,2000 PLANTIN EQUALS 001342,000200: 24,2000 P20S EQUALS 001343,000201: 24,2000 BNKSUM 24 001344,000202: 001345,000203: 25,2000 BANK 25 001346,000204: 25,2000 P20S1 EQUALS 001347,000205: 25,2000 P20S2 EQUALS 001348,000206: 25,2000 RADARUPT EQUALS 001349,000207: 25,2000 RRLEADIN EQUALS 001350,000208: 25,2000 R29S1 EQUALS 001351,000209: 25,2000 PLANTIN3 EQUALS 001352,000210: 25,2000 BNKSUM 25 001353,000211: 001354,000212: 26,2000 BANK 26 001355,000213: # Page 38 001356,000214: 26,2000 P20S3 EQUALS 001357,000215: 26,2000 BAWLANGS EQUALS 001358,000216: 26,2000 MANUVER EQUALS 001359,000217: 26,2000 MANUVER1 EQUALS 001360,000218: 26,2000 PLANTIN1 EQUALS 001361,000219: 26,2000 PLANTIN2 EQUALS 001362,000220: 26,2000 BNKSUM 26 001363,000221: 001364,000222: 27,2000 BANK 27 001365,000223: 27,2000 TOF-FF EQUALS 001366,000224: 27,2000 TOF-FF1 EQUALS 001367,000225: 27,2000 P40S1 EQUALS 001368,000226: 27,2000 VECPT EQUALS 001369,000227: 27,2000 ASENT1 EQUALS 001370,000228: 27,2000 SERV3 EQUALS 001371,000229: 27,2000 BNKSUM 27 001372,000230: 001373,000231: # Page 39 001374,000232: # MODULE 5 CONTAINS BANKS 30 THROUGH 35 001375,000233: 001376,000234: 30,2000 BANK 30 001377,000235: 30,2000 LOWSUPER EQUALS 001378,000236: 30,2000 P12 EQUALS 001379,000237: 30,2000 ASENT EQUALS 001380,000238: 30,2000 FCDUW EQUALS 001381,000239: 30,2000 FLOGSUB EQUALS 001382,000240: 30,2000 VB67A EQUALS 001383,000241: 30,2000 ASENT5 EQUALS 001384,000242: 30,2000 BNKSUM 30 001385,000243: 001386,000244: 31,2000 BANK 31 001387,000245: 31,2000 FTHROT EQUALS 001388,000246: 31,2000 F2DPS*31 EQUALS 001389,000247: 31,2000 VB67 EQUALS 001390,000248: 31,2000 BNKSUM 31 001391,000249: 001392,000250: 32,2000 BANK 32 001393,000251: 32,2000 P20S4 EQUALS 001394,000252: 32,2000 F2DPS*32 EQUALS 001395,000253: 32,2000 ABORTS EQUALS 001396,000254: 32,2000 LRS22 EQUALS 001397,000255: 32,2000 P66LOC EQUALS 001398,000256: 32,2000 R47 EQUALS 001399,000257: 32,2000 SERV EQUALS 001400,000258: 32,2000 BNKSUM 32 001401,000259: 001402,000260: 33,2000 BANK 33 001403,000261: 33,2000 SERVICES EQUALS 001404,000262: 33,2000 R29/SERV EQUALS 001405,000263: 33,2000 ASENT6 EQUALS 001406,000264: 33,2000 BNKSUM 33 001407,000265: 001408,000266: 34,2000 BANK 34 001409,000267: 34,2000 ASENT8 EQUALS 001410,000268: 34,2000 P30S1 EQUALS 001411,000269: 34,2000 CSI/CDH1 EQUALS 001412,000270: 34,2000 ASCFILT EQUALS 001413,000271: 34,2000 R12STUFF EQUALS 001414,000272: 34,2000 SERV4 EQUALS 001415,000273: 34,2000 F2DPS*34 EQUALS 001416,000274: # Page 40 001417,000275: 34,2000 BNKSUM 34 001418,000276: 001419,000277: 35,2000 BANK 35 001420,000278: 35,2000 CSI/CDH EQUALS 001421,000279: 35,2000 P30S EQUALS 001422,000280: 35,2000 P40S3 EQUALS 001423,000281: 35,2000 P40S2 EQUALS 001424,000282: 35,2000 BNKSUM 35 001425,000283: 001426,000284: # Page 41 001427,000285: # MODULE 6 CONTAINS BANKS 36 THROUGH 43 001428,000286: 001429,000287: 36,2000 BANK 36 001430,000288: 36,2000 P40S EQUALS 001431,000289: 36,2000 BNKSUM 36 001432,000290: 001433,000291: 37,2000 BANK 37 001434,000292: 37,2000 P05P06 EQUALS 001435,000293: 37,2000 IMU2 EQUALS 001436,000294: 37,2000 IMU4 EQUALS 001437,000295: 37,2000 R31 EQUALS 001438,000296: 37,2000 IMUSUPER EQUALS 001439,000297: 37,2000 SERV1 EQUALS 001440,000298: 37,2000 BNKSUM 37 001441,000299: 001442,000300: 40,2000 BANK 40 001443,000301: 40,2000 PINBALL1 EQUALS 001444,000302: 40,2000 SELFSUPR EQUALS 001445,000303: 40,2000 PINSUPER EQUALS 001446,000304: 40,2000 R31LOC EQUALS 001447,000305: 40,2000 BNKSUM 40 001448,000306: 001449,000307: 41,2000 BANK 41 001450,000308: 41,2000 PINBALL2 EQUALS 001451,000309: 41,2000 BNKSUM 41 001452,000310: 001453,000311: 42,2000 BANK 42 001454,000312: 42,2000 SBAND EQUALS 001455,000313: 42,2000 PINBALL3 EQUALS 001456,000314: 42,2000 BNKSUM 42 001457,000315: 001458,000316: 43,2000 BANK 43 001459,000317: 43,2000 EXTVERBS EQUALS 001460,000318: 43,2000 SELFCHEC EQUALS 001461,000319: 43,2000 BNKSUM 43 001462,000320: 001463,000321: # Page 42 001464,000322: 001465,000323: 43,2000 23,2523 HI6ZEROS EQUALS ZEROVECS # ZERO VECTOR ALWAYS IN HIGH MEMORY 001466,000324: 43,2000 12,2006 LO6ZEROS EQUALS ZEROVEC # ZERO VECTOR ALWAYS IN LOW MEMORY 001467,000325: 43,2000 23,2521 HIDPHALF EQUALS UNITX 001468,000326: 43,2000 12,2004 LODPHALF EQUALS XUNIT 001469,000327: 43,2000 23,2513 HIDP1/4 EQUALS DP1/4TH # (line is garbled) 001470,000328: 43,2000 04,3002 LODP1/4 EQUALS D1/4 # 2DEC .25 001471,000329: 43,2000 23,2521 HIUNITX EQUALS UNITX 001472,000330: 43,2000 23,2517 HIUNITY EQUALS UNITY 001473,000331: 43,2000 23,2515 HIUNITZ EQUALS UNITZ 001474,000332: 43,2000 12,2004 LOUNITX EQUALS XUNIT # 2DEC .5 001475,000333: 43,2000 12,2002 LOUNITY EQUALS YUNIT # 2DEC 0 001476,000334: 43,2000 12,2000 LOUNITZ EQUALS ZUNIT # 2DEC 0 001477,000335: 001478,000336: 43,2000 22,3541 DELRSPL EQUALS SPLRET # COL PGM, ALSO CALLED BY R30 IN LUMINARY. 001479,000337: 001480,000338: # ROPE-SPECIFIC ASSIGNS OBVIATING NEED TO CHECK COMPUTER FLAG IN (garbled) DETERMINING INTEGRATION AREA ENTRIES. 001481,000339: 001482,000340: 43,2000 13,2733 ATOPTHIS EQUALS ATOPLEM 001483,000341: 43,2000 13,2660 ATOPOTH EQUALS ATOPCSM 001484,000342: 43,2000 13,3042 OTHPREC EQUALS CSMPREC 001485,000343: 43,2000 0000174 MOONTHIS EQUALS LMOONFLG 001486,000344: 43,2000 0000173 MOONOTH EQUALS CMOONFLG 001487,000345: 43,2000 13,2746 MOVATHIS EQUALS MOVEALEM 001488,000346: 43,2000 12,2017 RMM = LODPMAX 001489,000347: 43,2000 12,2021 RME = LODPMAX1 001490,000348: 43,2000 13,3056 THISPREC EQUALS LEMPREC 001491,000349: 43,2000 23,2515 THISAXIS = UNITZ 001492,000350: 43,2000 23,2515 NB1NB2 EQUALS THISAXIS # FOR R31 001493,000351: 43,2000 5011 ERASID EQUALS BITS2-10 # DOWNLINK ERASABLE DUMP IO 001494,000352: 43,2000 4752 DELAYNUM EQUALS TWO 001495,000353: End of include-file TAGS_FOR_RELATIVE_SETLOC.agc. Parent file is MAIN.agc