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