Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

011005,000002:                                                                                                  ## Copyright:   Public domain.
011006,000003:                                                                                                  ## Filename:    RESTART_TABLES.agc
011007,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
011008,000005:                                                                                                  ##              It is part of the source code for the original release
011009,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
011010,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
011011,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
011012,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
011013,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
011014,000011:                                                                                                  ##              that the code format has been changed to conform to the
011015,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
011016,000013:                                                                                                  ##              original YUL assembler.
011017,000014:                                                                                                  ## Reference:   pp. 253-258
011018,000015:                                                                                                  ## Assembler:   yaYUL
011019,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
011020,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
011021,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
011022,000019:                                                                                                  ##              2017-01-09 HG   Transcribed
011023,000020:                                                                                                  ##              2017-01-25 RSB  Proofed comment text using octopus/prooferComments
011024,000021:                                                                                                  ##                              but no errors found.
011025,000022: 

Page 253

011027,000024:                                                                                                  #  RESTART TABLES
011028,000025: 
011029,000026:                                                                                                  #  ------------------
011030,000027: 
011031,000028:                                                                                                  #  THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP.  THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
011032,000029:                                                                                                  #  RESTART TABLES.  THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
011033,000030:                                                                                                  #  EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
011034,000031:                                                                                                  #  WAY THINGS ARE PUT INTO THE TABLES.
011035,000032:                                                                                                  #       A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
011036,000033:                                                                                                  #  FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC.  THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
011037,000034:                                                                                                  #  FOR EXAMPLE,
011038,000035: 
011039,000036:                                                                                                  #                                          5.7SPOT  OCT    23000
011040,000037:                                                                                                  #                                                   2CADR  SOMEJOB
011041,000038: 
011042,000039:                                                                                                  #  A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
011043,000040: 
011044,000041:                                                                                                  #                                          5.5SPOT  OCT    -23000
011045,000042:                                                                                                  #                                                   2CADR  ANYJOB
011046,000043: 
011047,000044:                                                                                                  #  HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
011048,000045:                                                                                                  #  A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY.  IN ITS PRDTTAB IS
011049,000046:                                                                                                  #  PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
011050,000047:                                                                                                  #  WITH.  EXAMPLE,
011051,000048: 
011052,000049:                                                                                                  #                                          3.6SPOT  GENADR DELTAT
011053,000050:                                                                                                  #                                                  -GENADR LONGTASK
011054,000051:                                                                                                  #                                                   BBCON  LONGTASK
011055,000052: 
011056,000053:                                                                                                  #                                                   OCT    31000
011057,000054:                                                                                                  #                                                   2CADR  JOBAGAIN
011058,000055: 
011059,000056:                                                                                                  #  THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
011060,000057:                                                                                                  #  BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OFTHE 2CADR OF THE
011061,000058:                                                                                                  #  TASK.  FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
011062,000059: 
011063,000060:                                                                                                  #  WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
011064,000061:                                                                                                  #  IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
011065,000062:                                                                                                  #  LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY.  IT SHOULD BE NOTED AS ABOVE, THAT
011066,000063:                                                                                                  #  IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE.  WITH
011067,000064:                                                                                                  #  WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
011068,000065:                                                                                                  #  TASK.  EXAMPLES,
011069,000066: 
011070,000067:                                                                                                  #                                                   OCT    77777           THIS WILL CAUSE AN IMMEDIATE RESTART
011071,000068:                                                                                                  #                                                  -2CADR  ATASK           OF THE TASK :ATASK:
011072,000069: 
011073,000070:                                                                                                  #                                                   DEC    200             IF THE TIME OF THE 2 SECONDS SINCE DUMMY
011074,000071:                                                                                                  #                                                  -2CADR  DUMMY           WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
011075,000072:                                                                                                  #                                                                          IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
011076,000073:                                                                                                  #                                                                          IT NORMALLY WOULD HAVE BEGUN.
011077,000074: 

Page 254

