Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

009985,000002:                                                                                                  ## Copyright:   Public domain.
009986,000003:                                                                                                  ## Filename:    RESTART_TABLES.agc
009987,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
009988,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the second release
009989,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
009990,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
009991,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
009992,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
009993,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
009994,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
009995,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
009996,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
009997,000014:                                                                                                  ##              the original YUL assembler.
009998,000015:                                                                                                  ##
009999,000016:                                                                                                  ## Assembler:   yaYUL
010000,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
010001,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
010002,000019:                                                                                                  ## Pages:       238-243
010003,000020:                                                                                                  ## Mod history: 2009-05-10 SN  (Sergio Navarro).  Started adapting
010004,000021:                                                                                                  ##                              from the Luminary131/ file of the same
010005,000022:                                                                                                  ##                              name, using Luminary099 page images.
010006,000023:                                                                                                  ##              2016-12-13 RSB  Proofed text comments with octopus/ProoferComments
010007,000024:                                                                                                  ##                              and corrected the errors found.  Made some
010008,000025:                                                                                                  ##                              P00 fixes.
010009,000026:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes identified while proofing Artemis 72.
010010,000027:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
010011,000028: 
010012,000029:                                                                                                  ## This source code has been transcribed or otherwise adapted from
010013,000030:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
010014,000031:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
010015,000032:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
010016,000033:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
010017,000034:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
010018,000035:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
010019,000036:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
010020,000037:                                                                                                  ## actually created.
010021,000038:                                                                                                  ##
010022,000039:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
010023,000040:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
010024,000041:                                                                                                  ## the listing from which it was transcribed. It has been verified to
010025,000042:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
010026,000043:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
010027,000044:                                                                                                  ##
010028,000045:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
010029,000046:                                                                                                  ##
010030,000047:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
010031,000048: 

Page 238

010033,000050:                                                                                                  #  RESTART TABLES
010034,000051:                                                                                                  #  ------------------
010035,000052: 
010036,000053:                                                                                                  #  THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP.  THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
010037,000054:                                                                                                  #  RESTART TABLES.  THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
010038,000055:                                                                                                  #  EACH USING THREE LOCATIONS.  THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
010039,000056:                                                                                                  #  WAY THINGS ARE PUT IN TO THE TABLES.
010040,000057: 
010041,000058:                                                                                                  #       A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
010042,000059:                                                                                                  #  FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC.  THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
010043,000060:                                                                                                  #  FOR EXAMPLE,
010044,000061: 
010045,000062:                                                                                                  #                5.7SPOT         OCT     23000
010046,000063:                                                                                                  #                                2CADR   SOMEJOB
010047,000064: 
010048,000065:                                                                                                  #  A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
010049,000066: 
010050,000067:                                                                                                  #                5.5SPOT         OCT     -23000
010051,000068:                                                                                                  #                                2CADR   ANYJOB
010052,000069: 
010053,000070:                                                                                                  #  HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
010054,000071:                                                                                                  #  A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY.  IN ITS PRDTTAB IS
010055,000072:                                                                                                  #  PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
010056,000073:                                                                                                  #  WITH.  EXAMPLE,
010057,000074: 
010058,000075:                                                                                                  #                3.6SPOT         GENADR  DELTAT
010059,000076:                                                                                                  #                                -GENADR LONGTASK
010060,000077:                                                                                                  #                                BBCON   LONGTASK
010061,000078:                                                                                                  #                                OCT     31000
010062,000079:                                                                                                  #                                2CADR   JOBAGAIN
010063,000080: 
010064,000081:                                                                                                  #  THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED.  IT SHOULD
010065,000082:                                                                                                  #  BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OF THE 2CADR OF THE
010066,000083:                                                                                                  #  TASK.  FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
010067,000084: 
010068,000085:                                                                                                  #  WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY.  IF PRDTTAB OF THE PHASE SPOT
010069,000086:                                                                                                  #  IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
010070,000087:                                                                                                  #  LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY.  IT SHOULD BE NOTED AS ABOVE, THAT
010071,000088:                                                                                                  #  IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE.  WITH
010072,000089:                                                                                                  #  WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
010073,000090:                                                                                                  #  TASK.  EXAMPLES,
010074,000091: 
010075,000092:                                                                                                  #                                OCT     77777           THIS WILL CAUSE AN IMMEDIATE RESTART
010076,000093:                                                                                                  #                                -2CADR  ATASK           OF THE TASK :ATASK:
010077,000094:                                                                                                  #        
010078,000095:                                                                                                  #                                DEC     200             IF THE TIME OF THE 2 SECONDS SINCE DUMMY
010079,000096:                                                                                                  #                                -2CADR  DUMMY           WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
010080,000097:                                                                                                  #                                                        IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
010081,000098:                                                                                                  #                                                        IT NORMALLY WOULD HAVE BEGUN.

