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,1968
Note 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