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