Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

009804,000002:                                                                                                  ## Copyright:   Public domain.
009805,000003:                                                                                                  ## Filename:    RESTART_TABLES.agc
009806,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
009807,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
009808,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
009809,000007:                                                                                                  ## Assembler:   yaYUL
009810,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009811,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
009812,000010:                                                                                                  ## Pages:       238-243
009813,000011:                                                                                                  ## Mod history: 2009-05-10 SN  (Sergio Navarro).  Started adapting
009814,000012:                                                                                                  ##                              from the Luminary131/ file of the same
009815,000013:                                                                                                  ##                              name, using Luminary099 page images.
009816,000014:                                                                                                  ##              2016-12-13 RSB  Proofed text comments with octopus/ProoferComments
009817,000015:                                                                                                  ##                              and corrected the errors found.  Made some
009818,000016:                                                                                                  ##                              P00 fixes.
009819,000017:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes identified while proofing Artemis 72.
009820,000018:                                                                                                  ##
009821,000019:                                                                                                  ## This source code has been transcribed or otherwise adapted from
009822,000020:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
009823,000021:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
009824,000022:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
009825,000023:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
009826,000024:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
009827,000025:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
009828,000026:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
009829,000027:                                                                                                  ## actually created.
009830,000028:                                                                                                  ##
009831,000029:                                                                                                  ## Notations on the hardcopy document read, in part:
009832,000030:                                                                                                  ##
009833,000031:                                                                                                  ##      Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
009834,000032:                                                                                                  ##      16:27 JULY 14, 1969 
009835,000033: 

Page 238

009837,000035:                                                                                                  #  RESTART TABLES
009838,000036:                                                                                                  #  ------------------
009839,000037: 
009840,000038:                                                                                                  #  THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP.  THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
009841,000039:                                                                                                  #  RESTART TABLES.  THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
009842,000040:                                                                                                  #  EACH USING THREE LOCATIONS.  THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
009843,000041:                                                                                                  #  WAY THINGS ARE PUT IN TO THE TABLES.
009844,000042: 
009845,000043:                                                                                                  #       A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
009846,000044:                                                                                                  #  FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC.  THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
009847,000045:                                                                                                  #  FOR EXAMPLE,
009848,000046: 
009849,000047:                                                                                                  #                5.7SPOT         OCT     23000
009850,000048:                                                                                                  #                                2CADR   SOMEJOB
009851,000049: 
009852,000050:                                                                                                  #  A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
009853,000051: 
009854,000052:                                                                                                  #                5.5SPOT         OCT     -23000
009855,000053:                                                                                                  #                                2CADR   ANYJOB
009856,000054: 
009857,000055:                                                                                                  #  HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
009858,000056:                                                                                                  #  A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY.  IN ITS PRDTTAB IS
009859,000057:                                                                                                  #  PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
009860,000058:                                                                                                  #  WITH.  EXAMPLE,
009861,000059: 
009862,000060:                                                                                                  #                3.6SPOT         GENADR  DELTAT
009863,000061:                                                                                                  #                                -GENADR LONGTASK
009864,000062:                                                                                                  #                                BBCON   LONGTASK
009865,000063:                                                                                                  #                                OCT     31000
009866,000064:                                                                                                  #                                2CADR   JOBAGAIN
009867,000065: 
009868,000066:                                                                                                  #  THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED.  IT SHOULD
009869,000067:                                                                                                  #  BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OF THE 2CADR OF THE
009870,000068:                                                                                                  #  TASK.  FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
009871,000069: 
009872,000070:                                                                                                  #  WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY.  IF PRDTTAB OF THE PHASE SPOT
009873,000071:                                                                                                  #  IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
009874,000072:                                                                                                  #  LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY.  IT SHOULD BE NOTED AS ABOVE, THAT
009875,000073:                                                                                                  #  IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE.  WITH
009876,000074:                                                                                                  #  WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
009877,000075:                                                                                                  #  TASK.  EXAMPLES,
009878,000076: 
009879,000077:                                                                                                  #                                OCT     77777           THIS WILL CAUSE AN IMMEDIATE RESTART
009880,000078:                                                                                                  #                                -2CADR  ATASK           OF THE TASK :ATASK:
009881,000079:                                                                                                  #        
009882,000080:                                                                                                  #                                DEC     200             IF THE TIME OF THE 2 SECONDS SINCE DUMMY
009883,000081:                                                                                                  #                                -2CADR  DUMMY           WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
009884,000082:                                                                                                  #                                                        IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
009885,000083:                                                                                                  #                                                        IT NORMALLY WOULD HAVE BEGUN.

Page 239

