Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

010040,000002:                                                                                                  ## Copyright:   Public domain.
010041,000003:                                                                                                  ## Filename:    RESTART_TABLES.agc
010042,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
010043,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
010044,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
010045,000007:                                                                                                  ##              Apollo 15-17.
010046,000008:                                                                                                  ## Assembler:   yaYUL
010047,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
010048,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
010049,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
010050,000012:                                                                                                  ## Mod history: 2009-07-26 JL   Adapted from corresponding Comanche 055 file.
010051,000013:                                                                                                  ##              2010-01-31 JL   Fixed build errors.
010052,000014:                                                                                                  ##              2010-02-10 JL   Fixed errors on p232-234.
010053,000015:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
010054,000016:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by diff'ing vs Comanche 55
010055,000017:                                                                                                  ##                              and/or octopus/ProoferComments as most-appropriate.
010056,000018: 

Page 229

010058,000020: 
010059,000021:                                                                                                  #  RESTART TABLES
010060,000022: 
010061,000023:                                                                                                  #  ------------------
010062,000024: 
010063,000025:                                                                                                  #  THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP.  THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
010064,000026:                                                                                                  #  RESTART TABLES.  THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
010065,000027:                                                                                                  #  EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
010066,000028:                                                                                                  #  WAY THINGS ARE PUT INTO THE TABLES.
010067,000029:                                                                                                  #       A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
010068,000030:                                                                                                  #  FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC.  THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
010069,000031:                                                                                                  #  FOR EXAMPLE,
010070,000032: 
010071,000033:                                                                                                  #                5.7SPOT         OCT     23000
010072,000034:                                                                                                  #                                2CADR   SOMEJOB
010073,000035: 
010074,000036:                                                                                                  #  A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
010075,000037: 
010076,000038:                                                                                                  #                5.5SPOT         OCT     -23000
010077,000039:                                                                                                  #                                2CADR   ANYJOB
010078,000040: 
010079,000041:                                                                                                  #  HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
010080,000042:                                                                                                  #  A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY.  IN ITS PRDTTAB IS
010081,000043:                                                                                                  #  PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
010082,000044:                                                                                                  #  WITH.  EXAMPLE,
010083,000045: 
010084,000046:                                                                                                  #                3.6SPOT         GENADR  DELTAT
010085,000047:                                                                                                  #                                -GENADR LONGTASK
010086,000048:                                                                                                  #                                BBCON   LONGTASK
010087,000049: 
010088,000050:                                                                                                  #                                OCT     31000
010089,000051:                                                                                                  #                                2CADR   JOBAGAIN
010090,000052: 
010091,000053:                                                                                                  #  THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
010092,000054:                                                                                                  #  BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OF THE 2CADR OF THE
010093,000055:                                                                                                  #  TASK.  FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
010094,000056: 
010095,000057:                                                                                                  #  WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY.  IF PRDTTAB OF THE PHASE SPOT
010096,000058:                                                                                                  #  IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
010097,000059:                                                                                                  #  LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT
010098,000060:                                                                                                  #  IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE.  WITH
010099,000061:                                                                                                  #  WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
010100,000062:                                                                                                  #  TASK.  EXAMPLES,
010101,000063: 
010102,000064:                                                                                                  #                                OCT     77777           THIS WILL CAUSE AN IMMEDIATE RESTART
010103,000065:                                                                                                  #                                -2CADR  ATASK           OF THE TASK :ATASK:
010104,000066: 
010105,000067:                                                                                                  #                                DEC     200             IF THE TIME OF THE 2 SECONDS SINCE DUMMY
010106,000068:                                                                                                  #                                -2CADR  DUMMY           WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
010107,000069:                                                                                                  #                                                        IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
010108,000070:                                                                                                  #                                                        IT NORMALLY WOULD HAVE BEGUN.
010109,000071: 
010110,000072: 

Page 230

