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