009887,000085:                                                                                                  #                                -GENADR DTIME           WHERE DTIME CONTAINS THE DELTA TIME
009888,000086:                                                                                                  #                                -2CADR  TASKTASK        OTHERWISE THIS IS AS ABOVE
009889,000087: 
009890,000088:                                                                                                  #  ***** NOW THE TABLES THEMSELVES *****
009891,000089: 
009892,000090: 01,2002                                           BANK     01                                    
009893,000091: 01,2000                                           SETLOC   RESTART                               
009894,000092: 01,2000                                           BANK                                           
009895,000093: 
009896,000094: 01,2002                        PRDTTAB            EQUALS   12000                                 #  USED TO FIND THE PRIORITY OR DELTATIME
009897,000095: 01,2002                        CADRTAB            EQUALS   12001                                 #  THIS AND THE NEXT RELATIVE LOC CONTAIN
009898,000096:                                                                                                  #  RESTART 2CADR
009899,000097: 
009900,000098: 01,2002                                           COUNT*   $$/RSTAB                              #  TABLES IN BANK 1.
009901,000099: 01,2002           00010        SIZETAB            TC       1.2SPOT    -12006                     
009902,000100: 01,2003           00020                           TC       1.3SPOT    -12004                     
009903,000101: 01,2004           00010                           TC       2.2SPOT    -12006                     
009904,000102: 01,2005           00023                           TC       2.3SPOT    -12004                     
009905,000103: 01,2006           00010                           TC       3.2SPOT    -12006                     
009906,000104: 01,2007           00053                           TC       3.3SPOT    -12004                     
009907,000105: 01,2010           00057                           TC       4.2SPOT    -12006                     
009908,000106: 01,2011           00067                           TC       4.3SPOT    -12004                     
009909,000107: 01,2012           00142                           TC       5.2SPOT    -12006                     
009910,000108: 01,2013           00160                           TC       5.3SPOT    -12004                     
009911,000109: 01,2014           00010                           TC       6.2SPOT    -12006                     
009912,000110: 01,2015           00171                           TC       6.3SPOT    -12004                     
009913,000111: 01,2016           21000        1.2SPOT            OCT      21000                                 #  A DUMMY EXAMPLE TO BE REPLACED AS SOON
009914,000112: 01,2017     0074                                  EBANK=   STATE                                 
009915,000113: 01,2017           05155 04060                     2CADR    ENDOFJOB                              #  AS THERE IS A LEGITIMATE 1.2SPOT
009916,000114: 
009917,000115: 01,2021           00144                           DEC      100        B-14                       
009918,000116: 01,2022     0074                                  EBANK=   STATE                                 
009919,000117: 01,2022           05261 04060                     2CADR    TASKOVER                              
009920,000118: 
009921,000119:                                                                                                  #  ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
009922,000120: 
009923,000121: 01,2024           76300        1.3SPOT            -GENADR  SAVET-30                              
009924,000122: 01,2025  E7,1515                                  EBANK=   DVCNTR                                
009925,000123: 01,2025           75431 03710                     -2CADR   ULLGTASK                              
009926,000124: 
009927,000125:                                                                                                  #  ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
009928,000126: 
009929,000127: 01,2027  01,2016               2.2SPOT            EQUALS   1.2SPOT                               
009930,000128: 
009931,000129:                                                                                                  #  ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
009932,000130: 
009933,000131: 01,2027           02630        2.3SPOT            GENADR   600SECS                               
009934,000132: 
009935,000133: 01,2030           75173                           -GENADR  STATEINT                              
009936,000134: 01,2031  E3,1554                                  EBANK=   RRECTCSM                              
009937,000135: 01,2031           26063                           BBCON    STATEINT                              
009938,000136: 

Page 240

