Source Code
![]() |
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the
second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
009985,000002: ## Copyright: Public domain.
009986,000003: ## Filename: RESTART_TABLES.agc
009987,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
009988,000005: ## otherwise known as Luminary Rev 99, the second release
009989,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
009990,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
009991,000008: ## placement of a single label. The corrections shown here have
009992,000009: ## been verified to have the same bank checksums as AGC developer
009993,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
009994,000011: ## to be accurate. This file is intended to be a faithful
009995,000012: ## recreation, except that the code format has been changed to
009996,000013: ## conform to the requirements of the yaYUL assembler rather than
009997,000014: ## the original YUL assembler.
009998,000015: ##
009999,000016: ## Assembler: yaYUL
010000,000017: ## Contact: Ron Burkey <info@sandroid.org>.
010001,000018: ## Website: www.ibiblio.org/apollo.
010002,000019: ## Pages: 238-243
010003,000020: ## Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
010004,000021: ## from the Luminary131/ file of the same
010005,000022: ## name, using Luminary099 page images.
010006,000023: ## 2016-12-13 RSB Proofed text comments with octopus/ProoferComments
010007,000024: ## and corrected the errors found. Made some
010008,000025: ## P00 fixes.
010009,000026: ## 2017-02-08 RSB Comment-text fixes identified while proofing Artemis 72.
010010,000027: ## 2017-08-01 MAS Created from LMY99 Rev 1.
010011,000028:
010012,000029: ## This source code has been transcribed or otherwise adapted from
010013,000030: ## digitized images of a hardcopy from the MIT Museum. The digitization
010014,000031: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
010015,000032: ## the Museum. Many thanks to both. The images (with suitable reduction
010016,000033: ## in storage size and consequent reduction in image quality as well) are
010017,000034: ## available online at www.ibiblio.org/apollo. If for some reason you
010018,000035: ## find that the images are illegible, contact me at info@sandroid.org
010019,000036: ## about getting access to the (much) higher-quality images which Paul
010020,000037: ## actually created.
010021,000038: ##
010022,000039: ## The code has been modified to match LMY99 Revision 0, otherwise
010023,000040: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
010024,000041: ## the listing from which it was transcribed. It has been verified to
010025,000042: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
010026,000043: ## of Luminary Revision 99 (for which we do not have scans).
010027,000044: ##
010028,000045: ## Notations on Allan Klumpp's listing read, in part:
010029,000046: ##
010030,000047: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
010031,000048:
![]() |
Page 238 |
010033,000050: # RESTART TABLES
010034,000051: # ------------------
010035,000052:
010036,000053: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
010037,000054: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
010038,000055: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
010039,000056: # WAY THINGS ARE PUT IN TO THE TABLES.
010040,000057:
010041,000058: # A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
010042,000059: # FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
010043,000060: # FOR EXAMPLE,
010044,000061:
010045,000062: # 5.7SPOT OCT 23000
010046,000063: # 2CADR SOMEJOB
010047,000064:
010048,000065: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
010049,000066:
010050,000067: # 5.5SPOT OCT -23000
010051,000068: # 2CADR ANYJOB
010052,000069:
010053,000070: # HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
010054,000071: # A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS
010055,000072: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
010056,000073: # WITH. EXAMPLE,
010057,000074:
010058,000075: # 3.6SPOT GENADR DELTAT
010059,000076: # -GENADR LONGTASK
010060,000077: # BBCON LONGTASK
010061,000078: # OCT 31000
010062,000079: # 2CADR JOBAGAIN
010063,000080:
010064,000081: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
010065,000082: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OF THE 2CADR OF THE
010066,000083: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
010067,000084:
010068,000085: # WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
010069,000086: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
010070,000087: # LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT
010071,000088: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH
010072,000089: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
010073,000090: # TASK. EXAMPLES,
010074,000091:
010075,000092: # OCT 77777 THIS WILL CAUSE AN IMMEDIATE RESTART
010076,000093: # -2CADR ATASK OF THE TASK :ATASK:
010077,000094: #
010078,000095: # DEC 200 IF THE TIME OF THE 2 SECONDS SINCE DUMMY
010079,000096: # -2CADR DUMMY WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
010080,000097: # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
010081,000098: # IT NORMALLY WOULD HAVE BEGUN.
![]() |
Page 239 |
010083,000100: # -GENADR DTIME WHERE DTIME CONTAINS THE DELTA TIME
010084,000101: # -2CADR TASKTASK OTHERWISE THIS IS AS ABOVE
010085,000102:
010086,000103: # ***** NOW THE TABLES THEMSELVES *****
010087,000104:
010088,000105: 01,2002 BANK 01
010089,000106: 01,2000 SETLOC RESTART
010090,000107: 01,2000 BANK
010091,000108:
010092,000109: 01,2002 PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME
010093,000110: 01,2002 CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN
010094,000111: # RESTART 2CADR
010095,000112:
010096,000113: 01,2002 COUNT* $$/RSTAB # TABLES IN BANK 1.
010097,000114: 01,2002 00010 SIZETAB TC 1.2SPOT -12006
010098,000115: 01,2003 00020 TC 1.3SPOT -12004
010099,000116: 01,2004 00010 TC 2.2SPOT -12006
010100,000117: 01,2005 00023 TC 2.3SPOT -12004
010101,000118: 01,2006 00010 TC 3.2SPOT -12006
010102,000119: 01,2007 00053 TC 3.3SPOT -12004
010103,000120: 01,2010 00057 TC 4.2SPOT -12006
010104,000121: 01,2011 00067 TC 4.3SPOT -12004
010105,000122: 01,2012 00142 TC 5.2SPOT -12006
010106,000123: 01,2013 00160 TC 5.3SPOT -12004
010107,000124: 01,2014 00010 TC 6.2SPOT -12006
010108,000125: 01,2015 00171 TC 6.3SPOT -12004
010109,000126: 01,2016 21000 1.2SPOT OCT 21000 # A DUMMY EXAMPLE TO BE REPLACED AS SOON
010110,000127: 01,2017 0074 EBANK= STATE
010111,000128: 01,2017 05155 04060 2CADR ENDOFJOB # AS THERE IS A LEGITIMATE 1.2SPOT
010112,000129:
010113,000130: 01,2021 00144 DEC 100 B-14
010114,000131: 01,2022 0074 EBANK= STATE
010115,000132: 01,2022 05261 04060 2CADR TASKOVER
010116,000133:
010117,000134: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
010118,000135:
010119,000136: 01,2024 76300 1.3SPOT -GENADR SAVET-30
010120,000137: 01,2025 E7,1515 EBANK= DVCNTR
010121,000138: 01,2025 75431 03710 -2CADR ULLGTASK
010122,000139:
010123,000140: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
010124,000141:
010125,000142: 01,2027 01,2016 2.2SPOT EQUALS 1.2SPOT
010126,000143:
010127,000144: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
010128,000145:
010129,000146: 01,2027 02630 2.3SPOT GENADR 600SECS
010130,000147:
010131,000148: 01,2030 75173 -GENADR STATEINT
010132,000149: 01,2031 E3,1554 EBANK= RRECTCSM
010133,000150: 01,2031 26063 BBCON STATEINT
010134,000151:
![]() |
Page 240 |
010136,000153: 01,2032 05000 2.5SPOT OCT 05000
010137,000154: 01,2033 E3,1554 EBANK= RRECTCSM
010138,000155: 01,2033 02613 26063 2CADR STATINT1
010139,000156:
010140,000157: 01,2035 02734 2.7SPOT DEC 1500 B-14
010141,000158: 01,2036 E7,1456 EBANK= LOSCOUNT
010142,000159: 01,2036 75533 27710 -2CADR P20LEMC1
010143,000160:
010144,000161: 01,2040 14000 2.11SPOT OCT 14000
010145,000162: 01,2041 E7,1762 EBANK= P21TIME
010146,000163: 01,2041 02416 50067 2CADR P25LEM1
010147,000164:
010148,000165: 01,2043 10000 2.13SPOT OCT 10000
010149,000166: 01,2044 E7,1456 EBANK= LOSCOUNT
010150,000167: 01,2044 02217 54067 2CADR RELINUS
010151,000168:
010152,000169: 01,2046 26000 2.15SPOT OCT 26000
010153,000170: 01,2047 E7,1456 EBANK= LOSCOUNT
010154,000171: 01,2047 02653 50067 2CADR R22RSTRT
010155,000172:
010156,000173: 01,2051 77777 2.17SPOT OCT 77777
010157,000174: 01,2052 E7,1700 EBANK= VGPREV
010158,000175: 01,2052 75440 03710 -2CADR REDO2.17
010159,000176:
010160,000177: 01,2054 00031 2.21SPOT DEC 25 B-14
010161,000178: 01,2055 E7,1515 EBANK= DVCNTR
010162,000179: 01,2055 75771 35710 -2CADR R10,R11
010163,000180:
010164,000181: # ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
010165,000182:
010166,000183: 01,2057 01,2016 3.2SPOT EQUALS 1.2SPOT
010167,000184:
010168,000185: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
010169,000186:
010170,000187: 01,2057 76355 3.3SPOT -GENADR ZOOMTIME
010171,000188: 01,2060 E7,1515 EBANK= DVCNTR
010172,000189: 01,2060 75755 41710 -2CADR ZOOM
010173,000190:
010174,000191: 01,2062 20000 3.5SPOT OCT 20000
010175,000192: 01,2063 E7,1453 EBANK= TTOGO
010176,000193: 01,2063 02540 56067 2CADR S40.13
010177,000194:
010178,000195: # ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
010179,000196:
010180,000197: 01,2065 04704 4.2SPOT DEC 2500 B-14
010181,000198: 01,2066 E7,1453 EBANK= TTOGO
010182,000199:
010183,000200: 01,2066 75425 03710 -2CADR TIG-5
010184,000201:
010185,000202: 01,2070 77777 OCT 77777
010186,000203: 01,2071 E7,1453 EBANK= TTOGO
![]() |
Page 241 |
010188,000205: 01,2071 75435 03710 -2CADR REDO4.2
010189,000206:
010190,000207: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
010191,000208:
010192,000209: 01,2073 25000 4.3SPOT OCT 25000
010193,000210: 01,2074 E7,1515 EBANK= DVCNTR
010194,000211: 01,2074 03540 64067 2CADR GOABORT
010195,000212:
010196,000213: 01,2076 00062 4.5SPOT DEC 50 B-14
010197,000214: 01,2077 E7,1453 EBANK= TTOGO
010198,000215: 01,2077 75215 03710 -2CADR ULLAGOFF
010199,000216:
010200,000217: 01,2101 00764 4.7SPOT DEC 500 B-14
010201,000218: 01,2102 E7,1515 EBANK= DVCNTR
010202,000219: 01,2102 75374 03710 -2CADR TIG-0
010203,000220:
010204,000221: 01,2104 76260 4.11SPOT -GENADR TGO +1
010205,000222: 01,2105 E7,1515 EBANK= DVCNTR
010206,000223: 01,2105 74235 03710 -2CADR ENGOFTSK
010207,000224:
010208,000225: 01,2107 12000 4.13SPOT OCT 12000
010209,000226: 01,2110 E7,1462 EBANK= TRKMKCNT
010210,000227: 01,2110 03223 74067 2CADR POSTBURN
010211,000228:
010212,000229: 01,2112 00764 4.15SPOT DEC 500 B-14
010213,000230: 01,2113 E7,1453 EBANK= TTOGO
010214,000231: 01,2113 75501 03710 -2CADR TIG-30
010215,000232:
010216,000233: 01,2115 77777 4.17SPOT OCT 77777
010217,000234: 01,2116 E7,1515 EBANK= DVCNTR
010218,000235: 01,2116 75425 03710 -2CADR TIG-5
010219,000236:
010220,000237: 01,2120 13000 4.21SPOT OCT 13000
010221,000238: 01,2121 E5,1730 EBANK= STAR
010222,000239: 01,2121 03020 30065 2CADR R51.1 +1
010223,000240:
010224,000241: 01,2123 77777 4.23SPOT OCT 77777
010225,000242: 01,2124 E7,1515 EBANK= DVCNTR
010226,000243: 01,2124 75351 03710 -2CADR IGNITION
010227,000244:
010228,000245: 01,2126 01477 4.25SPOT GENADR SAVET-30
010229,000246: 01,2127 75537 -GENADR TIG-35
010230,000247: 01,2130 E7,1477 EBANK= SAVET-30
010231,000248: 01,2130 74067 BBCON TIG-35
010232,000249:
010233,000250:
010234,000251: 01,2131 52777 4.27SPOT OCT 52777
010235,000252: 01,2132 E7,1515 EBANK= DVCNTR
010236,000253: 01,2132 02073 42067 2CADR P70A
![]() |
Page 242 |
010238,000255: 01,2134 52777 4.31SPOT OCT 52777
010239,000256: 01,2135 E7,1515 EBANK= DVCNTR
010240,000257: 01,2135 02076 42067 2CADR P71A
010241,000258:
010242,000259: 01,2137 46777 4.33SPOT OCT 46777
010243,000260: 01,2140 E7,1515 EBANK= DVCNTR
010244,000261: 01,2140 02024 10067 2CADR GOPOOFIX
010245,000262:
010246,000263: 01,2142 46777 4.35SPOT OCT 46777
010247,000264: 01,2143 E7,1515 EBANK= DVCNTR
010248,000265: 01,2143 05665 04067 2CADR GOPOODOO
010249,000266:
010250,000267: 01,2145 52777 4.37SPOT OCT 52777
010251,000268: 01,2146 E7,1455 EBANK= WHICH
010252,000269: 01,2146 02571 74067 2CADR COMFAIL
010253,000270:
010254,000271: # ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.
010255,000272: 01,2150 22000 5.2SPOT OCT 22000
010256,000273: 01,2151 E7,1515 EBANK= DVCNTR
010257,000274: 01,2151 02461 46067 2CADR NORMLIZE
010258,000275:
010259,000276: 01,2153 00310 DEC 200 B-14
010260,000277: 01,2154 E7,1515 EBANK= DVCNTR
010261,000278: 01,2154 74163 01710 -2CADR REREADAC
010262,000279:
010263,000280: 01,2156 00310 5.4SPOT DEC 200 B-14
010264,000281: 01,2157 E7,1515 EBANK= DVCNTR
010265,000282: 01,2157 74163 01710 -2CADR REREADAC
010266,000283:
010267,000284: 01,2161 20000 OCT 20000
010268,000285: 01,2162 E7,1515 EBANK= DVCNTR
010269,000286: 01,2162 02206 66067 2CADR SERVICER
010270,000287:
010271,000288: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
010272,000289:
010273,000290: 01,2164 00310 5.3SPOT DEC 200 B-14
010274,000291: 01,2165 E7,1515 EBANK= DVCNTR
010275,000292: 01,2165 74163 01710 -2CADR REREADAC
010276,000293:
010277,000294: 01,2167 77777 5.5SPOT OCT 77777
010278,000295: 01,2170 E7,1515 EBANK= DVCNTR
010279,000296: 01,2170 74324 01710 -2CADR REDO5.5
010280,000297:
010281,000298: 01,2172 77777 5.7SPOT OCT 77777
010282,000299: 01,2173 E7,1515 EBANK= DVCNTR
![]() |
Page 243 |
010284,000301: 01,2173 74361 01710 -2CADR BIBIBIAS
010285,000302:
010286,000303: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
010287,000304:
010288,000305: 01,2175 01,2016 6.2SPOT EQUALS 1.2SPOT
010289,000306: 01,2175 00144 6.3SPOT DEC 100 B-14
010290,000307: 01,2176 E7,1441 EBANK= TIG
010291,000308: 01,2176 75060 03710 -2CADR CLOKTASK
010292,000309:
010293,000310: 01,2200 30000 6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY
010294,000311: 01,2201 E3,1706 EBANK= TEPHEM # P27(UPDATE PROGRAM) VIA V70 OR V73.
010295,000312: 01,2201 03601 10063 2CADR TIMEDIDR
010296,000313:
010297,000314: 01,2203 17000 6.7SPOT OCT 17000
010298,000315: 01,2204 E7,1700 EBANK= VGPREV
010299,000316: 01,2204 03350 74067 2CADR REDO6.7
010300,000317:
010301,000318:
End of include-file RESTART_TABLES.agc. Parent file is MAIN.agc