010112,000074: 
010113,000075:                                                                                                  #                                -GENADR DTIME           WHERE DTIME CONTAINS THE DELTA TIME
010114,000076:                                                                                                  #                                -2CADR  TASKTASK        OTHERWISE THIS IS AS ABOVE
010115,000077: 
010116,000078:                                                                                                  #  *****    NOW THE TABLES THEMSELVES    *****
010117,000079: 
010118,000080: 01,2000                                           SETLOC   RESTART                               
010119,000081: 01,2000                                           BANK                                           
010120,000082: 
010121,000083: 01,2000                                           COUNT*   $$/RSTAB                              
010122,000084: 01,2000                        PRDTTAB            EQUALS   12000                                 #  USED TO FIND THE PRIORITY OR DELTATIME
010123,000085: 01,2000                        CADRTAB            EQUALS   12001                                 #  THIS AND THE NEXT RELATIVE LOC CONTAIN
010124,000086:                                                                                                  #  RESTART 2CADR
010125,000087: 
010126,000088: 01,2000           00044        SIZETAB            TC       1.2SPOT    -12006                     
010127,000089: 01,2001           00010                           TC       1.3SPOT    -12004                     
010128,000090: 01,2002           00044                           TC       2.2SPOT    -12006                     
010129,000091: 01,2003           00027                           TC       2.3SPOT    -12004                     
010130,000092: 01,2004           00044                           TC       3.2SPOT    -12006                     
010131,000093: 01,2005           00054                           TC       3.3SPOT    -12004                     
010132,000094: 01,2006           00074                           TC       4.2SPOT    -12006                     
010133,000095: 01,2007           00120                           TC       4.3SPOT    -12004                     
010134,000096: 01,2010           00226                           TC       5.2SPOT    -12006                     
010135,000097: 01,2011           00244                           TC       5.3SPOT    -12004                     
010136,000098: 01,2012           00311                           TC       6.2SPOT    -12006                     
010137,000099: 01,2013           00321                           TC       6.3SPOT    -12004                     
010138,000100: 01,2014  01,2052               1.2SPOT            EQUALS   3.2SPOT                               
010139,000101: 
010140,000102:                                                                                                  #  ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
010141,000103: 
010142,000104: 01,2014           00170        1.3SPOT            DEC      120        B-14                       #  THIS NUMBER MUST EQUAL C(JTAGTIME)
010143,000105: 01,2015  E6,1661                                  EBANK=   AOG                                   
010144,000106: 01,2015           75141 45711                     -2CADR   SETJTAG                               
010145,000107: 
010146,000108: 01,2017           10000        1.5SPOT            OCT      10000                                 
010147,000109: 01,2020  E6,1465                                  EBANK=   DAPDATR1                              
010148,000110: 01,2020           02502 34066                     2CADR    REDO40.9                              
010149,000111: 
010150,000112: 01,2022           10000        1.7SPOT            OCT      10000                                 
010151,000113: 01,2023  E6,1774                                  EBANK=   R61CNTR                               
010152,000114: 01,2023           02170 56066                     2CADR    RELINUS                               
010153,000115: 
010154,000116: 01,2025           10000        1.11SPOT           OCT      10000                                 
010155,000117: 01,2026  E6,1774                                  EBANK=   R61CNTR                               
010156,000118: 01,2026           02157 74066                     2CADR    PIKUP20                               
010157,000119: 
010158,000120: 01,2030           10000        1.13SPOT           OCT      10000                                 
010159,000121: 01,2031  E6,1774                                  EBANK=   R61CNTR                               
010160,000122: 01,2031           02374 74066                     2CADR    R67RSTRT                              
010161,000123: 
010162,000124:                                                                                                  #  ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
010163,000125: 

Page 231

