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