Source Code
009680,000001: # Copyright: Public domain.
009681,000002: # Filename: RESTART_TABLES.agc
009682,000003: # Purpose: A section of Luminary 1C, revision 131.
009683,000004: # It is part of the source code for the Lunar Module's (LM)
009684,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14.
009685,000006: # This file is intended to be a faithful transcription, except
009686,000007: # that the code format has been changed to conform to the
009687,000008: # requirements of the yaYUL assembler rather than the
009688,000009: # original YUL assembler.
009689,000010: # Reference: pp. 244-249 of 1729.pdf.
009690,000011: # Contact: Ron Burkey <info@sandroid.org>.
009691,000012: # Website: www.ibiblio.org/apollo/index.html
009692,000013: # Mod history: 05/06/03 RSB. Began transcribing.
009693,000014: # 05/14/05 RSB Corrected website references above.
009694,000015:
009695,000016: # Page 244
009696,000017: # RESTART TABLES
009697,000018: # --------------
009698,000019:
009699,000020: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
009700,000021: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
009701,000022: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
009702,000023: # WAY THINGS ARE PUT IN TO THE TABLES.
009703,000024:
009704,000025: # A JOB HAS ITS PRIORITY STORED IN A PRDTTAB OF THE CORRECT PHASE SPOT -- A POSITIVE PRIORITY INDICATES A
009705,000026: # FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
009706,000027: # FOR EXAMPLE,
009707,000028:
009708,000029: # 5.7SPOT OCT 23000
009709,000030: # 2CADR SOMEJOB
009710,000031:
009711,000032: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23
009712,000033: # A LONGCALL HAS ITS GENADR OF ITS 2CDR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS
009713,000034: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
009714,000035: # WITH. EXAMPLE,
009715,000036:
009716,000037: # 3.6SPOT GENADR DELTAT
009717,000038: # -GENADR LONGTASK
009718,000039: # BBCON LONGTASK
009719,000040: # OCT 31000
009720,000041: # 2CADR JOBAGAIN
009721,000042:
009722,000043: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
009723,000044: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATION SHOULDD BE IN THE BBCON OF THE 2CADR OF THE
009724,000045: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART O FTHIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
009725,000046:
009726,000047: # WAITLIST CALLS ARE IDENTIFIED BY THE FCT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
009727,000048: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
009728,000049: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH
009729,000050: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
009730,000051: # TASK. EXAMPLES,
009731,000052:
009732,000053: # OCT 77777 # THIS WILL CAUSE AN IMMEDIATE RESTART
009733,000054: # -2CADR ATASK # OF THE TASK :ATASK:
009734,000055: #
009735,000056: # DEC 200 # IF THE TIME OF THE 2 SECONDS SINCE DUMMY
009736,000057: # -2CADR DUMMY # WAS PUT ON THE WAITLIST IS UP, IT WILL BEGIN
009737,000058: # # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
009738,000059: # # IT NORMALLY WOULD HAVE BEGUN.
009739,000060: # Page 245
009740,000061: # -GENADR DTIME # WHERE DTIME CONTAINS THE DELTA TIME
009741,000062: # -2CADR TASKTASK # OTHERWISE THIS IS AS ABOVE
009742,000063:
009743,000064: # ***** NOW THE TABLES THEMSELVES *****
009744,000065:
009745,000066: 01,2002 BANK 01
009746,000067: 01,2000 SETLOC RESTART
009747,000068: 01,2000 BANK
009748,000069:
009749,000070: 01,2002 PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME
009750,000071: 01,2002 CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN
009751,000072: # RESTART 2CADR
009752,000073:
009753,000074: 01,2002 COUNT* $$/RSTAB # TABLES IN BANK 1
009754,000075: 01,2002 00010 SIZETAB TC 1.2SPOT -12006
009755,000076: 01,2003 00020 TC 1.3SPOT -12004
009756,000077: 01,2004 00010 TC 2.2SPOT -12006
009757,000078: 01,2005 00026 TC 2.3SPOT -12004
009758,000079: 01,2006 00010 TC 3.2SPOT -12006
009759,000080: 01,2007 00056 TC 3.3SPOT -12004
009760,000081: 01,2010 00062 TC 4.2SPOT -12006
009761,000082: 01,2011 00072 TC 4.3SPOT -12004
009762,000083: 01,2012 00145 TC 5.2SPOT -12006
009763,000084: 01,2013 00163 TC 5.3SPOT -12004
009764,000085: 01,2014 00010 TC 6.2SPOT -12006
009765,000086: 01,2015 00174 TC 6.3SPOT -12004
009766,000087: 01,2016 21000 1.2SPOT OCT 21000 # A DUMMY EXAMPLE TO BE REPLACED AS SOON
009767,000088: 01,2017 0074 EBANK= STATE
009768,000089: 01,2017 05155 04060 2CADR ENDOFJOB # AS THERE IS A LEGITIMATE 1.2SPOT
009769,000090:
009770,000091: 01,2021 00144 DEC 100 B-14
009771,000092: 01,2022 0074 EBANK= STATE
009772,000093: 01,2022 05261 04060 2CADR TASKOVER
009773,000094:
009774,000095: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE.
009775,000096:
009776,000097: 01,2024 76300 1.3SPOT -GENADR SAVET-30
009777,000098: 01,2025 E7,1515 EBANK= DVCNTR
009778,000099: 01,2025 75427 03710 -2CADR ULLGTASK
009779,000100:
009780,000101: 01,2027 32000 1.5SPOT OCT 32000
009781,000102: 01,2030 E7,1654 EBANK= HMEAS
009782,000103: 01,2030 03630 66067 2CADR REREPOS
009783,000104:
009784,000105: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE.
009785,000106:
009786,000107: 01,2032 01,2016 2.2SPOT EQUALS 1.2SPOT
009787,000108:
009788,000109: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
009789,000110:
009790,000111: 01,2032 02627 2.3SPOT GENADR 600SECS
009791,000112: # Page 246
009792,000113: 01,2033 75175 -GENADR STATEINT
009793,000114: 01,2034 E3,1554 EBANK= RRECTCSM
009794,000115: 01,2034 26063 BBCON STATEINT
009795,000116:
009796,000117: 01,2035 05000 2.5SPOT OCT 05000
009797,000118: 01,2036 E3,1554 EBANK= RRECTCSM
009798,000119: 01,2036 02611 26063 2CADR STATINT1
009799,000120:
009800,000121: 01,2040 02734 2.7SPOT DEC 1500 B-14
009801,000122: 01,2041 E7,1456 EBANK= LOSCOUNT
009802,000123: 01,2041 75533 27710 -2CADR P20LEMC1
009803,000124:
009804,000125: 01,2043 14000 2.11SPOT OCT 14000
009805,000126: 01,2044 E7,1762 EBANK= P21TIME
009806,000127: 01,2044 02414 50067 2CADR P25LEM1
009807,000128:
009808,000129: 01,2046 10000 2.13SPOT OCT 10000
009809,000130: 01,2047 E7,1456 EBANK= LOSCOUNT
009810,000131: 01,2047 02223 54067 2CADR RELINUS
009811,000132:
009812,000133: 01,2051 26000 2.15SPOT OCT 26000
009813,000134: 01,2052 E7,1456 EBANK= LOSCOUNT
009814,000135: 01,2052 02654 50067 2CADR R22RSTRT
009815,000136:
009816,000137: 01,2054 77777 2.17SPOT OCT 77777
009817,000138: 01,2055 E7,1700 EBANK= VGPREV
009818,000139: 01,2055 75436 03710 -2CADR REDO2.17
009819,000140:
009820,000141: 01,2057 00031 2.21SPOT DEC 25 B-14
009821,000142: 01,2060 E7,1515 EBANK= DVCNTR
009822,000143: 01,2060 75771 35710 -2CADR R10,R11
009823,000144:
009824,000145: # ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
009825,000146:
009826,000147: 01,2062 01,2016 3.2SPOT EQUALS 1.2SPOT
009827,000148:
009828,000149: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
009829,000150:
009830,000151: 01,2062 76355 3.3SPOT -GENADR ZOOMTIME
009831,000152: 01,2063 E7,1515 EBANK= DVCNTR
009832,000153: 01,2063 74110 05710 -2CADR ZOOM
009833,000154:
009834,000155: 01,2065 20000 3.5SPOT OCT 20000
009835,000156: 01,2066 E7,1453 EBANK= TTOGO
009836,000157: 01,2066 02540 56067 2CADR S40.13
009837,000158:
009838,000159: # ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
009839,000160:
009840,000161: 01,2070 04704 4.2SPOT DEC 2500 B-14
009841,000162: 01,2071 E7,1453 EBANK= TTOGO
009842,000163: # Page 247
009843,000164: 01,2071 75423 03710 -2CADR TIG-5
009844,000165:
009845,000166: 01,2073 77777 OCT 77777
009846,000167: 01,2074 E7,1453 EBANK= TTOGO
009847,000168: 01,2074 75433 03710 -2CADR REDO4.2
009848,000169:
009849,000170: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
009850,000171:
009851,000172: 01,2076 25000 4.3SPOT OCT 25000
009852,000173: 01,2077 E7,1515 EBANK= DVCNTR
009853,000174: 01,2077 03533 64067 2CADR GOABORT
009854,000175:
009855,000176: 01,2101 00062 4.5SPOT DEC 50 B-14
009856,000177: 01,2102 E7,1453 EBANK= TTOGO
009857,000178: 01,2102 75211 03710 -2CADR ULLAGOFF
009858,000179:
009859,000180: 01,2104 00764 4.7SPOT DEC 500 B-14
009860,000181: 01,2105 E7,1515 EBANK= DVCNTR
009861,000182: 01,2105 75370 03710 -2CADR TIG-0
009862,000183:
009863,000184: 01,2107 76260 4.11SPOT -GENADR TGO +1
009864,000185: 01,2110 E7,1515 EBANK= DVCNTR
009865,000186: 01,2110 74231 03710 -2CADR ENGOFTSK
009866,000187:
009867,000188: 01,2112 12000 4.13SPOT OCT 12000
009868,000189: 01,2113 E7,1462 EBANK= TRKMKCNT
009869,000190: 01,2113 03227 74067 2CADR POSTBURN
009870,000191:
009871,000192: 01,2115 00764 4.15SPOT DEC 500 B-14
009872,000193: 01,2116 E7,1453 EBANK= TTOGO
009873,000194: 01,2116 75477 03710 -2CADR TIG-30
009874,000195:
009875,000196: 01,2120 77777 4.17SPOT OCT 77777
009876,000197: 01,2121 E7,1515 EBANK= DVCNTR
009877,000198: 01,2121 75423 03710 -2CADR TIG-5
009878,000199:
009879,000200: 01,2123 13000 4.21SPOT OCT 13000
009880,000201: 01,2124 E5,1730 EBANK= STAR
009881,000202: 01,2124 03012 30065 2CADR R51.1 +1
009882,000203:
009883,000204: 01,2126 77777 4.23SPOT OCT 77777
009884,000205: 01,2127 E7,1515 EBANK= DVCNTR
009885,000206: 01,2127 75345 03710 -2CADR IGNITION
009886,000207:
009887,000208: 01,2131 01477 4.25SPOT GENADR SAVET-30
009888,000209: 01,2132 75535 -GENADR TIG-35
009889,000210: 01,2133 E7,1477 EBANK= SAVET-30
009890,000211: 01,2133 74067 BBCON TIG-35
009891,000212:
009892,000213: # Page 248
009893,000214: 01,2134 52777 4.27SPOT OCT 52777
009894,000215: 01,2135 E7,1515 EBANK= DVCNTR
009895,000216: 01,2135 02070 42067 2CADR P70A
009896,000217:
009897,000218: 01,2137 52777 4.31SPOT OCT 52777
009898,000219: 01,2140 E7,1515 EBANK= DVCNTR
009899,000220: 01,2140 02073 42067 2CADR P71A
009900,000221:
009901,000222: 01,2142 46777 4.33SPOT OCT 46777
009902,000223: 01,2143 E7,1515 EBANK= DVCNTR
009903,000224: 01,2143 02024 10067 2CADR GOP00FIX
009904,000225:
009905,000226: 01,2145 46777 4.35SPOT OCT 46777
009906,000227: 01,2146 E7,1515 EBANK= DVCNTR
009907,000228: 01,2146 05655 04067 2CADR GOP00DOO
009908,000229:
009909,000230: 01,2150 52777 4.37SPOT OCT 52777
009910,000231: 01,2151 E7,1455 EBANK= WHICH
009911,000232: 01,2151 02575 74067 2CADR COMFAIL
009912,000233:
009913,000234: # ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.
009914,000235: 01,2153 22000 5.2SPOT OCT 22000
009915,000236: 01,2154 E7,1515 EBANK= DVCNTR
009916,000237: 01,2154 02463 46067 2CADR NORMLIZE
009917,000238:
009918,000239: 01,2156 00310 DEC 200 B-14
009919,000240: 01,2157 E7,1515 EBANK= DVCNTR
009920,000241: 01,2157 74166 01710 -2CADR REREADAC
009921,000242:
009922,000243: 01,2161 00310 5.4SPOT DEC 200 B-14
009923,000244: 01,2162 E7,1515 EBANK= DVCNTR
009924,000245: 01,2162 74166 01710 -2CADR REREADAC
009925,000246:
009926,000247: 01,2164 20000 OCT 20000
009927,000248: 01,2165 E7,1515 EBANK= DVCNTR
009928,000249: 01,2165 02206 66067 2CADR SERVICER
009929,000250:
009930,000251: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
009931,000252:
009932,000253: 01,2167 00310 5.3SPOT DEC 200 B-14
009933,000254: 01,2170 E7,1515 EBANK= DVCNTR
009934,000255: 01,2170 74166 01710 -2CADR REREADAC
009935,000256:
009936,000257: 01,2172 77777 5.5SPOT OCT 77777
009937,000258: 01,2173 E7,1515 EBANK= DVCNTR
009938,000259: 01,2173 74326 01710 -2CADR REDO5.5
009939,000260:
009940,000261: # Page 249
009941,000262: 01,2175 77777 5.7SPOT OCT 77777
009942,000263: 01,2176 E7,1515 EBANK= DVCNTR
009943,000264: 01,2176 74361 01710 -2CADR BIBIBIAS
009944,000265:
009945,000266: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
009946,000267:
009947,000268: 01,2200 01,2016 6.2SPOT EQUALS 1.2SPOT
009948,000269: 01,2200 00144 6.3SPOT DEC 100 B-14
009949,000270: 01,2201 E7,1441 EBANK= TIG
009950,000271: 01,2201 75054 03710 -2CADR CLOKTASK
009951,000272:
009952,000273: 01,2203 30000 6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY
009953,000274: 01,2204 E3,1706 EBANK= TEPHEM # P27(UPDATE PROGRAM) VIA V70 OR V73
009954,000275: 01,2204 03557 10063 2CADR TIMEDIDR
009955,000276:
009956,000277: 01,2206 17000 6.7SPOT OCT 17000
009957,000278: 01,2207 E7,1700 EBANK= VGPREV
009958,000279: 01,2207 03354 74067 2CADR REDO6.7
009959,000280:
009960,000281:
End of include-file RESTART_TABLES.agc. Parent file is MAIN.agc