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