Source Code
|
These source-code files are part of a reconstructed copy of Luminary 173, the
second (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with reconstructed source code for Luminary 178. Changes
between revision 173 and 178 were backed out, as described by Luminary memo 167
(revision 1). The reconstruction was verified by matching memory-bank checksums
to those listed in drawing 2021152N. Note that page numbers in the reconstructed
code match those for the baseline log section mentioned in each file's changelog;
the page numbers for a real Luminary 173 listing would be different.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
021599,000002: ## Copyright: Public domain.
021600,000003: ## Filename: RADAR_LEADIN_ROUTINES.agc
021601,000004: ## Purpose: A section of Luminary revision 173.
021602,000005: ## It is part of the reconstructed source code for the second
021603,000006: ## (unflown) release of the flight software for the Lunar
021604,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
021605,000008: ## The code has been recreated from a reconstructed copy of
021606,000009: ## Luminary 178, as well as Luminary memo 167 (revision 1).
021607,000010: ## It has been adapted such that the resulting bugger words
021608,000011: ## exactly match those specified for Luminary 173 in NASA
021609,000012: ## drawing 2021152N, which gives relatively high confidence
021610,000013: ## that the reconstruction is correct.
021611,000014: ## Reference: pp. 498-499
021612,000015: ## Assembler: yaYUL
021613,000016: ## Contact: Ron Burkey <info@sandroid.org>.
021614,000017: ## Website: www.ibiblio.org/apollo/index.html
021615,000018: ## Mod history: 2019-09-18 MAS Created from Luminary 178.
021616,000019:
|
|
Page 498
|
021618,000021: 15,2050 BANK 15
021619,000022: 15,2000 SETLOC RRLEADIN
021620,000023: 15,2000 BANK
021621,000024:
021622,000025: 15,2050 E4,1600 EBANK= RSTACK
021623,000026:
021624,000027: # RADAR SAMPLING LOOP.
021625,000028:
021626,000029: 15,2050 COUNT* $$/RLEAD
021627,000030: 15,2050 11777 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
021628,000031: 15,2051 12053 TCF +2
021629,000032: 15,2052 15272 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
021630,000033:
021631,000034: 15,2053 05204 TC TWIDDLE
021632,000035: 15,2054 32050 CADR RADSAMP
021633,000036: 15,2055 37716 CAF PRIO25
021634,000037: 15,2056 05072 TC NOVAC
021635,000038: 15,2057 E4,1600 EBANK= RSTACK
021636,000039: 15,2057 02003 52064 2CADR DORSAMP
021637,000040:
021638,000041: 15,2061 34736 CAF BIT14 # FOR CYCLIC SAMPLING, RTSTDEX=
021639,000042: 15,2062 00006 EXTEND # RTSTLOC/2 + RTSTBASE
021640,000043: 15,2063 71776 MP RTSTLOC
021641,000044: 15,2064 61775 AD RTSTBASE # 0 FOR RR, 2 FOR LR.
021642,000045: 15,2065 55773 TS RTSTDEX
021643,000046: 15,2066 15272 TCF TASKOVER
021644,000047:
021645,000048: 25,2003 BANK 25
021646,000049: 25,2000 SETLOC DRSAMP
021647,000050: 25,2000 BANK
021648,000051:
021649,000052: 25,2003 E4,1600 EBANK= RSTACK
021650,000053: # DO THE ACTUAL RADAR SAMPLE.
021651,000054:
021652,000055: 25,2003 02040 DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
021653,000056: 25,2004 04616 TC BANKCALL
021654,000057: 25,2005 17720 CADR RADSTALL
021655,000058:
021656,000059: 25,2006 25575 INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
021657,000060:
021658,000061: 25,2007 00004 DORSAMP2 INHINT
021659,000062: 25,2010 30101 CA FLAGWRD5 # DON'T UPDATE RSTACK IF IN R77.
021660,000063: 25,2011 74741 MASK R77FLBIT
021661,000064: 25,2012 10000 CCS A
021662,000065: 25,2013 12030 TCF R77IN
021663,000066:
021664,000067: 25,2014 53101 DXCH SAMPLSUM
021665,000068: 25,2015 51776 INDEX RTSTLOC
021666,000069: 25,2016 53601 DXCH RSTACK
021667,000070:
|
|
Page 499
|
021669,000072: 25,2017 30110 CA RADMODES
021670,000073: 25,2020 00006 EXTEND
021671,000074: 25,2021 06033 RXOR CHAN33
021672,000075: 25,2022 74746 MASK BIT6
021673,000076: 25,2023 00006 EXTEND
021674,000077: 25,2024 12030 BZF R77IN
021675,000078:
021676,000079: 25,2025 05600 TC ALARM
021677,000080: 25,2026 00522 OCT 522
021678,000081: 25,2027 25575 INCR RFAILCNT
021679,000082:
021680,000083: 25,2030 41776 R77IN CS RTSTLOC # CYCLE RTSTLOC
021681,000084: 25,2031 61774 AD RTSTMAX
021682,000085: 25,2032 00006 EXTEND
021683,000086: 25,2033 12036 BZF +3
021684,000087: 25,2034 31776 CA RTSTLOC
021685,000088: 25,2035 64752 AD TWO # STORAGE IS DP
021686,000089: 25,2036 55776 TS RTSTLOC
021687,000090: 25,2037 15155 TCF ENDOFJOB # CONTINUOUS SAMPLING AND 2N TRIES - GONE.
021688,000091:
021689,000092: # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
021690,000093:
021691,000094: 25,2040 34753 VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
021692,000095: 25,2041 54133 TS BUF2 # SWCALL.
021693,000096: 25,2042 51773 INDEX RTSTDEX
021694,000097: 25,2043 32045 CAF RDRLOCS
021695,000098: 25,2044 14622 TCF SWCALL # NOT TOUCHING Q.
021696,000099:
021697,000100: 25,2045 53074 RDRLOCS CADR RRRANGE # = 0
021698,000101: 25,2046 53072 CADR RRRDOT # = 1
021699,000102: 25,2047 53070 CADR LRVELX # = 2
021700,000103: 25,2050 53066 CADR LRVELY # = 3
021701,000104: 25,2051 53064 CADR LRVELZ # = 4
021702,000105: 25,2052 53062 CADR LRALT # = 5
End of include-file RADAR_LEADIN_ROUTINES.agc. Parent file is MAIN.agc