Source Code

020981,000001: # Copyright: Public domain. 020982,000002: # Filename: RADAR_LEADIN_ROUTINES.agc 020983,000003: # Purpose: Part of the source code for Luminary 1A build 099. 020984,000004: # It is part of the source code for the Lunar Module's (LM) 020985,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 020986,000006: # Assembler: yaYUL 020987,000007: # Contact: Ron Burkey <info@sandroid.org>. 020988,000008: # Website: www.ibiblio.org/apollo. 020989,000009: # Pages: 490-491 020990,000010: # Mod history: 2009-05-17 RSB Adapted from the corresponding 020991,000011: # Luminary131 file, using page 020992,000012: # images from Luminary 1A. 020993,000013: 020994,000014: # This source code has been transcribed or otherwise adapted from 020995,000015: # digitized images of a hardcopy from the MIT Museum. The digitization 020996,000016: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of 020997,000017: # the Museum. Many thanks to both. The images (with suitable reduction 020998,000018: # in storage size and consequent reduction in image quality as well) are 020999,000019: # available online at www.ibiblio.org/apollo. If for some reason you 021000,000020: # find that the images are illegible, contact me at info@sandroid.org 021001,000021: # about getting access to the (much) higher-quality images which Paul 021002,000022: # actually created. 021003,000023: 021004,000024: # Notations on the hardcopy document read, in part: 021005,000025: 021006,000026: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61 021007,000027: # 16:27 JULY 14, 1969 021008,000028: 021009,000029: # Page 490 021010,000030: 25,2003 BANK 25 021011,000031: 25,2000 SETLOC RRLEADIN 021012,000032: 25,2000 BANK 021013,000033: 021014,000034: 25,2003 E4,1600 EBANK= RSTACK 021015,000035: 021016,000036: # RADAR SAMPLING LOOP. 021017,000037: 021018,000038: 25,2003 COUNT* $$/RLEAD 021019,000039: 25,2003 11755 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE PER SECOND SAMLING 021020,000040: 25,2004 12006 TCF +2 021021,000041: 25,2005 15261 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST. 021022,000042: 021023,000043: 25,2006 05203 TC WAITLIST 021024,000044: 25,2007 E4,1600 EBANK= RSTACK 021025,000045: 25,2007 02003 52064 2CADR RADSAMP 021026,000046: 021027,000047: 25,2011 37713 CAF PRIO25 021028,000048: 25,2012 05072 TC NOVAC 021029,000049: 25,2013 E4,1600 EBANK= RSTACK 021030,000050: 25,2013 02023 52064 2CADR DORSAMP 021031,000051: 021032,000052: 25,2015 34736 CAF BIT14 # FOR CYCLIC SAMPLING, RTSTDEX= 021033,000053: 25,2016 00006 EXTEND # RTSTLOC/2 + RTSTBASE 021034,000054: 25,2017 71754 MP RTSTLOC 021035,000055: 25,2020 61753 AD RTSTBASE # 0 FOR RR, 2 FOR LR. 021036,000056: 25,2021 55751 TS RTSTDEX 021037,000057: 25,2022 15261 TCF TASKOVER 021038,000058: 021039,000059: # DO THE ACTUAL RADAR SAMPLE. 021040,000060: 021041,000061: 25,2023 02047 DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL. 021042,000062: 25,2024 04616 TC BANKCALL 021043,000063: 25,2025 17714 CADR RADSTALL 021044,000064: 021045,000065: 25,2026 25756 INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA 021046,000066: 021047,000067: 25,2027 00004 DORSAMP2 INHINT 021048,000068: 25,2030 30101 CA FLAGWRD5 # DON'T UPDATE RSTACK IF IN R77. 021049,000069: 25,2031 74741 MASK R77FLBIT 021050,000070: 25,2032 10000 CCS A 021051,000071: 25,2033 12037 TCF +4 021052,000072: 021053,000073: 25,2034 53102 DXCH SAMPLSUM 021054,000074: 25,2035 51754 INDEX RTSTLOC 021055,000075: 25,2036 53601 DXCH RSTACK 021056,000076: 021057,000077: 25,2037 41754 CS RTSTLOC # CYCLE RTSTLOC. 021058,000078: 25,2040 61752 AD RTSTMAX 021059,000079: 25,2041 00006 EXTEND 021060,000080: 021061,000081: # Page 491 021062,000082: 25,2042 12045 BZF +3 021063,000083: 25,2043 31754 CA RTSTLOC 021064,000084: 25,2044 64752 AD TWO # STORAGE IS DP 021065,000085: 25,2045 55754 TS RTSTLOC 021066,000086: 25,2046 15155 TCF ENDOFJOB # CONTINUOUS SAMPLING AND 2N TRIES -- GONE. 021067,000087: 021068,000088: # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY. 021069,000089: 021070,000090: 25,2047 34753 VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY 021071,000091: 25,2050 54133 TS BUF2 # SWCALL 021072,000092: 25,2051 51751 INDEX RTSTDEX 021073,000093: 25,2052 32054 CAF RDRLOCS 021074,000094: 25,2053 14622 TCF SWCALL # NOT TOUCHING Q. 021075,000095: 021076,000096: 25,2054 53105 RDRLOCS CADR RRRANGE # = 0 021077,000097: 25,2055 53103 CADR RRRDOT # = 1 021078,000098: 25,2056 53101 CADR LRVELX # = 2 021079,000099: 25,2057 53077 CADR LRVELY # = 3 021080,000100: 25,2060 53075 CADR LRVELZ # = 4 021081,000101: 25,2061 53073 CADR LRALT # = 5 021082,000102: 021083,000103: End of include-file RADAR_LEADIN_ROUTINES.agc. Parent file is MAIN.agc