Source Code

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