Source Code
008593,000001: # Copyright: Public domain.
008594,000002: # Filename: RESTART_TABLES.agc
008595,000003: # Purpose: Part of the source code for Colossus, build 249.
008596,000004: # It is part of the source code for the Command Module's (CM)
008597,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
008598,000006: # Assembler: yaYUL
008599,000007: # Reference: pp. 207-217 of 1701.pdf.
008600,000008: # Contact: Ron Burkey <info@sandroid.org>.
008601,000009: # Website: www.ibiblio.org/apollo.
008602,000010: # Mod history: 08/07/04 RSB. Adapted from similar Luminary 131 file.
008603,000011: # Oddly, the 2 pages of introductory comments
008604,000012: # aren't present in Luminary.
008605,000013:
008606,000014: # The contents of the "Colossus249" files, in general, are transcribed
008607,000015: # from a scanned document obtained from MIT's website,
008608,000016: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
008609,000017: # document read, in part:
008610,000018:
008611,000019: # Assemble revision 249 of AGC program Colossus by NASA
008612,000020: # 2021111-041. October 28, 1968.
008613,000021:
008614,000022: # This AGC program shall also be referred to as
008615,000023: # Colossus 1A
008616,000024:
008617,000025: # Prepared by
008618,000026: # Massachussets Institute of Technology
008619,000027: # 75 Cambridge Parkway
008620,000028: # Cambridge, Massachusetts
008621,000029: # under NASA contract NAS 9-4065.
008622,000030:
008623,000031: # Refer directly to the online document mentioned above for further information.
008624,000032: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
008625,000033:
008626,000034: # In some cases, where the source code for Luminary 131 overlaps that of
008627,000035: # Colossus 249, this code is instead copied from the corresponding Luminary 131
008628,000036: # source file, and then is proofed to incorporate any changes.
008629,000037:
008630,000038: # Page 207
008631,000039: # RESTART TABLES
008632,000040: # --------------
008633,000041:
008634,000042: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
008635,000043: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
008636,000044: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
008637,000045: # WAY THINGS ARE PUT IN TO THE TABLES.
008638,000046:
008639,000047: # A JOB HAS ITS PRIORITY STORED IN A PRDTTAB OF THE CORRECT PHASE SPOT -- A POSITIVE PRIORITY INDICATES A
008640,000048: # FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
008641,000049: # FOR EXAMPLE,
008642,000050:
008643,000051: # 5.7SPOT OCT 23000
008644,000052: # 2CADR SOMEJOB
008645,000053:
008646,000054: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
008647,000055:
008648,000056: # 5.5SPOT OCT -2300
008649,000057: # 2CADR ANYJOB
008650,000058:
008651,000059: # HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
008652,000060: # A LONGCALL HAS ITS GENADR OF ITS 2CDR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS
008653,000061: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
008654,000062: # WITH. EXAMPLE,
008655,000063:
008656,000064: # 3.6SPOT GENADR DELTAT
008657,000065: # -GENADR LONGTASK
008658,000066: # BBCON LONGTASK
008659,000067:
008660,000068: # OCT 31000
008661,000069: # 2CADR JOBAGAIN
008662,000070:
008663,000071: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
008664,000072: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATION SHOULDD BE IN THE BBCON OF THE 2CADR OF THE
008665,000073: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART O FTHIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
008666,000074:
008667,000075: # WAITLIST CALLS ARE IDENTIFIED BY THE FCT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
008668,000076: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
008669,000077: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH
008670,000078: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
008671,000079: # TASK. EXAMPLES,
008672,000080:
008673,000081: # OCT 77777 # THIS WILL CAUSE AN IMMEDIATE RESTART
008674,000082: # -2CADR ATASK # OF THE TASK "ATASK"
008675,000083: #
008676,000084: # DEC 200 # IF THE TIME OF THE 2 SECONDS SINCE DUMMY
008677,000085: # -2CADR DUMMY # WAS PUT ON THE WAITLIST IS UP, IT WILL BEGIN
008678,000086: # # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
008679,000087: # # IT NORMALLY WOULD HAVE BEGUN.
008680,000088: # Page 208
008681,000089: # -GENADR DTIME # WHERE DTIME CONTAINS THE DELTA TIME
008682,000090: # -2CADR TASKTASK # OTHERWISE THIS IS AS ABOVE
008683,000091:
008684,000092: # ***** NOW THE TABLES THEMSELVES *****
008685,000093:
008686,000094: 01,2000 BANK 01
008687,000095: 01,2000 SETLOC RESTART
008688,000096: 01,2000 BANK
008689,000097:
008690,000098: 01,2000 COUNT 01/RSTAB
008691,000099:
008692,000100: 01,2000 PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME
008693,000101: 01,2000 CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN
008694,000102: # RESTART 2CADR
008695,000103:
008696,000104: 01,2000 00063 SIZETAB TC 1.2SPOT -12006
008697,000105: 01,2001 00010 TC 1.3SPOT -12004
008698,000106: 01,2002 00063 TC 2.2SPOT -12006
008699,000107: 01,2003 00024 TC 2.3SPOT -12004
008700,000108: 01,2004 00063 TC 3.2SPOT -12006
008701,000109: 01,2005 00043 TC 3.3SPOT -12004
008702,000110: 01,2006 00063 TC 4.2SPOT -12006
008703,000111: 01,2007 00107 TC 4.3SPOT -12004
008704,000112: 01,2010 00242 TC 5.2SPOT -12006
008705,000113: 01,2011 00260 TC 5.3SPOT -12004
008706,000114: 01,2012 00336 TC 6.2SPOT -12006
008707,000115: 01,2013 00346 TC 6.3SPOT -12004
008708,000116: 01,2014 01,2071 1.2SPOT EQUALS 3.2SPOT
008709,000117:
008710,000118: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE.
008711,000119:
008712,000120: 01,2014 00170 1.3SPOT DEC 120 B-14 # THIS NUMBER MUST BE EQUAL C(JTAGTIME)
008713,000121: 01,2015 E6,1661 EBANK= AOG
008714,000122: 01,2015 74550 45711 -2CADR SETJTAG
008715,000123:
008716,000124: 01,2017 10000 1.5SPOT OCT 10000
008717,000125: 01,2020 E6,1466 EBANK= DAPDATR1
008718,000126: 01,2020 02362 34066 2CADR REDO40.9
008719,000127:
008720,000128: 01,2022 10000 1.7SPOT OCT 10000
008721,000129: 01,2023 E6,1412 EBANK= ESTROKER
008722,000130: 01,2023 02074 56066 2CADR RELINUS
008723,000131:
008724,000132: 01,2025 10000 1.11SPOT OCT 10000
008725,000133: 01,2026 E6,1412 EBANK= ESTROKER
008726,000134: 01,2026 02273 76066 2CADR PIKUP20
008727,000135:
008728,000136: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE.
008729,000137:
008730,000138: 01,2030 01,2071 2.2SPOT EQUALS 1.2SPOT
008731,000139:
008732,000140: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
008733,000141: # Page 209
008734,000142:
008735,000143: 01,2030 02605 2.3SPOT GENADR 600SECS
008736,000144: 01,2031 75216 -GENADR STATEINT
008737,000145: 01,2032 E3,1554 EBANK= RRECTCSM
008738,000146: 01,2032 26063 BBCON STATEINT
008739,000147:
008740,000148: 01,2033 05000 2.5SPOT OCT 05000
008741,000149: 01,2034 E3,1554 EBANK= RRECTCSM
008742,000150: 01,2034 02570 26063 2CADR STATINT1
008743,000151:
008744,000152: 01,2036 10000 2.7SPOT OCT 10000
008745,000153: 01,2037 E7,1734 EBANK= MRKBUF2
008746,000154: 01,2037 02512 70067 2CADR R22
008747,000155:
008748,000156: 01,2041 14000 2.11SPOT OCT 14000
008749,000157: 01,2042 E5,1751 EBANK= LANDMARK
008750,000158: 01,2042 02173 62065 2CADR V94ENTER
008751,000159:
008752,000160: 01,2044 10000 2.13SPOT OCT 10000
008753,000161: 01,2045 E7,1734 EBANK= MRKBUF2
008754,000162: 01,2045 02377 56067 2CADR REDOR22
008755,000163:
008756,000164: # ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
008757,000165:
008758,000166: 01,2047 01,2071 3.2SPOT EQUALS 4.2SPOT
008759,000167:
008760,000168: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
008761,000169:
008762,000170: 01,2047 20000 3.3SPOT OCT 20000
008763,000171: 01,2050 E7,1427 EBANK= TGO
008764,000172: 01,2050 02404 34067 2CADR S40.13
008765,000173:
008766,000174: 01,2052 00000 3.5SPOT DEC 0 B-14
008767,000175: 01,2053 00000 DEC 0 B-14
008768,000176: 01,2054 00000 DEC 0 B-14
008769,000177:
008770,000178: 01,2055 22000 3.7SPOT OCT 22000
008771,000179: 01,2056 E3,1706 EBANK= TEPHEM
008772,000180: 01,2056 02127 70063 2CADR MATRXJOB
008773,000181:
008774,000182: 01,2060 22000 3.11SPOT OCT 22000
008775,000183: 01,2061 E3,1706 EBANK= TEPHEM
008776,000184: 01,2061 02247 70063 2CADR REP11
008777,000185:
008778,000186: 01,2063 22000 3.13STOP OCT 22000
008779,000187: 01,2064 E3,1706 EBANK= TEPHEM
008780,000188: 01,2064 02026 70063 2CADR REP11A
008781,000189:
008782,000190: 01,2066 76347 3.15SPOT -GENADR TGO +1
008783,000191: 01,2067 E7,1427 EBANK= TGO
008784,000192: 01,2067 75071 27710 -2CADR ENGINOFF
008785,000193:
008786,000194: # Page 210
008787,000195: # ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
008788,000196:
008789,000197: 01,2071 77777 4.2SPOT OCT 77777
008790,000198: 01,2072 E7,1412 EBANK= TIG
008791,000199: 01,2072 75262 27710 -2CADR PRECHECK
008792,000200:
008793,000201: 01,2074 30000 OCT 30000
008794,000202: 01,2075 E7,1674 EBANK= DELVIMU
008795,000203: 01,2075 02461 50067 2CADR P47BODY
008796,000204:
008797,000205: 01,2077 77777 4.4SPOT OCT 77777
008798,000206: 01,2100 E7,1412 EBANK= TIG
008799,000207: 01,2100 75262 27710 -2CADR PRECHECK
008800,000208:
008801,000209: 01,2102 05664 DEC 2996 B-14
008802,000210: 01,2103 E6,1466 EBANK= DAPDATR1
008803,000211: 01,2103 75517 27711 -2CADR TTG/0
008804,000212:
008805,000213: 01,2105 77777 4.6SPOT OCT 77777
008806,000214: 01,2106 E7,1412 EBANK= TIG
008807,000215: 01,2106 75262 27710 -2CADR PRECHECK
008808,000216:
008809,000217: 01,2110 04700 DEC 2496 B-14
008810,000218: 01,2111 E7,1412 EBANK= TIG
008811,000219: 01,2111 75256 27710 -2CADR TIG-5
008812,000220:
008813,000221: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
008814,000222:
008815,000223: 01,2113 00050 4.3SPOT DEC 40 B-14
008816,000224: 01,2114 E6,1425 EBANK= PACTOFF
008817,000225: 01,2114 75170 27711 -2CADR DOTVCON
008818,000226:
008819,000227: 01,2116 00240 4.5SPOT DEC 160 B-14
008820,000228: 01,2117 E6,1425 EBANK= PACTOFF
008821,000229: 01,2117 75142 27711 -2CADR DOSTRULL
008822,000230:
008823,000231: 01,2121 00764 4.7SPOT DEC 500 B-14
008824,000232: 01,2122 E6,1425 EBANK= PACTOFF
008825,000233: 01,2122 75240 27711 -2CADR TIG-0
008826,000234:
008827,000235: 01,2124 00372 4.11SPOT DEC 250 B-14
008828,000236: 01,2125 E6,1466 EBANK= DAPDATR1
008829,000237: 01,2125 74317 27711 -2CADR V97E40.6
008830,000238:
008831,000239: 01,2127 00310 4.13SPOT DEC 200 B-14
008832,000240: 01,2130 E7,1777 EBANK= WHOCARES
008833,000241: 01,2130 74352 27710 -2CADR R40ENABL
008834,000242:
008835,000243: 01,2132 16000 4.15SPOT OCT 16000 # PRELAUNCH OPTICAL VERIFICATION
008836,000244: 01,2133 E5,1757 EBANK= OGC
008837,000245: # Page 211
008838,000246: 01,2133 02000 66065 2CADR COMPVER # CALLS FOR OPTICS DATA AGAIN (STD LEADIN)
008839,000247:
008840,000248: 01,2135 16000 4.17SPOT OCT 16000
008841,000249: 01,2136 E5,1671 EBANK= XSM
008842,000250: 01,2136 03736 66065 2CADR AZMTHCG1
008843,000251:
008844,000252: 01,2140 01672 4.21SPOT GENADR P40TMP # DELTA TIME USED IN SETTING UP
008845,000253: 01,2141 75413 -GENADR TIGBLNK # LONG CALL OF TIGBLNK BY P40,P41
008846,000254: 01,2142 E7,1672 EBANK= P40TMP
008847,000255: 01,2142 50067 BBCON TIGBLNK
008848,000256:
008849,000257: 01,2143 12000 4.23SPOT OCT 12000 # PROTECT P40S/SV BY P40 P41
008850,000258: 01,2144 E7,1412 EBANK= TIG
008851,000259: 01,2144 02113 50067 2CADR P40S/SV
008852,000260:
008853,000261: 01,2146 24000 4.25SPOT OCT 24000
008854,000262: 01,2147 0302 EBANK= BESTI
008855,000263: 01,2147 02000 32060 2CADR PROG52
008856,000264:
008857,000265: 01,2151 00372 4.27SPOT DEC 250 B-14
008858,000266: 01,2152 E6,1425 EBANK= PACTOFF
008859,000267: 01,2152 75055 27711 -2CADR DOTVCRCS
008860,000268:
008861,000269: 01,2154 13000 4.31SPOT OCT 13000
008862,000270: 01,2155 E5,1765 EBANK= STAR
008863,000271: 01,2155 02524 30065 2CADR R51 +1
008864,000272:
008865,000273: 01,2157 04064 4.33SPOT DEC 2100 B-14 # PROTECT CONTINUING JOB TO START P63
008866,000274: 01,2160 E6,1661 EBANK= AOG
008867,000275: 01,2160 75403 23711 -2CADR WAKEP62
008868,000276:
008869,000277: 01,2162 12000 4.35SPOT OCT 12000
008870,000278: 01,2163 E6,1466 EBANK= DAPDATR1
008871,000279: 01,2163 02155 50066 2CADR POSTBURN
008872,000280:
008873,000281: 01,2165 00764 4.37SPOT DEC 500 B-14
008874,000282: 01,2166 E7,1412 EBANK= TIG
008875,000283: 01,2166 75275 27710 -2CADR TIGAVEG
008876,000284:
008877,000285: 01,2170 17000 4.41SPOT OCT 17000 # PROTECT DISPLAY JOB IN P67
008878,000286: 01,2171 E6,1661 EBANK= AOG
008879,000287: 01,2171 02511 54066 2CADR P67.1
008880,000288:
008881,000289: 01,2173 76003 4.43SPOT -GENADR S61DT # PROTECT TASK TO START PREREAD,ENTRY
008882,000290: 01,2174 E6,1774 EBANK= S61DT # S61.1C WILL CHANGE EBANK=EB7 FOR PREREAD
008883,000291: 01,2174 75213 23711 -2CADR S61.1C
008884,000292:
008885,000293: 01,2176 13000 4.45SPOT OCT 13000 # PROTECT CONTINUING JOB S61.1
008886,000294: 01,2177 E6,1661 EBANK= AOG # (ENTRY IMU ALIGNMENT)
008887,000295: # Page 212
008888,000296: 01,2177 02602 54066 2CADR S61.1A -1
008889,000297:
008890,000298: 01,2201 17000 4.47SPOT OCT 17000 # PROTECT HUNTEST ITERATION
008891,000299: 01,2202 E6,1661 EBANK= AOG
008892,000300: 01,2202 03006 52066 2CADR PRE-HUNT
008893,000301:
008894,000302: 01,2204 77777 4.51SPOT OCT 77777 # PROTECT FDAI ATTITUDE
008895,000303: 01,2205 E6,1704 EBANK= BODY3 # ERROR DISPLAY IN P11
008896,000304: 01,2205 75463 07711 -2CADR ATERTASK
008897,000305:
008898,000306: 01,2207 77777 4.53SPOT DEC -0 B-14
008899,000307: 01,2210 E7,1777 EBANK= END-E7 # EBANK7 FOR TIG
008900,000308: 01,2210 74336 27710 -2CADR V97ETASK
008901,000309:
008902,000310: 01,2212 13000 4.55SPOT OCT 13000 # PROTECT P65 RESPONSIVE DISPLAY.
008903,000311: 01,2213 E7,1451 EBANK= RTINIT
008904,000312: 01,2213 02456 54067 2CADR P65.1
008905,000313:
008906,000314: 01,2215 76105 4.57SPOT -GENADR P40TMP
008907,000315: 01,2216 E7,1672 EBANK= P40TMP
008908,000316: 01,2216 75352 27710 -2CADR TIGON
008909,000317:
008910,000318: 01,2220 77777 4.61SPOT OCT 77777
008911,000319: 01,2221 E6,1425 EBANK= PACTOFF
008912,000320: 01,2221 75225 27711 -2CADR IGNITION
008913,000321:
008914,000322: 01,2223 77777 4.63SPOT OCT 77777
008915,000323: 01,2224 E6,1425 EBANK= PACTOFF
008916,000324: 01,2224 75063 27711 -2CADR DOSPSOFF
008917,000325:
008918,000326: 01,2226 00012 4.65SPOT DEC 10 B-14
008919,000327: 01,2227 E7,1412 EBANK= TIG
008920,000328: 01,2227 75256 27710 -2CADR TIG-5
008921,000329:
008922,000330: 01,2231 77777 4.67SPOT DEC -0 B-14
008923,000331: 01,2232 E6,1474 EBANK= CSMMASS
008924,000332: 01,2232 74420 27711 -2CADR V97TTASK
008925,000333:
008926,000334: 01,2234 00372 4.71SPOT DEC 250 B-14
008927,000335: 01,2235 E6,1466 EBANK= DAPDATR1 # (FOR RCSDAPON)
008928,000336: 01,2235 74403 27711 -2CADR V97TRCS
008929,000337:
008930,000338: 01,2237 77777 4.73SPOT DEC -0 B-14
008931,000339: 01,2240 E6,1444 EBANK= V97VCNTR
008932,000340: 01,2240 74366 27711 -2CADR V97PTASK
008933,000341:
008934,000342: 01,2242 77777 4.75SPOT DEC -0 B-14
008935,000343: 01,2243 E6,1466 EBANK= DAPDATR1
008936,000344: 01,2243 74324 27711 -2CADR SPSOFF97
008937,000345:
008938,000346: # Page 213
008939,000347: 01,2245 77777 4.77SPOT DEC -0 B-14
008940,000348: 01,2246 E6,1425 EBANK= PACTOFF
008941,000349: 01,2246 75240 27711 -2CADR TIG-0
008942,000350:
008943,000351: # ANY MORE GROUP 4.ODD RESTART VALUES SHOULD GO HERE
008944,000352:
008945,000353: 01,2250 32000 5.2SPOT OCT 32000
008946,000354: 01,2251 E7,1431 EBANK= DVCNTR
008947,000355: 01,2251 03141 76067 2CADR NORMLIZE
008948,000356:
008949,000357: 01,2253 00310 DEC 200 B-14
008950,000358: 01,2254 E6,1661 EBANK= AOG
008951,000359: 01,2254 74567 01711 -2CADR REREADAC
008952,000360:
008953,000361: 01,2256 20000 5.4SPOT OCT 20000
008954,000362: 01,2257 E7,1431 EBANK= DVCNTR
008955,000363: 01,2257 03007 76067 2CADR SERVICER
008956,000364:
008957,000365: 01,2261 00310 DEC 200 B-14
008958,000366: 01,2262 E6,1661 EBANK= AOG
008959,000367: 01,2262 74567 01711 -2CADR REREADAC
008960,000368:
008961,000369: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
008962,000370:
008963,000371: 01,2264 00310 5.3SPOT DEC 200 B-14
008964,000372: 01,2265 E6,1661 EBANK= AOG
008965,000373: 01,2265 74567 01711 -2CADR REREADAC
008966,000374:
008967,000375: 01,2267 77777 5.5SPOT OCT 77777
008968,000376: 01,2270 E6,1661 EBANK= AOG
008969,000377: 01,2270 75123 01711 -2CADR REDO5.5
008970,000378:
008971,000379: 01,2272 20000 5.7SPOT OCT 20000
008972,000380: 01,2273 E5,1671 EBANK= XSM
008973,000381: 01,2273 02456 66065 2CADR RSTGTS1
008974,000382:
008975,000383: 01,2275 77777 5.11SPOT OCT 77777
008976,000384: 01,2276 E5,1671 EBANK= XSM
008977,000385: 01,2276 75174 11712 -2CADR ALLOOP1
008978,000386:
008979,000387: 01,2300 20000 5.13SPOT OCT 20000
008980,000388: 01,2301 E5,1671 EBANK= XSM
008981,000389: 01,2301 02527 66065 2CADR WTLISTNT
008982,000390:
008983,000391: 01,2303 20000 5.15SPOT OCT 20000
008984,000392: 01,2304 E5,1671 EBANK= XSM
008985,000393: 01,2304 03317 66065 2CADR RESTEST1
008986,000394:
008987,000395: 01,2306 20000 5.17SPOT OCT 20000
008988,000396: 01,2307 E5,1671 EBANK= XSM
008989,000397: # Page 214
008990,000398: 01,2307 05112 04065 2CADR GEOSTRT4
008991,000399:
008992,000400: 01,2311 20000 5.21SPOT OCT 20000
008993,000401: 01,2312 E5,1671 EBANK= XSM
008994,000402: 01,2312 02637 66065 2CADR ALFLT1
008995,000403:
008996,000404: 01,2314 77777 5.23SPOT OCT 77777
008997,000405: 01,2315 E5,1671 EBANK= XSM
008998,000406: 01,2315 75151 11712 -2CADR SPECSTS
008999,000407:
009000,000408: 01,2317 20000 5.25SPOT OCT 20000
009001,000409: 01,2320 E5,1671 EBANK= XSM
009002,000410: 01,2320 03330 66065 2CADR RESTEST3
009003,000411:
009004,000412: 01,2322 20000 5.27SPOT OCT 20000
009005,000413: 01,2323 E5,1671 EBANK= XSM
009006,000414: 01,2323 03276 66065 2CADR RESTAIER
009007,000415:
009008,000416: 01,2325 77777 5.31SPOT OCT 77777
009009,000417: 01,2326 E7,1431 EBANK= DVCNTR
009010,000418: 01,2326 75167 01710 -2CADR REDO5.31
009011,000419:
009012,000420: 01,2330 20000 5.33SPOT OCT 20000
009013,000421: 01,2331 E5,1671 EBANK= XSM
009014,000422: 01,2331 03353 66065 2CADR RESCHNG
009015,000423:
009016,000424: 01,2333 00000 5.35SPOT DEC 0 B-14
009017,000425: 01,2334 00000 00000 2DEC 0 B-28
009018,000426:
009019,000427: 01,2336 77777 5.37SPOT OCT 77777
009020,000428: 01,2337 E6,1661 EBANK= AOG
009021,000429: 01,2337 75041 01711 -2CADR CHEKAVEG
009022,000430:
009023,000431: 01,2341 77777 5.41SPOT OCT 77777 # TO PROTECT PREREAD AT TIG-30A
009024,000432: 01,2342 E7,1431 EBANK= DVCNTR # TIG-15 T-60
009025,000433: 01,2342 75173 01710 -2CADR PREREAD
009026,000434:
009027,000435: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
009028,000436:
009029,000437: 01,2344 77777 6.2SPOT OCT 77777 # USED BY P40 AFTER GIMB DR TST TO REPOS'N
009030,000438: 01,2345 E6,1476 EBANK= AK
009031,000439: 01,2345 75737 37711 -2CADR PRE40.6
009032,000440:
009033,000441: 01,2347 00144 DEC 100 B-14
009034,000442: 01,2350 E7,1660 EBANK= TTOGO
009035,000443: 01,2350 74605 27710 -2CADR CLOKTASK
009036,000444:
009037,000445: # ANY MORE 6.ODD RESTART VALUES SHOULD GO HERE
009038,000446: # Page 215
009039,000447:
009040,000448: 01,2352 00144 6.3SPOT DEC 100 B-14
009041,000449: 01,2353 E7,1412 EBANK= TIG
009042,000450: 01,2353 74605 27710 -2CADR CLOKTASK
009043,000451:
009044,000452: 01,2355 30000 6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY
009045,000453: 01,2356 E3,1706 EBANK= TEPHEM # P27(UPDATE PROGRAM) VIA V70 OR V73
009046,000454: 01,2356 03564 56063 2CADR TIMEDIDR
009047,000455:
009048,000456: 01,2360 00000 6.7SPOT OCT 0
009049,000457: 01,2361 00000 OCT 0
009050,000458: 01,2362 00000 OCT 0
009051,000459:
009052,000460: 01,2363 76052 6.11SPOT -GENADR CM/GYMDT # PROTECT TASK TO READ CDUS.
009053,000461: 01,2364 E6,1725 EBANK= CM/GYMDT # FOR ENTRY DAP
009054,000462: 01,2364 75323 45711 -2CADR READGYMB
009055,000463:
009056,000464: 01,2366 00000 6.13SPOT DEC 0 B-14
009057,000465: 01,2367 00000 DEC 0 B-14
009058,000466: 01,2370 00000 DEC 0 B-14
009059,000467:
009060,000468: # Page 217
009061,000469: # PROGRAM DESCRIPTION: NEWPHASE DATE: 11 NOV 1966
009062,000470: # MOD: 1 ASSEMBLY: SUNBURST REV
009063,000471: # MOD BY: COPPS LOG SECTION: PHASE TABLE MAINTENANCE
009064,000472:
009065,000473: # FUNCTIONAL DESCRIPTION:
009066,000474:
009067,000475: # NEWPHASE IS THE QUICK WAY TO MAKE A NON VARIABLE PHASE CHANGE. IT INCLUDES THE OPTION OF SETTING
009068,000476: # TBASE OF THE GROUP. IF TBASE IS TO BE SET, -C(TIME1) IS STORED IN THE TBASE TABLE AS FOLLOWS:
009069,000477:
009070,000478: # (L-1) TBASE0
009071,000479: # (L) TBASE1 (IF GROUP=1)
009072,000480: # (L+1)
009073,000481: # (L+2) TBASE2 (IF GROUP=2)
009074,000482: # -----
009075,000483: # (L+6) TBASE4 (IF GROUP=4)
009076,000484: # (L+7)
009077,000485: # (L+8) TBASE5 (IF GROUP=5)
009078,000486:
009079,000487: # IN ANY CASE, THE NEGATIVE OF THE PHASE, FOLLOWED (IN THE NEXT REGISTER) BY THE PHASE, IS STORED IN THE
009080,000488: # PHASE TABLE AS FOLLOWS:
009081,000489:
009082,000490: # (L) -PHASE1 (IF GROUP=1)
009083,000491: # (L+1) PHASE1
009084,000492: # (L+2) -PHASE2 (IF GROUP=2)
009085,000493: # -----
009086,000494: # (L+7) PHASE4
009087,000495: # (L+8) -PHASE5 (IF GROUP=5)
009088,000496: # (L+9) PHASE5
009089,000497:
009090,000498: # CALLING SEQUENCE:
009091,000499:
009092,000500: # EXAMPLE IS FOR PLACING A PHASE OF FIVE INTO GROUP THREE:
009093,000501:
009094,000502: # 1) IF TBASE IS NOT TO BE SET:
009095,000503: # L-1 CA FIVE
009096,000504: # L TC NEWPHASE
009097,000505: # L+1 OCT 00003
009098,000506: # 3) IF TBASE IS TO BE SET:
009099,000507: # L-1 CS FIVE
009100,000508: # L TC NEWPHASE
009101,000509: # L+1 OCT 00003
009102,000510:
009103,000511: # SUBROUTINES CALLED: NONE
009104,000512:
009105,000513: # NORMAL EXIT MODE: AT L+2 OF CALLING SEQUENCE
009106,000514:
009107,000515: # ALARM OR ABORT EXITS: NONE
009108,000516:
009109,000517: # OUTPUT: PHASE TABLE AND TBASE TABLE UPDATED
009110,000518:
009111,000519: # ERASABLE INITIALIZATION RPQ,D: NONE
009112,000520: # Page 217
009113,000521: # DEBRIS: A,L,TEMPG
009114,000522:
009115,000523: # *** WARNING *** THIS PROGRAM IS TO BE PLACED IN FIXED-FIXED AND UNSWITCHED ERASABLE.
009116,000524:
009117,000525: 4114 BLOCK 02
009118,000526: 4000 SETLOC FFTAG1
009119,000527: 4000 BANK
009120,000528:
009121,000529: 4114 COUNT* $$/PHASE
009122,000530:
009123,000531: 4114 00004 NEWPHASE INHINT
009124,000532:
009125,000533: 4115 54001 TS L # SAVE FOR FURTHER USE
009126,000534:
009127,000535: 4116 50002 NDX Q # OBTAIN THE GROUP NUMBER
009128,000536: 4117 30000 CA 0
009129,000537: 4120 24002 INCR Q # OBTAIN THE RETURN ADDRESS
009130,000538: 4121 60000 DOUBLE # SAVE THE GROUP IN A FORM USED FOR
009131,000539: 4122 54061 TS TEMPG # INDEXING
009132,000540:
009133,000541: 4123 10001 CCS L # SEE IF WE ARE TO SET TBASE
009134,000542: 4124 14133 TCF +7 # NO, THE DELTA T WAS POSITIVE
009135,000543: 4125 14133 TCF +6
009136,000544:
009137,000545: 4126 24000 NUFAZ+10 INCR A # SET TBASE AND STORE PHASE CORRECTLY
009138,000546: 4127 54001 TS L
009139,000547:
009140,000548: 4130 40025 CS TIME1 # SET TBASE
009141,000549: 4131 50061 NDX TEMPG
009142,000550: 4132 55051 TS TBASE1 -2
009143,000551:
009144,000552: 4133 40001 CS L # NOW PUT THE PHASE IN THE RIGHT TABLE LOC
009145,000553: 4134 50061 NDX TEMPG
009146,000554: 4135 52751 DXCH -PHASE1 -2
009147,000555:
009148,000556: 4136 00003 RELINT
009149,000557: 4137 00002 TC Q # NOW RETURN TO CALLER
009150,000558:
End of include-file RESTART_TABLES.agc. Parent file is MAIN.agc