011079,000076:                                                                                                  #                                                  -GENADR DTIME           WHERE DTIME CONTAINS THE DELTA TIME
011080,000077:                                                                                                  #                                                  -2CADR  TASKTASK        OTHERWISE THIS IS AS ABOVE
011081,000078: 
011082,000079:                                                                                                  #  *****    NOW THE TABLES THEMSELVES *****
011083,000080: 
011084,000081: 01,2002                                           BANK     01                                    
011085,000082: 01,2000                                           SETLOC   RESTART                               
011086,000083: 01,2000                                           BANK                                           
011087,000084: 
011088,000085: 01,2002                        PRDTTAB            EQUALS   12000                                 #  USED TO FIND THE PRIORITY OR DELTATIME
011089,000086: 01,2002                        CADRTAB            EQUALS   12001                                 #  THIS AND THE NEXT RELATIVE LOC CONTAIN
011090,000087:                                                                                                  #  RESTART 2CADR
011091,000088: 
011092,000089: 01,2002                                           COUNT*   $$/RSTAB                              #  TABLES IN BANK 1.
011093,000090: 01,2002           00010        SIZETAB            TC       1.2SPOT    -12006                     
011094,000091: 01,2003           00020                           TC       1.3SPOT    -12004                     
011095,000092: 01,2004           00010                           TC       2.2SPOT    -12006                     
011096,000093: 01,2005           00023                           TC       2.3SPOT    -12004                     
011097,000094: 01,2006           00010                           TC       3.2SPOT    -12006                     
011098,000095: 01,2007           00053                           TC       3.3SPOT    -12004                     
011099,000096: 01,2010           00054                           TC       4.2SPOT    -12006                     
011100,000097: 01,2011           00064                           TC       4.3SPOT    -12004                     
011101,000098: 01,2012           00137                           TC       5.2SPOT    -12006                     
011102,000099: 01,2013           00155                           TC       5.3SPOT    -12004                     
011103,000100: 01,2014           00010                           TC       6.2SPOT    -12006                     
011104,000101: 01,2015           00166                           TC       6.3SPOT    -12004                     
011105,000102: 01,2016           21000        1.2SPOT            OCT      21000                                 #  A DUMMY EXAMPLE TO BE REPLACED AS SOON
011106,000103: 01,2017     0074                                  EBANK=   STATE                                 
011107,000104: 01,2017           05155 04060                     2CADR    ENDOFJOB                              #  AS THERE IS A LEGITIMATE 1.2SPOT
011108,000105: 01,2021           00144                           DEC      100        B-14                       
011109,000106: 01,2022     0074                                  EBANK=   STATE                                 
011110,000107: 01,2022           05261 04060                     2CADR    TASKOVER                              
011111,000108: 
011112,000109:                                                                                                  #  ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
011113,000110: 
011114,000111: 01,2024           76302        1.3SPOT            -GENADR  SAVET-30                              
011115,000112: 01,2025  E7,1513                                  EBANK=   DVCNTR                                
011116,000113: 01,2025           75440 03710                     -2CADR   ULLGTASK                              
011117,000114:                                                                                                  #  ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
011118,000115: 
011119,000116: 01,2027  01,2016               2.2SPOT            EQUALS   1.2SPOT                               
011120,000117:                                                                                                  #  ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
011121,000118: 
011122,000119: 01,2027           02630        2.3SPOT            GENADR   600SECS                               
011123,000120: 01,2030           75173                           -GENADR  STATEINT                              
011124,000121: 01,2031  E3,1554                                  EBANK=   RRECTCSM                              
011125,000122: 01,2031           26063                           BBCON    STATEINT                              
011126,000123: 

Page 255

