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