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