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.

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

Page 253

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

Page 254

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

Page 255

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

Page 256

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

Page 257

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

Page 258

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

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