Page 239

010083,000100:                                                                                                  #                                -GENADR DTIME           WHERE DTIME CONTAINS THE DELTA TIME
010084,000101:                                                                                                  #                                -2CADR  TASKTASK        OTHERWISE THIS IS AS ABOVE
010085,000102: 
010086,000103:                                                                                                  #  ***** NOW THE TABLES THEMSELVES *****
010087,000104: 
010088,000105: 01,2002                                           BANK     01                                    
010089,000106: 01,2000                                           SETLOC   RESTART                               
010090,000107: 01,2000                                           BANK                                           
010091,000108: 
010092,000109: 01,2002                        PRDTTAB            EQUALS   12000                                 #  USED TO FIND THE PRIORITY OR DELTATIME
010093,000110: 01,2002                        CADRTAB            EQUALS   12001                                 #  THIS AND THE NEXT RELATIVE LOC CONTAIN
010094,000111:                                                                                                  #  RESTART 2CADR
010095,000112: 
010096,000113: 01,2002                                           COUNT*   $$/RSTAB                              #  TABLES IN BANK 1.
010097,000114: 01,2002           00010        SIZETAB            TC       1.2SPOT    -12006                     
010098,000115: 01,2003           00020                           TC       1.3SPOT    -12004                     
010099,000116: 01,2004           00010                           TC       2.2SPOT    -12006                     
010100,000117: 01,2005           00023                           TC       2.3SPOT    -12004                     
010101,000118: 01,2006           00010                           TC       3.2SPOT    -12006                     
010102,000119: 01,2007           00053                           TC       3.3SPOT    -12004                     
010103,000120: 01,2010           00057                           TC       4.2SPOT    -12006                     
010104,000121: 01,2011           00067                           TC       4.3SPOT    -12004                     
010105,000122: 01,2012           00142                           TC       5.2SPOT    -12006                     
010106,000123: 01,2013           00160                           TC       5.3SPOT    -12004                     
010107,000124: 01,2014           00010                           TC       6.2SPOT    -12006                     
010108,000125: 01,2015           00171                           TC       6.3SPOT    -12004                     
010109,000126: 01,2016           21000        1.2SPOT            OCT      21000                                 #  A DUMMY EXAMPLE TO BE REPLACED AS SOON
010110,000127: 01,2017     0074                                  EBANK=   STATE                                 
010111,000128: 01,2017           05155 04060                     2CADR    ENDOFJOB                              #  AS THERE IS A LEGITIMATE 1.2SPOT
010112,000129: 
010113,000130: 01,2021           00144                           DEC      100        B-14                       
010114,000131: 01,2022     0074                                  EBANK=   STATE                                 
010115,000132: 01,2022           05261 04060                     2CADR    TASKOVER                              
010116,000133: 
010117,000134:                                                                                                  #  ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
010118,000135: 
010119,000136: 01,2024           76300        1.3SPOT            -GENADR  SAVET-30                              
010120,000137: 01,2025  E7,1515                                  EBANK=   DVCNTR                                
010121,000138: 01,2025           75431 03710                     -2CADR   ULLGTASK                              
010122,000139: 
010123,000140:                                                                                                  #  ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
010124,000141: 
010125,000142: 01,2027  01,2016               2.2SPOT            EQUALS   1.2SPOT                               
010126,000143: 
010127,000144:                                                                                                  #  ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
010128,000145: 
010129,000146: 01,2027           02630        2.3SPOT            GENADR   600SECS                               
010130,000147: 
010131,000148: 01,2030           75173                           -GENADR  STATEINT                              
010132,000149: 01,2031  E3,1554                                  EBANK=   RRECTCSM                              
010133,000150: 01,2031           26063                           BBCON    STATEINT                              
010134,000151: 