009940,000138: 01,2032           05000        2.5SPOT            OCT      05000                                 
009941,000139: 01,2033  E3,1554                                  EBANK=   RRECTCSM                              
009942,000140: 01,2033           02613 26063                     2CADR    STATINT1                              
009943,000141: 
009944,000142: 01,2035           02734        2.7SPOT            DEC      1500       B-14                       
009945,000143: 01,2036  E7,1456                                  EBANK=   LOSCOUNT                              
009946,000144: 01,2036           75533 27710                     -2CADR   P20LEMC1                              
009947,000145: 
009948,000146: 01,2040           14000        2.11SPOT           OCT      14000                                 
009949,000147: 01,2041  E7,1762                                  EBANK=   P21TIME                               
009950,000148: 01,2041           02416 50067                     2CADR    P25LEM1                               
009951,000149: 
009952,000150: 01,2043           10000        2.13SPOT           OCT      10000                                 
009953,000151: 01,2044  E7,1456                                  EBANK=   LOSCOUNT                              
009954,000152: 01,2044           02217 54067                     2CADR    RELINUS                               
009955,000153: 
009956,000154: 01,2046           26000        2.15SPOT           OCT      26000                                 
009957,000155: 01,2047  E7,1456                                  EBANK=   LOSCOUNT                              
009958,000156: 01,2047           02653 50067                     2CADR    R22RSTRT                              
009959,000157: 
009960,000158: 01,2051           77777        2.17SPOT           OCT      77777                                 
009961,000159: 01,2052  E7,1700                                  EBANK=   VGPREV                                
009962,000160: 01,2052           75440 03710                     -2CADR   REDO2.17                              
009963,000161: 
009964,000162: 01,2054           00031        2.21SPOT           DEC      25         B-14                       
009965,000163: 01,2055  E7,1515                                  EBANK=   DVCNTR                                
009966,000164: 01,2055           75771 35710                     -2CADR   R10,R11                               
009967,000165: 
009968,000166:                                                                                                  #  ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
009969,000167: 
009970,000168: 01,2057  01,2016               3.2SPOT            EQUALS   1.2SPOT                               
009971,000169: 
009972,000170:                                                                                                  #  ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
009973,000171: 
009974,000172: 01,2057           76355        3.3SPOT            -GENADR  ZOOMTIME                              
009975,000173: 01,2060  E7,1515                                  EBANK=   DVCNTR                                
009976,000174: 01,2060           75755 41710                     -2CADR   ZOOM                                  
009977,000175: 
009978,000176: 01,2062           20000        3.5SPOT            OCT      20000                                 
009979,000177: 01,2063  E7,1453                                  EBANK=   TTOGO                                 
009980,000178: 01,2063           02540 56067                     2CADR    S40.13                                
009981,000179: 
009982,000180:                                                                                                  #  ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
009983,000181: 
009984,000182: 01,2065           04704        4.2SPOT            DEC      2500       B-14                       
009985,000183: 01,2066  E7,1453                                  EBANK=   TTOGO                                 
009986,000184: 
009987,000185: 01,2066           75425 03710                     -2CADR   TIG-5                                 
009988,000186: 
009989,000187: 01,2070           77777                           OCT      77777                                 
009990,000188: 01,2071  E7,1453                                  EBANK=   TTOGO                                 

Page 241

009992,000190: 01,2071           75435 03710                     -2CADR   REDO4.2                               
009993,000191: 
009994,000192:                                                                                                  #  ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
009995,000193: 
009996,000194: 01,2073           25000        4.3SPOT            OCT      25000                                 
009997,000195: 01,2074  E7,1515                                  EBANK=   DVCNTR                                
009998,000196: 01,2074           03540 64067                     2CADR    GOABORT                               
009999,000197: 
010000,000198: 01,2076           00062        4.5SPOT            DEC      50         B-14                       
010001,000199: 01,2077  E7,1453                                  EBANK=   TTOGO                                 
010002,000200: 01,2077           75215 03710                     -2CADR   ULLAGOFF                              
010003,000201: 
010004,000202: 01,2101           00764        4.7SPOT            DEC      500        B-14                       
010005,000203: 01,2102  E7,1515                                  EBANK=   DVCNTR                                
010006,000204: 01,2102           75374 03710                     -2CADR   TIG-0                                 
010007,000205: 
010008,000206: 01,2104           76260        4.11SPOT           -GENADR  TGO        +1                         
010009,000207: 01,2105  E7,1515                                  EBANK=   DVCNTR                                
010010,000208: 01,2105           74235 03710                     -2CADR   ENGOFTSK                              
010011,000209: 
010012,000210: 01,2107           12000        4.13SPOT           OCT      12000                                 
010013,000211: 01,2110  E7,1462                                  EBANK=   TRKMKCNT                              
010014,000212: 01,2110           03223 74067                     2CADR    POSTBURN                              
010015,000213: 
010016,000214: 01,2112           00764        4.15SPOT           DEC      500        B-14                       
010017,000215: 01,2113  E7,1453                                  EBANK=   TTOGO                                 
010018,000216: 01,2113           75501 03710                     -2CADR   TIG-30                                
010019,000217: 
010020,000218: 01,2115           77777        4.17SPOT           OCT      77777                                 
010021,000219: 01,2116  E7,1515                                  EBANK=   DVCNTR                                
010022,000220: 01,2116           75425 03710                     -2CADR   TIG-5                                 
010023,000221: 
010024,000222: 01,2120           13000        4.21SPOT           OCT      13000                                 
010025,000223: 01,2121  E5,1730                                  EBANK=   STAR                                  
010026,000224: 01,2121           03020 30065                     2CADR    R51.1      +1                         
010027,000225: 
010028,000226: 01,2123           77777        4.23SPOT           OCT      77777                                 
010029,000227: 01,2124  E7,1515                                  EBANK=   DVCNTR                                
010030,000228: 01,2124           75351 03710                     -2CADR   IGNITION                              
010031,000229: 
010032,000230: 01,2126           01477        4.25SPOT           GENADR   SAVET-30                              
010033,000231: 01,2127           75537                           -GENADR  TIG-35                                
010034,000232: 01,2130  E7,1477                                  EBANK=   SAVET-30                              
010035,000233: 01,2130           74067                           BBCON    TIG-35                                
010036,000234: 
010037,000235: 
010038,000236: 01,2131           52777        4.27SPOT           OCT      52777                                 
010039,000237: 01,2132  E7,1515                                  EBANK=   DVCNTR                                
010040,000238: 01,2132           02073 42067                     2CADR    P70A                                  

