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