011128,000125: 01,2032           05000        2.5SPOT            OCT      05000                                 
011129,000126: 01,2033  E3,1554                                  EBANK=   RRECTCSM                              
011130,000127: 01,2033           02613 26063                     2CADR    STATINT1                              
011131,000128: 01,2035           02734        2.7SPOT            DEC      1500       B-14                       
011132,000129: 01,2036  E7,1454                                  EBANK=   LOSCOUNT                              
011133,000130: 01,2036           75502 27710                     -2CADR   P20LEMC1                              
011134,000131: 
011135,000132: 01,2040           14000        2.11SPOT           OCT      14000                                 
011136,000133: 01,2041  E7,1756                                  EBANK=   P21TIME                               
011137,000134: 01,2041           02441 50067                     2CADR    P25LEM1                               
011138,000135: 01,2043           10000        2.13SPOT           OCT      10000                                 
011139,000136: 01,2044  E7,1454                                  EBANK=   LOSCOUNT                              
011140,000137: 01,2044           02175 54067                     2CADR    RELINUS                               
011141,000138: 01,2046           26000        2.15SPOT           OCT      26000                                 
011142,000139: 01,2047  E7,1454                                  EBANK=   LOSCOUNT                              
011143,000140: 01,2047           02677 50067                     2CADR    R22RSTRT                              
011144,000141: 01,2051           77777        2.17SPOT           OCT      77777                                 
011145,000142: 01,2052  E7,1704                                  EBANK=   VGPREV                                
011146,000143: 01,2052           75447 03710                     -2CADR   REDO2.17                              
011147,000144: 01,2054           00031        2.21SPOT           DEC      25         B-14                       
011148,000145: 01,2055  E7,1513                                  EBANK=   DVCNTR                                
011149,000146: 01,2055           75675 35710                     -2CADR   R10,R11                               
011150,000147:                                                                                                  #  ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
011151,000148: 
011152,000149: 01,2057  01,2016               3.2SPOT            EQUALS   1.2SPOT                               
011153,000150:                                                                                                  #  ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
011154,000151: 
011155,000152: 01,2057           76353        3.3SPOT            -GENADR  ZOOMTIME                              
011156,000153: 01,2060  E7,1513                                  EBANK=   DVCNTR                                
011157,000154: 01,2060           75223 03710                     -2CADR   ZOOM                                  
011158,000155:                                                                                                  #  ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
011159,000156: 
011160,000157: 01,2062           04704        4.2SPOT            DEC      2500       B-14                       
011161,000158: 01,2063  E7,1451                                  EBANK=   TTOGO                                 
011162,000159: 01,2063           75434 03710                     -2CADR   TIG-5                                 
011163,000160: 01,2065           77777                           OCT      77777                                 
011164,000161: 01,2066  E7,1451                                  EBANK=   TTOGO                                 
011165,000162: 01,2066           75444 03710                     -2CADR   REDO4.2                               
011166,000163:                                                                                                  #  ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
011167,000164: 

Page 256

011169,000166: 01,2070           25000        4.3SPOT            OCT      25000                                 
011170,000167: 01,2071  E7,1513                                  EBANK=   DVCNTR                                
011171,000168: 01,2071           03257 64067                     2CADR    GOABORT                               
011172,000169: 01,2073           00062        4.5SPOT            DEC      50         B-14                       
011173,000170: 01,2074  E7,1451                                  EBANK=   TTOGO                                 
011174,000171: 01,2074           75237 03710                     -2CADR   ULLAGOFF                              
011175,000172: 01,2076           00764        4.7SPOT            DEC      500        B-14                       
011176,000173: 01,2077  E7,1513                                  EBANK=   DVCNTR                                
011177,000174: 01,2077           75410 03710                     -2CADR   TIG-0                                 
011178,000175: 01,2101           76262        4.11SPOT           -GENADR  TGO        +1                         
011179,000176: 01,2102  E7,1513                                  EBANK=   DVCNTR                                
011180,000177: 01,2102           74235 03710                     -2CADR   ENGOFTSK                              
011181,000178: 01,2104           12000        4.13SPOT           OCT      12000                                 
011182,000179: 01,2105  E7,1460                                  EBANK=   TRKMKCNT                              
011183,000180: 01,2105           03223 74067                     2CADR    POSTBURN                              
011184,000181: 
011185,000182: 01,2107           00764        4.15SPOT           DEC      500        B-14                       
011186,000183: 01,2110  E7,1451                                  EBANK=   TTOGO                                 
011187,000184: 01,2110           75503 03710                     -2CADR   TIG-30                                
011188,000185: 01,2112           77777        4.17SPOT           OCT      77777                                 
011189,000186: 01,2113  E7,1513                                  EBANK=   DVCNTR                                
011190,000187: 01,2113           75434 03710                     -2CADR   TIG-5                                 
011191,000188: 01,2115           13000        4.21SPOT           OCT      13000                                 
011192,000189: 01,2116  E5,1730                                  EBANK=   STAR                                  
011193,000190: 01,2116           02661 30065                     2CADR    R51.1      +1                         
011194,000191: 01,2120           77777        4.23SPOT           OCT      77777                                 
011195,000192: 01,2121  E7,1513                                  EBANK=   DVCNTR                                
011196,000193: 01,2121           75366 03710                     -2CADR   IGNITION                              
011197,000194: 01,2123           01475        4.25SPOT           GENADR   SAVET-30                              
011198,000195: 01,2124           75541                           -GENADR  TIG-35                                
011199,000196: 01,2125  E7,1475                                  EBANK=   SAVET-30                              
011200,000197: 01,2125           74067                           BBCON    TIG-35                                
011201,000198: 
011202,000199: 01,2126           52777        4.27SPOT           OCT      52777                                 
011203,000200: 01,2127  E7,1513                                  EBANK=   DVCNTR                                
011204,000201: 01,2127           02167 42067                     2CADR    P70A                                  
011205,000202: 01,2131           52777        4.31SPOT           OCT      52777                                 
011206,000203: 01,2132  E7,1513                                  EBANK=   DVCNTR                                
011207,000204: 01,2132           02172 42067                     2CADR    P71A                                  
011208,000205: 