010165,000127: 
010166,000128: 01,2033  01,2052               2.2SPOT            EQUALS   1.2SPOT                               
010167,000129: 
010168,000130:                                                                                                  #  ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
010169,000131: 
010170,000132: 01,2033           02730        2.3SPOT            GENADR   600SECS                               
010171,000133: 01,2034           75075                           -GENADR  STATEINT                              
010172,000134: 01,2035  E3,1554                                  EBANK=   RRECTCSM                              
010173,000135: 01,2035           26063                           BBCON    STATEINT                              
010174,000136: 
010175,000137: 01,2036           05000        2.5SPOT            OCT      05000                                 
010176,000138: 01,2037  E3,1554                                  EBANK=   RRECTCSM                              
010177,000139: 01,2037           02711 26063                     2CADR    STATINT1                              
010178,000140: 
010179,000141: 01,2041           10000        2.7SPOT            OCT      10000                                 
010180,000142: 01,2042  E7,1722                                  EBANK=   MRKBUF1                               
010181,000143: 01,2042           02625 70067                     2CADR    R22                                   
010182,000144: 
010183,000145: 01,2044           14000        2.11SPOT           OCT      14000                                 
010184,000146: 01,2045  E7,1751                                  EBANK=   LANDMARK                              
010185,000147: 01,2045           03532 62067                     2CADR    V94NTR                                
010186,000148: 
010187,000149: 01,2047           10000        2.13SPOT           OCT      10000                                 
010188,000150: 01,2050  E7,1722                                  EBANK=   MRKBUF1                               
010189,000151: 01,2050           02516 56067                     2CADR    REDOR22                               
010190,000152: 
010191,000153:                                                                                                  #  ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE
010192,000154: 
010193,000155: 01,2052           77777        3.2SPOT            DEC      -0         B-14                       
010194,000156: 01,2053  E7,1672                                  EBANK=   P40TMP                                
010195,000157: 01,2053           75456 37710                     -2CADR   T6CHNSET                              
010196,000158: 
010197,000159: 01,2055           01750                           DEC      1000       B-14                       
010198,000160: 01,2056  E7,1672                                  EBANK=   P40TMP                                
010199,000161: 01,2056           75446 37710                     -2CADR   T6RESET                               
010200,000162: 
010201,000163:                                                                                                  #  ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
010202,000164: 
010203,000165: 01,2060           20000        3.3SPOT            OCT      20000                                 
010204,000166: 01,2061  E7,1427                                  EBANK=   TGO                                   
010205,000167: 01,2061           02534 34067                     2CADR    S40.13                                
010206,000168: 
010207,000169: 01,2063           76347        3.5SPOT            -GENADR  TGO        +1                         
010208,000170: 01,2064  E7,1427                                  EBANK=   TGO                                   
010209,000171: 01,2064           74754 27710                     -2CADR   ENGINOFF                              
010210,000172: 
010211,000173: 01,2066           22000        3.7SPOT            OCT      22000                                 
010212,000174: 01,2067  E5,1757                                  EBANK=   OGC                                   
010213,000175: 01,2067           02115 70065                     2CADR    MATRXJOB                              
010214,000176: 

Page 232

010216,000178: 
010217,000179: 01,2071           22000        3.11SPOT           OCT      22000                                 
010218,000180: 01,2072  E3,1706                                  EBANK=   TEPHEM                                
010219,000181: 01,2072           02250 70063                     2CADR    REP11                                 
010220,000182: 
010221,000183: 01,2074           22000        3.13SPOT           OCT      22000                                 
010222,000184: 01,2075  E3,1706                                  EBANK=   TEPHEM                                
010223,000185: 01,2075           02024 70063                     2CADR    REP11A                                
010224,000186: 
010225,000187: 01,2077           01672        3.15SPOT           GENADR   P40TMP                                
010226,000188: 01,2100           75466                           -GENADR  T6SET                                 
010227,000189: 01,2101  E7,1672                                  EBANK=   P40TMP                                
010228,000190: 01,2101           40067                           BBCON    T6SET                                 
010229,000191: 
010230,000192:                                                                                                  #  ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
010231,000193: 
010232,000194: 01,2102           77777        4.2SPOT            OCT      77777                                 
010233,000195: 01,2103  E7,1412                                  EBANK=   TIG                                   
010234,000196: 01,2103           75152 27710                     -2CADR   PRECHECK                              
010235,000197: 
010236,000198: 01,2105           47777                           OCT      47777                                 #  PRIO 30 NOVAC
010237,000199: 01,2106  E7,1674                                  EBANK=   DELVIMU                               
010238,000200: 01,2106           03730 50067                     2CADR    P47BODY                               
010239,000201: 
010240,000202: 01,2110           77777        4.4SPOT            OCT      77777                                 
010241,000203: 01,2111  E7,1412                                  EBANK=   TIG                                   
010242,000204: 01,2111           75152 27710                     -2CADR   PRECHECK                              
010243,000205: 
010244,000206: 01,2113           05664                           DEC      2996       B-14                       
010245,000207: 01,2114  E6,1465                                  EBANK=   DAPDATR1                              
010246,000208: 01,2114           74160 27711                     -2CADR   TTG/0                                 
010247,000209: 
010248,000210: 01,2116           77777        4.6SPOT            OCT      77777                                 
010249,000211: 01,2117  E7,1412                                  EBANK=   TIG                                   
010250,000212: 01,2117           75152 27710                     -2CADR   PRECHECK                              
010251,000213: 
010252,000214: 01,2121           04700                           DEC      2496       B-14                       
010253,000215: 01,2122  E7,1412                                  EBANK=   TIG                                   
010254,000216: 01,2122           75143 27710                     -2CADR   TIG-5                                 
010255,000217: 
010256,000218:                                                                                                  #  ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
010257,000219: 
010258,000220: 01,2124           00050        4.3SPOT            DEC      40         B-14                       
010259,000221: 01,2125  E6,1423                                  EBANK=   PACTOFF                               
010260,000222: 01,2125           75053 27711                     -2CADR   DOTVCON                               
010261,000223: 
010262,000224: 01,2127           00240        4.5SPOT            DEC      160        B-14                       
010263,000225: 01,2130  E6,1423                                  EBANK=   PACTOFF                               
010264,000226: 01,2130           75022 27711                     -2CADR   DOSTRULL                              
010265,000227: 
010266,000228: 01,2132           00764        4.7SPOT            DEC      500        B-14                       

