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