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