Source Code
![]() |
These source-code files are part of a reconstructed copy of Luminary 178, the
final release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Zerlina 56, Luminary 210, and Luminary 131, previously transcribed from digitized copies of those programs. The code was created by combining the three, using Zerlina 56 as a base, since it was based off of Luminary 183. The differences between the three were carefully merged using the Luminary memos as a guide, with all changes made after Luminary 178 being backed out. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152N. Note that page numbers in the reconstructed code match those for the baseline log section mentioned in each file's changelog; the page numbers for a real Luminary 178 listing would be different. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. |
010367,000002: ## Copyright: Public domain. 010368,000003: ## Filename: RESTART_TABLES.agc 010369,000004: ## Purpose: A section of Luminary revision 178. 010370,000005: ## It is part of the reconstructed source code for the final 010371,000006: ## release of the flight software for the Lunar Module's 010372,000007: ## (LM) Apollo Guidance Computer (AGC) for Apollo 14. The 010373,000008: ## code has been recreated from copies of Zerlina 56, Luminary 010374,000009: ## 210, and Luminary 131, as well as many Luminary memos. 010375,000010: ## It has been adapted such that the resulting bugger words 010376,000011: ## exactly match those specified for Luminary 178 in NASA 010377,000012: ## drawing 2021152N, which gives relatively high confidence 010378,000013: ## that the reconstruction is correct. 010379,000014: ## Reference: pp. 245-250 010380,000015: ## Assembler: yaYUL 010381,000016: ## Contact: Ron Burkey <info@sandroid.org>. 010382,000017: ## Website: www.ibiblio.org/apollo/index.html 010383,000018: ## Mod history: 2019-08-14 MAS Created from Zerlina 56. 010384,000019:
![]() |
Page 245 |
010386,000021: # RESTART TABLES 010387,000022: 010388,000023: # ------------------ 010389,000024: 010390,000025: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD 010391,000026: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES 010392,000027: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE 010393,000028: # WAY THINGS ARE PUT INTO THE TABLES. 010394,000029: # A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A 010395,000030: # FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB. 010396,000031: # FOR EXAMPLE, 010397,000032: 010398,000033: # 5.7SPOT OCT 23000 010399,000034: # 2CADR SOMEJOB 010400,000035: 010401,000036: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23. 010402,000037: 010403,000038: # 5.5SPOT OCT -23000 010404,000039: # 2CADR ANYJOB 010405,000040: 010406,000041: # HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23. 010407,000042: # A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS 010408,000043: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED 010409,000044: # WITH. EXAMPLE, 010410,000045: 010411,000046: # 3.6SPOT GENADR DELTAT 010412,000047: # -GENADR LONGTASK 010413,000048: # BBCON LONGTASK 010414,000049: 010415,000050: # OCT 31000 010416,000051: # 2CADR JOBAGAIN 010417,000052: 010418,000053: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD 010419,000054: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OFTHE 2CADR OF THE 010420,000055: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31. 010421,000056: 010422,000057: # WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT 010423,000058: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE 010424,000059: # LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT 010425,000060: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH 010426,000061: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE 010427,000062: # TASK. EXAMPLES, 010428,000063: 010429,000064: # OCT 77777 THIS WILL CAUSE AN IMMEDIATE RESTART 010430,000065: # -2CADR ATASK OF THE TASK :ATASK: 010431,000066: # 010432,000067: # DEC 200 IF THE TIME OF THE 2 SECONDS SINCE DUMMY 010433,000068: # -2CADR DUMMY WAS PUT ON WAITLIST IS UP, IT WILL BEGIN 010434,000069: # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN 010435,000070: # IT NORMALLY WOULD HAVE BEGUN.
![]() |
Page 246 |
010437,000072: # -GENADR DTIME WHERE DTIME CONTAINS THE DELTA TIME 010438,000073: # -2CADR TASKTASK OTHERWISE THIS IS AS ABOVE 010439,000074: 010440,000075: # ***** NOW THE TABLES THEMSELVES ***** 010441,000076: 010442,000077: 01,2002 BANK 01 010443,000078: 01,2000 SETLOC RESTART 010444,000079: 01,2000 BANK 010445,000080: 010446,000081: 01,2002 PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME 010447,000082: 01,2002 CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN 010448,000083: # RESTART 2CADR 010449,000084: 010450,000085: 01,2002 COUNT* $$/RSTAB # TABLES IN BANK 1. 010451,000086: 01,2002 00010 SIZETAB TC 1.2SPOT -12006 010452,000087: 01,2003 00020 TC 1.3SPOT -12004 010453,000088: 01,2004 00010 TC 2.2SPOT -12006 010454,000089: 01,2005 00026 TC 2.3SPOT -12004 010455,000090: 01,2006 00010 TC 3.2SPOT -12006 010456,000091: 01,2007 00056 TC 3.3SPOT -12004 010457,000092: 01,2010 00062 TC 4.2SPOT -12006 010458,000093: 01,2011 00072 TC 4.3SPOT -12004 010459,000094: 01,2012 00145 TC 5.2SPOT -12006 010460,000095: 01,2013 00163 TC 5.3SPOT -12004 010461,000096: 01,2014 00010 TC 6.2SPOT -12006 010462,000097: 01,2015 00174 TC 6.3SPOT -12004 010463,000098: 01,2016 21000 1.2SPOT OCT 21000 # A DUMMY EXAMPLE TO BE REPLACED AS SOON 010464,000099: 01,2017 0074 EBANK= STATE 010465,000100: 01,2017 05155 04060 2CADR ENDOFJOB # AS THERE IS A LEGITIMATE 1.2SPOT 010466,000101: 010467,000102: 01,2021 00144 DEC 100 B-14 010468,000103: 01,2022 0074 EBANK= STATE 010469,000104: 01,2022 05272 04060 2CADR TASKOVER 010470,000105: 010471,000106: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE 010472,000107: 010473,000108: 01,2024 76300 1.3SPOT -GENADR SAVET-30 010474,000109: 01,2025 E7,1515 EBANK= DVCNTR 010475,000110: 01,2025 75427 03710 -2CADR ULLGTASK 010476,000111: 010477,000112: 01,2027 32000 1.5SPOT OCT 32000 010478,000113: 01,2030 E7,1654 EBANK= HMEAS 010479,000114: 01,2030 03540 66067 2CADR REREPOS 010480,000115: 010481,000116: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE 010482,000117: 010483,000118: 01,2032 01,2016 2.2SPOT EQUALS 1.2SPOT 010484,000119: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE 010485,000120: 010486,000121: 01,2032 02627 2.3SPOT GENADR 600SECS
![]() |
Page 247 |
010488,000123: 01,2033 75175 -GENADR STATEINT 010489,000124: 01,2034 E3,1554 EBANK= RRECTCSM 010490,000125: 01,2034 26063 BBCON STATEINT 010491,000126: 010492,000127: 01,2035 05000 2.5SPOT OCT 05000 010493,000128: 01,2036 E3,1554 EBANK= RRECTCSM 010494,000129: 01,2036 02611 26063 2CADR STATINT1 010495,000130: 010496,000131: 01,2040 02734 2.7SPOT DEC 1500 B-14 010497,000132: 01,2041 E7,1456 EBANK= LOSCOUNT 010498,000133: 01,2041 75455 27710 -2CADR P20LEMC1 010499,000134: 010500,000135: 01,2043 14000 2.11SPOT OCT 14000 010501,000136: 01,2044 E7,1762 EBANK= P21TIME 010502,000137: 01,2044 02476 50067 2CADR P25LEM1 010503,000138: 010504,000139: 01,2046 10000 2.13SPOT OCT 10000 010505,000140: 01,2047 E7,1456 EBANK= LOSCOUNT 010506,000141: 01,2047 02225 54067 2CADR RELINUS 010507,000142: 010508,000143: 01,2051 26000 2.15SPOT OCT 26000 010509,000144: 01,2052 E7,1456 EBANK= LOSCOUNT 010510,000145: 01,2052 02736 50067 2CADR R22RSTRT 010511,000146: 010512,000147: 01,2054 77777 2.17SPOT OCT 77777 010513,000148: 01,2055 E7,1700 EBANK= VGPREV 010514,000149: 01,2055 75436 03710 -2CADR REDO2.17 010515,000150: 010516,000151: 01,2057 00031 2.21SPOT DEC 25 B-14 010517,000152: 01,2060 E7,1515 EBANK= DVCNTR 010518,000153: 01,2060 75771 35710 -2CADR R10,R11 010519,000154: 010520,000155: # ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE. 010521,000156: 010522,000157: 01,2062 01,2016 3.2SPOT EQUALS 1.2SPOT 010523,000158: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE 010524,000159: 010525,000160: 01,2062 76355 3.3SPOT -GENADR ZOOMTIME 010526,000161: 01,2063 E7,1515 EBANK= DVCNTR 010527,000162: 01,2063 74102 05710 -2CADR ZOOM 010528,000163: 010529,000164: 01,2065 20000 3.5SPOT OCT 20000 010530,000165: 01,2066 E7,1453 EBANK= TTOGO 010531,000166: 01,2066 02536 56067 2CADR S40.13 010532,000167: 010533,000168: # ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE 010534,000169: 010535,000170: 01,2070 04704 4.2SPOT DEC 2500 B-14 010536,000171: 01,2071 E7,1453 EBANK= TTOGO
![]() |
Page 248 |
010538,000173: 01,2071 75423 03710 -2CADR TIG-5 010539,000174: 010540,000175: 01,2073 77777 OCT 77777 010541,000176: 01,2074 E7,1453 EBANK= TTOGO 010542,000177: 01,2074 75433 03710 -2CADR REDO4.2 010543,000178: 010544,000179: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE 010545,000180: 010546,000181: 01,2076 25000 4.3SPOT OCT 25000 010547,000182: 01,2077 E7,1515 EBANK= DVCNTR 010548,000183: 01,2077 03432 64067 2CADR GOABORT 010549,000184: 010550,000185: 01,2101 00062 4.5SPOT DEC 50 B-14 010551,000186: 01,2102 E7,1453 EBANK= TTOGO 010552,000187: 01,2102 75216 03710 -2CADR ULLAGOFF 010553,000188: 010554,000189: 01,2104 00764 4.7SPOT DEC 500 B-14 010555,000190: 01,2105 E7,1515 EBANK= DVCNTR 010556,000191: 01,2105 75370 03710 -2CADR TIG-0 010557,000192: 010558,000193: 01,2107 76260 4.11SPOT -GENADR TGO +1 010559,000194: 01,2110 E7,1515 EBANK= DVCNTR 010560,000195: 01,2110 74234 03710 -2CADR ENGOFTSK 010561,000196: 010562,000197: 01,2112 12000 4.13SPOT OCT 12000 010563,000198: 01,2113 E7,1462 EBANK= TRKMKCNT 010564,000199: 01,2113 03222 74067 2CADR POSTBURN 010565,000200: 010566,000201: 01,2115 00764 4.15SPOT DEC 500 B-14 010567,000202: 01,2116 E7,1453 EBANK= TTOGO 010568,000203: 01,2116 75477 03710 -2CADR TIG-30 010569,000204: 010570,000205: 01,2120 77777 4.17SPOT OCT 77777 010571,000206: 01,2121 E7,1515 EBANK= DVCNTR 010572,000207: 01,2121 75423 03710 -2CADR TIG-5 010573,000208: 010574,000209: 01,2123 13000 4.21SPOT OCT 13000 010575,000210: 01,2124 E5,1730 EBANK= STAR 010576,000211: 01,2124 03012 30065 2CADR R51.1 +1 010577,000212: 010578,000213: 01,2126 77777 4.23SPOT OCT 77777 010579,000214: 01,2127 E7,1515 EBANK= DVCNTR 010580,000215: 01,2127 75344 03710 -2CADR IGNITION 010581,000216: 010582,000217: 01,2131 01477 4.25SPOT GENADR SAVET-30 010583,000218: 01,2132 75535 -GENADR TIG-35 010584,000219: 01,2133 E7,1477 EBANK= SAVET-30 010585,000220: 01,2133 74067 BBCON TIG-35 010586,000221:
![]() |
Page 249 |
010588,000223: 01,2134 52777 4.27SPOT OCT 52777 010589,000224: 01,2135 E7,1515 EBANK= DVCNTR 010590,000225: 01,2135 02073 42067 2CADR P70A 010591,000226: 010592,000227: 01,2137 52777 4.31SPOT OCT 52777 010593,000228: 01,2140 E7,1515 EBANK= DVCNTR 010594,000229: 01,2140 02076 42067 2CADR P71A 010595,000230: 010596,000231: 01,2142 46777 4.33SPOT OCT 46777 010597,000232: 01,2143 E7,1515 EBANK= DVCNTR 010598,000233: 01,2143 02024 10067 2CADR GOPOOFIX 010599,000234: 010600,000235: 01,2145 46777 4.35SPOT OCT 46777 010601,000236: 01,2146 E7,1515 EBANK= DVCNTR 010602,000237: 01,2146 05666 04067 2CADR GOPOODOO 010603,000238: 010604,000239: 01,2150 52777 4.37SPOT OCT 52777 010605,000240: 01,2151 E7,1455 EBANK= WHICH 010606,000241: 01,2151 02570 74067 2CADR COMFAIL 010607,000242: 010608,000243: # ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE. 010609,000244: 010610,000245: 01,2153 22000 5.2SPOT OCT 22000 010611,000246: 01,2154 E7,1515 EBANK= DVCNTR 010612,000247: 01,2154 03650 64067 2CADR NORMLIZE 010613,000248: 010614,000249: 01,2156 00310 DEC 200 B-14 010615,000250: 01,2157 E7,1515 EBANK= DVCNTR 010616,000251: 01,2157 74164 01710 -2CADR REREADAC 010617,000252: 010618,000253: 01,2161 00310 5.4SPOT DEC 200 B-14 010619,000254: 01,2162 E7,1515 EBANK= DVCNTR 010620,000255: 01,2162 74164 01710 -2CADR REREADAC 010621,000256: 010622,000257: 01,2164 20000 OCT 20000 010623,000258: 01,2165 E7,1515 EBANK= DVCNTR 010624,000259: 01,2165 02121 66067 2CADR SERVICER 010625,000260: 010626,000261: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE 010627,000262: 010628,000263: 01,2167 00310 5.3SPOT DEC 200 B-14 010629,000264: 01,2170 E7,1515 EBANK= DVCNTR 010630,000265: 01,2170 74164 01710 -2CADR REREADAC 010631,000266: 010632,000267: 01,2172 77777 5.5SPOT OCT 77777 010633,000268: 01,2173 E7,1515 EBANK= DVCNTR 010634,000269: 01,2173 74335 01710 -2CADR REDO5.5 010635,000270:
![]() |
Page 250 |
010637,000272: 01,2175 77777 5.7SPOT OCT 77777 010638,000273: 01,2176 E7,1515 EBANK= DVCNTR 010639,000274: 01,2176 74370 01710 -2CADR BIBIBIAS 010640,000275: 010641,000276: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE 010642,000277: 010643,000278: 01,2200 01,2016 6.2SPOT EQUALS 1.2SPOT 010644,000279: 01,2200 00144 6.3SPOT DEC 100 B-14 010645,000280: 01,2201 E7,1441 EBANK= TIG 010646,000281: 01,2201 75061 03710 -2CADR CLOKTASK 010647,000282: 010648,000283: 01,2203 30000 6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY 010649,000284: 01,2204 E3,1706 EBANK= TEPHEM # P27(UPDATE PROGRAM) VIA V70 OR V73. 010650,000285: 01,2204 03605 10063 2CADR TIMEDIDR 010651,000286: 010652,000287: 01,2206 17000 6.7SPOT OCT 17000 010653,000288: 01,2207 E7,1700 EBANK= VGPREV 010654,000289: 01,2207 03355 74067 2CADR REDO6.7 010655,000290: 010656,000291: 01,2211 17000 6.11SPOT OCT 17000 010657,000292: 01,2212 E7,1700 EBANK= VGPREV 010658,000293: 01,2212 03364 74067 2CADR FKP5RST 010659,000294: End of include-file RESTART_TABLES.agc. Parent file is MAIN.agc