Source Code

008888,000001: # Copyright: Public domain. 008889,000002: # Filename: RESTART_TABLES.agc 008890,000003: # Purpose: Part of the source code for Comanche, build 055. It 008891,000004: # is part of the source code for the Command Module's 008892,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11. 008893,000006: # Assembler: yaYUL 008894,000007: # Reference: pp. 211-221 008895,000008: # Contact: Ron Burkey <info@sandroid.org>, 008896,000009: # Fabrizio Bernardini <fabrizio@spacecraft.it> 008897,000010: # Website: http://www.ibiblio.org/apollo. 008898,000011: # Mod history: 2009-05-16 FB Transcription Batch 2 Assignment. 008899,000012: # 2009-05-20 RSB Added a missing comment mark. Corrected mismarked 008900,000013: # Page 217 -> 220. 008901,000014: # 2009-05-21 RSB Fixed value of 5.21SPOT. 008902,000015: 008903,000016: # The contents of the "Comanche055" files, in general, are transcribed 008904,000017: # from scanned documents. 008905,000018: 008906,000019: # Assemble revision 055 of AGC program Comanche by NASA 008907,000020: # 2021113-051. April 1, 1969. 008908,000021: 008909,000022: # This AGC program shall also be referred to as Colossus 2A 008910,000023: 008911,000024: # Prepared by 008912,000025: # Massachusetts Institute of Technology 008913,000026: # 75 Cambridge Parkway 008914,000027: # Cambridge, Massachusetts 008915,000028: 008916,000029: # under NASA contract NAS 9-4065. 008917,000030: 008918,000031: # Refer directly to the online document mentioned above for further 008919,000032: # information. Please report any errors to info@sandroid.org. 008920,000033: 008921,000034: # Page 211 008922,000035: # RESTART TABLES 008923,000036: # -------------- 008924,000037: 008925,000038: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD 008926,000039: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES 008927,000040: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE 008928,000041: # WAY THINGS ARE PUT IN TO THE TABLES. 008929,000042: 008930,000043: # A JOB HAS ITS PRIORITY STORED IN A PRDTTAB OF THE CORRECT PHASE SPOT -- A POSITIVE PRIORITY INDICATES A 008931,000044: # FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB. 008932,000045: # FOR EXAMPLE, 008933,000046: 008934,000047: # 5.7SPOT OCT 23000 008935,000048: # 2CADR SOMEJOB 008936,000049: 008937,000050: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23. 008938,000051: 008939,000052: # 5.5SPOT OCT -23000 008940,000053: # 2CADR ANYJOB 008941,000054: 008942,000055: # HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23. 008943,000056: # A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS 008944,000057: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED 008945,000058: # WITH. EXAMPLE, 008946,000059: 008947,000060: # 3.6SPOT GENADR DELTAT 008948,000061: # -GENADR LONGTASK 008949,000062: # BBCON LONGTASK 008950,000063: 008951,000064: # OCT 31000 008952,000065: # 2CADR JOBAGAIN 008953,000066: 008954,000067: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD 008955,000068: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATION SHOULD BE IN THE BBCON OF THE 2CADR OF THE 008956,000069: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31. 008957,000070: 008958,000071: # WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT 008959,000072: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE 008960,000073: # LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT 008961,000074: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH 008962,000075: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE 008963,000076: # TASK. EXAMPLES, 008964,000077: 008965,000078: # OCT 77777 # THIS WILL CAUSE AN IMMEDIATE RESTART 008966,000079: # -2CADR ATASK # OF THE TASK "ATASK" 008967,000080: 008968,000081: # DEC 200 # IF THE TIME OF THE 2 SECONDS SINCE DUMMY 008969,000082: # -2CADR DUMMY # WAS PUT ON THE WAITLIST IS UP, IT WILL BEGIN 008970,000083: # # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN 008971,000084: # # IT NORMALLY WOULD HAVE BEGUN. 008972,000085: # Page 212 008973,000086: # -GENADR DTIME # WHERE DTIME CONTAINS THE DELTA TIME 008974,000087: # -2CADR TASKTASK # OTHERWISE THIS IS AS ABOVE 008975,000088: 008976,000089: # ***** NOW THE TABLES THEMSELVES ***** 008977,000090: 008978,000091: 01,2000 BANK 01 008979,000092: 01,2000 SETLOC RESTART 008980,000093: 01,2000 BANK 008981,000094: 008982,000095: 01,2000 COUNT 01/RSTAB 008983,000096: 008984,000097: 01,2000 PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME 008985,000098: 01,2000 CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN 008986,000099: # RESTART 2CADR 008987,000100: 008988,000101: 01,2000 00063 SIZETAB TC 1.2SPOT -12006 008989,000102: 01,2001 00010 TC 1.3SPOT -12004 008990,000103: 01,2002 00063 TC 2.2SPOT -12006 008991,000104: 01,2003 00024 TC 2.3SPOT -12004 008992,000105: 01,2004 00063 TC 3.2SPOT -12006 008993,000106: 01,2005 00043 TC 3.3SPOT -12004 008994,000107: 01,2006 00063 TC 4.2SPOT -12006 008995,000108: 01,2007 00107 TC 4.3SPOT -12004 008996,000109: 01,2010 00242 TC 5.2SPOT -12006 008997,000110: 01,2011 00260 TC 5.3SPOT -12004 008998,000111: 01,2012 00336 TC 6.2SPOT -12006 008999,000112: 01,2013 00346 TC 6.3SPOT -12004 009000,000113: 01,2014 01,2071 1.2SPOT EQUALS 3.2SPOT 009001,000114: 009002,000115: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE. 009003,000116: 009004,000117: 01,2014 00170 1.3SPOT DEC 120 B-14 # THIS NUMBER MUST BE EQUAL C(JTAGTIME) 009005,000118: 01,2015 E6,1661 EBANK= AOG 009006,000119: 01,2015 74570 45711 -2CADR SETJTAG 009007,000120: 009008,000121: 01,2017 10000 1.5SPOT OCT 10000 009009,000122: 01,2020 E6,1466 EBANK= DAPDATR1 009010,000123: 01,2020 02405 34066 2CADR REDO40.9 009011,000124: 009012,000125: 01,2022 10000 1.7SPOT OCT 10000 009013,000126: 01,2023 E6,1413 EBANK= ESTROKER 009014,000127: 01,2023 02074 56066 2CADR RELINUS 009015,000128: 009016,000129: 01,2025 10000 1.11SPOT OCT 10000 009017,000130: 01,2026 E6,1413 EBANK= ESTROKER 009018,000131: 01,2026 02345 76066 2CADR PIKUP20 009019,000132: 009020,000133: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE. 009021,000134: 009022,000135: 01,2030 01,2071 2.2SPOT EQUALS 1.2SPOT 009023,000136: 009024,000137: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE 009025,000138: # Page 213 009026,000139: 009027,000140: 01,2030 02654 2.3SPOT GENADR 600SECS 009028,000141: 01,2031 75150 -GENADR STATEINT 009029,000142: 01,2032 E3,1554 EBANK= RRECTCSM 009030,000143: 01,2032 26063 BBCON STATEINT 009031,000144: 009032,000145: 01,2033 05000 2.5SPOT OCT 05000 009033,000146: 01,2034 E3,1554 EBANK= RRECTCSM 009034,000147: 01,2034 02636 26063 2CADR STATINT1 009035,000148: 009036,000149: 01,2036 10000 2.7SPOT OCT 10000 009037,000150: 01,2037 E7,1734 EBANK= MRKBUF2 009038,000151: 01,2037 02630 70067 2CADR R22 009039,000152: 009040,000153: 01,2041 14000 2.11SPOT OCT 14000 009041,000154: 01,2042 0002751 EBANK= LANDMARK 009042,000155: 01,2042 02576 62065 2CADR V94ENTER 009043,000156: 009044,000157: 01,2044 10000 2.13SPOT OCT 10000 009045,000158: 01,2045 E7,1734 EBANK= MRKBUF2 009046,000159: 01,2045 02377 56067 2CADR REDOR22 009047,000160: 009048,000161: # ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE. 009049,000162: 009050,000163: 01,2047 01,2071 3.2SPOT EQUALS 4.2SPOT 009051,000164: 009052,000165: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE 009053,000166: 009054,000167: 01,2047 20000 3.3SPOT OCT 20000 009055,000168: 01,2050 E7,1427 EBANK= TGO 009056,000169: 01,2050 02427 34067 2CADR S40.13 009057,000170: 009058,000171: 01,2052 00000 3.5SPOT DEC 0 B-14 009059,000172: 01,2053 00000 DEC 0 B-14 009060,000173: 01,2054 00000 DEC 0 B-14 009061,000174: 009062,000175: 01,2055 22000 3.7SPOT OCT 22000 009063,000176: 01,2056 E3,1706 EBANK= TEPHEM 009064,000177: 01,2056 02117 70063 2CADR MATRXJOB 009065,000178: 009066,000179: 01,2060 22000 3.11SPOT OCT 22000 009067,000180: 01,2061 E3,1706 EBANK= TEPHEM 009068,000181: 01,2061 02253 70063 2CADR REP11 009069,000182: 009070,000183: 01,2063 22000 3.13SPOT OCT 22000 009071,000184: 01,2064 E3,1706 EBANK= TEPHEM 009072,000185: 01,2064 02026 70063 2CADR REP11A 009073,000186: 009074,000187: 01,2066 76347 3.15SPOT -GENADR TGO +1 009075,000188: 01,2067 E7,1427 EBANK= TGO 009076,000189: 01,2067 75011 27710 -2CADR ENGINOFF 009077,000190: 009078,000191: # Page 214 009079,000192: # ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE 009080,000193: 009081,000194: 01,2071 77777 4.2SPOT OCT 77777 009082,000195: 01,2072 E7,1412 EBANK= TIG 009083,000196: 01,2072 75207 27710 -2CADR PRECHECK 009084,000197: 009085,000198: 01,2074 30000 OCT 30000 009086,000199: 01,2075 E7,1674 EBANK= DELVIMU 009087,000200: 01,2075 02534 50067 2CADR P47BODY 009088,000201: 009089,000202: 01,2077 77777 4.4SPOT OCT 77777 009090,000203: 01,2100 E7,1412 EBANK= TIG 009091,000204: 01,2100 75207 27710 -2CADR PRECHECK 009092,000205: 009093,000206: 01,2102 05664 DEC 2996 B-14 009094,000207: 01,2103 E6,1466 EBANK= DAPDATR1 009095,000208: 01,2103 75443 27711 -2CADR TTG/0 009096,000209: 009097,000210: 01,2105 77777 4.6SPOT OCT 77777 009098,000211: 01,2106 E7,1412 EBANK= TIG 009099,000212: 01,2106 75207 27710 -2CADR PRECHECK 009100,000213: 009101,000214: 01,2110 04700 DEC 2496 B-14 009102,000215: 01,2111 E7,1412 EBANK= TIG 009103,000216: 01,2111 75203 27710 -2CADR TIG-5 009104,000217: 009105,000218: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE 009106,000219: 009107,000220: 01,2113 00050 4.3SPOT DEC 40 B-14 009108,000221: 01,2114 E6,1423 EBANK= PACTOFF 009109,000222: 01,2114 75115 27711 -2CADR DOTVCON 009110,000223: 009111,000224: 01,2116 00240 4.5SPOT DEC 160 B-14 009112,000225: 01,2117 E6,1423 EBANK= PACTOFF 009113,000226: 01,2117 75064 27711 -2CADR DOSTRULL 009114,000227: 009115,000228: 01,2121 00764 4.7SPOT DEC 500 B-14 009116,000229: 01,2122 E6,1423 EBANK= PACTOFF 009117,000230: 01,2122 75165 27711 -2CADR TIG-0 009118,000231: 009119,000232: 01,2124 00372 4.11SPOT DEC 250 B-14 009120,000233: 01,2125 E6,1466 EBANK= DAPDATR1 009121,000234: 01,2125 74235 27711 -2CADR V97E40.6 009122,000235: 009123,000236: 01,2127 00310 4.13SPOT DEC 200 B-14 009124,000237: 01,2130 0003777 EBANK= WHOCARES 009125,000238: 01,2130 74270 27710 -2CADR R40ENABL 009126,000239: 009127,000240: 01,2132 16000 4.15SPOT OCT 16000 # PRELAUNCH OPTICAL VERIFICATION 009128,000241: 01,2133 0002757 EBANK= OGC 009129,000242: # Page 215 009130,000243: 01,2133 02000 66065 2CADR COMPVER # CALLS FOR OPTICS DATA AGAIN (STD LEADIN) 009131,000244: 009132,000245: 01,2135 16000 4.17SPOT OCT 16000 009133,000246: 01,2136 0002671 EBANK= XSM 009134,000247: 01,2136 03742 66065 2CADR AZMTHCG1 009135,000248: 009136,000249: 01,2140 01672 4.21SPOT GENADR P40TMP # DELTA TIME USED IN SETTING UP 009137,000250: 01,2141 75340 -GENADR TIGBLNK # LONG CALL OF TIGBLNK BY P40,P41 009138,000251: 01,2142 E7,1672 EBANK= P40TMP 009139,000252: 01,2142 50067 BBCON TIGBLNK 009140,000253: 009141,000254: 01,2143 12000 4.23SPOT OCT 12000 # PROTECT P40S/SV BY P40 P41 009142,000255: 01,2144 E7,1412 EBANK= TIG 009143,000256: 01,2144 02204 50067 2CADR P40S/SV 009144,000257: 009145,000258: 01,2146 24000 4.25SPOT OCT 24000 009146,000259: 01,2147 0302 EBANK= BESTI 009147,000260: 01,2147 02000 32060 2CADR PROG52 009148,000261: 009149,000262: 01,2151 00372 4.27SPOT DEC 250 B-14 009150,000263: 01,2152 E6,1423 EBANK= PACTOFF 009151,000264: 01,2152 74775 27711 -2CADR DOTVCRCS 009152,000265: 009153,000266: 01,2154 13000 4.31SPOT OCT 13000 009154,000267: 01,2155 0002765 EBANK= STAR 009155,000268: 01,2155 02533 30065 2CADR R51 +1 009156,000269: 009157,000270: 01,2157 04064 4.33SPOT DEC 2100 B-14 # PROTECT CONTINUING JOB TO START P63 009158,000271: 01,2160 E6,1661 EBANK= AOG 009159,000272: 01,2160 75403 23711 -2CADR WAKEP62 009160,000273: 009161,000274: 01,2162 12000 4.35SPOT OCT 12000 009162,000275: 01,2163 E6,1466 EBANK= DAPDATR1 009163,000276: 01,2163 02246 50066 2CADR POSTBURN 009164,000277: 009165,000278: 01,2165 00764 4.37SPOT DEC 500 B-14 009166,000279: 01,2166 E7,1412 EBANK= TIG 009167,000280: 01,2166 75222 27710 -2CADR TIGAVEG 009168,000281: 009169,000282: 01,2170 17000 4.41SPOT OCT 17000 # PROTECT DISPLAY JOB IN P67 009170,000283: 01,2171 E6,1661 EBANK= AOG 009171,000284: 01,2171 02512 54066 2CADR P67.1 009172,000285: 009173,000286: 01,2173 76003 4.43SPOT -GENADR S61DT # PROTECT TASK TO START PREREAD,ENTRY 009174,000287: 01,2174 E6,1774 EBANK= S61DT # S61.1C WILL CHANGE EBANK=EB7 FOR PREREAD 009175,000288: 01,2174 75212 23711 -2CADR S61.1C 009176,000289: 009177,000290: 01,2176 13000 4.45SPOT OCT 13000 # PROTECT CONTINUING JOB S61.1 009178,000291: 01,2177 E6,1661 EBANK= AOG # (ENTRY IMU ALIGNMENT) 009179,000292: # Page 216 009180,000293: 01,2177 02603 54066 2CADR S61.1A -1 009181,000294: 009182,000295: 01,2201 17000 4.47SPOT OCT 17000 # PROTECT HUNTEST ITERATION 009183,000296: 01,2202 E6,1661 EBANK= AOG 009184,000297: 01,2202 03014 52066 2CADR PRE-HUNT 009185,000298: 009186,000299: 01,2204 77777 4.51SPOT OCT 77777 # PROTECT FDAI ATTITUDE 009187,000300: 01,2205 E6,1704 EBANK= BODY3 # ERROR DISPLAY IN P11 009188,000301: 01,2205 75457 07711 -2CADR ATERTASK 009189,000302: 009190,000303: 01,2207 77777 4.53SPOT DEC -0 B-14 009191,000304: 01,2210 0003777 EBANK= END-E7 # EBANK7 FOR TIG 009192,000305: 01,2210 74254 27710 -2CADR V97ETASK 009193,000306: 009194,000307: 01,2212 13000 4.55SPOT OCT 13000 # PROTECT P65 RESPONSIVE DISPLAY. 009195,000308: 01,2213 E7,1451 EBANK= RTINIT 009196,000309: 01,2213 02457 54067 2CADR P65.1 009197,000310: 009198,000311: 01,2215 76105 4.57SPOT -GENADR P40TMP 009199,000312: 01,2216 E7,1672 EBANK= P40TMP 009200,000313: 01,2216 75277 27710 -2CADR TIGON 009201,000314: 009202,000315: 01,2220 77777 4.61SPOT OCT 77777 009203,000316: 01,2221 E6,1423 EBANK= PACTOFF 009204,000317: 01,2221 75152 27711 -2CADR IGNITION 009205,000318: 009206,000319: 01,2223 77777 4.63SPOT OCT 77777 009207,000320: 01,2224 E6,1423 EBANK= PACTOFF 009208,000321: 01,2224 75003 27711 -2CADR DOSPSOFF 009209,000322: 009210,000323: 01,2226 00012 4.65SPOT DEC 10 B-14 009211,000324: 01,2227 E7,1412 EBANK= TIG 009212,000325: 01,2227 75203 27710 -2CADR TIG-5 009213,000326: 009214,000327: 01,2231 77777 4.67SPOT DEC -0 B-14 009215,000328: 01,2232 E6,1474 EBANK= CSMMASS 009216,000329: 01,2232 74336 27711 -2CADR V97TTASK 009217,000330: 009218,000331: 01,2234 00372 4.71SPOT DEC 250 B-14 009219,000332: 01,2235 E6,1466 EBANK= DAPDATR1 # (FOR RCSDAPON) 009220,000333: 01,2235 74321 27711 -2CADR V97TRCS 009221,000334: 009222,000335: 01,2237 77777 4.73SPOT DEC -0 B-14 009223,000336: 01,2240 E6,1444 EBANK= V97VCNTR 009224,000337: 01,2240 74304 27711 -2CADR V97PTASK 009225,000338: 009226,000339: 01,2242 77777 4.75SPOT DEC -0 B-14 009227,000340: 01,2243 E6,1466 EBANK= DAPDATR1 009228,000341: 01,2243 74242 27711 -2CADR SPSOFF97 009229,000342: 009230,000343: # Page 217 009231,000344: 01,2245 77777 4.77SPOT DEC -0 B-14 009232,000345: 01,2246 E6,1423 EBANK= PACTOFF 009233,000346: 01,2246 75165 27711 -2CADR TIG-0 009234,000347: 009235,000348: # ANY MORE GROUP 4.ODD RESTART VALUES SHOULD GO HERE 009236,000349: 009237,000350: 01,2250 32000 5.2SPOT OCT 32000 009238,000351: 01,2251 E7,1431 EBANK= DVCNTR 009239,000352: 01,2251 03236 76067 2CADR NORMLIZE 009240,000353: 009241,000354: 01,2253 00310 DEC 200 B-14 009242,000355: 01,2254 E6,1661 EBANK= AOG 009243,000356: 01,2254 74472 01711 -2CADR REREADAC 009244,000357: 009245,000358: 01,2256 20000 5.4SPOT OCT 20000 009246,000359: 01,2257 E7,1431 EBANK= DVCNTR 009247,000360: 01,2257 03104 76067 2CADR SERVICER 009248,000361: 009249,000362: 01,2261 00310 DEC 200 B-14 009250,000363: 01,2262 E6,1661 EBANK= AOG 009251,000364: 01,2262 74472 01711 -2CADR REREADAC 009252,000365: 009253,000366: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE 009254,000367: 009255,000368: 01,2264 00310 5.3SPOT DEC 200 B-14 009256,000369: 01,2265 E6,1661 EBANK= AOG 009257,000370: 01,2265 74472 01711 -2CADR REREADAC 009258,000371: 009259,000372: 01,2267 77777 5.5SPOT OCT 77777 009260,000373: 01,2270 E6,1661 EBANK= AOG 009261,000374: 01,2270 75026 01711 -2CADR REDO5.5 009262,000375: 009263,000376: 01,2272 20000 5.7SPOT OCT 20000 # USED BY PRELAUNCH 009264,000377: 01,2273 0002671 EBANK= XSM 009265,000378: 01,2273 02456 66065 2CADR RSTGTS1 009266,000379: 009267,000380: 01,2275 77777 5.11SPOT OCT 77777 009268,000381: 01,2276 0002671 EBANK= XSM 009269,000382: 01,2276 75175 11712 -2CADR ALLOOP1 009270,000383: 009271,000384: 01,2300 20000 5.13SPOT OCT 20000 009272,000385: 01,2301 0002671 EBANK= XSM 009273,000386: 01,2301 02527 66065 2CADR WTLISTNT 009274,000387: 009275,000388: 01,2303 20000 5.15SPOT OCT 20000 009276,000389: 01,2304 0002671 EBANK= XSM 009277,000390: 01,2304 03324 66065 2CADR RESTEST1 009278,000391: 009279,000392: 01,2306 20000 5.17SPOT OCT 20000 009280,000393: 01,2307 0002671 EBANK= XSM 009281,000394: # Page 218 009282,000395: 01,2307 05217 04065 2CADR GEOSTRT4 009283,000396: 009284,000397: 01,2311 22000 5.21SPOT OCT 22000 009285,000398: 01,2312 0002671 EBANK= XSM 009286,000399: 01,2312 02636 66065 2CADR ALFLT1 009287,000400: 009288,000401: 01,2314 77777 5.23SPOT OCT 77777 009289,000402: 01,2315 0002671 EBANK= XSM 009290,000403: 01,2315 75152 11712 -2CADR SPECSTS 009291,000404: 009292,000405: 01,2317 20000 5.25SPOT OCT 20000 009293,000406: 01,2320 0002671 EBANK= XSM 009294,000407: 01,2320 03335 66065 2CADR RESTEST3 009295,000408: 009296,000409: 01,2322 20000 5.27SPOT OCT 20000 009297,000410: 01,2323 0002671 EBANK= XSM 009298,000411: 01,2323 03303 66065 2CADR RESTAIER 009299,000412: 009300,000413: 01,2325 00000 5.31SPOT DEC 0 B-14 009301,000414: 01,2326 00000 DEC 0 B-14 009302,000415: 01,2327 00000 DEC 0 B-14 009303,000416: 009304,000417: 01,2330 20000 5.33SPOT OCT 20000 009305,000418: 01,2331 0002671 EBANK= XSM 009306,000419: 01,2331 03360 66065 2CADR RESCHNG 009307,000420: 009308,000421: 01,2333 00000 5.35SPOT DEC 0 B-14 009309,000422: 01,2334 00000 00000 2DEC 0 B-28 009310,000423: 009311,000424: 01,2336 77777 5.37SPOT OCT 77777 009312,000425: 01,2337 E6,1661 EBANK= AOG 009313,000426: 01,2337 74744 01711 -2CADR CHEKAVEG 009314,000427: 009315,000428: 01,2341 77777 5.41SPOT OCT 77777 # TO PROTECT PREREAD AT TIG-30A 009316,000429: 01,2342 E7,1431 EBANK= DVCNTR # TIG-15 T+60 009317,000430: 01,2342 75076 01710 -2CADR PREREAD 009318,000431: 009319,000432: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE 009320,000433: 009321,000434: 01,2344 77777 6.2SPOT OCT 77777 # USED BY P40 AFTER GIMB DR TST TO REPOS'N 009322,000435: 01,2345 E6,1476 EBANK= AK # ENGINE UNTIL TVCDAPON 009323,000436: 01,2345 75536 37711 -2CADR PRE40.6 009324,000437: 009325,000438: 01,2347 00144 DEC 100 B-14 009326,000439: 01,2350 E7,1660 EBANK= TTOGO 009327,000440: 01,2350 74517 27710 -2CADR CLOKTASK 009328,000441: 009329,000442: # ANY MORE 6.ODD RESTART VALUES SHOULD GO HERE 009330,000443: # Page 219 009331,000444: 009332,000445: 01,2352 00144 6.3SPOT DEC 100 B-14 009333,000446: 01,2353 E7,1412 EBANK= TIG 009334,000447: 01,2353 74517 27710 -2CADR CLOKTASK 009335,000448: 009336,000449: 01,2355 30000 6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY 009337,000450: 01,2356 E3,1706 EBANK= TEPHEM # P27(UPDATE PROGRAM) 009338,000451: 01,2356 03573 56063 2CADR TIMEDIDR 009339,000452: 009340,000453: 01,2360 00000 6.7SPOT OCT 0 009341,000454: 01,2361 00000 OCT 0 009342,000455: 01,2362 00000 OCT 0 009343,000456: 009344,000457: 01,2363 76052 6.11SPOT -GENADR CM/GYMDT # PROTECT TASK TO READ CDUS. 009345,000458: 01,2364 E6,1725 EBANK= CM/GYMDT # FOR ENTRY DAP 009346,000459: 01,2364 75343 45711 -2CADR READGYMB 009347,000460: 009348,000461: 01,2366 00000 6.13SPOT DEC 0 B-14 009349,000462: 01,2367 00000 DEC 0 B-14 009350,000463: 01,2370 00000 DEC 0 B-14 009351,000464: 009352,000465: # Page 220 009353,000466: # PROGRAM DESCRIPTION: NEWPHASE DATE: 11 NOV 1966 009354,000467: # MOD: 1 ASSEMBLY: SUNBURST REV 009355,000468: # MOD BY: COPPS LOG SECTION: PHASE TABLE MAINTENANCE 009356,000469: 009357,000470: # FUNCTIONAL DESCRIPTION: 009358,000471: 009359,000472: # NEWPHASE IS THE QUICK WAY TO MAKE A NON VARIABLE PHASE CHANGE. IT INCLUDES THE OPTION OF SETTING 009360,000473: # TBASE OF THE GROUP. IF TBASE IS TO BE SET, -C(TIME1) IS STORED IN THE TBASE TABLE AS FOLLOWS: 009361,000474: 009362,000475: # (L-1) TBASE0 009363,000476: # (L) TBASE1 (IF GROUP=1) 009364,000477: # (L+1) 009365,000478: # (L+2) TBASE2 (IF GROUP=2) 009366,000479: # ----- 009367,000480: # (L+6) TBASE4 (IF GROUP=4) 009368,000481: # (L+7) 009369,000482: # (L+8) TBASE5 (IF GROUP=5) 009370,000483: 009371,000484: # IN ANY CASE, THE NEGATIVE OF THE PHASE, FOLLOWED (IN THE NEXT REGISTER) BY THE PHASE, IS STORED IN THE 009372,000485: # PHASE TABLE AS FOLLOWS: 009373,000486: 009374,000487: # (L) -PHASE1 (IF GROUP=1) 009375,000488: # (L+1) PHASE1 009376,000489: # (L+2) -PHASE2 (IF GROUP=2) 009377,000490: # (L+3) PHASE2 009378,000491: # ----- 009379,000492: # (L+7) PHASE4 009380,000493: # (L+8) -PHASE5 (IF GROUP=5) 009381,000494: # (L+9) PHASE5 009382,000495: 009383,000496: # CALLING SEQUENCE: 009384,000497: 009385,000498: # EXAMPLE IS FOR PLACING A PHASE OF FIVE INTO GROUP THREE: 009386,000499: 009387,000500: # 1) IF TBASE IS NOT TO BE SET: 009388,000501: # L-1 CA FIVE 009389,000502: # L TC NEWPHASE 009390,000503: # L+1 OCT 00003 009391,000504: 009392,000505: # 2) IF TBASE IS TO BE SET: 009393,000506: # L-1 CS FIVE 009394,000507: # L TC NEWPHASE 009395,000508: # L+1 OCT 00003 009396,000509: 009397,000510: # SUBROUTINES CALLED: NONE 009398,000511: 009399,000512: # NORMAL EXIT MODE: AT L+2 OF CALLING SEQUENCE 009400,000513: 009401,000514: # ALARM OR ABORT EXITS: NONE 009402,000515: 009403,000516: # OUTPUT: PHASE TABLE AND TBASE TABLE UPDATED 009404,000517: 009405,000518: # ERASABLE INITIALIZATION REQ'D: NONE 009406,000519: # Page 221 009407,000520: # DEBRIS: A,L,TEMPG 009408,000521: 009409,000522: # *** WARNING *** THIS PROGRAM IS TO BE PLACED IN FIXED-FIXED AND UNSWITCHED ERASABLE. 009410,000523: 009411,000524: 4114 BLOCK 02 009412,000525: 4000 SETLOC FFTAG1 009413,000526: 4000 BANK 009414,000527: 009415,000528: 4114 COUNT* $$/PHASE 009416,000529: 009417,000530: 4114 00004 NEWPHASE INHINT 009418,000531: 009419,000532: 4115 54001 TS L # SAVE FOR FURTHER USE 009420,000533: 009421,000534: 4116 50002 NDX Q # OBTAIN THE GROUP NUMBER 009422,000535: 4117 30000 CA 0 009423,000536: 4120 24002 INCR Q # OBTAIN THE RETURN ADDRESS 009424,000537: 4121 60000 DOUBLE # SAVE THE GROUP IN A FORM USED FOR 009425,000538: 4122 54061 TS TEMPG # INDEXING 009426,000539: 009427,000540: 4123 10001 CCS L # SEE IF WE ARE TO SET TBASE 009428,000541: 4124 14133 TCF +7 # NO, THE DELTA T WAS POSITIVE 009429,000542: 4125 14133 TCF +6 009430,000543: 009431,000544: 4126 24000 NUFAZ+10 INCR A # SET TBASE AND STORE PHASE CORRECTLY 009432,000545: 4127 54001 TS L 009433,000546: 009434,000547: 4130 40025 CS TIME1 # SET TBASE 009435,000548: 4131 50061 NDX TEMPG 009436,000549: 4132 55051 TS TBASE1 -2 009437,000550: 009438,000551: 4133 40001 CS L # NOW PUT THE PHASE IN THE RIGHT TABLE LOC 009439,000552: 4134 50061 NDX TEMPG 009440,000553: 4135 52751 DXCH -PHASE1 -2 009441,000554: 009442,000555: 4136 00003 RELINT 009443,000556: 4137 00002 TC Q # NOW RETURN TO CALLER 009444,000557: 009445,000558: End of include-file RESTART_TABLES.agc. Parent file is MAIN.agc