Page 233

010268,000230: 01,2133  E6,1423                                  EBANK=   PACTOFF                               
010269,000231: 01,2133           75126 27711                     -2CADR   TIG-0                                 
010270,000232: 
010271,000233: 01,2135           77777        4.11SPOT           DEC      -0         B-14                       
010272,000234: 01,2136  E6,1423                                  EBANK=   PACTOFF                               
010273,000235: 01,2136           75126 27711                     -2CADR   TIG-0                                 
010274,000236: 
010275,000237: 01,2140           47777        4.13SPOT           OCT      47777                                 #  PRIO 30 NOVAC
010276,000238: 01,2141  E6,1473                                  EBANK=   CSMMASS                               
010277,000239: 01,2141           03411 50066                     2CADR    V97PJOB                               
010278,000240: 
010279,000241: 01,2143           16000        4.15SPOT           OCT      16000                                 #  PRELAUNCH OPTICAL VERIFICATION
010280,000242: 01,2144  E5,1757                                  EBANK=   OGC                                   
010281,000243: 01,2144           02000 66065                     2CADR    COMPVER                               #  CALLS FOR OPTICS DATA AGAIN (STD LEADIN)
010282,000244: 
010283,000245: 01,2146           16000        4.17SPOT           OCT      16000                                 #  PRELAUNCH AZIMUTH CHANGE
010284,000246: 01,2147  E5,1671                                  EBANK=   XSM                                   
010285,000247: 01,2147           03132 66105                     2CADR    AZMTHCG1                              
010286,000248: 
010287,000249: 01,2151           01672        4.21SPOT           GENADR   P40TMP                                #  DELTA TIME USED IN SETTING UP
010288,000250: 01,2152           75212                           -GENADR  TIGBLNK                               #  LONG CALL OF TIGBLNK BY P40,P41
010289,000251: 01,2153  E7,1672                                  EBANK=   P40TMP                                
010290,000252: 01,2153           50067                           BBCON    TIGBLNK                               
010291,000253: 
010292,000254: 01,2154           12000        4.23SPOT           OCT      12000                                 #  PROTECT P40S/SV BY P40 P41
010293,000255: 01,2155  E7,1412                                  EBANK=   TIG                                   
010294,000256: 01,2155           02523 50067                     2CADR    P40S/SV                               
010295,000257: 
010296,000258: 01,2157           24000        4.25SPOT           OCT      24000                                 
010297,000259: 01,2160     0302                                  EBANK=   BESTI                                 
010298,000260: 01,2160           02002 30060                     2CADR    PROG52                                
010299,000261: 
010300,000262: 01,2162           77777        4.27SPOT           DEC      -0         B-14                       
010301,000263: 01,2163  E6,1423                                  EBANK=   PACTOFF                               
010302,000264: 01,2163           75113 27711                     -2CADR   IGNITION                              
010303,000265: 
010304,000266: 01,2165           13000        4.31SPOT           OCT      13000                                 
010305,000267: 01,2166  E5,1765                                  EBANK=   STAR                                  
010306,000268: 01,2166           02622 30065                     2CADR    R51                                   
010307,000269: 
010308,000270: 01,2170           04064        4.33SPOT           DEC      2100       B-14                       #  PROTECT CONTINUING JOB TO START P63
010309,000271: 01,2171  E6,1661                                  EBANK=   AOG                                   
010310,000272: 01,2171           75402 23711                     -2CADR   WAKEP62                               
010311,000273: 
010312,000274: 01,2173           65777        4.35SPOT           OCT      65777                                 #  PRIO 12 NOVAC
010313,000275: 01,2174  E6,1465                                  EBANK=   DAPDATR1                              
010314,000276: 01,2174           03174 50066                     2CADR    POSTBURN                              
010315,000277: 
010316,000278: 01,2176           00764        4.37SPOT           DEC      500        B-14                       