Page 242

010042,000240: 01,2134           52777        4.31SPOT           OCT      52777                                 
010043,000241: 01,2135  E7,1515                                  EBANK=   DVCNTR                                
010044,000242: 01,2135           02076 42067                     2CADR    P71A                                  
010045,000243: 
010046,000244: 01,2137           46777        4.33SPOT           OCT      46777                                 
010047,000245: 01,2140  E7,1515                                  EBANK=   DVCNTR                                
010048,000246: 01,2140           02024 10067                     2CADR    GOPOOFIX                              
010049,000247: 
010050,000248: 01,2142           46777        4.35SPOT           OCT      46777                                 
010051,000249: 01,2143  E7,1515                                  EBANK=   DVCNTR                                
010052,000250: 01,2143           05665 04067                     2CADR    GOPOODOO                              
010053,000251: 
010054,000252: 01,2145           52777        4.37SPOT           OCT      52777                                 
010055,000253: 01,2146  E7,1455                                  EBANK=   WHICH                                 
010056,000254: 01,2146           02571 74067                     2CADR    COMFAIL                               
010057,000255: 
010058,000256:                                                                                                  #  ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.
010059,000257: 01,2150           22000        5.2SPOT            OCT      22000                                 
010060,000258: 01,2151  E7,1515                                  EBANK=   DVCNTR                                
010061,000259: 01,2151           02461 46067                     2CADR    NORMLIZE                              
010062,000260: 
010063,000261: 01,2153           00310                           DEC      200        B-14                       
010064,000262: 01,2154  E7,1515                                  EBANK=   DVCNTR                                
010065,000263: 01,2154           74163 01710                     -2CADR   REREADAC                              
010066,000264: 
010067,000265: 01,2156           00310        5.4SPOT            DEC      200        B-14                       
010068,000266: 01,2157  E7,1515                                  EBANK=   DVCNTR                                
010069,000267: 01,2157           74163 01710                     -2CADR   REREADAC                              
010070,000268: 
010071,000269: 01,2161           20000                           OCT      20000                                 
010072,000270: 01,2162  E7,1515                                  EBANK=   DVCNTR                                
010073,000271: 01,2162           02206 66067                     2CADR    SERVICER                              
010074,000272: 
010075,000273:                                                                                                  #  ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
010076,000274: 
010077,000275: 01,2164           00310        5.3SPOT            DEC      200        B-14                       
010078,000276: 01,2165  E7,1515                                  EBANK=   DVCNTR                                
010079,000277: 01,2165           74163 01710                     -2CADR   REREADAC                              
010080,000278: 
010081,000279: 01,2167           77777        5.5SPOT            OCT      77777                                 
010082,000280: 01,2170  E7,1515                                  EBANK=   DVCNTR                                
010083,000281: 01,2170           74324 01710                     -2CADR   REDO5.5                               
010084,000282: 
010085,000283: 01,2172           77777        5.7SPOT            OCT      77777                                 
010086,000284: 01,2173  E7,1515                                  EBANK=   DVCNTR                                

Page 243

010088,000286: 01,2173           74361 01710                     -2CADR   BIBIBIAS                              
010089,000287: 
010090,000288:                                                                                                  #  ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
010091,000289: 
010092,000290: 01,2175  01,2016               6.2SPOT            EQUALS   1.2SPOT                               
010093,000291: 01,2175           00144        6.3SPOT            DEC      100        B-14                       
010094,000292: 01,2176  E7,1441                                  EBANK=   TIG                                   
010095,000293: 01,2176           75060 03710                     -2CADR   CLOKTASK                              
010096,000294: 
010097,000295: 01,2200           30000        6.5SPOT            OCT      30000                                 #  PROTECT INCREMENTING OF TIME2,TIME1 BY
010098,000296: 01,2201  E3,1706                                  EBANK=   TEPHEM                                #  P27(UPDATE PROGRAM) VIA V70 OR V73.
010099,000297: 01,2201           03601 10063                     2CADR    TIMEDIDR                              
010100,000298: 
010101,000299: 01,2203           17000        6.7SPOT            OCT      17000                                 
010102,000300: 01,2204  E7,1700                                  EBANK=   VGPREV                                
010103,000301: 01,2204           03350 74067                     2CADR    REDO6.7                               
010104,000302: 
010105,000303: 

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