Source Code
These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9
LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of
original core rope program modules, as follows:
|
001042,000002: ## Copyright: Public domain.
001043,000003: ## Filename: TAGS_FOR_RELATIVE_SETLOC_AND_BLANK_BANK_CARDS.agc
001044,000004: ## Purpose: A section of an attempt to reconstruct Sundance revision 306
001045,000005: ## as closely as possible with available information. Sundance
001046,000006: ## 306 is the source code for the Lunar Module's (LM) Apollo
001047,000007: ## Guidance Computer (AGC) for Apollo 9. This program was created
001048,000008: ## using the mixed-revision SundanceXXX as a starting point, and
001049,000009: ## pulling back features from Luminary 69 believed to have been
001050,000010: ## added based on memos, checklists, observed address changes,
001051,000011: ## or the Sundance GSOPs.
001052,000012: ## Assembler: yaYUL
001053,000013: ## Contact: Ron Burkey <info@sandroid.org>.
001054,000014: ## Website: www.ibiblio.org/apollo/index.html
001055,000015: ## Mod history: 2020-07-24 MAS Created from SundanceXXX.
001056,000016:
001057,000017:
001058,000018: ## This section allocates tags to match our particular set of Sundance modules.
001059,000019:
001060,000020: ??????? COUNT BANKSUM
001061,000021:
001062,000022: # MODULE 1 CONTAINS BANKS 0 THROUGH 5
001063,000023:
001064,000024: 4000 BLOCK 02
001065,000025: 4000 RADARFF EQUALS
001066,000026: 4000 FFTAG1 EQUALS
001067,000027: 4000 FFTAG2 EQUALS
001068,000028: 4000 FFTAG3 EQUALS
001069,000029: 4000 FFTAG4 EQUALS
001070,000030: 4000 FFTAG7 EQUALS
001071,000031: 4000 FFTAG8 EQUALS
001072,000032: 4000 FFTAG9 EQUALS
001073,000033: 4000 FFTAG10 EQUALS
001074,000034: 4000 BNKSUM 02
001075,000035:
001076,000036:
001077,000037: 6000 BLOCK 03
001078,000038: 6000 FFTAG5 EQUALS
001079,000039: 6000 FFTAG6 EQUALS
001080,000040: 6000 BNKSUM 03
001081,000041:
001082,000042:
001083,000043: 00,2000 BANK 00
001084,000044: 00,2000 DLAYJOB EQUALS
001085,000045: 00,2000 BNKSUM 00
001086,000046:
001087,000047:
001088,000048: 01,2000 BANK 01
001089,000049: 01,2000 RESTART EQUALS
001090,000050: 01,2000 BNKSUM 01
001091,000051:
001092,000052:
001093,000053: 04,2000 BANK 04
001094,000054: 04,2000 R02 EQUALS
001095,000055: 04,2000 VERB37 EQUALS
001096,000056: 04,2000 PINBALL4 EQUALS
001097,000057: 04,2000 CONICS1 EQUALS
001098,000058: 04,2000 KEYRUPT EQUALS
001099,000059: 04,2000 R36LM EQUALS
001100,000060: 04,2000 UPDATE2 EQUALS
001101,000061: 04,2000 E/PROG EQUALS
001102,000062: 04,2000 BNKSUM 04
001103,000063:
001104,000064:
001105,000065: 05,2000 BANK 05
001106,000066: 05,2000 FRANDRES EQUALS
001107,000067: 05,2000 DOWNTELM EQUALS
001108,000068: 05,2000 BNKSUM 05
001109,000069:
001110,000070:
001111,000071: # MODULE 2 CONTAINS BANKS 6 THROUGH 13
001112,000072:
001113,000073: 06,2000 BANK 06
001114,000074: 06,2000 IMUCOMP EQUALS
001115,000075: 06,2000 T4RUP EQUALS
001116,000076: 06,2000 RCSMONT EQUALS
001117,000077: 06,2000 STGMONT EQUALS
001118,000078: 06,2000 BNKSUM 06
001119,000079:
001120,000080:
001121,000081: 07,2000 BANK 07
001122,000082: 07,2000 AOTMARK1 EQUALS
001123,000083: 07,2000 MODESW EQUALS
001124,000084: 07,2000 BNKSUM 07
001125,000085:
001126,000086:
001127,000087: 10,2000 BANK 10
001128,000088: 10,2000 RTBCODES EQUALS
001129,000089: 10,2000 DISPLAYS EQUALS
001130,000090: 10,2000 PHASETAB EQUALS
001131,000091: 10,2000 MIDDGIM EQUALS
001132,000092: 10,2000 BNKSUM 10
001133,000093:
001134,000094:
001135,000095: 11,2000 BANK 11
001136,000096: 11,2000 ORBITAL EQUALS
001137,000097: 11,2000 ORBITAL1 EQUALS
001138,000098: 11,2000 INTVEL EQUALS
001139,000099: 11,2000 INTPRET2 EQUALS
001140,000100: 11,2000 BNKSUM 11
001141,000101:
001142,000102:
001143,000103: 12,2000 BANK 12
001144,000104: 12,2000 CONICS EQUALS
001145,000105: 12,2000 BNKSUM 12
001146,000106:
001147,000107:
001148,000108: 13,2000 BANK 13
001149,000109: 13,2000 LATLONG EQUALS
001150,000110: 13,2000 INTINIT EQUALS
001151,000111: 13,2000 LEMGEOM EQUALS
001152,000112: 13,2000 R32LOC EQUALS
001153,000113: 13,2000 BNKSUM 13
001154,000114:
001155,000115:
001156,000116: # MODULE 3 CONTAINS BANKS 14 THROUGH 21
001157,000117:
001158,000118: 14,2000 BANK 14
001159,000119: 14,2000 P50S1 EQUALS
001160,000120: 14,2000 STARTAB EQUALS
001161,000121: 14,2000 EPHEM1 EQUALS
001162,000122: 14,2000 BNKSUM 14
001163,000123:
001164,000124:
001165,000125: 15,2000 BANK 15
001166,000126: 15,2000 P50S EQUALS
001167,000127: 15,2000 EPHEM EQUALS
001168,000128: 15,2000 BNKSUM 15
001169,000129:
001170,000130:
001171,000131: 16,2000 BANK 16
001172,000132: 16,2000 DAPS1 EQUALS
001173,000133: 16,2000 BNKSUM 16
001174,000134:
001175,000135:
001176,000136: 17,2000 BANK 17
001177,000137: 17,2000 DAPS2 EQUALS
001178,000138: 17,2000 BNKSUM 17
001179,000139:
001180,000140:
001181,000141: 20,2000 BANK 20
001182,000142: 20,2000 DAPS3 EQUALS
001183,000143: 20,2000 LOADDAP EQUALS
001184,000144: 20,2000 BNKSUM 20
001185,000145:
001186,000146:
001187,000147: 21,2000 BANK 21
001188,000148: 21,2000 DAPS4 EQUALS
001189,000149: 21,2000 RODTRAP EQUALS
001190,000150: 21,2000 F2DPS*21 EQUALS
001191,000151: 21,2000 R10 EQUALS
001192,000152: 21,2000 BNKSUM 21
001193,000153:
001194,000154:
001195,000155: # MODULE 4 CONTAINS BANKS 22 THROUGH 27
001196,000156:
001197,000157: 22,2000 BANK 22
001198,000158: 22,2000 KALCMON1 EQUALS
001199,000159: 22,2000 KALCMON2 EQUALS
001200,000160: 22,2000 R30LOC EQUALS
001201,000161: 22,2000 BNKSUM 22
001202,000162:
001203,000163:
001204,000164: 23,2000 BANK 23
001205,000165: 23,2000 POWFLITE EQUALS
001206,000166: 23,2000 POWFLIT1 EQUALS
001207,000167: 23,2000 INFLIGHT EQUALS
001208,000168: 23,2000 APOPERI EQUALS
001209,000169: 23,2000 R61 EQUALS
001210,000170: 23,2000 R62 EQUALS
001211,000171: 23,2000 INTPRET1 EQUALS
001212,000172: 23,2000 MEASINC EQUALS
001213,000173: 23,2000 MEASINC1 EQUALS
001214,000174: 23,2000 BNKSUM 23
001215,000175:
001216,000176:
001217,000177: 24,2000 BANK 24
001218,000178: 24,2000 PLANTIN EQUALS
001219,000179: 24,2000 P20S EQUALS
001220,000180: 24,2000 BNKSUM 24
001221,000181:
001222,000182:
001223,000183: 25,2000 BANK 25
001224,000184: 25,2000 P20S1 EQUALS
001225,000185: 25,2000 P20S2 EQUALS
001226,000186: 25,2000 LRS22 EQUALS
001227,000187: 25,2000 RADARUPT EQUALS
001228,000188: 25,2000 RRLEADIN EQUALS
001229,000189: 25,2000 BNKSUM 25
001230,000190:
001231,000191:
001232,000192: 26,2000 BANK 26
001233,000193: 26,2000 P20S3 EQUALS
001234,000194: 26,2000 BAWLANGS EQUALS
001235,000195: 26,2000 MANUVER EQUALS
001236,000196: 26,2000 MANUVER1 EQUALS
001237,000197: 26,2000 BNKSUM 26
001238,000198:
001239,000199:
001240,000200: 27,2000 BANK 27
001241,000201: 27,2000 TOF-FF EQUALS
001242,000202: 27,2000 TOF-FF1 EQUALS
001243,000203: 27,2000 P40S1 EQUALS
001244,000204: 27,2000 VECPT EQUALS
001245,000205: 27,2000 BNKSUM 27
001246,000206:
001247,000207:
001248,000208: # MODULE 5 CONTAINS BANKS 30 THROUGH 35
001249,000209:
001250,000210: 30,2000 BANK 30
001251,000211: 30,2000 LOWSUPER EQUALS
001252,000212: 30,2000 P12 EQUALS
001253,000213: 30,2000 ASENT EQUALS
001254,000214: 30,2000 FCDUW EQUALS
001255,000215: 30,2000 BNKSUM 30
001256,000216:
001257,000217:
001258,000218: 31,2000 BANK 31
001259,000219: 31,2000 FTHROT EQUALS
001260,000220: 31,2000 F2DPS*31 EQUALS
001261,000221: 31,2000 BNKSUM 31
001262,000222:
001263,000223:
001264,000224: 32,2000 BANK 32
001265,000225: 32,2000 P10S EQUALS
001266,000226: 32,2000 F2DPS*32 EQUALS
001267,000227: 32,2000 ABORTS EQUALS
001268,000228: 32,2000 P40S2 EQUALS
001269,000229: 32,2000 R11 EQUALS
001270,000230: 32,2000 BNKSUM 32
001271,000231:
001272,000232:
001273,000233: 33,2000 BANK 33
001274,000234: 33,2000 SERVICES EQUALS
001275,000235: 33,2000 BNKSUM 33
001276,000236:
001277,000237:
001278,000238: 34,2000 BANK 34
001279,000239: 34,2000 STBLEORB EQUALS
001280,000240: 34,2000 GLM EQUALS
001281,000241: 34,2000 P30S1 EQUALS
001282,000242: 34,2000 CSI/CDH1 EQUALS
001283,000243: 34,2000 BNKSUM 34
001284,000244:
001285,000245:
001286,000246: 35,2000 BANK 35
001287,000247: 35,2000 CSI/CDH EQUALS
001288,000248: 35,2000 P30S EQUALS
001289,000249: 35,2000 BNKSUM 35
001290,000250:
001291,000251: # MODULE 6 CONTAINS BANKS 36 THROUGH 43
001292,000252:
001293,000253: 36,2000 BANK 36
001294,000254: 36,2000 P40S EQUALS
001295,000255: 36,2000 BNKSUM 36
001296,000256:
001297,000257:
001298,000258: 37,2000 BANK 37
001299,000259: 37,2000 VB45 EQUALS
001300,000260: 37,2000 P05P06 EQUALS
001301,000261: 37,2000 IMU2 EQUALS
001302,000262: 37,2000 IMU4 EQUALS
001303,000263: 37,2000 R31 EQUALS
001304,000264: 37,2000 IMUSUPER EQUALS
001305,000265: 37,2000 BNKSUM 37
001306,000266:
001307,000267:
001308,000268: 40,2000 BANK 40
001309,000269: 40,2000 R47 EQUALS
001310,000270: 40,2000 PINBALL1 EQUALS
001311,000271: 40,2000 SELFSUPR EQUALS
001312,000272: 40,2000 PINSUPER EQUALS
001313,000273: 40,2000 BNKSUM 40
001314,000274:
001315,000275:
001316,000276: 41,2000 BANK 41
001317,000277: 41,2000 PINBALL2 EQUALS
001318,000278: 41,2000 BNKSUM 41
001319,000279:
001320,000280:
001321,000281: 42,2000 BANK 42
001322,000282: 42,2000 SBAND EQUALS
001323,000283: 42,2000 PINBALL3 EQUALS
001324,000284: 42,2000 EXTVB1 EQUALS
001325,000285: 42,2000 BNKSUM 42
001326,000286:
001327,000287:
001328,000288: 43,2000 BANK 43
001329,000289: 43,2000 EXTVERBS EQUALS
001330,000290: 43,2000 SELFCHEC EQUALS
001331,000291:
001332,000292: 43,2000 BNKSUM 43
001333,000293:
001334,000294:
001335,000295: 43,2000 23,2232 HI6ZEROS EQUALS ZEROVECS # ZERO VECTOR ALWAYS IN HIGH MEMORY
001336,000296: 43,2000 11,2275 LO6ZEROS EQUALS ZEROVEC # ZERO VECTOR ALWAYS IN LOW MEMORY
001337,000297: 43,2000 23,2230 HIDPHALF EQUALS UNITX
001338,000298: 43,2000 11,2273 LODPHALF EQUALS XUNIT
001339,000299: 43,2000 23,2222 HIDP1/4 EQUALS DP1/4TH
001340,000300: 43,2000 04,2675 LODP1/4 EQUALS D1/4 # 2DEC .25
001341,000301: 43,2000 23,2230 HIUNITX EQUALS UNITX
001342,000302: 43,2000 23,2226 HIUNITY EQUALS UNITY
001343,000303: 43,2000 23,2224 HIUNITZ EQUALS UNITZ
001344,000304: 43,2000 11,2273 LOUNITX EQUALS XUNIT # 2DEC .5
001345,000305: 43,2000 11,2271 LOUNITY EQUALS YUNIT # 2DEC 0
001346,000306: 43,2000 11,2267 LOUNITZ EQUALS ZUNIT # 2DEC 0
001347,000307:
001348,000308:
001349,000309:
001350,000310: 43,2000 22,3562 DELRSPL EQUALS SPLRET # COL PGM, ALSO CALLED BY R30 IN LUMINARY
001351,000311: # ROPE-SPECIFIC ASSIGNS OBVIATING NEED TO CHECK COMPUTER FLAG IN DETERMINING INTEGRATION AREA ENTRIES.
001352,000312:
001353,000313: 43,2000 13,2704 ATOPTHIS EQUALS ATOPLEM
001354,000314: 43,2000 13,2631 ATOPOTH EQUALS ATOPCSM
001355,000315: 43,2000 13,3014 OTHPREC EQUALS CSMPREC
001356,000316: 43,2000 0000174 MOONTHIS EQUALS LMOONFLG
001357,000317: 43,2000 0000173 MOONOTH EQUALS CMOONFLG
001358,000318: 43,2000 13,2717 MOVATHIS EQUALS MOVEALEM
001359,000319: 43,2000 11,2306 RMM = LODPMAX
001360,000320: 43,2000 11,2310 RME = LODPMAX1
001361,000321: 43,2000 13,3030 THISPREC EQUALS LEMPREC
001362,000322: 43,2000 23,2224 THISAXIS = UNITZ
001363,000323: 43,2000 23,2224 NB1NB2 EQUALS THISAXIS # FOR R31
001364,000324: 43,2000 5061 ERASID EQUALS BITS2-10 # DOWNLINK ERASABLE DUMP ID
001365,000325: 43,2000 5025 DELAYNUM EQUALS TWO
End of include-file TAGS_FOR_RELATIVE_SETLOC_AND_BLANK_BANK_CARDS.agc. Parent file is MAIN.agc