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