Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

009992,000002:                                                                                                 #  Copyright:     Public domain.
009993,000003:                                                                                                 #  Filename:      RESTART_TABLES.agc
009994,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
009995,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
009996,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
009997,000007:                                                                                                 #                 Apollo 15-17.
009998,000008:                                                                                                 #  Assembler:     yaYUL
009999,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
010000,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
010001,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
010002,000012:                                                                                                 #  Mod history:   2009-07-26 JL   Adapted from corresponding Comanche 055 file.
010003,000013:                                                                                                 #                 2010-01-31 JL   Fixed build errors.
010004,000014:                                                                                                 #                 2010-02-10 JL   Fixed errors on p232-234.
010005,000015:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
010006,000016: 
010007,000017:                                                                                                 # # Page 229
010008,000018: 
010009,000019:                                                                                                 #  RESTART TABLES
010010,000020:                                                                                                 #  --------------
010011,000021: 
010012,000022:                                                                                                 #  THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP.  THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
010013,000023:                                                                                                 #  RESTART TABLES.  THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
010014,000024:                                                                                                 #  EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
010015,000025:                                                                                                 #  WAY THINGS ARE PUT INTO THE TABLES.
010016,000026: 
010017,000027:                                                                                                 #  A JOB HAS ITS PRIORITY STORED IN A PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
010018,000028:                                                                                                 #  FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC.  THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
010019,000029:                                                                                                 #  FOR EXAMPLE,
010020,000030: 
010021,000031:                                                                                                 #                 5.7SPOT         OCT     23000
010022,000032:                                                                                                 #                                 2CADR   SOMEJOB
010023,000033: 
010024,000034:                                                                                                 #  A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
010025,000035: 
010026,000036:                                                                                                 #                 5.5SPOT         OCT     -23000
010027,000037:                                                                                                 #                                 2CADR   ANYJOB
010028,000038: 
010029,000039:                                                                                                 #  HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
010030,000040:                                                                                                 #  A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY.  IN ITS PRDTTAB IS
010031,000041:                                                                                                 #  PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
010032,000042:                                                                                                 #  WITH.  EXAMPLE,
010033,000043: 
010034,000044:                                                                                                 #                 3.6SPOT         GENADR  DELTAT
010035,000045:                                                                                                 #                                 -GENADR LONGTASK
010036,000046:                                                                                                 #                                 BBCON   LONGTASK
010037,000047: 
010038,000048:                                                                                                 #                                 OCT     31000
010039,000049:                                                                                                 #                                 2CADR   JOBAGAIN
010040,000050: 
010041,000051:                                                                                                 #  THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
010042,000052:                                                                                                 #  BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATION SHOULD BE IN THE BBCON OF THE 2CADR OF THE
010043,000053:                                                                                                 #  TASK.  FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
010044,000054: 
010045,000055:                                                                                                 #  WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY.  IF PRDTTAB OF THE PHASE SPOT
010046,000056:                                                                                                 #  IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
010047,000057:                                                                                                 #  LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT
010048,000058:                                                                                                 #  IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE.  WITH
010049,000059:                                                                                                 #  WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
010050,000060:                                                                                                 #  TASK.  EXAMPLES,
010051,000061: 
010052,000062:                                                                                                 #                                 OCT     77777           # THIS WILL CAUSE AN IMMEDIATE RESTART
010053,000063:                                                                                                 #                                 -2CADR  ATASK           # OF THE TASK "ATASK"
010054,000064: 
010055,000065:                                                                                                 #                                 DEC     200             # IF THE TIME OF THE 2 SECONDS SINCE DUMMY
010056,000066:                                                                                                 #                                 -2CADR  DUMMY           # WAS PUT ON THE WAITLIST IS UP, IT WILL BEGIN
010057,000067:                                                                                                 #                                                         # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
010058,000068:                                                                                                 #                                                         # IT NORMALLY WOULD HAVE BEGUN.
010059,000069: 
010060,000070: 
010061,000071:                                                                                                 # # Page 230
010062,000072: 
010063,000073:                                                                                                 #                                 -GENADR DTIME           # WHERE DTIME CONTAINS THE DELTA TIME
010064,000074:                                                                                                 #                                 -2CADR  TASKTASK        # OTHERWISE THIS IS AS ABOVE
010065,000075: 
010066,000076:                                                                                                 #  *****    NOW THE TABLES THEMSELVES    *****
010067,000077: 
010068,000078: 01,2000                                          SETLOC   RESTART                               
010069,000079: 01,2000                                          BANK                                           
010070,000080: 
010071,000081: 01,2000                                          COUNT*   $$/RSTAB                              
010072,000082: 01,2000                        PRDTTAB           EQUALS   12000                                 #  USED TO FIND THE PRIORITY OR DELTATIME
010073,000083: 01,2000                        CADRTAB           EQUALS   12001                                 #  THIS AND THE NEXT RELATIVE LOC CONTAIN
010074,000084:                                                                                                 #  RESTART 2CADR
010075,000085: 
010076,000086: 01,2000           00044        SIZETAB           TC       1.2SPOT    -12006                     
010077,000087: 01,2001           00010                          TC       1.3SPOT    -12004                     
010078,000088: 01,2002           00044                          TC       2.2SPOT    -12006                     
010079,000089: 01,2003           00027                          TC       2.3SPOT    -12004                     
010080,000090: 01,2004           00044                          TC       3.2SPOT    -12006                     
010081,000091: 01,2005           00054                          TC       3.3SPOT    -12004                     
010082,000092: 01,2006           00074                          TC       4.2SPOT    -12006                     
010083,000093: 01,2007           00120                          TC       4.3SPOT    -12004                     
010084,000094: 01,2010           00226                          TC       5.2SPOT    -12006                     
010085,000095: 01,2011           00244                          TC       5.3SPOT    -12004                     
010086,000096: 01,2012           00311                          TC       6.2SPOT    -12006                     
010087,000097: 01,2013           00321                          TC       6.3SPOT    -12004                     
010088,000098: 01,2014  01,2052               1.2SPOT           EQUALS   3.2SPOT                               
010089,000099: 
010090,000100:                                                                                                 #  ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE.
010091,000101: 
010092,000102: 01,2014           00170        1.3SPOT           DEC      120        B-14                       #  THIS NUMBER MUST BE EQUAL C(JTAGTIME)
010093,000103: 01,2015  E6,1661                                 EBANK=   AOG                                   
010094,000104: 01,2015           75141 45711                    -2CADR   SETJTAG                               
010095,000105: 
010096,000106: 01,2017           10000        1.5SPOT           OCT      10000                                 
010097,000107: 01,2020  E6,1465                                 EBANK=   DAPDATR1                              
010098,000108: 01,2020           02502 34066                    2CADR    REDO40.9                              
010099,000109: 
010100,000110: 01,2022           10000        1.7SPOT           OCT      10000                                 
010101,000111: 01,2023  E6,1774                                 EBANK=   R61CNTR                               
010102,000112: 01,2023           02170 56066                    2CADR    RELINUS                               
010103,000113: 
010104,000114: 01,2025           10000        1.11SPOT          OCT      10000                                 
010105,000115: 01,2026  E6,1774                                 EBANK=   R61CNTR                               
010106,000116: 01,2026           02157 74066                    2CADR    PIKUP20                               
010107,000117: 
010108,000118: 01,2030           10000        1.13SPOT          OCT      10000                                 
010109,000119: 01,2031  E6,1774                                 EBANK=   R61CNTR                               
010110,000120: 01,2031           02374 74066                    2CADR    R67RSTRT                              
010111,000121: 
010112,000122:                                                                                                 #  ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE.
010113,000123: 
010114,000124:                                                                                                 # # Page 231
010115,000125: 
010116,000126: 01,2033  01,2052               2.2SPOT           EQUALS   1.2SPOT                               
010117,000127: 
010118,000128:                                                                                                 #  ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
010119,000129: 
010120,000130: 01,2033           02730        2.3SPOT           GENADR   600SECS                               
010121,000131: 01,2034           75075                          -GENADR  STATEINT                              
010122,000132: 01,2035  E3,1554                                 EBANK=   RRECTCSM                              
010123,000133: 01,2035           26063                          BBCON    STATEINT                              
010124,000134: 
010125,000135: 01,2036           05000        2.5SPOT           OCT      05000                                 
010126,000136: 01,2037  E3,1554                                 EBANK=   RRECTCSM                              
010127,000137: 01,2037           02711 26063                    2CADR    STATINT1                              
010128,000138: 
010129,000139: 01,2041           10000        2.7SPOT           OCT      10000                                 
010130,000140: 01,2042  E7,1722                                 EBANK=   MRKBUF1                               
010131,000141: 01,2042           02625 70067                    2CADR    R22                                   
010132,000142: 
010133,000143: 01,2044           14000        2.11SPOT          OCT      14000                                 
010134,000144: 01,2045  E7,1751                                 EBANK=   LANDMARK                              
010135,000145: 01,2045           03532 62067                    2CADR    V94NTR                                
010136,000146: 
010137,000147: 01,2047           10000        2.13SPOT          OCT      10000                                 
010138,000148: 01,2050  E7,1722                                 EBANK=   MRKBUF1                               
010139,000149: 01,2050           02516 56067                    2CADR    REDOR22                               
010140,000150: 
010141,000151:                                                                                                 #  ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
010142,000152: 
010143,000153: 01,2052           77777        3.2SPOT           DEC      -0         B-14                       
010144,000154: 01,2053  E7,1672                                 EBANK=   P40TMP                                
010145,000155: 01,2053           75456 37710                    -2CADR   T6CHNSET                              
010146,000156: 
010147,000157: 01,2055           01750                          DEC      1000       B-14                       
010148,000158: 01,2056  E7,1672                                 EBANK=   P40TMP                                
010149,000159: 01,2056           75446 37710                    -2CADR   T6RESET                               
010150,000160: 
010151,000161:                                                                                                 #  ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
010152,000162: 
010153,000163: 01,2060           20000        3.3SPOT           OCT      20000                                 
010154,000164: 01,2061  E7,1427                                 EBANK=   TGO                                   
010155,000165: 01,2061           02534 34067                    2CADR    S40.13                                
010156,000166: 
010157,000167: 01,2063           76347        3.5SPOT           -GENADR  TGO        +1                         
010158,000168: 01,2064  E7,1427                                 EBANK=   TGO                                   
010159,000169: 01,2064           74754 27710                    -2CADR   ENGINOFF                              
010160,000170: 
010161,000171: 01,2066           22000        3.7SPOT           OCT      22000                                 
010162,000172: 01,2067  0002757                                 EBANK=   OGC                                   
010163,000173: 01,2067           02115 70065                    2CADR    MATRXJOB                              
010164,000174: 
010165,000175:                                                                                                 # # Page 232
010166,000176: 
010167,000177: 01,2071           22000        3.11SPOT          OCT      22000                                 
010168,000178: 01,2072  E3,1706                                 EBANK=   TEPHEM                                
010169,000179: 01,2072           02250 70063                    2CADR    REP11                                 
010170,000180: 
010171,000181: 01,2074           22000        3.13SPOT          OCT      22000                                 
010172,000182: 01,2075  E3,1706                                 EBANK=   TEPHEM                                
010173,000183: 01,2075           02024 70063                    2CADR    REP11A                                
010174,000184: 
010175,000185: 01,2077           01672        3.15SPOT          GENADR   P40TMP                                
010176,000186: 01,2100           75466                          -GENADR  T6SET                                 
010177,000187: 01,2101  E7,1672                                 EBANK=   P40TMP                                
010178,000188: 01,2101           40067                          BBCON    T6SET                                 
010179,000189: 
010180,000190:                                                                                                 #  ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
010181,000191: 
010182,000192: 01,2102           77777        4.2SPOT           OCT      77777                                 
010183,000193: 01,2103  E7,1412                                 EBANK=   TIG                                   
010184,000194: 01,2103           75152 27710                    -2CADR   PRECHECK                              
010185,000195: 
010186,000196: 01,2105           47777                          OCT      47777                                 #  PRIO 30 NOVAC
010187,000197: 01,2106  E7,1674                                 EBANK=   DELVIMU                               
010188,000198: 01,2106           03730 50067                    2CADR    P47BODY                               
010189,000199: 
010190,000200: 01,2110           77777        4.4SPOT           OCT      77777                                 
010191,000201: 01,2111  E7,1412                                 EBANK=   TIG                                   
010192,000202: 01,2111           75152 27710                    -2CADR   PRECHECK                              
010193,000203: 
010194,000204: 01,2113           05664                          DEC      2996       B-14                       
010195,000205: 01,2114  E6,1465                                 EBANK=   DAPDATR1                              
010196,000206: 01,2114           74160 27711                    -2CADR   TTG/0                                 
010197,000207: 
010198,000208: 01,2116           77777        4.6SPOT           OCT      77777                                 
010199,000209: 01,2117  E7,1412                                 EBANK=   TIG                                   
010200,000210: 01,2117           75152 27710                    -2CADR   PRECHECK                              
010201,000211: 
010202,000212: 01,2121           04700                          DEC      2496       B-14                       
010203,000213: 01,2122  E7,1412                                 EBANK=   TIG                                   
010204,000214: 01,2122           75143 27710                    -2CADR   TIG-5                                 
010205,000215: 
010206,000216:                                                                                                 #  ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
010207,000217: 
010208,000218: 01,2124           00050        4.3SPOT           DEC      40         B-14                       
010209,000219: 01,2125  E6,1423                                 EBANK=   PACTOFF                               
010210,000220: 01,2125           75053 27711                    -2CADR   DOTVCON                               
010211,000221: 
010212,000222: 01,2127           00240        4.5SPOT           DEC      160        B-14                       
010213,000223: 01,2130  E6,1423                                 EBANK=   PACTOFF                               
010214,000224: 01,2130           75022 27711                    -2CADR   DOSTRULL                              
010215,000225: 
010216,000226: 01,2132           00764        4.7SPOT           DEC      500        B-14                       
010217,000227:                                                                                                 # # Page 233
010218,000228: 01,2133  E6,1423                                 EBANK=   PACTOFF                               
010219,000229: 01,2133           75126 27711                    -2CADR   TIG-0                                 
010220,000230: 
010221,000231: 01,2135           77777        4.11SPOT          DEC      -0         B-14                       
010222,000232: 01,2136  E6,1423                                 EBANK=   PACTOFF                               
010223,000233: 01,2136           75126 27711                    -2CADR   TIG-0                                 
010224,000234: 
010225,000235: 01,2140           47777        4.13SPOT          OCT      47777                                 #  PRIO 30 NOVAC
010226,000236: 01,2141  E6,1473                                 EBANK=   CSMMASS                               
010227,000237: 01,2141           03411 50066                    2CADR    V97PJOB                               
010228,000238: 
010229,000239: 01,2143           16000        4.15SPOT          OCT      16000                                 #  PRELAUNCH OPTICAL VERIFICATION
010230,000240: 01,2144  0002757                                 EBANK=   OGC                                   
010231,000241: 01,2144           02000 66065                    2CADR    COMPVER                               #  CALLS FOR OPTICS DATA AGAIN (STD LEADIN)
010232,000242: 
010233,000243: 01,2146           16000        4.17SPOT          OCT      16000                                 #  PRELAUNCH AZIMUTH CHANGE
010234,000244: 01,2147  0002671                                 EBANK=   XSM                                   
010235,000245: 01,2147           03132 66105                    2CADR    AZMTHCG1                              
010236,000246: 
010237,000247: 01,2151           01672        4.21SPOT          GENADR   P40TMP                                #  DELTA TIME USED IN SETTING UP
010238,000248: 01,2152           75212                          -GENADR  TIGBLNK                               #  LONG CALL OF TIGBLNK BY P40,P41
010239,000249: 01,2153  E7,1672                                 EBANK=   P40TMP                                
010240,000250: 01,2153           50067                          BBCON    TIGBLNK                               
010241,000251: 
010242,000252: 01,2154           12000        4.23SPOT          OCT      12000                                 #  PROTECT P40S/SV BY P40 P41
010243,000253: 01,2155  E7,1412                                 EBANK=   TIG                                   
010244,000254: 01,2155           02523 50067                    2CADR    P40S/SV                               
010245,000255: 
010246,000256: 01,2157           24000        4.25SPOT          OCT      24000                                 
010247,000257: 01,2160     0302                                 EBANK=   BESTI                                 
010248,000258: 01,2160           02002 30060                    2CADR    PROG52                                
010249,000259: 
010250,000260: 01,2162           77777        4.27SPOT          DEC      -0         B-14                       
010251,000261: 01,2163  E6,1423                                 EBANK=   PACTOFF                               
010252,000262: 01,2163           75113 27711                    -2CADR   IGNITION                              
010253,000263: 
010254,000264: 01,2165           13000        4.31SPOT          OCT      13000                                 
010255,000265: 01,2166  0002765                                 EBANK=   STAR                                  
010256,000266: 01,2166           02622 30065                    2CADR    R51                                   
010257,000267: 
010258,000268: 01,2170           04064        4.33SPOT          DEC      2100       B-14                       #  PROTECT CONTINUING JOB TO START P63
010259,000269: 01,2171  E6,1661                                 EBANK=   AOG                                   
010260,000270: 01,2171           75402 23711                    -2CADR   WAKEP62                               
010261,000271: 
010262,000272: 01,2173           65777        4.35SPOT          OCT      65777                                 #  PRIO 12 NOVAC
010263,000273: 01,2174  E6,1465                                 EBANK=   DAPDATR1                              
010264,000274: 01,2174           03174 50066                    2CADR    POSTBURN                              
010265,000275: 
010266,000276: 01,2176           00764        4.37SPOT          DEC      500        B-14                       
010267,000277:                                                                                                 # # Page 234
010268,000278: 01,2177  E7,1412                                 EBANK=   TIG                                   
010269,000279: 01,2177           75175 27710                    -2CADR   TIGAVEG                               
010270,000280: 
010271,000281: 01,2201           17000        4.41SPOT          OCT      17000                                 #  PROTECT DISPLAY JOB IN P67
010272,000282: 01,2202  E6,1661                                 EBANK=   AOG                                   
010273,000283: 01,2202           02511 54066                    2CADR    P67.1                                 
010274,000284: 
010275,000285: 01,2204           76003        4.43SPOT          -GENADR  S61DT                                 #  PROTECT TASK TO START PREREAD,ENTRY
010276,000286: 01,2205  E6,1774                                 EBANK=   S61DT                                 #  S61.1C WILL CHANGE EBANK=EB7 FOR PREREAD
010277,000287: 01,2205           75210 23711                    -2CADR   S61.1C                                
010278,000288: 
010279,000289: 01,2207           13000        4.45SPOT          OCT      13000                                 #  PROTECT CONTINUING JOB S61.1
010280,000290: 01,2210  E6,1661                                 EBANK=   AOG                                   #  (ENTRY IMU ALIGNMENT)
010281,000291: 01,2210           02604 54066                    2CADR    S61.1A     -1                         
010282,000292: 
010283,000293: 01,2212           17000        4.47SPOT          OCT      17000                                 #  PROTECT HUNTEST ITERATION.
010284,000294: 01,2213  E6,1661                                 EBANK=   AOG                                   
010285,000295: 01,2213           03013 52066                    2CADR    PRE-HUNT                              
010286,000296: 
010287,000297: 01,2215           77777        4.51SPOT          OCT      77777                                 #  PROTECT FDAI ATTITUDE
010288,000298: 01,2216  E6,1704                                 EBANK=   SPOLYARG                              
010289,000299: 01,2216           75462 07711                    -2CADR   ATERTASK                              
010290,000300: 
010291,000301: 01,2220           47777        4.53SPOT          OCT      47777                                 #  PRIO 30 NOVAC
010292,000302: 01,2221  E6,1473                                 EBANK=   CSMMASS                               
010293,000303: 01,2221           03322 50066                    2CADR    V97EJOB                               
010294,000304: 
010295,000305: 01,2223           64777        4.55SPOT          OCT      -13000                                #  PROTECT P65 RESPONSIVE DISPLAY
010296,000306: 01,2224  E7,1451                                 EBANK=   RTINIT                                
010297,000307: 01,2224           02456 54067                    2CADR    P65.1                                 
010298,000308: 
010299,000309: 01,2226           76105        4.57SPOT          -GENADR  P40TMP                                
010300,000310: 01,2227  E7,1672                                 EBANK=   P40TMP                                
010301,000311: 01,2227           74101 27710                    -2CADR   TIGON                                 
010302,000312: 
010303,000313: 01,2231           76317        4.61SPOT          -GENADR  AVEGDT     +1                         
010304,000314: 01,2232  E7,1427                                 EBANK=   TGO                                   
010305,000315: 01,2232           74140 11710                    -2CADR   SIVBOFF                               
010306,000316: 
010307,000317:                                                                                                 #  ANY MORE GROUP 4.ODD RESTART VALUES SHOULD GO HERE
010308,000318: 
010309,000319: 01,2234           32000        5.2SPOT           OCT      32000                                 
010310,000320: 01,2235  E7,1425                                 EBANK=   DVTOTAL                               
010311,000321: 01,2235           03154 76067                    2CADR    NORMLIZE                              
010312,000322: 
010313,000323: 01,2237           00310                          DEC      200        B-14                       
010314,000324: 01,2240  E6,1661                                 EBANK=   AOG                                   
010315,000325: 01,2240           74555 01711                    -2CADR   REREADAC                              
010316,000326: 
010317,000327: 01,2242           20000        5.4SPOT           OCT      20000                                 
010318,000328:                                                                                                 # # Page 235
010319,000329: 01,2243  E7,1425                                 EBANK=   DVTOTAL                               
010320,000330: 01,2243           03010 76067                    2CADR    SERVICER                              
010321,000331: 
010322,000332: 01,2245           00310                          DEC      200        B-14                       
010323,000333: 01,2246  E6,1661                                 EBANK=   AOG                                   
010324,000334: 01,2246           74555 01711                    -2CADR   REREADAC                              
010325,000335: 
010326,000336:                                                                                                 #  ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
010327,000337: 
010328,000338: 01,2250           00310        5.3SPOT           DEC      200        B-14                       
010329,000339: 01,2251  E6,1661                                 EBANK=   AOG                                   
010330,000340: 01,2251           74555 01711                    -2CADR   REREADAC                              
010331,000341: 
010332,000342: 01,2253           77777        5.5SPOT           OCT      77777                                 
010333,000343: 01,2254  E6,1661                                 EBANK=   AOG                                   
010334,000344: 01,2254           75120 01711                    -2CADR   REDO5.5                               
010335,000345: 
010336,000346: 01,2256           20000        5.7SPOT           OCT      20000                                 #  USED BY PRELAUNCH
010337,000347: 01,2257  0002671                                 EBANK=   XSM                                   
010338,000348: 01,2257           02232 66065                    2CADR    RSTGTS1                               
010339,000349: 
010340,000350: 01,2261           77777        5.11SPOT          OCT      77777                                 
010341,000351: 01,2262  0002671                                 EBANK=   XSM                                   
010342,000352: 01,2262           75421 11712                    -2CADR   ALLOOP1                               
010343,000353: 
010344,000354: 01,2264           20000        5.13SPOT          OCT      20000                                 
010345,000355: 01,2265  0002671                                 EBANK=   XSM                                   
010346,000356: 01,2265           02303 66065                    2CADR    WTLISTNT                              
010347,000357: 
010348,000358: 01,2267           20000        5.15SPOT          OCT      20000                                 
010349,000359: 01,2270  0002671                                 EBANK=   XSM                                   
010350,000360: 01,2270           03100 66065                    2CADR    RESTEST1                              
010351,000361: 
010352,000362: 01,2272           77777        5.17SPOT          OCT      77777                                 
010353,000363: 01,2273  E7,1425                                 EBANK=   DVTOTAL                               
010354,000364: 01,2273           75170 01710                    -2CADR   PREREAD                               
010355,000365: 
010356,000366: 01,2275           22000        5.21SPOT          OCT      22000                                 
010357,000367: 01,2276  0002671                                 EBANK=   XSM                                   
010358,000368: 01,2276           02412 66065                    2CADR    ALFLT1                                
010359,000369: 
010360,000370: 01,2300           77777        5.23SPOT          OCT      77777                                 
010361,000371: 01,2301  0002671                                 EBANK=   XSM                                   
010362,000372: 01,2301           75376 11712                    -2CADR   SPECSTS                               
010363,000373: 
010364,000374: 01,2303           20000        5.25SPOT          OCT      20000                                 
010365,000375: 01,2304  0002671                                 EBANK=   XSM                                   
010366,000376: 01,2304           03111 66065                    2CADR    RESTEST3                              
010367,000377: 
010368,000378: 01,2306           20000        5.27SPOT          OCT      20000                                 
010369,000379:                                                                                                 # # Page 236
010370,000380: 01,2307  0002671                                 EBANK=   XSM                                   
010371,000381: 01,2307           03057 66065                    2CADR    RESTAIER                              
010372,000382: 
010373,000383: 01,2311           77777        5.31SPOT          OCT      77777                                 
010374,000384: 01,2312  E6,1661                                 EBANK=   AOG                                   
010375,000385: 01,2312           75037 01711                    -2CADR   CHEKAVEG                              
010376,000386: 
010377,000387: 01,2314           20000        5.33SPOT          OCT      20000                                 
010378,000388: 01,2315  0002671                                 EBANK=   XSM                                   
010379,000389: 01,2315           03134 66065                    2CADR    RESCHNG                               
010380,000390: 
010381,000391:                                                                                                 #  ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
010382,000392: 
010383,000393: 01,2317           77777        6.2SPOT           OCT      77777                                 #  USED BY P40 AFTER GIMB DR TST TO REPOS'N
010384,000394: 01,2320  E6,1476                                 EBANK=   AK                                    #  ENGINE UNTIL TVCDAPON
010385,000395: 01,2320           75422 37711                    -2CADR   PRE40.6                               
010386,000396: 
010387,000397: 01,2322           00144                          DEC      100        B-14                       
010388,000398: 01,2323  E7,1660                                 EBANK=   TTOGO                                 
010389,000399: 01,2323           74552 27710                    -2CADR   CLOKTASK                              
010390,000400: 
010391,000401:                                                                                                 #  ANY MORE 6.ODD RESTART VALUES SHOULD GO HERE
010392,000402: 
010393,000403: 01,2325           00144        6.3SPOT           DEC      100        B-14                       
010394,000404: 01,2326  E7,1412                                 EBANK=   TIG                                   
010395,000405: 01,2326           74552 27710                    -2CADR   CLOKTASK                              
010396,000406: 
010397,000407: 01,2330           30000        6.5SPOT           OCT      30000                                 #  PROTECT INCREMENTING OF TIME2,TIME1 BY
010398,000408: 01,2331  E3,1706                                 EBANK=   TEPHEM                                #  P27(UPDATE PROGRAM)
010399,000409: 01,2331           03575 56063                    2CADR    TIMEDIDR                              
010400,000410: 
010401,000411: 01,2333           50777        6.7SPOT           OCT      50777                                 #  PRIO 27 NOVAC
010402,000412: 01,2334  E6,1473                                 EBANK=   CSMMASS                               
010403,000413: 01,2334           03365 50066                    2CADR    V97TJOB                               
010404,000414: 
010405,000415: 01,2336           76052        6.11SPOT          -GENADR  CM/GYMDT                              #  PROTECT TASK TO READ CDUS.
010406,000416: 01,2337  E6,1725                                 EBANK=   CM/GYMDT                              #  FOR ENTRY DAP
010407,000417: 01,2337           75714 45711                    -2CADR   READGYMB                              
010408,000418: 
010409,000419:                                                                                                 # # Page 237
010410,000420: 
010411,000421:                                                                                                 #  PROGRAM DESCRIPTION: NEWPHASE                                          DATE: 11 NOV 1966
010412,000422:                                                                                                 #  MOD: 1                                                         ASSEMBLY: SUNBURST REV
010413,000423:                                                                                                 #  MOD BY: COPPS                                                          LOG SECTION: PHASE TABLE MAINTENANCE
010414,000424: 
010415,000425:                                                                                                 #  FUNCTIONAL DESCRIPTION:
010416,000426: 
010417,000427:                                                                                                 #         NEWPHASE IS THE QUICK WAY TO MAKE A NON VARIABLE PHASE CHANGE.  IT INCLUDES THE OPTION OF SETTING
010418,000428:                                                                                                 #         TBASE OF THE GROUP. IF TBASE IS TO BE SET,  -C(TIME1) IS STORED IN THE TBASE TABLE AS FOLLOWS:
010419,000429: 
010420,000430:                                                                                                 #                 (L-1)   TBASE0
010421,000431:                                                                                                 #                 (L)     TBASE1  (IF GROUP=1)
010422,000432:                                                                                                 #                 (L+1)
010423,000433:                                                                                                 #                 (L+2)   TBASE2  (IF GROUP=2)
010424,000434:                                                                                                 #                 -----
010425,000435:                                                                                                 #                 (L+6)   TBASE4  (IF GROUP=4)
010426,000436:                                                                                                 #                 (L+7)
010427,000437:                                                                                                 #                 (L+8)   TBASE5  (IF GROUP=5)
010428,000438: 
010429,000439:                                                                                                 #         IN ANY CASE, THE NEGATIVE OF THE PHASE, FOLLOWED (IN THE NEXT REGISTER) BY THE PHASE, IS STORED IN THE
010430,000440:                                                                                                 #         PHASE TABLE AS FOLLOWS:
010431,000441: 
010432,000442:                                                                                                 #                 (L)     -PHASE1 (IF GROUP=1)
010433,000443:                                                                                                 #                 (L+1)   PHASE1
010434,000444:                                                                                                 #                 (L+2)   -PHASE2 (IF GROUP=2)
010435,000445:                                                                                                 #                 (L+3)   PHASE2
010436,000446:                                                                                                 #                 -----
010437,000447:                                                                                                 #                 (L+7)   PHASE4
010438,000448:                                                                                                 #                 (L+8)   -PHASE5 (IF GROUP=5)
010439,000449:                                                                                                 #                 (L+9)   PHASE5
010440,000450: 
010441,000451:                                                                                                 #  CALLING SEQUENCE:
010442,000452: 
010443,000453:                                                                                                 #         EXAMPLE IS FOR PLACING A PHASE OF FIVE INTO GROUP THREE:
010444,000454: 
010445,000455:                                                                                                 #         1)      IF TBASE IS NOT TO BE SET:
010446,000456:                                                                                                 #                         L-1     CA      FIVE
010447,000457:                                                                                                 #                         L       TC      NEWPHASE
010448,000458:                                                                                                 #                         L+1     OCT     00003
010449,000459: 
010450,000460:                                                                                                 #         2)      IF TBASE IS TO BE SET:
010451,000461:                                                                                                 #                         L-1     CS      FIVE
010452,000462:                                                                                                 #                         L       TC      NEWPHASE
010453,000463:                                                                                                 #                         L+1     OCT     00003
010454,000464: 
010455,000465:                                                                                                 #  SUBROUTINES CALLED:  NONE
010456,000466: 
010457,000467:                                                                                                 #  NORMAL EXIT MODE:  AT L+2 OF CALLING SEQUENCE
010458,000468: 
010459,000469:                                                                                                 #  ALARM OR ABORT EXITS:  NONE
010460,000470: 
010461,000471:                                                                                                 #  OUTPUT:  PHASE TABLE AND TBASE TABLE UPDATED
010462,000472: 
010463,000473:                                                                                                 #  ERASABLE INITIALIZATION REQ'D:  NONE
010464,000474:                                                                                                 # # Page 238
010465,000475:                                                                                                 #  DEBRIS: A,L,TEMPG
010466,000476: 
010467,000477:                                                                                                 #  *** WARNING *** THIS PROGRAM IS TO BE PLACED IN FIXED-FIXED AND UNSWITCHED ERASABLE.
010468,000478: 
010469,000479:    4000                                          SETLOC   FFTAG1                                
010470,000480:    4000                                          BANK                                           
010471,000481: 
010472,000482:    4126                                          COUNT*   $$/PHASE                              
010473,000483: 
010474,000484:    4126           00004        NEWPHASE          INHINT                                         
010475,000485: 
010476,000486:    4127           54001                          TS       L                                     #  SAVE FOR FURTHER USE
010477,000487: 
010478,000488:    4130           50002                          NDX      Q                                     #  OBTAIN THE GROUP NUMBER
010479,000489:    4131           30000                          CA       0                                     
010480,000490:    4132           24002                          INCR     Q                                     #  OBTAIN THE RETURN ADDRESS
010481,000491:    4133           60000                          DOUBLE                                         #  SAVE THE GROUP IN A FORM USED FOR
010482,000492:    4134           54061                          TS       TEMPG                                 #  INDEXING
010483,000493: 
010484,000494:    4135           10001                          CCS      L                                     #  SEE IF WE ARE TO SET TBASE
010485,000495:    4136           14145                          TCF      +7                                    #  NO, THE DELTA T WAS POSITIVE
010486,000496:    4137           14145                          TCF      +6                                    
010487,000497: 
010488,000498:    4140           24000        NUFAZ+10          INCR     A                                     #  SET TBASE AND STORE PHASE CORRECTLY
010489,000499:    4141           54001                          TS       L                                     
010490,000500: 
010491,000501:    4142           40025                          CS       TIME1                                 #  SET TBASE
010492,000502:    4143           50061                          NDX      TEMPG                                 
010493,000503:    4144           55255                          TS       TBASE1     -2                         
010494,000504: 
010495,000505:    4145           40001                          CS       L                                     #  NOW PUT THE PHASE IN THE RIGHT TABLE LOC
010496,000506:    4146           50061                          NDX      TEMPG                                 
010497,000507:    4147           53154                          DXCH     -PHASE1    -2                         
010498,000508: 
010499,000509:    4150           15642                          TCF      REQ                                   #  NOW RETURN TO CALL
010500,000510: 
010501,000511: 

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