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