Page 240

010136,000153: 01,2032           05000        2.5SPOT            OCT      05000                                 
010137,000154: 01,2033  E3,1554                                  EBANK=   RRECTCSM                              
010138,000155: 01,2033           02613 26063                     2CADR    STATINT1                              
010139,000156: 
010140,000157: 01,2035           02734        2.7SPOT            DEC      1500       B-14                       
010141,000158: 01,2036  E7,1456                                  EBANK=   LOSCOUNT                              
010142,000159: 01,2036           75533 27710                     -2CADR   P20LEMC1                              
010143,000160: 
010144,000161: 01,2040           14000        2.11SPOT           OCT      14000                                 
010145,000162: 01,2041  E7,1762                                  EBANK=   P21TIME                               
010146,000163: 01,2041           02416 50067                     2CADR    P25LEM1                               
010147,000164: 
010148,000165: 01,2043           10000        2.13SPOT           OCT      10000                                 
010149,000166: 01,2044  E7,1456                                  EBANK=   LOSCOUNT                              
010150,000167: 01,2044           02217 54067                     2CADR    RELINUS                               
010151,000168: 
010152,000169: 01,2046           26000        2.15SPOT           OCT      26000                                 
010153,000170: 01,2047  E7,1456                                  EBANK=   LOSCOUNT                              
010154,000171: 01,2047           02653 50067                     2CADR    R22RSTRT                              
010155,000172: 
010156,000173: 01,2051           77777        2.17SPOT           OCT      77777                                 
010157,000174: 01,2052  E7,1700                                  EBANK=   VGPREV                                
010158,000175: 01,2052           75440 03710                     -2CADR   REDO2.17                              
010159,000176: 
010160,000177: 01,2054           00031        2.21SPOT           DEC      25         B-14                       
010161,000178: 01,2055  E7,1515                                  EBANK=   DVCNTR                                
010162,000179: 01,2055           75771 35710                     -2CADR   R10,R11                               
010163,000180: 
010164,000181:                                                                                                  #  ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
010165,000182: 
010166,000183: 01,2057  01,2016               3.2SPOT            EQUALS   1.2SPOT                               
010167,000184: 
010168,000185:                                                                                                  #  ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
010169,000186: 
010170,000187: 01,2057           76355        3.3SPOT            -GENADR  ZOOMTIME                              
010171,000188: 01,2060  E7,1515                                  EBANK=   DVCNTR                                
010172,000189: 01,2060           75755 41710                     -2CADR   ZOOM                                  
010173,000190: 
010174,000191: 01,2062           20000        3.5SPOT            OCT      20000                                 
010175,000192: 01,2063  E7,1453                                  EBANK=   TTOGO                                 
010176,000193: 01,2063           02540 56067                     2CADR    S40.13                                
010177,000194: 
010178,000195:                                                                                                  #  ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
010179,000196: 
010180,000197: 01,2065           04704        4.2SPOT            DEC      2500       B-14                       
010181,000198: 01,2066  E7,1453                                  EBANK=   TTOGO                                 
010182,000199: 
010183,000200: 01,2066           75425 03710                     -2CADR   TIG-5                                 
010184,000201: 
010185,000202: 01,2070           77777                           OCT      77777                                 
010186,000203: 01,2071  E7,1453                                  EBANK=   TTOGO                                 

