Source Code
|
These source-code files are part of a reconstructed copy of Luminary 97, the
second release of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer
(AGC) software. It was created to fix two incorrect ephemeris constants in
Luminary 96, as described by anomaly report LNY-59.
The reconstruction began with source code of Luminary 99 revision 1 previously
transcribed from a digitized copy of that program. The code was then updated
by undoing changes described in original Luminary memos 83 and 85, using asterisks
indicating changed lines in the listing as a guide. The reconstruction was
verified by matching memory-bank checksums to those listed in drawing 2021152D.
Note that page numbers in the reconstructed code match those on the Luminary 099
revision 001 printout, although the added code would likely have changed page
numbers for a real Luminary 97 listing.
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.
|
009621,000002: ## Copyright: Public domain.
009622,000003: ## Filename: RESTART_TABLES.agc
009623,000004: ## Purpose: A section of Luminary revision 97.
009624,000005: ## It is part of the reconstructed source code for the
009625,000006: ## second release of the flight software for the Lunar
009626,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
009627,000008: ## It was created to fix two incorrect ephemeris constants in
009628,000009: ## Luminary 96, as described by anomaly report LNY-59.
009629,000010: ## The code has been recreated from a copy of Luminary 99
009630,000011: ## revision 001, using asterisks indicating changed lines in
009631,000012: ## the listing and Luminary Memos #83 and #85, which list
009632,000013: ## changes between Luminary 97 and 98, and 98 and 99. The
009633,000014: ## code has been adapted such that the resulting bugger words
009634,000015: ## exactly match those specified for Luminary 97 in NASA drawing
009635,000016: ## 2021152D, which gives relatively high confidence that the
009636,000017: ## reconstruction is correct.
009637,000018: ## Reference: pp. 238-243
009638,000019: ## Assembler: yaYUL
009639,000020: ## Contact: Ron Burkey <info@sandroid.org>.
009640,000021: ## Website: www.ibiblio.org/apollo/index.html
009641,000022: ## Mod history: 2019-07-28 MAS Created from Luminary 99.
009642,000023:
|
|
Page 238
|
009644,000025: # RESTART TABLES
009645,000026: # ------------------
009646,000027:
009647,000028: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
009648,000029: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
009649,000030: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
009650,000031: # WAY THINGS ARE PUT IN TO THE TABLES.
009651,000032:
009652,000033: # A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
009653,000034: # FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
009654,000035: # FOR EXAMPLE,
009655,000036:
009656,000037: # 5.7SPOT OCT 23000
009657,000038: # 2CADR SOMEJOB
009658,000039:
009659,000040: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
009660,000041:
009661,000042: # 5.5SPOT OCT -23000
009662,000043: # 2CADR ANYJOB
009663,000044:
009664,000045: # HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
009665,000046: # A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS
009666,000047: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
009667,000048: # WITH. EXAMPLE,
009668,000049:
009669,000050: # 3.6SPOT GENADR DELTAT
009670,000051: # -GENADR LONGTASK
009671,000052: # BBCON LONGTASK
009672,000053: # OCT 31000
009673,000054: # 2CADR JOBAGAIN
009674,000055:
009675,000056: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
009676,000057: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OF THE 2CADR OF THE
009677,000058: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
009678,000059:
009679,000060: # WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
009680,000061: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
009681,000062: # LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT
009682,000063: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH
009683,000064: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
009684,000065: # TASK. EXAMPLES,
009685,000066:
009686,000067: # OCT 77777 THIS WILL CAUSE AN IMMEDIATE RESTART
009687,000068: # -2CADR ATASK OF THE TASK :ATASK:
009688,000069: #
009689,000070: # DEC 200 IF THE TIME OF THE 2 SECONDS SINCE DUMMY
009690,000071: # -2CADR DUMMY WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
009691,000072: # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
009692,000073: # IT NORMALLY WOULD HAVE BEGUN.
|
|
Page 239
|
009694,000075: # -GENADR DTIME WHERE DTIME CONTAINS THE DELTA TIME
009695,000076: # -2CADR TASKTASK OTHERWISE THIS IS AS ABOVE
009696,000077:
009697,000078: # ***** NOW THE TABLES THEMSELVES *****
009698,000079:
009699,000080: 01,2002 BANK 01
009700,000081: 01,2000 SETLOC RESTART
009701,000082: 01,2000 BANK
009702,000083:
009703,000084: 01,2002 PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME
009704,000085: 01,2002 CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN
009705,000086: # RESTART 2CADR
009706,000087:
009707,000088: 01,2002 COUNT* $$/RSTAB # TABLES IN BANK 1.
009708,000089: 01,2002 00010 SIZETAB TC 1.2SPOT -12006
009709,000090: 01,2003 00020 TC 1.3SPOT -12004
009710,000091: 01,2004 00010 TC 2.2SPOT -12006
009711,000092: 01,2005 00023 TC 2.3SPOT -12004
009712,000093: 01,2006 00010 TC 3.2SPOT -12006
009713,000094: 01,2007 00053 TC 3.3SPOT -12004
009714,000095: 01,2010 00057 TC 4.2SPOT -12006
009715,000096: 01,2011 00067 TC 4.3SPOT -12004
009716,000097: 01,2012 00142 TC 5.2SPOT -12006
009717,000098: 01,2013 00160 TC 5.3SPOT -12004
009718,000099: 01,2014 00010 TC 6.2SPOT -12006
009719,000100: 01,2015 00171 TC 6.3SPOT -12004
009720,000101: 01,2016 21000 1.2SPOT OCT 21000 # A DUMMY EXAMPLE TO BE REPLACED AS SOON
009721,000102: 01,2017 0074 EBANK= STATE
009722,000103: 01,2017 05155 04060 2CADR ENDOFJOB # AS THERE IS A LEGITIMATE 1.2SPOT
009723,000104:
009724,000105: 01,2021 00144 DEC 100 B-14
009725,000106: 01,2022 0074 EBANK= STATE
009726,000107: 01,2022 05261 04060 2CADR TASKOVER
009727,000108:
009728,000109: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
009729,000110:
009730,000111: 01,2024 76300 1.3SPOT -GENADR SAVET-30
009731,000112: 01,2025 E7,1515 EBANK= DVCNTR
009732,000113: 01,2025 75431 03710 -2CADR ULLGTASK
009733,000114:
009734,000115: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
009735,000116:
009736,000117: 01,2027 01,2016 2.2SPOT EQUALS 1.2SPOT
009737,000118:
009738,000119: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
009739,000120:
009740,000121: 01,2027 02630 2.3SPOT GENADR 600SECS
009741,000122:
009742,000123: 01,2030 75173 -GENADR STATEINT
009743,000124: 01,2031 E3,1554 EBANK= RRECTCSM
009744,000125: 01,2031 26063 BBCON STATEINT
009745,000126:
|
|
Page 240
|
009747,000128: 01,2032 05000 2.5SPOT OCT 05000
009748,000129: 01,2033 E3,1554 EBANK= RRECTCSM
009749,000130: 01,2033 02613 26063 2CADR STATINT1
009750,000131:
009751,000132: 01,2035 02734 2.7SPOT DEC 1500 B-14
009752,000133: 01,2036 E7,1456 EBANK= LOSCOUNT
009753,000134: 01,2036 75533 27710 -2CADR P20LEMC1
009754,000135:
009755,000136: 01,2040 14000 2.11SPOT OCT 14000
009756,000137: 01,2041 E7,1762 EBANK= P21TIME
009757,000138: 01,2041 02416 50067 2CADR P25LEM1
009758,000139:
009759,000140: 01,2043 10000 2.13SPOT OCT 10000
009760,000141: 01,2044 E7,1456 EBANK= LOSCOUNT
009761,000142: 01,2044 02217 54067 2CADR RELINUS
009762,000143:
009763,000144: 01,2046 26000 2.15SPOT OCT 26000
009764,000145: 01,2047 E7,1456 EBANK= LOSCOUNT
009765,000146: 01,2047 02653 50067 2CADR R22RSTRT
009766,000147:
009767,000148: 01,2051 77777 2.17SPOT OCT 77777
009768,000149: 01,2052 E7,1700 EBANK= VGPREV
009769,000150: 01,2052 75440 03710 -2CADR REDO2.17
009770,000151:
009771,000152: 01,2054 00031 2.21SPOT DEC 25 B-14
009772,000153: 01,2055 E7,1515 EBANK= DVCNTR
009773,000154: 01,2055 75771 35710 -2CADR R10,R11
009774,000155:
009775,000156: # ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
009776,000157:
009777,000158: 01,2057 01,2016 3.2SPOT EQUALS 1.2SPOT
009778,000159:
009779,000160: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
009780,000161:
009781,000162: 01,2057 76355 3.3SPOT -GENADR ZOOMTIME
009782,000163: 01,2060 E7,1515 EBANK= DVCNTR
009783,000164: 01,2060 75755 41710 -2CADR ZOOM
009784,000165:
009785,000166: 01,2062 20000 3.5SPOT OCT 20000
009786,000167: 01,2063 E7,1453 EBANK= TTOGO
009787,000168: 01,2063 02540 56067 2CADR S40.13
009788,000169:
009789,000170: # ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
009790,000171:
009791,000172: 01,2065 04704 4.2SPOT DEC 2500 B-14
009792,000173: 01,2066 E7,1453 EBANK= TTOGO
009793,000174:
009794,000175: 01,2066 75425 03710 -2CADR TIG-5
009795,000176:
009796,000177: 01,2070 77777 OCT 77777
009797,000178: 01,2071 E7,1453 EBANK= TTOGO
|
|
Page 241
|
009799,000180: 01,2071 75435 03710 -2CADR REDO4.2
009800,000181:
009801,000182: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
009802,000183:
009803,000184: 01,2073 25000 4.3SPOT OCT 25000
009804,000185: 01,2074 E7,1515 EBANK= DVCNTR
009805,000186: 01,2074 03540 64067 2CADR GOABORT
009806,000187:
009807,000188: 01,2076 00062 4.5SPOT DEC 50 B-14
009808,000189: 01,2077 E7,1453 EBANK= TTOGO
009809,000190: 01,2077 75215 03710 -2CADR ULLAGOFF
009810,000191:
009811,000192: 01,2101 00764 4.7SPOT DEC 500 B-14
009812,000193: 01,2102 E7,1515 EBANK= DVCNTR
009813,000194: 01,2102 75374 03710 -2CADR TIG-0
009814,000195:
009815,000196: 01,2104 76260 4.11SPOT -GENADR TGO +1
009816,000197: 01,2105 E7,1515 EBANK= DVCNTR
009817,000198: 01,2105 74235 03710 -2CADR ENGOFTSK
009818,000199:
009819,000200: 01,2107 12000 4.13SPOT OCT 12000
009820,000201: 01,2110 E7,1462 EBANK= TRKMKCNT
009821,000202: 01,2110 03223 74067 2CADR POSTBURN
009822,000203:
009823,000204: 01,2112 00764 4.15SPOT DEC 500 B-14
009824,000205: 01,2113 E7,1453 EBANK= TTOGO
009825,000206: 01,2113 75501 03710 -2CADR TIG-30
009826,000207:
009827,000208: 01,2115 77777 4.17SPOT OCT 77777
009828,000209: 01,2116 E7,1515 EBANK= DVCNTR
009829,000210: 01,2116 75425 03710 -2CADR TIG-5
009830,000211:
009831,000212: 01,2120 13000 4.21SPOT OCT 13000
009832,000213: 01,2121 E5,1730 EBANK= STAR
009833,000214: 01,2121 03020 30065 2CADR R51.1 +1
009834,000215:
009835,000216: 01,2123 77777 4.23SPOT OCT 77777
009836,000217: 01,2124 E7,1515 EBANK= DVCNTR
009837,000218: 01,2124 75351 03710 -2CADR IGNITION
009838,000219:
009839,000220: 01,2126 01477 4.25SPOT GENADR SAVET-30
009840,000221: 01,2127 75537 -GENADR TIG-35
009841,000222: 01,2130 E7,1477 EBANK= SAVET-30
009842,000223: 01,2130 74067 BBCON TIG-35
009843,000224:
009844,000225:
009845,000226: 01,2131 52777 4.27SPOT OCT 52777
009846,000227: 01,2132 E7,1515 EBANK= DVCNTR
009847,000228: 01,2132 02073 42067 2CADR P70A
|
|
Page 242
|
009849,000230: 01,2134 52777 4.31SPOT OCT 52777
009850,000231: 01,2135 E7,1515 EBANK= DVCNTR
009851,000232: 01,2135 02076 42067 2CADR P71A
009852,000233:
009853,000234: 01,2137 46777 4.33SPOT OCT 46777
009854,000235: 01,2140 E7,1515 EBANK= DVCNTR
009855,000236: 01,2140 02024 10067 2CADR GOPOOFIX
009856,000237:
009857,000238: 01,2142 46777 4.35SPOT OCT 46777
009858,000239: 01,2143 E7,1515 EBANK= DVCNTR
009859,000240: 01,2143 05665 04067 2CADR GOPOODOO
009860,000241:
009861,000242: 01,2145 52777 4.37SPOT OCT 52777
009862,000243: 01,2146 E7,1455 EBANK= WHICH
009863,000244: 01,2146 02571 74067 2CADR COMFAIL
009864,000245:
009865,000246: # ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.
009866,000247: 01,2150 22000 5.2SPOT OCT 22000
009867,000248: 01,2151 E7,1515 EBANK= DVCNTR
009868,000249: 01,2151 02461 46067 2CADR NORMLIZE
009869,000250:
009870,000251: 01,2153 00310 DEC 200 B-14
009871,000252: 01,2154 E7,1515 EBANK= DVCNTR
009872,000253: 01,2154 74163 01710 -2CADR REREADAC
009873,000254:
009874,000255: 01,2156 00310 5.4SPOT DEC 200 B-14
009875,000256: 01,2157 E7,1515 EBANK= DVCNTR
009876,000257: 01,2157 74163 01710 -2CADR REREADAC
009877,000258:
009878,000259: 01,2161 20000 OCT 20000
009879,000260: 01,2162 E7,1515 EBANK= DVCNTR
009880,000261: 01,2162 02206 66067 2CADR SERVICER
009881,000262:
009882,000263: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
009883,000264:
009884,000265: 01,2164 00310 5.3SPOT DEC 200 B-14
009885,000266: 01,2165 E7,1515 EBANK= DVCNTR
009886,000267: 01,2165 74163 01710 -2CADR REREADAC
009887,000268:
009888,000269: 01,2167 77777 5.5SPOT OCT 77777
009889,000270: 01,2170 E7,1515 EBANK= DVCNTR
009890,000271: 01,2170 74324 01710 -2CADR REDO5.5
009891,000272:
009892,000273: 01,2172 77777 5.7SPOT OCT 77777
009893,000274: 01,2173 E7,1515 EBANK= DVCNTR
|
|
Page 243
|
009895,000276: 01,2173 74361 01710 -2CADR BIBIBIAS
009896,000277:
009897,000278: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
009898,000279:
009899,000280: 01,2175 01,2016 6.2SPOT EQUALS 1.2SPOT
009900,000281: 01,2175 00144 6.3SPOT DEC 100 B-14
009901,000282: 01,2176 E7,1441 EBANK= TIG
009902,000283: 01,2176 75060 03710 -2CADR CLOKTASK
009903,000284:
009904,000285: 01,2200 30000 6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY
009905,000286: 01,2201 E3,1706 EBANK= TEPHEM # P27(UPDATE PROGRAM) VIA V70 OR V73.
009906,000287: 01,2201 03601 10063 2CADR TIMEDIDR
009907,000288:
009908,000289: 01,2203 17000 6.7SPOT OCT 17000
009909,000290: 01,2204 E7,1700 EBANK= VGPREV
009910,000291: 01,2204 03350 74067 2CADR REDO6.7
009911,000292:
009912,000293:
End of include-file RESTART_TABLES.agc. Parent file is MAIN.agc