Source Code
020692,000001: # Copyright: Public domain.
020693,000002: # Filename: RADAR_LEADIN_ROUTINES.agc
020694,000003: # Purpose: A section of Luminary 1C, revision 131.
020695,000004: # It is part of the source code for the Lunar Module's (LM)
020696,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14.
020697,000006: # This file is intended to be a faithful transcription, except
020698,000007: # that the code format has been changed to conform to the
020699,000008: # requirements of the yaYUL assembler rather than the
020700,000009: # original YUL assembler.
020701,000010: # Reference: pp. 499-500 of 1729.pdf.
020702,000011: # Contact: Ron Burkey <info@sandroid.org>.
020703,000012: # Website: www.ibiblio.org/apollo/index.html
020704,000013: # Mod history: 05/14/03 RSB. Began transcribing.
020705,000014: # 05/14/05 RSB Corrected website reference above.
020706,000015:
020707,000016: # Page 499
020708,000017: 25,2003 BANK 25
020709,000018: 25,2000 SETLOC RRLEADIN
020710,000019: 25,2000 BANK
020711,000020:
020712,000021: 25,2003 E4,1600 EBANK= RSTACK
020713,000022:
020714,000023: # RADAR SAMPLING LOOP.
020715,000024: 25,2003 COUNT* $$/RLEAD
020716,000025: 25,2003 11777 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE PER SECOND SAMLING
020717,000026: 25,2004 12006 TCF +2
020718,000027: 25,2005 15261 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
020719,000028:
020720,000029: 25,2006 05203 TC WAITLIST
020721,000030: 25,2007 E4,1600 EBANK= RSTACK
020722,000031: 25,2007 02003 52064 2CADR RADSAMP
020723,000032:
020724,000033: 25,2011 37716 CAF PRIO25
020725,000034: 25,2012 05072 TC NOVAC
020726,000035: 25,2013 E4,1600 EBANK= RSTACK
020727,000036: 25,2013 02023 52064 2CADR DORSAMP
020728,000037:
020729,000038: 25,2015 34736 CAF BIT14 # FOR CYCLIC SAMPLING, RTSTDEX=
020730,000039: 25,2016 00006 EXTEND # RTSTLOC/2 + RTSTBASE
020731,000040: 25,2017 71776 MP RTSTLOC
020732,000041: 25,2020 61775 AD RTSTBASE # 0 FOR RR, 2 FOR LR.
020733,000042: 25,2021 55773 TS RTSTDEX
020734,000043: 25,2022 15261 TCF TASKOVER
020735,000044:
020736,000045: # DO THE ACTUAL RADAR SAMPLE.
020737,000046:
020738,000047: 25,2023 02060 DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
020739,000048: 25,2024 04616 TC BANKCALL
020740,000049: 25,2025 17705 CADR RADSTALL
020741,000050:
020742,000051: 25,2026 25575 INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
020743,000052:
020744,000053: 25,2027 00004 DORSAMP2 INHINT
020745,000054: 25,2030 30101 CA FLAGWRD5 # DON'T UPDATE RSTACK IF IN R77.
020746,000055: 25,2031 74741 MASK R77FLBIT
020747,000056: 25,2032 10000 CCS A
020748,000057: 25,2033 12050 TCF R77IN
020749,000058:
020750,000059: 25,2034 53101 DXCH SAMPLSUM
020751,000060: 25,2035 51776 INDEX RTSTLOC
020752,000061: 25,2036 53601 DXCH RSTACK
020753,000062:
020754,000063: 25,2037 30110 CA RADMODES
020755,000064: 25,2040 00006 EXTEND
020756,000065: 25,2041 06033 RXOR CHAN33
020757,000066: # Page 500
020758,000067: 25,2042 74746 MASK BIT6
020759,000068: 25,2043 00006 EXTEND
020760,000069: 25,2044 12050 BZF R77IN
020761,000070:
020762,000071: 25,2045 05567 TC ALARM
020763,000072: 25,2046 00522 OCT 522
020764,000073: 25,2047 25575 INCR RFAILCNT
020765,000074:
020766,000075: 25,2050 41776 R77IN CS RTSTLOC # CYCLE RTSTLOC
020767,000076: 25,2051 61774 AD RTSTMAX
020768,000077: 25,2052 00006 EXTEND
020769,000078: 25,2053 12056 BZF +3
020770,000079: 25,2054 31776 CA RTSTLOC
020771,000080: 25,2055 64752 AD TWO # STORAGE IS DP
020772,000081: 25,2056 55776 TS RTSTLOC
020773,000082: 25,2057 15155 TCF ENDOFJOB # CONTINUOUS SAMPLING AND 2N TRIES -- GONE.
020774,000083:
020775,000084: # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
020776,000085:
020777,000086: 25,2060 34753 VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
020778,000087: 25,2061 54133 TS BUF2 # SWCALL
020779,000088: 25,2062 51773 INDEX RTSTDEX
020780,000089: 25,2063 32065 CAF RDRLOCS
020781,000090: 25,2064 14622 TCF SWCALL # NOT TOUCHING 0.
020782,000091:
020783,000092: 25,2065 53114 RDRLOCS CADR RRRANGE # = 0
020784,000093: 25,2066 53112 CADR RRRDOT # = 1
020785,000094: 25,2067 53110 CADR LRVELX # = 2
020786,000095: 25,2070 53106 CADR LRVELY # = 3
020787,000096: 25,2071 53104 CADR LRVELZ # = 4
020788,000097: 25,2072 53102 CADR LRALT # = 5
020789,000098:
020790,000099:
End of include-file RADAR_LEADIN_ROUTINES.agc. Parent file is MAIN.agc