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.

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

Page 253

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

Page 254

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

Page 255

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

Page 256

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

Page 257

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

Page 258

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

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