Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional 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:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

008878,000002:                                                                                                 #  Copyright:     Public domain.
008879,000003:                                                                                                 #  Filename:      RESTART_TABLES.agc
008880,000004:                                                                                                 #  Purpose:       Part of the source code for Colossus build 237.  
008881,000005:                                                                                                 #                 This is for the Command Module's (CM) Apollo Guidance
008882,000006:                                                                                                 #                 Computer (AGC), we believe for Apollo 8.
008883,000007:                                                                                                 #  Assembler:     yaYUL
008884,000008:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
008885,000009:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
008886,000010:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Colossus237/
008887,000011:                                                                                                 #  Mod history:   2011-01-12 JL   Adapted from corresponding Colossus 249 file.
008888,000012: 
008889,000013:                                                                                                 # # Page 204
008890,000014: 
008891,000015:                                                                                                 #  RESTART TABLES
008892,000016: 
008893,000017:                                                                                                 #  --------------
008894,000018: 
008895,000019:                                                                                                 #  THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP.  THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
008896,000020:                                                                                                 #  RESTART TABLES.  THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
008897,000021:                                                                                                 #  EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
008898,000022:                                                                                                 #  WAY THINGS ARE PUT INTO THE TABLES.
008899,000023:                                                                                                 #       A JOB HAS ITS PRIORITY STORED IN A PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
008900,000024:                                                                                                 #  FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC.  THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
008901,000025:                                                                                                 #  FOR EXAMPLE,
008902,000026: 
008903,000027:                                                                                                 #                                           5.7SPOT  OCT    23000
008904,000028:                                                                                                 #                                                    2CADR  SOMEJOB
008905,000029: 
008906,000030:                                                                                                 #  A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
008907,000031: 
008908,000032:                                                                                                 #  5.5SPOT  OCT    -23000
008909,000033:                                                                                                 #                                                    2CADR  ANYJOB
008910,000034: 
008911,000035:                                                                                                 #  HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
008912,000036:                                                                                                 #  A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY.  IN ITS PRDTTAB IS
008913,000037:                                                                                                 #  PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
008914,000038:                                                                                                 #  WITH.  EXAMPLE,
008915,000039: 
008916,000040:                                                                                                 #                                           3.6SPOT  GENADR DELTAT
008917,000041:                                                                                                 #                                                   -GENADR LONGTASK
008918,000042:                                                                                                 #                                                    BBCON  LONGTASK
008919,000043: 
008920,000044:                                                                                                 #                                                    OCT    31000
008921,000045:                                                                                                 #                                                    2CADR  JOBAGAIN
008922,000046: 
008923,000047:                                                                                                 #  THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
008924,000048:                                                                                                 #  BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATION SHOULD BE IN THE BBCON OFTHE 2CADR OF THE
008925,000049:                                                                                                 #  TASK.  FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
008926,000050: 
008927,000051:                                                                                                 #  WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY.  IF PRDTTAB OF THE PHASE SPOT
008928,000052:                                                                                                 #  IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
008929,000053:                                                                                                 #  LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY.  IT SHOULD BE NOTED AS ABOVE, THAT
008930,000054:                                                                                                 #  IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE.  WITH
008931,000055:                                                                                                 #  WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
008932,000056:                                                                                                 #  TASK.  EXAMPLES,
008933,000057: 
008934,000058:                                                                                                 #                                                    OCT    77777           THIS WILL CAUSE AN IMMEDIATE RESTART
008935,000059:                                                                                                 #                                                   -2CADR  ATASK           OF THE TASK 'ATASK'
008936,000060: 
008937,000061:                                                                                                 #                                                    DEC    200             IF THE TIME OF THE 2 SECONDS SINCE DUMMY
008938,000062:                                                                                                 #                                                   -2CADR  DUMMY           WAS PUT ON THE WAITLIST IS UP, IT WILL BEGIN
008939,000063:                                                                                                 #                                                                           IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
008940,000064:                                                                                                 #                                                                           IT NORMALLY WOULD HAVE BEGUN.
008941,000065:                                                                                                 # # Page 205
008942,000066:                                                                                                 #                                                   -GENADR DTIME           WHERE DTIME CONTAINS THE DELTA TIME
008943,000067:                                                                                                 #                                                   -2CADR  TASKTASK        OTHERWISE THIS IS AS ABOVE
008944,000068: 
008945,000069:                                                                                                 #  *****    NOW THE TABLES THEMSELVES *****
008946,000070: 
008947,000071: 01,2000                                          BANK     01                                    
008948,000072: 01,2000                                          SETLOC   RESTART                               
008949,000073: 01,2000                                          BANK                                           
008950,000074: 
008951,000075: 01,2000                                          COUNT    01/RSTAB                              
008952,000076: 
008953,000077: 01,2000                        PRDTTAB           EQUALS   12000                                 #  USED TO FIND THE PRIORITY OR DELTATIME
008954,000078: 01,2000                        CADRTAB           EQUALS   12001                                 #  THIS AND THE NEXT RELATIVE LOC CONTAIN
008955,000079:                                                                                                 #  RESTART 2CADR
008956,000080: 
008957,000081: 01,2000           00063        SIZETAB           TC       1.2SPOT    -12006                     
008958,000082: 01,2001           00010                          TC       1.3SPOT    -12004                     
008959,000083: 01,2002           00063                          TC       2.2SPOT    -12006                     
008960,000084: 01,2003           00024                          TC       2.3SPOT    -12004                     
008961,000085: 01,2004           00063                          TC       3.2SPOT    -12006                     
008962,000086: 01,2005           00043                          TC       3.3SPOT    -12004                     
008963,000087: 01,2006           00063                          TC       4.2SPOT    -12006                     
008964,000088: 01,2007           00107                          TC       4.3SPOT    -12004                     
008965,000089: 01,2010           00242                          TC       5.2SPOT    -12006                     
008966,000090: 01,2011           00260                          TC       5.3SPOT    -12004                     
008967,000091: 01,2012           00336                          TC       6.2SPOT    -12006                     
008968,000092: 01,2013           00346                          TC       6.3SPOT    -12004                     
008969,000093: 01,2014  01,2071               1.2SPOT           EQUALS   3.2SPOT                               
008970,000094:                                                                                                 #  ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
008971,000095: 
008972,000096: 01,2014           00170        1.3SPOT           DEC      120        B-14                       #  THIS NUMBER MUST BE EQUAL C(JTAGTIME)
008973,000097: 01,2015  E6,1661                                 EBANK=   AOG                                   
008974,000098: 01,2015           74555 45711                    -2CADR   SETJTAG                               
008975,000099: 01,2017           10000        1.5SPOT           OCT      10000                                 
008976,000100: 01,2020  E6,1466                                 EBANK=   DAPDATR1                              
008977,000101: 01,2020           02362 34066                    2CADR    REDO40.9                              
008978,000102: 01,2022           10000        1.7SPOT           OCT      10000                                 
008979,000103: 01,2023  E6,1412                                 EBANK=   ESTROKER                              
008980,000104: 01,2023           02074 56066                    2CADR    RELINUS                               
008981,000105: 01,2025           10000        1.11SPOT          OCT      10000                                 
008982,000106: 01,2026  E6,1412                                 EBANK=   ESTROKER                              
008983,000107: 01,2026           02273 76066                    2CADR    PIKUP20                               
008984,000108:                                                                                                 #  ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
008985,000109: 
008986,000110: 01,2030  01,2071               2.2SPOT           EQUALS   1.2SPOT                               
008987,000111:                                                                                                 #  ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
008988,000112:                                                                                                 # # Page 206
008989,000113: 
008990,000114: 01,2030           02605        2.3SPOT           GENADR   600SECS                               
008991,000115: 01,2031           75216                          -GENADR  STATEINT                              
008992,000116: 01,2032  E3,1554                                 EBANK=   RRECTCSM                              
008993,000117: 01,2032           26063                          BBCON    STATEINT                              
008994,000118: 
008995,000119: 01,2033           05000        2.5SPOT           OCT      05000                                 
008996,000120: 01,2034  E3,1554                                 EBANK=   RRECTCSM                              
008997,000121: 01,2034           02570 26063                    2CADR    STATINT1                              
008998,000122: 01,2036           10000        2.7SPOT           OCT      10000                                 
008999,000123: 01,2037  E7,1734                                 EBANK=   MRKBUF2                               
009000,000124: 01,2037           02512 70067                    2CADR    R22                                   
009001,000125: 01,2041           14000        2.11SPOT          OCT      14000                                 
009002,000126: 01,2042  0002751                                 EBANK=   LANDMARK                              
009003,000127: 01,2042           02173 62065                    2CADR    V94ENTER                              
009004,000128: 01,2044           10000        2.13SPOT          OCT      10000                                 
009005,000129: 01,2045  E7,1734                                 EBANK=   MRKBUF2                               
009006,000130: 01,2045           02377 56067                    2CADR    REDOR22                               
009007,000131:                                                                                                 #  ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE
009008,000132: 
009009,000133: 01,2047  01,2071               3.2SPOT           EQUALS   4.2SPOT                               
009010,000134: 
009011,000135:                                                                                                 #  ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
009012,000136: 
009013,000137: 01,2047           20000        3.3SPOT           OCT      20000                                 
009014,000138: 01,2050  E7,1427                                 EBANK=   TGO                                   
009015,000139: 01,2050           02404 34067                    2CADR    S40.13                                
009016,000140: 01,2052           00000        3.5SPOT           DEC      0          B-14                       
009017,000141: 01,2053           00000                          DEC      0          B-14                       
009018,000142: 01,2054           00000                          DEC      0          B-14                       
009019,000143: 01,2055           22000        3.7SPOT           OCT      22000                                 
009020,000144: 01,2056  E3,1706                                 EBANK=   TEPHEM                                
009021,000145: 01,2056           02127 70063                    2CADR    MATRXJOB                              
009022,000146: 01,2060           22000        3.11SPOT          OCT      22000                                 
009023,000147: 01,2061  E3,1706                                 EBANK=   TEPHEM                                
009024,000148: 01,2061           02247 70063                    2CADR    REP11                                 
009025,000149: 01,2063           22000        3.13SPOT          OCT      22000                                 
009026,000150: 01,2064  E3,1706                                 EBANK=   TEPHEM                                
009027,000151: 01,2064           02026 70063                    2CADR    REP11A                                
009028,000152: 01,2066           76347        3.15SPOT          -GENADR  TGO        +1                         
009029,000153: 01,2067  E7,1427                                 EBANK=   TGO                                   
009030,000154: 01,2067           75067 27710                    -2CADR   ENGINOFF                              
009031,000155:                                                                                                 # # Page 207
009032,000156:                                                                                                 #  ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
009033,000157: 
009034,000158: 01,2071           77777        4.2SPOT           OCT      77777                                 
009035,000159: 01,2072  E7,1412                                 EBANK=   TIG                                   
009036,000160: 01,2072           75260 27710                    -2CADR   PRECHECK                              
009037,000161: 01,2074           30000                          OCT      30000                                 
009038,000162: 01,2075  E7,1674                                 EBANK=   DELVIMU                               
009039,000163: 01,2075           02463 50067                    2CADR    P47BODY                               
009040,000164: 01,2077           77777        4.4SPOT           OCT      77777                                 
009041,000165: 01,2100  E7,1412                                 EBANK=   TIG                                   
009042,000166: 01,2100           75260 27710                    -2CADR   PRECHECK                              
009043,000167: 01,2102           05664                          DEC      2996       B-14                       
009044,000168: 01,2103  E6,1466                                 EBANK=   DAPDATR1                              
009045,000169: 01,2103           75517 27711                    -2CADR   TTG/0                                 
009046,000170: 01,2105           77777        4.6SPOT           OCT      77777                                 
009047,000171: 01,2106  E7,1412                                 EBANK=   TIG                                   
009048,000172: 01,2106           75260 27710                    -2CADR   PRECHECK                              
009049,000173: 01,2110           04700                          DEC      2496       B-14                       
009050,000174: 01,2111  E7,1412                                 EBANK=   TIG                                   
009051,000175: 01,2111           75254 27710                    -2CADR   TIG-5                                 
009052,000176:                                                                                                 #  ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
009053,000177: 
009054,000178: 01,2113           00050        4.3SPOT           DEC      40         B-14                       
009055,000179: 01,2114  E6,1425                                 EBANK=   PACTOFF                               
009056,000180: 01,2114           75166 27711                    -2CADR   DOTVCON                               
009057,000181: 01,2116           00240        4.5SPOT           DEC      160        B-14                       
009058,000182: 01,2117  E6,1425                                 EBANK=   PACTOFF                               
009059,000183: 01,2117           75140 27711                    -2CADR   DOSTRULL                              
009060,000184: 01,2121           00764        4.7SPOT           DEC      500        B-14                       
009061,000185: 01,2122  E6,1425                                 EBANK=   PACTOFF                               
009062,000186: 01,2122           75236 27711                    -2CADR   TIG-0                                 
009063,000187: 01,2124           00372        4.11SPOT          DEC      250        B-14                       
009064,000188: 01,2125  E6,1466                                 EBANK=   DAPDATR1                              
009065,000189: 01,2125           74315 27711                    -2CADR   V97E40.6                              
009066,000190: 01,2127           00310        4.13SPOT          DEC      200        B-14                       
009067,000191: 01,2130  0003777                                 EBANK=   WHOCARES                              
009068,000192: 01,2130           74350 27710                    -2CADR   R40ENABL                              
009069,000193: 01,2132           16000        4.15SPOT          OCT      16000                                 #  PRELAUNCH OPTICAL VERIFICATION
009070,000194: 01,2133  0002757                                 EBANK=   OGC                                   
009071,000195:                                                                                                 # # Page 208
009072,000196: 01,2133           02000 66065                    2CADR    COMPVER                               #  CALLS FOR OPTICS DATA AGAIN (STD LEADIN)
009073,000197: 01,2135           16000        4.17SPOT          OCT      16000                                 
009074,000198: 01,2136  0002671                                 EBANK=   XSM                                   
009075,000199: 01,2136           03737 66065                    2CADR    AZMTHCG1                              
009076,000200: 01,2140           01672        4.21SPOT          GENADR   P40TMP                                #  DELTA TIME USED IN SETTING UP
009077,000201: 01,2141           75411                          -GENADR  TIGBLNK                               #  LONG CALL OF TIGBLNK  BY P40,P41
009078,000202: 01,2142  E7,1672                                 EBANK=   P40TMP                                
009079,000203: 01,2142           50067                          BBCON    TIGBLNK                               
009080,000204: 01,2143           12000        4.23SPOT          OCT      12000                                 #  PROTECT P40S/SV BY P40 P41
009081,000205: 01,2144  E7,1412                                 EBANK=   TIG                                   
009082,000206: 01,2144           02113 50067                    2CADR    P40S/SV                               
009083,000207: 
009084,000208: 01,2146           24000        4.25SPOT          OCT      24000                                 
009085,000209: 01,2147     0302                                 EBANK=   BESTI                                 
009086,000210: 01,2147           02000 32060                    2CADR    PROG52                                
009087,000211: 
009088,000212: 01,2151           00372        4.27SPOT          DEC      250        B-14                       
009089,000213: 01,2152  E6,1425                                 EBANK=   PACTOFF                               
009090,000214: 01,2152           75053 27711                    -2CADR   DOTVCRCS                              
009091,000215: 01,2154           13000        4.31SPOT          OCT      13000                                 
009092,000216: 01,2155  0002765                                 EBANK=   STAR                                  
009093,000217: 01,2155           02523 30065                    2CADR    R51                                   
009094,000218: 01,2157           04064        4.33SPOT          DEC      2100       B-14                       #  PROTECT CONTINUING JOB TO START P63
009095,000219: 01,2160  E6,1661                                 EBANK=   AOG                                   
009096,000220: 01,2160           75403 23711                    -2CADR   WAKEP62                               
009097,000221: 01,2162           12000        4.35SPOT          OCT      12000                                 
009098,000222: 01,2163  E6,1466                                 EBANK=   DAPDATR1                              
009099,000223: 01,2163           02155 50066                    2CADR    POSTBURN                              
009100,000224: 01,2165           00764        4.37SPOT          DEC      500        B-14                       
009101,000225: 01,2166  E7,1412                                 EBANK=   TIG                                   
009102,000226: 01,2166           75273 27710                    -2CADR   TIGAVEG                               
009103,000227: 01,2170           17000        4.41SPOT          OCT      17000                                 #  PROTECT DISPLAY JOB IN P67
009104,000228: 01,2171  E6,1661                                 EBANK=   AOG                                   
009105,000229: 01,2171           02511 54066                    2CADR    P67.1                                 
009106,000230: 01,2173           76003        4.43SPOT          -GENADR  S61DT                                 #  PROTECT TASK TO START PREREAD,ENTRY
009107,000231: 01,2174  E6,1774                                 EBANK=   S61DT                                 #  S61.1C WILL CHANGE EBANK=EB7 FOR PREREAD
009108,000232: 01,2174           75213 23711                    -2CADR   S61.1C                                
009109,000233: 01,2176           13000        4.45SPOT          OCT      13000                                 #  PROTECT CONTINUING JOB S61.1
009110,000234: 01,2177  E6,1661                                 EBANK=   AOG                                   #  (ENTRY IMU ALIGNMENT)
009111,000235:                                                                                                 # # Page 209
009112,000236: 01,2177           02602 54066                    2CADR    S61.1A     -1                         
009113,000237: 01,2201           17000        4.47SPOT          OCT      17000                                 #  PROTECT HUNTEST ITERATION.
009114,000238: 01,2202  E6,1661                                 EBANK=   AOG                                   
009115,000239: 01,2202           03006 52066                    2CADR    PRE-HUNT                              
009116,000240: 01,2204           77777        4.51SPOT          OCT      77777                                 #  PROTECT FDAI ATTITUDE
009117,000241: 01,2205  E6,1704                                 EBANK=   BODY3                                 #  ERROR DISPLAY IN P11
009118,000242: 01,2205           75463 07711                    -2CADR   ATERTASK                              
009119,000243: 01,2207           77777        4.53SPOT          DEC      -0         B-14                       
009120,000244: 01,2210  0003777                                 EBANK=   END-E7                                #  EBANK7 FOR TIG
009121,000245: 01,2210           74334 27710                    -2CADR   V97ETASK                              
009122,000246: 01,2212           13000        4.55SPOT          OCT      13000                                 #  PROTECT  P65 RESPONSIVE DISPLAY.
009123,000247: 01,2213  E7,1451                                 EBANK=   RTINIT                                
009124,000248: 01,2213           02456 54067                    2CADR    P65.1                                 
009125,000249: 01,2215           76105        4.57SPOT          -GENADR  P40TMP                                
009126,000250: 01,2216  E7,1672                                 EBANK=   P40TMP                                
009127,000251: 01,2216           75350 27710                    -2CADR   TIGON                                 
009128,000252: 01,2220           77777        4.61SPOT          OCT      77777                                 
009129,000253: 01,2221  E6,1425                                 EBANK=   PACTOFF                               
009130,000254: 01,2221           75223 27711                    -2CADR   IGNITION                              
009131,000255: 01,2223           77777        4.63SPOT          OCT      77777                                 
009132,000256: 01,2224  E6,1425                                 EBANK=   PACTOFF                               
009133,000257: 01,2224           75061 27711                    -2CADR   DOSPSOFF                              
009134,000258: 01,2226           00012        4.65SPOT          DEC      10         B-14                       
009135,000259: 01,2227  E7,1412                                 EBANK=   TIG                                   
009136,000260: 01,2227           75254 27710                    -2CADR   TIG-5                                 
009137,000261: 01,2231           77777        4.67SPOT          DEC      -0         B-14                       
009138,000262: 01,2232  E6,1474                                 EBANK=   CSMMASS                               
009139,000263: 01,2232           74416 27711                    -2CADR   V97TTASK                              
009140,000264: 01,2234           00372        4.71SPOT          DEC      250        B-14                       
009141,000265: 01,2235  E6,1466                                 EBANK=   DAPDATR1                              #  (FOR RCSDAPON)
009142,000266: 01,2235           74401 27711                    -2CADR   V97TRCS                               
009143,000267: 01,2237           77777        4.73SPOT          DEC      -0         B-14                       
009144,000268: 01,2240  E6,1444                                 EBANK=   V97VCNTR                              
009145,000269: 01,2240           74364 27711                    -2CADR   V97PTASK                              
009146,000270: 01,2242           77777        4.75SPOT          DEC      -0         B-14                       
009147,000271: 01,2243  E6,1466                                 EBANK=   DAPDATR1                              
009148,000272: 01,2243           74322 27711                    -2CADR   SPSOFF97                              
009149,000273:                                                                                                 # # Page 210
009150,000274: 01,2245           77777        4.77SPOT          DEC      -0         B-14                       
009151,000275: 01,2246  E6,1425                                 EBANK=   PACTOFF                               
009152,000276: 01,2246           75236 27711                    -2CADR   TIG-0                                 
009153,000277:                                                                                                 #  ANY MORE GROUP 4.ODD RESTART VALUES SHOULD GO HERE
009154,000278: 
009155,000279: 01,2250           32000        5.2SPOT           OCT      32000                                 
009156,000280: 01,2251  E7,1431                                 EBANK=   DVCNTR                                
009157,000281: 01,2251           03145 76067                    2CADR    NORMLIZE                              
009158,000282: 01,2253           00310                          DEC      200        B-14                       
009159,000283: 01,2254  E6,1661                                 EBANK=   AOG                                   
009160,000284: 01,2254           74563 01711                    -2CADR   REREADAC                              
009161,000285: 01,2256           20000        5.4SPOT           OCT      20000                                 
009162,000286: 01,2257  E7,1431                                 EBANK=   DVCNTR                                
009163,000287: 01,2257           03013 76067                    2CADR    SERVICER                              
009164,000288: 01,2261           00310                          DEC      200        B-14                       
009165,000289: 01,2262  E6,1661                                 EBANK=   AOG                                   
009166,000290: 01,2262           74563 01711                    -2CADR   REREADAC                              
009167,000291:                                                                                                 #  ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
009168,000292: 
009169,000293: 01,2264           00310        5.3SPOT           DEC      200        B-14                       
009170,000294: 01,2265  E6,1661                                 EBANK=   AOG                                   
009171,000295: 01,2265           74563 01711                    -2CADR   REREADAC                              
009172,000296: 01,2267           77777        5.5SPOT           OCT      77777                                 
009173,000297: 01,2270  E6,1661                                 EBANK=   AOG                                   
009174,000298: 01,2270           75117 01711                    -2CADR   REDO5.5                               
009175,000299: 01,2272           20000        5.7SPOT           OCT      20000                                 #  USED BY PRELAUNCH
009176,000300: 01,2273  0002671                                 EBANK=   XSM                                   
009177,000301: 01,2273           02456 66065                    2CADR    RSTGTS1                               
009178,000302: 01,2275           77777        5.11SPOT          OCT      77777                                 
009179,000303: 01,2276  0002671                                 EBANK=   XSM                                   
009180,000304: 01,2276           75174 11712                    -2CADR   ALLOOP1                               
009181,000305: 01,2300           20000        5.13SPOT          OCT      20000                                 
009182,000306: 01,2301  0002671                                 EBANK=   XSM                                   
009183,000307: 01,2301           02527 66065                    2CADR    WTLISTNT                              
009184,000308: 01,2303           20000        5.15SPOT          OCT      20000                                 
009185,000309: 01,2304  0002671                                 EBANK=   XSM                                   
009186,000310: 01,2304           03320 66065                    2CADR    RESTEST1                              
009187,000311: 01,2306           20000        5.17SPOT          OCT      20000                                 
009188,000312: 01,2307  0002671                                 EBANK=   XSM                                   
009189,000313:                                                                                                 # # Page 211
009190,000314: 01,2307           05112 04065                    2CADR    GEOSTRT4                              
009191,000315: 01,2311           20000        5.21SPOT          OCT      20000                                 
009192,000316: 01,2312  0002671                                 EBANK=   XSM                                   
009193,000317: 01,2312           02640 66065                    2CADR    ALFLT1                                
009194,000318: 01,2314           77777        5.23SPOT          OCT      77777                                 
009195,000319: 01,2315  0002671                                 EBANK=   XSM                                   
009196,000320: 01,2315           75154 11712                    -2CADR   SPECSTS                               
009197,000321: 01,2317           20000        5.25SPOT          OCT      20000                                 
009198,000322: 01,2320  0002671                                 EBANK=   XSM                                   
009199,000323: 01,2320           03331 66065                    2CADR    RESTEST3                              
009200,000324: 01,2322           20000        5.27SPOT          OCT      20000                                 
009201,000325: 01,2323  0002671                                 EBANK=   XSM                                   
009202,000326: 01,2323           03277 66065                    2CADR    RESTAIER                              
009203,000327: 01,2325           77777        5.31SPOT          OCT      77777                                 
009204,000328: 01,2326  E7,1431                                 EBANK=   DVCNTR                                
009205,000329: 01,2326           75163 01710                    -2CADR   REDO5.31                              
009206,000330: 01,2330           20000        5.33SPOT          OCT      20000                                 
009207,000331: 01,2331  0002671                                 EBANK=   XSM                                   
009208,000332: 01,2331           03354 66065                    2CADR    RESCHNG                               
009209,000333: 01,2333           00000        5.35SPOT          DEC      0          B-14                       
009210,000334: 01,2334           00000 00000                    2DEC     0          B-28                       
009211,000335: 01,2336           77777        5.37SPOT          OCT      77777                                 
009212,000336: 01,2337  E6,1661                                 EBANK=   AOG                                   
009213,000337: 01,2337           75035 01711                    -2CADR   CHEKAVEG                              
009214,000338: 01,2341           77777        5.41SPOT          OCT      77777                                 #  TO PROTECT PREREAD AT TIG-30A
009215,000339: 01,2342  E7,1431                                 EBANK=   DVCNTR                                #     TIG-15 T+60
009216,000340: 01,2342           75173 01710                    -2CADR   PREREAD                               
009217,000341:                                                                                                 #  ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
009218,000342: 
009219,000343: 01,2344           77777        6.2SPOT           OCT      77777                                 #  USED BY P40 AFTER GIMB DR TST TO REPOS'N
009220,000344: 01,2345  E6,1476                                 EBANK=   AK                                    #  ENGINE UNTIL TVCDAPON
009221,000345: 01,2345           75737 37711                    -2CADR   PRE40.6                               
009222,000346: 
009223,000347: 01,2347           00144                          DEC      100        B-14                       
009224,000348: 01,2350  E7,1660                                 EBANK=   TTOGO                                 
009225,000349: 01,2350           74603 27710                    -2CADR   CLOKTASK                              
009226,000350: 
009227,000351:                                                                                                 #  ANY MORE 6.ODD RESTART VALUES SHOULD GO HERE
009228,000352: 
009229,000353:                                                                                                 # # Page 212
009230,000354: 
009231,000355: 01,2352           00144        6.3SPOT           DEC      100        B-14                       
009232,000356: 01,2353  E7,1412                                 EBANK=   TIG                                   
009233,000357: 01,2353           74603 27710                    -2CADR   CLOKTASK                              
009234,000358: 01,2355           30000        6.5SPOT           OCT      30000                                 #  PROTECT INCREMENTING OF TIME2,TIME1 BY
009235,000359: 01,2356  E3,1706                                 EBANK=   TEPHEM                                #  P27NUPDATE PROGRAM)
009236,000360: 01,2356           03535 56063                    2CADR    TIMEDIDR                              
009237,000361: 01,2360           00000        6.7SPOT           OCT      0                                     
009238,000362: 01,2361           00000                          OCT      0                                     
009239,000363: 01,2362           00000                          OCT      0                                     
009240,000364: 
009241,000365: 01,2363           76052        6.11SPOT          -GENADR  CM/GYMDT                              #  PROTECT TASK TO READ CDUS.
009242,000366: 01,2364  E6,1725                                 EBANK=   CM/GYMDT                              #  FOR ENTRY DAP
009243,000367: 01,2364           75323 45711                    -2CADR   READGYMB                              
009244,000368: 01,2366           00000        6.13SPOT          DEC      0          B-14                       
009245,000369: 01,2367           00000                          DEC      0          B-14                       
009246,000370: 01,2370           00000                          DEC      0          B-14                       
009247,000371: 
009248,000372:                                                                                                 # # Page 213
009249,000373:                                                                                                 #  PROGRAM DESCRIPTION: NEWPHASE                                            DATE: 11 NOV 1966
009250,000374:                                                                                                 #  MOD: 1                                                           ASSEMBLY:  SUNBURST REV
009251,000375:                                                                                                 #  MOD BY: COPPS                                                            LOG SECTION: PHASE TABLE MAINTENANCE
009252,000376:                                                                                                 #  FUNCTIONAL DESCRIPTION:
009253,000377:                                                                                                 #                 NEWPHASE IS THE QUICK WAY TO MAKE A NON VARIABLE PHASE CHANGE. IT INCLUDES THE OPTION OF SETTING
009254,000378:                                                                                                 #            TBASE OF THE GROUP. IF TBASE IS TO BE SET,  -C(TIME1) IS STORED IN THE TBASE TABLE AS FOLLOWS:
009255,000379: 
009256,000380:                                                                                                 #                   (L-1) TBASE0
009257,000381:                                                                                                 #                   (L)   TBASE1 (IF GROUP=1)
009258,000382:                                                                                                 #                   (L+1)
009259,000383:                                                                                                 #                   (L+2) TBASE2 (IF GROUP=2)
009260,000384:                                                                                                 #                   -----
009261,000385:                                                                                                 #                   (L+6) TBASE4 (IF GROUP=4)
009262,000386:                                                                                                 #                   (L+7)
009263,000387:                                                                                                 #                   (L+8) TBASE5 (IF GROUP=5)
009264,000388: 
009265,000389:                                                                                                 #            IN ANY CASE, THE NEGATIVE OF THE PHASE, FOLLOWED (IN THE NEXT REGISTER)  BY THE PHASE, IS STORED IN THE
009266,000390:                                                                                                 #            PHASE TABLE AS FOLLOWS:
009267,000391: 
009268,000392:                                                                                                 #                   (L)   -PHASE1 (IF GROUP=1)
009269,000393:                                                                                                 #                   (L+1) PHASE1
009270,000394:                                                                                                 #                   (L+2) -PHASE2 (IF GROUP=2)
009271,000395:                                                                                                 #                   (L+3) PHASE 2
009272,000396:                                                                                                 #                   -----
009273,000397:                                                                                                 #                   (L+7) PHASE4
009274,000398:                                                                                                 #                   (L+8) -PHASE5 (IF GROUP=5)
009275,000399:                                                                                                 #                   (L+9) PHASE5
009276,000400: 
009277,000401:                                                                                                 #  CALLING SEQUENCE:
009278,000402:                                                                                                 #                 EXAMPLE IS FOR PLACING A PHASE OF FIVE INTO GROUP THREE:
009279,000403: 
009280,000404:                                                                                                 #            1) IF TBASE IS NOT TO BE SET:
009281,000405:                                                                                                 #                                           L-1      CA     FIVE
009282,000406:                                                                                                 #                                           L        TC     NEWPHASE
009283,000407:                                                                                                 #                                           L+1      OCT    00003
009284,000408: 
009285,000409:                                                                                                 #            2) IF TBASE IS TO BE SET:
009286,000410:                                                                                                 #                                           L-1      CS     FIVE
009287,000411:                                                                                                 #                                           L        TC     NEWPHASE
009288,000412:                                                                                                 #                                           L+1      OCT    00003
009289,000413: 
009290,000414:                                                                                                 #  SUBROUTINES CALLED: NONE
009291,000415: 
009292,000416:                                                                                                 #  NORMAL EXIT MODE: AT L+2 OF CALLING SEQUENCE
009293,000417: 
009294,000418:                                                                                                 #  ALARM OR ABORT EXITS: NONE
009295,000419: 
009296,000420:                                                                                                 #  OUTPUT: PHASE TABLE AND TBASE TABLE UPDATED
009297,000421: 
009298,000422:                                                                                                 #  ERASABLE INITIALIZATION REQ,D: NONE
009299,000423:                                                                                                 # # Page 214
009300,000424:                                                                                                 #  DEBRIS: A,L,TEMPG
009301,000425: 
009302,000426:                                                                                                 #  ***WARNING*** THIS PROGRAM IS TO BE PLACED IN FIXED-FIXED AND UNSWITCHED ERASABLE.
009303,000427: 
009304,000428:    4114                                          BLOCK    02                                    
009305,000429:    4000                                          SETLOC   FFTAG1                                
009306,000430:    4000                                          BANK                                           
009307,000431: 
009308,000432:    4114                                          COUNT*   $$/PHASE                              
009309,000433: 
009310,000434:    4114           00004        NEWPHASE          INHINT                                         
009311,000435: 
009312,000436:    4115           54001                          TS       L                                     #  SAVE FOR FURTHER USE
009313,000437: 
009314,000438:    4116           50002                          NDX      Q                                     #  OBTAIN THE GROUP NUMBER
009315,000439:    4117           30000                          CA       0                                     
009316,000440:    4120           24002                          INCR     Q                                     #  OBTAIN THE RETURN ADDRESS
009317,000441:    4121           60000                          DOUBLE                                         #  SAVE THE GROUP IN A FORM USED FOR
009318,000442:    4122           54061                          TS       TEMPG                                 #  INDEXING
009319,000443: 
009320,000444:    4123           10001                          CCS      L                                     #  SEE IF WE ARE TO SET TBASE
009321,000445:    4124           14133                          TCF      +7                                    #  NO, THE DELTA T WAS POSITIVE
009322,000446:    4125           14133                          TCF      +6                                    
009323,000447: 
009324,000448:    4126           24000        NUFAZ+10          INCR     A                                     #  SET TBASE AND STORE PHASE CORRECTLY
009325,000449:    4127           54001                          TS       L                                     
009326,000450: 
009327,000451:    4130           40025                          CS       TIME1                                 #  SET TBASE
009328,000452:    4131           50061                          NDX      TEMPG                                 
009329,000453:    4132           55051                          TS       TBASE1     -2                         
009330,000454: 
009331,000455:    4133           40001                          CS       L                                     #  NOW PUT THE PHASE IN THE RIGHT TABLE LOC
009332,000456:    4134           50061                          NDX      TEMPG                                 
009333,000457:    4135           52751                          DXCH     -PHASE1    -2                         
009334,000458: 
009335,000459:    4136           00003                          RELINT                                         
009336,000460:    4137           00002                          TC       Q                                     #  NOW RETURN TO CALLER

End of include-file RESTART_TABLES.agc.  Parent file is MAIN.agc