Page 241

010188,000205: 01,2071           75435 03710                     -2CADR   REDO4.2                               
010189,000206: 
010190,000207:                                                                                                  #  ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
010191,000208: 
010192,000209: 01,2073           25000        4.3SPOT            OCT      25000                                 
010193,000210: 01,2074  E7,1515                                  EBANK=   DVCNTR                                
010194,000211: 01,2074           03540 64067                     2CADR    GOABORT                               
010195,000212: 
010196,000213: 01,2076           00062        4.5SPOT            DEC      50         B-14                       
010197,000214: 01,2077  E7,1453                                  EBANK=   TTOGO                                 
010198,000215: 01,2077           75215 03710                     -2CADR   ULLAGOFF                              
010199,000216: 
010200,000217: 01,2101           00764        4.7SPOT            DEC      500        B-14                       
010201,000218: 01,2102  E7,1515                                  EBANK=   DVCNTR                                
010202,000219: 01,2102           75374 03710                     -2CADR   TIG-0                                 
010203,000220: 
010204,000221: 01,2104           76260        4.11SPOT           -GENADR  TGO        +1                         
010205,000222: 01,2105  E7,1515                                  EBANK=   DVCNTR                                
010206,000223: 01,2105           74235 03710                     -2CADR   ENGOFTSK                              
010207,000224: 
010208,000225: 01,2107           12000        4.13SPOT           OCT      12000                                 
010209,000226: 01,2110  E7,1462                                  EBANK=   TRKMKCNT                              
010210,000227: 01,2110           03223 74067                     2CADR    POSTBURN                              
010211,000228: 
010212,000229: 01,2112           00764        4.15SPOT           DEC      500        B-14                       
010213,000230: 01,2113  E7,1453                                  EBANK=   TTOGO                                 
010214,000231: 01,2113           75501 03710                     -2CADR   TIG-30                                
010215,000232: 
010216,000233: 01,2115           77777        4.17SPOT           OCT      77777                                 
010217,000234: 01,2116  E7,1515                                  EBANK=   DVCNTR                                
010218,000235: 01,2116           75425 03710                     -2CADR   TIG-5                                 
010219,000236: 
010220,000237: 01,2120           13000        4.21SPOT           OCT      13000                                 
010221,000238: 01,2121  E5,1730                                  EBANK=   STAR                                  
010222,000239: 01,2121           03020 30065                     2CADR    R51.1      +1                         
010223,000240: 
010224,000241: 01,2123           77777        4.23SPOT           OCT      77777                                 
010225,000242: 01,2124  E7,1515                                  EBANK=   DVCNTR                                
010226,000243: 01,2124           75351 03710                     -2CADR   IGNITION                              
010227,000244: 
010228,000245: 01,2126           01477        4.25SPOT           GENADR   SAVET-30                              
010229,000246: 01,2127           75537                           -GENADR  TIG-35                                
010230,000247: 01,2130  E7,1477                                  EBANK=   SAVET-30                              
010231,000248: 01,2130           74067                           BBCON    TIG-35                                
010232,000249: 
010233,000250: 
010234,000251: 01,2131           52777        4.27SPOT           OCT      52777                                 
010235,000252: 01,2132  E7,1515                                  EBANK=   DVCNTR                                
010236,000253: 01,2132           02073 42067                     2CADR    P70A                                  

Page 242

