Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

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

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