Page 234

010318,000280: 01,2177  E7,1412                                  EBANK=   TIG                                   
010319,000281: 01,2177           75175 27710                     -2CADR   TIGAVEG                               
010320,000282: 
010321,000283: 01,2201           17000        4.41SPOT           OCT      17000                                 #  PROTECT DISPLAY JOB IN P67
010322,000284: 01,2202  E6,1661                                  EBANK=   AOG                                   
010323,000285: 01,2202           02511 54066                     2CADR    P67.1                                 
010324,000286: 
010325,000287: 01,2204           76003        4.43SPOT           -GENADR  S61DT                                 #  PROTECT TASK TO START PREREAD,ENTRY
010326,000288: 01,2205  E6,1774                                  EBANK=   S61DT                                 #  S61.1C WILL CHANGE EBANK=EB7 FOR PREREAD
010327,000289: 01,2205           75210 23711                     -2CADR   S61.1C                                
010328,000290: 
010329,000291: 01,2207           13000        4.45SPOT           OCT      13000                                 #  PROTECT CONTINUING JOB S61.1
010330,000292: 01,2210  E6,1661                                  EBANK=   AOG                                   #  (ENTRY IMU ALIGNMENT)
010331,000293: 01,2210           02604 54066                     2CADR    S61.1A     -1                         
010332,000294: 
010333,000295: 01,2212           17000        4.47SPOT           OCT      17000                                 #  PROTECT HUNTEST ITERATION.
010334,000296: 01,2213  E6,1661                                  EBANK=   AOG                                   
010335,000297: 01,2213           03013 52066                     2CADR    PRE-HUNT                              
010336,000298: 
010337,000299: 01,2215           77777        4.51SPOT           OCT      77777                                 #  PROTECT FDAI ATTITUDE
010338,000300: 01,2216  E6,1704                                  EBANK=   SPOLYARG                              
010339,000301: 01,2216           75462 07711                     -2CADR   ATERTASK                              
010340,000302: 
010341,000303: 01,2220           47777        4.53SPOT           OCT      47777                                 #  PRIO 30 NOVAC
010342,000304: 01,2221  E6,1473                                  EBANK=   CSMMASS                               
010343,000305: 01,2221           03322 50066                     2CADR    V97EJOB                               
010344,000306: 
010345,000307: 01,2223           64777        4.55SPOT           OCT      -13000                                #  PROTECT P65 RESPONSIVE DISPLAY
010346,000308: 01,2224  E7,1451                                  EBANK=   RTINIT                                
010347,000309: 01,2224           02456 54067                     2CADR    P65.1                                 
010348,000310: 
010349,000311: 01,2226           76105        4.57SPOT           -GENADR  P40TMP                                
010350,000312: 01,2227  E7,1672                                  EBANK=   P40TMP                                
010351,000313: 01,2227           74101 27710                     -2CADR   TIGON                                 
010352,000314: 
010353,000315: 01,2231           76317        4.61SPOT           -GENADR  AVEGDT     +1                         
010354,000316: 01,2232  E7,1427                                  EBANK=   TGO                                   
010355,000317: 01,2232           74140 11710                     -2CADR   SIVBOFF                               
010356,000318: 
010357,000319:                                                                                                  #  ANY MORE GROUP 4.ODD RESTART VALUES SHOULD GO HERE
010358,000320: 
010359,000321: 01,2234           32000        5.2SPOT            OCT      32000                                 
010360,000322: 01,2235  E7,1425                                  EBANK=   DVTOTAL                               
010361,000323: 01,2235           03154 76067                     2CADR    NORMLIZE                              
010362,000324: 
010363,000325: 01,2237           00310                           DEC      200        B-14                       
010364,000326: 01,2240  E6,1661                                  EBANK=   AOG                                   
010365,000327: 01,2240           74555 01711                     -2CADR   REREADAC                              
010366,000328: 
010367,000329: 01,2242           20000        5.4SPOT            OCT      20000                                 

