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