Source Code
![]() |
This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2, from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1 source-code was transcribed from a printout in the MIT Museum, while Luminary 116 source code was transcribed from a printout belonging to Don Eyles. AGC developer James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as follows: "At the last minute, Dan Lickly, our chief engineer, appeared with ephemerides updates and it took two tries to get it right. The result was that we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former is what's in the MIT Museum, and the latter is what we are trying to recreate here. As for which revision actually flew in Apollo 11, all of the other available surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure! |
020663,000002: ## Copyright: Public domain.
020664,000003: ## Filename: RADAR_LEADIN_ROUTINES.agc
020665,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
020666,000005: ## It is part of the source code for the Lunar Module's (LM)
020667,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
020668,000007: ## Assembler: yaYUL
020669,000008: ## Contact: Ron Burkey <info@sandroid.org>.
020670,000009: ## Website: www.ibiblio.org/apollo.
020671,000010: ## Pages: 490-491
020672,000011: ## Mod history: 2009-05-17 RSB Adapted from the corresponding
020673,000012: ## Luminary131 file, using page
020674,000013: ## images from Luminary 1A.
020675,000014: ## 2016-12-14 RSB Proofed text comments with octopus/ProoferComments
020676,000015: ## and corrected the errors found.
020677,000016: ## 2017-03-03 RSB Snapshot of Luminary 99 Rev 1.
020678,000017:
![]() |
Page 490 |
020680,000019: 25,2003 BANK 25
020681,000020: 25,2000 SETLOC RRLEADIN
020682,000021: 25,2000 BANK
020683,000022:
020684,000023: 25,2003 E4,1600 EBANK= RSTACK
020685,000024:
020686,000025: # RADAR SAMPLING LOOP.
020687,000026:
020688,000027: 25,2003 COUNT* $$/RLEAD
020689,000028: 25,2003 11755 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
020690,000029: 25,2004 12006 TCF +2
020691,000030: 25,2005 15261 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
020692,000031:
020693,000032: 25,2006 05203 TC WAITLIST
020694,000033: 25,2007 E4,1600 EBANK= RSTACK
020695,000034: 25,2007 02003 52064 2CADR RADSAMP
020696,000035:
020697,000036: 25,2011 37713 CAF PRIO25
020698,000037: 25,2012 05072 TC NOVAC
020699,000038: 25,2013 E4,1600 EBANK= RSTACK
020700,000039: 25,2013 02023 52064 2CADR DORSAMP
020701,000040:
020702,000041: 25,2015 34736 CAF BIT14 # FOR CYCLIC SAMPLING, RTSTDEX=
020703,000042: 25,2016 00006 EXTEND # RTSTLOC/2 + RTSTBASE
020704,000043: 25,2017 71754 MP RTSTLOC
020705,000044: 25,2020 61753 AD RTSTBASE # 0 FOR RR, 2 FOR LR.
020706,000045: 25,2021 55751 TS RTSTDEX
020707,000046: 25,2022 15261 TCF TASKOVER
020708,000047:
020709,000048: # DO THE ACTUAL RADAR SAMPLE.
020710,000049:
020711,000050: 25,2023 02047 DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
020712,000051: 25,2024 04616 TC BANKCALL
020713,000052: 25,2025 17714 CADR RADSTALL
020714,000053:
020715,000054: 25,2026 25756 INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
020716,000055:
020717,000056: 25,2027 00004 DORSAMP2 INHINT
020718,000057: 25,2030 30101 CA FLAGWRD5 # DON'T UPDATE RSTACK IF IN R77.
020719,000058: 25,2031 74741 MASK R77FLBIT
020720,000059: 25,2032 10000 CCS A
020721,000060: 25,2033 12037 TCF +4
020722,000061:
020723,000062: 25,2034 53102 DXCH SAMPLSUM
020724,000063: 25,2035 51754 INDEX RTSTLOC
020725,000064: 25,2036 53601 DXCH RSTACK
020726,000065:
020727,000066: 25,2037 41754 CS RTSTLOC # CYCLE RTSTLOC.
020728,000067: 25,2040 61752 AD RTSTMAX
020729,000068: 25,2041 00006 EXTEND
020730,000069:
![]() |
Page 491 |
020732,000071: 25,2042 12045 BZF +3
020733,000072: 25,2043 31754 CA RTSTLOC
020734,000073: 25,2044 64752 AD TWO # STORAGE IS DP
020735,000074: 25,2045 55754 TS RTSTLOC
020736,000075: 25,2046 15155 TCF ENDOFJOB # CONTINUOUS SAMPLING AND 2N TRIES - GONE.
020737,000076:
020738,000077: # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
020739,000078:
020740,000079: 25,2047 34753 VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
020741,000080: 25,2050 54133 TS BUF2 # SWCALL.
020742,000081: 25,2051 51751 INDEX RTSTDEX
020743,000082: 25,2052 32054 CAF RDRLOCS
020744,000083: 25,2053 14622 TCF SWCALL # NOT TOUCHING Q.
020745,000084:
020746,000085: 25,2054 53105 RDRLOCS CADR RRRANGE # = 0
020747,000086: 25,2055 53103 CADR RRRDOT # = 1
020748,000087: 25,2056 53101 CADR LRVELX # = 2
020749,000088: 25,2057 53077 CADR LRVELY # = 3
020750,000089: 25,2060 53075 CADR LRVELZ # = 4
020751,000090: 25,2061 53073 CADR LRALT # = 5
020752,000091:
020753,000092:
End of include-file RADAR_LEADIN_ROUTINES.agc. Parent file is MAIN.agc