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