Page 235

010369,000331: 01,2243  E7,1425                                  EBANK=   DVTOTAL                               
010370,000332: 01,2243           03010 76067                     2CADR    SERVICER                              
010371,000333: 
010372,000334: 01,2245           00310                           DEC      200        B-14                       
010373,000335: 01,2246  E6,1661                                  EBANK=   AOG                                   
010374,000336: 01,2246           74555 01711                     -2CADR   REREADAC                              
010375,000337: 
010376,000338:                                                                                                  #  ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
010377,000339: 
010378,000340: 01,2250           00310        5.3SPOT            DEC      200        B-14                       
010379,000341: 01,2251  E6,1661                                  EBANK=   AOG                                   
010380,000342: 01,2251           74555 01711                     -2CADR   REREADAC                              
010381,000343: 
010382,000344: 01,2253           77777        5.5SPOT            OCT      77777                                 
010383,000345: 01,2254  E6,1661                                  EBANK=   AOG                                   
010384,000346: 01,2254           75120 01711                     -2CADR   REDO5.5                               
010385,000347: 
010386,000348: 01,2256           20000        5.7SPOT            OCT      20000                                 #  USED BY PRELAUNCH
010387,000349: 01,2257  E5,1671                                  EBANK=   XSM                                   
010388,000350: 01,2257           02232 66065                     2CADR    RSTGTS1                               
010389,000351: 
010390,000352: 01,2261           77777        5.11SPOT           OCT      77777                                 
010391,000353: 01,2262  E5,1671                                  EBANK=   XSM                                   
010392,000354: 01,2262           75421 11712                     -2CADR   ALLOOP1                               
010393,000355: 
010394,000356: 01,2264           20000        5.13SPOT           OCT      20000                                 
010395,000357: 01,2265  E5,1671                                  EBANK=   XSM                                   
010396,000358: 01,2265           02303 66065                     2CADR    WTLISTNT                              
010397,000359: 
010398,000360: 01,2267           20000        5.15SPOT           OCT      20000                                 
010399,000361: 01,2270  E5,1671                                  EBANK=   XSM                                   
010400,000362: 01,2270           03100 66065                     2CADR    RESTEST1                              
010401,000363: 
010402,000364: 01,2272           77777        5.17SPOT           OCT      77777                                 
010403,000365: 01,2273  E7,1425                                  EBANK=   DVTOTAL                               
010404,000366: 01,2273           75170 01710                     -2CADR   PREREAD                               
010405,000367: 
010406,000368: 01,2275           22000        5.21SPOT           OCT      22000                                 
010407,000369: 01,2276  E5,1671                                  EBANK=   XSM                                   
010408,000370: 01,2276           02412 66065                     2CADR    ALFLT1                                
010409,000371: 
010410,000372: 01,2300           77777        5.23SPOT           OCT      77777                                 
010411,000373: 01,2301  E5,1671                                  EBANK=   XSM                                   
010412,000374: 01,2301           75376 11712                     -2CADR   SPECSTS                               
010413,000375: 
010414,000376: 01,2303           20000        5.25SPOT           OCT      20000                                 
010415,000377: 01,2304  E5,1671                                  EBANK=   XSM                                   
010416,000378: 01,2304           03111 66065                     2CADR    RESTEST3                              
010417,000379: 
010418,000380: 01,2306           20000        5.27SPOT           OCT      20000                                 

Page 236