Page 257

011210,000207: 01,2134           46777        4.33SPOT           OCT      46777                                 
011211,000208: 01,2135  E7,1513                                  EBANK=   DVCNTR                                
011212,000209: 01,2135           02024 10067                     2CADR    GOPOOFIX                              
011213,000210: 01,2137           46777        4.35SPOT           OCT      46777                                 
011214,000211: 01,2140  E7,1513                                  EBANK=   DVCNTR                                
011215,000212: 01,2140           05665 04067                     2CADR    GOPOODOO                              
011216,000213: 01,2142           52777        4.37SPOT           OCT      52777                                 
011217,000214: 01,2143  E7,1453                                  EBANK=   WHICH                                 
011218,000215: 01,2143           02574 74067                     2CADR    COMFAIL                               
011219,000216:                                                                                                  #  ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.
011220,000217: 
011221,000218: 01,2145           22000        5.2SPOT            OCT      22000                                 
011222,000219: 01,2146  E7,1513                                  EBANK=   DVCNTR                                
011223,000220: 01,2146           02421 66067                     2CADR    NORMLIZE                              
011224,000221: 01,2150           00310                           DEC      200        B-14                       
011225,000222: 01,2151  E7,1513                                  EBANK=   DVCNTR                                
011226,000223: 01,2151           74177 01710                     -2CADR   REREADAC                              
011227,000224: 
011228,000225: 01,2153           00310        5.4SPOT            DEC      200        B-14                       
011229,000226: 01,2154  E7,1513                                  EBANK=   DVCNTR                                
011230,000227: 01,2154           74177 01710                     -2CADR   REREADAC                              
011231,000228: 
011232,000229: 01,2156           20000                           OCT      20000                                 
011233,000230: 01,2157  E7,1513                                  EBANK=   DVCNTR                                
011234,000231: 01,2157           02200 66067                     2CADR    SERVICER                              
011235,000232:                                                                                                  #  ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
011236,000233: 
011237,000234: 01,2161           00310        5.3SPOT            DEC      200        B-14                       
011238,000235: 01,2162  E7,1513                                  EBANK=   DVCNTR                                
011239,000236: 01,2162           74177 01710                     -2CADR   REREADAC                              
011240,000237: 
011241,000238: 01,2164           77777        5.5SPOT            OCT      77777                                 
011242,000239: 01,2165  E7,1513                                  EBANK=   DVCNTR                                
011243,000240: 01,2165           74340 01710                     -2CADR   REDO5.5                               
011244,000241: 
011245,000242: 01,2167           77777        5.7SPOT            OCT      77777                                 
011246,000243: 01,2170  E7,1513                                  EBANK=   DVCNTR                                
011247,000244: 01,2170           74375 01710                     -2CADR   BIBIBIAS                              
011248,000245:                                                                                                  #  ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
011249,000246: 

Page 258

011251,000248: 01,2172  01,2016               6.2SPOT            EQUALS   1.2SPOT                               
011252,000249: 01,2172           00144        6.3SPOT            DEC      100        B-14                       
011253,000250: 01,2173  E7,1437                                  EBANK=   TIG                                   
011254,000251: 01,2173           75055 03710                     -2CADR   CLOKTASK                              
011255,000252: 01,2175           30000        6.5SPOT            OCT      30000                                 #  PROTECT INCREMENTING OF TIME2,TIME1 BY
011256,000253: 01,2176  E3,1706                                  EBANK=   TEPHEM                                #  P27(UPDATE PROGRAM) VIA V70 OR V73.
011257,000254: 01,2176           03522 10063                     2CADR    TIMEDIDR                              
011258,000255: 01,2200           17000        6.7SPOT            OCT      17000                                 
011259,000256: 01,2201  E7,1704                                  EBANK=   VGPREV                                
011260,000257: 01,2201           03350 74067                     2CADR    REDO6.7                               

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