010238,000255: 01,2134           52777        4.31SPOT           OCT      52777                                 
010239,000256: 01,2135  E7,1515                                  EBANK=   DVCNTR                                
010240,000257: 01,2135           02076 42067                     2CADR    P71A                                  
010241,000258: 
010242,000259: 01,2137           46777        4.33SPOT           OCT      46777                                 
010243,000260: 01,2140  E7,1515                                  EBANK=   DVCNTR                                
010244,000261: 01,2140           02024 10067                     2CADR    GOPOOFIX                              
010245,000262: 
010246,000263: 01,2142           46777        4.35SPOT           OCT      46777                                 
010247,000264: 01,2143  E7,1515                                  EBANK=   DVCNTR                                
010248,000265: 01,2143           05665 04067                     2CADR    GOPOODOO                              
010249,000266: 
010250,000267: 01,2145           52777        4.37SPOT           OCT      52777                                 
010251,000268: 01,2146  E7,1455                                  EBANK=   WHICH                                 
010252,000269: 01,2146           02571 74067                     2CADR    COMFAIL                               
010253,000270: 
010254,000271:                                                                                                  #  ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.
010255,000272: 01,2150           22000        5.2SPOT            OCT      22000                                 
010256,000273: 01,2151  E7,1515                                  EBANK=   DVCNTR                                
010257,000274: 01,2151           02461 46067                     2CADR    NORMLIZE                              
010258,000275: 
010259,000276: 01,2153           00310                           DEC      200        B-14                       
010260,000277: 01,2154  E7,1515                                  EBANK=   DVCNTR                                
010261,000278: 01,2154           74163 01710                     -2CADR   REREADAC                              
010262,000279: 
010263,000280: 01,2156           00310        5.4SPOT            DEC      200        B-14                       
010264,000281: 01,2157  E7,1515                                  EBANK=   DVCNTR                                
010265,000282: 01,2157           74163 01710                     -2CADR   REREADAC                              
010266,000283: 
010267,000284: 01,2161           20000                           OCT      20000                                 
010268,000285: 01,2162  E7,1515                                  EBANK=   DVCNTR                                
010269,000286: 01,2162           02206 66067                     2CADR    SERVICER                              
010270,000287: 
010271,000288:                                                                                                  #  ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
010272,000289: 
010273,000290: 01,2164           00310        5.3SPOT            DEC      200        B-14                       
010274,000291: 01,2165  E7,1515                                  EBANK=   DVCNTR                                
010275,000292: 01,2165           74163 01710                     -2CADR   REREADAC                              
010276,000293: 
010277,000294: 01,2167           77777        5.5SPOT            OCT      77777                                 
010278,000295: 01,2170  E7,1515                                  EBANK=   DVCNTR                                
010279,000296: 01,2170           74324 01710                     -2CADR   REDO5.5                               
010280,000297: 
010281,000298: 01,2172           77777        5.7SPOT            OCT      77777                                 
010282,000299: 01,2173  E7,1515                                  EBANK=   DVCNTR                                

Page 243

010284,000301: 01,2173           74361 01710                     -2CADR   BIBIBIAS                              
010285,000302: 
010286,000303:                                                                                                  #  ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
010287,000304: 
010288,000305: 01,2175  01,2016               6.2SPOT            EQUALS   1.2SPOT                               
010289,000306: 01,2175           00144        6.3SPOT            DEC      100        B-14                       
010290,000307: 01,2176  E7,1441                                  EBANK=   TIG                                   
010291,000308: 01,2176           75060 03710                     -2CADR   CLOKTASK                              
010292,000309: 
010293,000310: 01,2200           30000        6.5SPOT            OCT      30000                                 #  PROTECT INCREMENTING OF TIME2,TIME1 BY
010294,000311: 01,2201  E3,1706                                  EBANK=   TEPHEM                                #  P27(UPDATE PROGRAM) VIA V70 OR V73.
010295,000312: 01,2201           03601 10063                     2CADR    TIMEDIDR                              
010296,000313: 
010297,000314: 01,2203           17000        6.7SPOT            OCT      17000                                 
010298,000315: 01,2204  E7,1700                                  EBANK=   VGPREV                                
010299,000316: 01,2204           03350 74067                     2CADR    REDO6.7                               
010300,000317: 
010301,000318: 

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