010420,000382: 01,2307  E5,1671                                  EBANK=   XSM                                   
010421,000383: 01,2307           03057 66065                     2CADR    RESTAIER                              
010422,000384: 
010423,000385: 01,2311           77777        5.31SPOT           OCT      77777                                 
010424,000386: 01,2312  E6,1661                                  EBANK=   AOG                                   
010425,000387: 01,2312           75037 01711                     -2CADR   CHEKAVEG                              
010426,000388: 
010427,000389: 01,2314           20000        5.33SPOT           OCT      20000                                 
010428,000390: 01,2315  E5,1671                                  EBANK=   XSM                                   
010429,000391: 01,2315           03134 66065                     2CADR    RESCHNG                               
010430,000392: 
010431,000393:                                                                                                  #  ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
010432,000394: 
010433,000395: 01,2317           77777        6.2SPOT            OCT      77777                                 #  USED BY P40 AFTER GIMB DR TST TO REPOS'N
010434,000396: 01,2320  E6,1476                                  EBANK=   AK                                    #  ENGINE UNTIL TVCDAPON
010435,000397: 01,2320           75422 37711                     -2CADR   PRE40.6                               
010436,000398: 
010437,000399: 01,2322           00144                           DEC      100        B-14                       
010438,000400: 01,2323  E7,1660                                  EBANK=   TTOGO                                 
010439,000401: 01,2323           74552 27710                     -2CADR   CLOKTASK                              
010440,000402: 
010441,000403:                                                                                                  #  ANY MORE 6.ODD RESTART VALUES SHOULD GO HERE
010442,000404: 
010443,000405: 01,2325           00144        6.3SPOT            DEC      100        B-14                       
010444,000406: 01,2326  E7,1412                                  EBANK=   TIG                                   
010445,000407: 01,2326           74552 27710                     -2CADR   CLOKTASK                              
010446,000408: 
010447,000409: 01,2330           30000        6.5SPOT            OCT      30000                                 #  PROTECT INCREMENTING OF TIME2,TIME1 BY
010448,000410: 01,2331  E3,1706                                  EBANK=   TEPHEM                                #  P27NUPDATE PROGRAM)
010449,000411: 01,2331           03575 56063                     2CADR    TIMEDIDR                              
010450,000412: 
010451,000413: 01,2333           50777        6.7SPOT            OCT      50777                                 #  PRIO 27 NOVAC
010452,000414: 01,2334  E6,1473                                  EBANK=   CSMMASS                               
010453,000415: 01,2334           03365 50066                     2CADR    V97TJOB                               
010454,000416: 
010455,000417: 01,2336           76052        6.11SPOT           -GENADR  CM/GYMDT                              #  PROTECT TASK TO READ CDUS.
010456,000418: 01,2337  E6,1725                                  EBANK=   CM/GYMDT                              #  FOR ENTRY DAP
010457,000419: 01,2337           75714 45711                     -2CADR   READGYMB                              
010458,000420: 

Page 237

010460,000422: 
010461,000423:                                                                                                  #  PROGRAM DESCRIPTION: NEWPHASE                                         DATE: 11 NOV 1966
010462,000424:                                                                                                  #  MOD: 1                                                                ASSEMBLY: SUNBURST REV
010463,000425:                                                                                                  #  MOD BY: COPPS                                                         LOG SECTION: PHASE TABLE MAINTENANCE
010464,000426: 
010465,000427:                                                                                                  #  FUNCTIONAL DESCRIPTION:
010466,000428: 
010467,000429:                                                                                                  #        NEWPHASE IS THE QUICK WAY TO MAKE A NON VARIABLE PHASE CHANGE.  IT INCLUDES THE OPTION OF SETTING
010468,000430:                                                                                                  #        TBASE OF THE GROUP. IF TBASE IS TO BE SET,  -C(TIME1) IS STORED IN THE TBASE TABLE AS FOLLOWS:
010469,000431: 
010470,000432:                                                                                                  #                (L-1)   TBASE0
010471,000433:                                                                                                  #                (L)     TBASE1  (IF GROUP=1)
010472,000434:                                                                                                  #                (L+1)
010473,000435:                                                                                                  #                (L+2)   TBASE2  (IF GROUP=2)
010474,000436:                                                                                                  #                -----
010475,000437:                                                                                                  #                (L+6)   TBASE4  (IF GROUP=4)
010476,000438:                                                                                                  #                (L+7)
010477,000439:                                                                                                  #                (L+8)   TBASE5  (IF GROUP=5)
010478,000440: 
010479,000441:                                                                                                  #        IN ANY CASE, THE NEGATIVE OF THE PHASE, FOLLOWED (IN THE NEXT REGISTER) BY THE PHASE, IS STORED IN THE
010480,000442:                                                                                                  #        PHASE TABLE AS FOLLOWS:
010481,000443: 
010482,000444:                                                                                                  #                (L)     -PHASE1 (IF GROUP=1)
010483,000445:                                                                                                  #                (L+1)   PHASE1
010484,000446:                                                                                                  #                (L+2)   -PHASE2 (IF GROUP=2)
010485,000447:                                                                                                  #                (L+3)   PHASE2
010486,000448:                                                                                                  #                -----
010487,000449:                                                                                                  #                (L+7)   PHASE4
010488,000450:                                                                                                  #                (L+8)   -PHASE5 (IF GROUP=5)
010489,000451:                                                                                                  #                (L+9)   PHASE5
010490,000452: 
010491,000453:                                                                                                  #  CALLING SEQUENCE:
010492,000454: 
010493,000455:                                                                                                  #        EXAMPLE IS FOR PLACING A PHASE OF FIVE INTO GROUP THREE:
010494,000456: 
010495,000457:                                                                                                  #        1)      IF TBASE IS NOT TO BE SET:
010496,000458:                                                                                                  #                        L-1     CA      FIVE
010497,000459:                                                                                                  #                        L       TC      NEWPHASE
010498,000460:                                                                                                  #                        L+1     OCT     00003
010499,000461: 
010500,000462:                                                                                                  #        2)      IF TBASE IS TO BE SET:
010501,000463:                                                                                                  #                        L-1     CS      FIVE
010502,000464:                                                                                                  #                        L       TC      NEWPHASE
010503,000465:                                                                                                  #                        L+1     OCT     00003
010504,000466: 
010505,000467:                                                                                                  #  SUBROUTINES CALLED:  NONE
010506,000468: 
010507,000469:                                                                                                  #  NORMAL EXIT MODE:  AT L+2 OF CALLING SEQUENCE
010508,000470: 
010509,000471:                                                                                                  #  ALARM OR ABORT EXITS:  NONE
010510,000472: 
010511,000473:                                                                                                  #  OUTPUT:  PHASE TABLE AND TBASE TABLE UPDATED
010512,000474: 
010513,000475:                                                                                                  #  ERASABLE INITIALIZATION REQ,D:  NONE

