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