Source Code

009775,000001: # Copyright: Public domain. 009776,000002: # Filename: RESTART_TABLES.agc 009777,000003: # Purpose: Part of the source code for Luminary 1A build 099. 009778,000004: # It is part of the source code for the Lunar Module's (LM) 009779,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 009780,000006: # Assembler: yaYUL 009781,000007: # Contact: Ron Burkey <info@sandroid.org>. 009782,000008: # Website: www.ibiblio.org/apollo. 009783,000009: # Pages: 238-243 009784,000010: # Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting 009785,000011: # from the Luminary131/ file of the same 009786,000012: # name, using Luminary099 page images. 009787,000013: 009788,000014: # This source code has been transcribed or otherwise adapted from 009789,000015: # digitized images of a hardcopy from the MIT Museum. The digitization 009790,000016: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of 009791,000017: # the Museum. Many thanks to both. The images (with suitable reduction 009792,000018: # in storage size and consequent reduction in image quality as well) are 009793,000019: # available online at www.ibiblio.org/apollo. If for some reason you 009794,000020: # find that the images are illegible, contact me at info@sandroid.org 009795,000021: # about getting access to the (much) higher-quality images which Paul 009796,000022: # actually created. 009797,000023: 009798,000024: # Notations on the hardcopy document read, in part: 009799,000025: 009800,000026: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61 009801,000027: # 16:27 JULY 14, 1969 009802,000028: 009803,000029: # Page 238 009804,000030: # RESTART TABLES 009805,000031: # -------------- 009806,000032: 009807,000033: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD 009808,000034: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES 009809,000035: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE 009810,000036: # WAY THINGS ARE PUT IN TO THE TABLES. 009811,000037: 009812,000038: # A JOB HAS ITS PRIORITY STORED IN A PRDTTAB OF THE CORRECT PHASE SPOT -- A POSITIVE PRIORITY INDICATES A 009813,000039: # FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB. 009814,000040: # FOR EXAMPLE, 009815,000041: 009816,000042: # 5.7SPOT OCT 23000 009817,000043: # 2CADR SOMEJOB 009818,000044: 009819,000045: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23. 009820,000046: 009821,000047: # 5.5SPOT OCT -23000 009822,000048: # 2CADR ANYJOB 009823,000049: 009824,000050: # HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23. 009825,000051: # A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS 009826,000052: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED 009827,000053: # WITH. EXAMPLE, 009828,000054: 009829,000055: # 3.6SPOT GENADR DELTAT 009830,000056: # -GENADR LONGTASK 009831,000057: # BBCON LONGTASK 009832,000058: # OCT 31000 009833,000059: # 2CADR JOBAGAIN 009834,000060: 009835,000061: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD 009836,000062: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATION SHOULD BE IN THE BBCON OF THE 2CADR OF THE 009837,000063: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART O THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31. 009838,000064: 009839,000065: # WAITLIST CALLS ARE IDENTIFIED BY THE FCT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT 009840,000066: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE 009841,000067: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH 009842,000068: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE 009843,000069: # TASK. EXAMPLES, 009844,000070: 009845,000071: # OCT 77777 # THIS WILL CAUSE AN IMMEDIATE RESTART 009846,000072: # -2CADR ATASK # OF THE TASK :ATASK: 009847,000073: # 009848,000074: # DEC 200 # IF THE TIME OF THE 2 SECONDS SINCE DUMMY 009849,000075: # -2CADR DUMMY # WAS PUT ON THE WAITLIST IS UP, IT WILL BEGIN 009850,000076: # # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN 009851,000077: # # IT NORMALLY WOULD HAVE BEGUN. 009852,000078: # Page 239 009853,000079: # -GENADR DTIME # WHERE DTIME CONTAINS THE DELTA TIME 009854,000080: # -2CADR TASKTASK # OTHERWISE THIS IS AS ABOVE 009855,000081: 009856,000082: # ***** NOW THE TABLES THEMSELVES ***** 009857,000083: 009858,000084: 01,2002 BANK 01 009859,000085: 01,2000 SETLOC RESTART 009860,000086: 01,2000 BANK 009861,000087: 009862,000088: 01,2002 PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME 009863,000089: 01,2002 CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN 009864,000090: # RESTART 2CADR 009865,000091: 009866,000092: 01,2002 COUNT* $$/RSTAB # TABLES IN BANK 1. 009867,000093: 01,2002 00010 SIZETAB TC 1.2SPOT -12006 009868,000094: 01,2003 00020 TC 1.3SPOT -12004 009869,000095: 01,2004 00010 TC 2.2SPOT -12006 009870,000096: 01,2005 00023 TC 2.3SPOT -12004 009871,000097: 01,2006 00010 TC 3.2SPOT -12006 009872,000098: 01,2007 00053 TC 3.3SPOT -12004 009873,000099: 01,2010 00057 TC 4.2SPOT -12006 009874,000100: 01,2011 00067 TC 4.3SPOT -12004 009875,000101: 01,2012 00142 TC 5.2SPOT -12006 009876,000102: 01,2013 00160 TC 5.3SPOT -12004 009877,000103: 01,2014 00010 TC 6.2SPOT -12006 009878,000104: 01,2015 00171 TC 6.3SPOT -12004 009879,000105: 01,2016 21000 1.2SPOT OCT 21000 # A DUMMY EXAMPLE TO BE REPLACED AS SOON 009880,000106: 01,2017 0074 EBANK= STATE 009881,000107: 01,2017 05155 04060 2CADR ENDOFJOB # AS THERE IS A LEGITIMATE 1.2SPOT 009882,000108: 009883,000109: 01,2021 00144 DEC 100 B-14 009884,000110: 01,2022 0074 EBANK= STATE 009885,000111: 01,2022 05261 04060 2CADR TASKOVER 009886,000112: 009887,000113: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE. 009888,000114: 009889,000115: 01,2024 76300 1.3SPOT -GENADR SAVET-30 009890,000116: 01,2025 E7,1515 EBANK= DVCNTR 009891,000117: 01,2025 75431 03710 -2CADR ULLGTASK 009892,000118: 009893,000119: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE. 009894,000120: 009895,000121: 01,2027 01,2016 2.2SPOT EQUALS 1.2SPOT 009896,000122: 009897,000123: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE 009898,000124: 009899,000125: 01,2027 02630 2.3SPOT GENADR 600SECS 009900,000126: 009901,000127: 01,2030 75173 -GENADR STATEINT 009902,000128: 01,2031 E3,1554 EBANK= RRECTCSM 009903,000129: 01,2031 26063 BBCON STATEINT 009904,000130: 009905,000131: # Page 240 009906,000132: 01,2032 05000 2.5SPOT OCT 05000 009907,000133: 01,2033 E3,1554 EBANK= RRECTCSM 009908,000134: 01,2033 02613 26063 2CADR STATINT1 009909,000135: 009910,000136: 01,2035 02734 2.7SPOT DEC 1500 B-14 009911,000137: 01,2036 E7,1456 EBANK= LOSCOUNT 009912,000138: 01,2036 75533 27710 -2CADR P20LEMC1 009913,000139: 009914,000140: 01,2040 14000 2.11SPOT OCT 14000 009915,000141: 01,2041 E7,1762 EBANK= P21TIME 009916,000142: 01,2041 02416 50067 2CADR P25LEM1 009917,000143: 009918,000144: 01,2043 10000 2.13SPOT OCT 10000 009919,000145: 01,2044 E7,1456 EBANK= LOSCOUNT 009920,000146: 01,2044 02217 54067 2CADR RELINUS 009921,000147: 009922,000148: 01,2046 26000 2.15SPOT OCT 26000 009923,000149: 01,2047 E7,1456 EBANK= LOSCOUNT 009924,000150: 01,2047 02653 50067 2CADR R22RSTRT 009925,000151: 009926,000152: 01,2051 77777 2.17SPOT OCT 77777 009927,000153: 01,2052 E7,1700 EBANK= VGPREV 009928,000154: 01,2052 75440 03710 -2CADR REDO2.17 009929,000155: 009930,000156: 01,2054 00031 2.21SPOT DEC 25 B-14 009931,000157: 01,2055 E7,1515 EBANK= DVCNTR 009932,000158: 01,2055 75771 35710 -2CADR R10,R11 009933,000159: 009934,000160: # ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE. 009935,000161: 009936,000162: 01,2057 01,2016 3.2SPOT EQUALS 1.2SPOT 009937,000163: 009938,000164: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE 009939,000165: 009940,000166: 01,2057 76355 3.3SPOT -GENADR ZOOMTIME 009941,000167: 01,2060 E7,1515 EBANK= DVCNTR 009942,000168: 01,2060 75755 41710 -2CADR ZOOM 009943,000169: 009944,000170: 01,2062 20000 3.5SPOT OCT 20000 009945,000171: 01,2063 E7,1453 EBANK= TTOGO 009946,000172: 01,2063 02540 56067 2CADR S40.13 009947,000173: 009948,000174: # ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE 009949,000175: 009950,000176: 01,2065 04704 4.2SPOT DEC 2500 B-14 009951,000177: 01,2066 E7,1453 EBANK= TTOGO 009952,000178: 009953,000179: 01,2066 75425 03710 -2CADR TIG-5 009954,000180: 009955,000181: 01,2070 77777 OCT 77777 009956,000182: 01,2071 E7,1453 EBANK= TTOGO 009957,000183: # Page 241 009958,000184: 01,2071 75435 03710 -2CADR REDO4.2 009959,000185: 009960,000186: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE 009961,000187: 009962,000188: 01,2073 25000 4.3SPOT OCT 25000 009963,000189: 01,2074 E7,1515 EBANK= DVCNTR 009964,000190: 01,2074 03540 64067 2CADR GOABORT 009965,000191: 009966,000192: 01,2076 00062 4.5SPOT DEC 50 B-14 009967,000193: 01,2077 E7,1453 EBANK= TTOGO 009968,000194: 01,2077 75215 03710 -2CADR ULLAGOFF 009969,000195: 009970,000196: 01,2101 00764 4.7SPOT DEC 500 B-14 009971,000197: 01,2102 E7,1515 EBANK= DVCNTR 009972,000198: 01,2102 75374 03710 -2CADR TIG-0 009973,000199: 009974,000200: 01,2104 76260 4.11SPOT -GENADR TGO +1 009975,000201: 01,2105 E7,1515 EBANK= DVCNTR 009976,000202: 01,2105 74235 03710 -2CADR ENGOFTSK 009977,000203: 009978,000204: 01,2107 12000 4.13SPOT OCT 12000 009979,000205: 01,2110 E7,1462 EBANK= TRKMKCNT 009980,000206: 01,2110 03223 74067 2CADR POSTBURN 009981,000207: 009982,000208: 01,2112 00764 4.15SPOT DEC 500 B-14 009983,000209: 01,2113 E7,1453 EBANK= TTOGO 009984,000210: 01,2113 75501 03710 -2CADR TIG-30 009985,000211: 009986,000212: 01,2115 77777 4.17SPOT OCT 77777 009987,000213: 01,2116 E7,1515 EBANK= DVCNTR 009988,000214: 01,2116 75425 03710 -2CADR TIG-5 009989,000215: 009990,000216: 01,2120 13000 4.21SPOT OCT 13000 009991,000217: 01,2121 E5,1730 EBANK= STAR 009992,000218: 01,2121 03020 30065 2CADR R51.1 +1 009993,000219: 009994,000220: 01,2123 77777 4.23SPOT OCT 77777 009995,000221: 01,2124 E7,1515 EBANK= DVCNTR 009996,000222: 01,2124 75351 03710 -2CADR IGNITION 009997,000223: 009998,000224: 01,2126 01477 4.25SPOT GENADR SAVET-30 009999,000225: 01,2127 75537 -GENADR TIG-35 010000,000226: 01,2130 E7,1477 EBANK= SAVET-30 010001,000227: 01,2130 74067 BBCON TIG-35 010002,000228: 010003,000229: 010004,000230: 01,2131 52777 4.27SPOT OCT 52777 010005,000231: 01,2132 E7,1515 EBANK= DVCNTR 010006,000232: 01,2132 02073 42067 2CADR P70A 010007,000233: # Page 242 010008,000234: 01,2134 52777 4.31SPOT OCT 52777 010009,000235: 01,2135 E7,1515 EBANK= DVCNTR 010010,000236: 01,2135 02076 42067 2CADR P71A 010011,000237: 010012,000238: 01,2137 46777 4.33SPOT OCT 46777 010013,000239: 01,2140 E7,1515 EBANK= DVCNTR 010014,000240: 01,2140 02024 10067 2CADR GOP00FIX 010015,000241: 010016,000242: 01,2142 46777 4.35SPOT OCT 46777 010017,000243: 01,2143 E7,1515 EBANK= DVCNTR 010018,000244: 01,2143 05665 04067 2CADR GOP00DOO 010019,000245: 010020,000246: 01,2145 52777 4.37SPOT OCT 52777 010021,000247: 01,2146 E7,1455 EBANK= WHICH 010022,000248: 01,2146 02571 74067 2CADR COMFAIL 010023,000249: 010024,000250: # ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE. 010025,000251: 01,2150 22000 5.2SPOT OCT 22000 010026,000252: 01,2151 E7,1515 EBANK= DVCNTR 010027,000253: 01,2151 02461 46067 2CADR NORMLIZE 010028,000254: 010029,000255: 01,2153 00310 DEC 200 B-14 010030,000256: 01,2154 E7,1515 EBANK= DVCNTR 010031,000257: 01,2154 74163 01710 -2CADR REREADAC 010032,000258: 010033,000259: 01,2156 00310 5.4SPOT DEC 200 B-14 010034,000260: 01,2157 E7,1515 EBANK= DVCNTR 010035,000261: 01,2157 74163 01710 -2CADR REREADAC 010036,000262: 010037,000263: 01,2161 20000 OCT 20000 010038,000264: 01,2162 E7,1515 EBANK= DVCNTR 010039,000265: 01,2162 02206 66067 2CADR SERVICER 010040,000266: 010041,000267: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE 010042,000268: 010043,000269: 01,2164 00310 5.3SPOT DEC 200 B-14 010044,000270: 01,2165 E7,1515 EBANK= DVCNTR 010045,000271: 01,2165 74163 01710 -2CADR REREADAC 010046,000272: 010047,000273: 01,2167 77777 5.5SPOT OCT 77777 010048,000274: 01,2170 E7,1515 EBANK= DVCNTR 010049,000275: 01,2170 74324 01710 -2CADR REDO5.5 010050,000276: 010051,000277: 01,2172 77777 5.7SPOT OCT 77777 010052,000278: 01,2173 E7,1515 EBANK= DVCNTR 010053,000279: # Page 243 010054,000280: 01,2173 74361 01710 -2CADR BIBIBIAS 010055,000281: 010056,000282: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE 010057,000283: 010058,000284: 01,2175 01,2016 6.2SPOT EQUALS 1.2SPOT 010059,000285: 01,2175 00144 6.3SPOT DEC 100 B-14 010060,000286: 01,2176 E7,1441 EBANK= TIG 010061,000287: 01,2176 75060 03710 -2CADR CLOKTASK 010062,000288: 010063,000289: 01,2200 30000 6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY 010064,000290: 01,2201 E3,1706 EBANK= TEPHEM # P27(UPDATE PROGRAM) VIA V70 OR V73. 010065,000291: 01,2201 03601 10063 2CADR TIMEDIDR 010066,000292: 010067,000293: 01,2203 17000 6.7SPOT OCT 17000 010068,000294: 01,2204 E7,1700 EBANK= VGPREV 010069,000295: 01,2204 03350 74067 2CADR REDO6.7 010070,000296: 010071,000297: End of include-file RESTART_TABLES.agc. Parent file is MAIN.agc