Page 238

010515,000477:                                                                                                  #  DEBRIS: A,L,TEMPG
010516,000478: 
010517,000479:                                                                                                  #  *** WARNING *** THIS PROGRAM IS TO BE PLACED IN FIXED-FIXED AND UNSWITCHED ERASABLE.
010518,000480: 
010519,000481:    4000                                           SETLOC   FFTAG1                                
010520,000482:    4000                                           BANK                                           
010521,000483: 
010522,000484:    4126                                           COUNT*   $$/PHASE                              
010523,000485: 
010524,000486:    4126           00004        NEWPHASE           INHINT                                         
010525,000487: 
010526,000488:    4127           54001                           TS       L                                     #  SAVE FOR FURTHER USE
010527,000489: 
010528,000490:    4130           50002                           NDX      Q                                     #  OBTAIN THE GROUP NUMBER
010529,000491:    4131           30000                           CA       0                                     
010530,000492:    4132           24002                           INCR     Q                                     #  OBTAIN THE RETURN ADDRESS
010531,000493:    4133           60000                           DOUBLE                                         #  SAVE THE GROUP IN A FORM USED FOR
010532,000494:    4134           54061                           TS       TEMPG                                 #  INDEXING
010533,000495: 
010534,000496:    4135           10001                           CCS      L                                     #  SEE IF WE ARE TO SET TBASE
010535,000497:    4136           14145                           TCF      +7                                    #  NO, THE DELTA T WAS POSITIVE
010536,000498:    4137           14145                           TCF      +6                                    
010537,000499: 
010538,000500:    4140           24000        NUFAZ+10           INCR     A                                     #  SET TBASE AND STORE PHASE CORRECTLY
010539,000501:    4141           54001                           TS       L                                     
010540,000502: 
010541,000503:    4142           40025                           CS       TIME1                                 #  SET TBASE
010542,000504:    4143           50061                           NDX      TEMPG                                 
010543,000505:    4144           55255                           TS       TBASE1     -2                         
010544,000506: 
010545,000507:    4145           40001                           CS       L                                     #  NOW PUT THE PHASE IN THE RIGHT TABLE LOC
010546,000508:    4146           50061                           NDX      TEMPG                                 
010547,000509:    4147           53154                           DXCH     -PHASE1    -2                         
010548,000510: 
010549,000511:    4150           15642                           TCF      REQ                                   #  NOW RETURN TO CALL
010550,000512: 
010551,000513: 

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