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