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