Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

021101,000002:                                                                                                  ## Copyright:   Public domain.
021102,000003:                                                                                                  ## Filename:    RADAR_LEADIN_ROUTINES.agc
021103,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
021104,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
021105,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
021106,000007:                                                                                                  ## Assembler:   yaYUL
021107,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
021108,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
021109,000010:                                                                                                  ## Pages:       490-491
021110,000011:                                                                                                  ## Mod history: 2009-05-17 RSB  Adapted from the corresponding 
021111,000012:                                                                                                  ##                              Luminary131 file, using page 
021112,000013:                                                                                                  ##                              images from Luminary 1A.
021113,000014:                                                                                                  ##              2016-12-14 RSB  Proofed text comments with octopus/ProoferComments
021114,000015:                                                                                                  ##                              and corrected the errors found.
021115,000016:                                                                                                  ##
021116,000017:                                                                                                  ## This source code has been transcribed or otherwise adapted from
021117,000018:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
021118,000019:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
021119,000020:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
021120,000021:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
021121,000022:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
021122,000023:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
021123,000024:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
021124,000025:                                                                                                  ## actually created.
021125,000026:                                                                                                  ##
021126,000027:                                                                                                  ## Notations on the hardcopy document read, in part:
021127,000028:                                                                                                  ##
021128,000029:                                                                                                  ##      Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
021129,000030:                                                                                                  ##      16:27 JULY 14, 1969 
021130,000031: 

Page 490

021132,000033: 25,2003                                           BANK     25                                    
021133,000034: 25,2000                                           SETLOC   RRLEADIN                              
021134,000035: 25,2000                                           BANK                                           
021135,000036: 
021136,000037: 25,2003  E4,1600                                  EBANK=   RSTACK                                
021137,000038: 
021138,000039:                                                                                                  #  RADAR SAMPLING LOOP.
021139,000040: 
021140,000041: 25,2003                                           COUNT*   $$/RLEAD                              
021141,000042: 25,2003           11755        RADSAMP            CCS      RSAMPDT                               #  TIMES NORMAL ONCE-PER-SECOND SAMPLING.
021142,000043: 25,2004           12006                           TCF      +2                                    
021143,000044: 25,2005           15261                           TCF      TASKOVER                              #  +0 INSERTED MANUALLY TERMINATES TEST.
021144,000045: 
021145,000046: 25,2006           05203                           TC       WAITLIST                              
021146,000047: 25,2007  E4,1600                                  EBANK=   RSTACK                                
021147,000048: 25,2007           02003 52064                     2CADR    RADSAMP                               
021148,000049: 
021149,000050: 25,2011           37713                           CAF      PRIO25                                
021150,000051: 25,2012           05072                           TC       NOVAC                                 
021151,000052: 25,2013  E4,1600                                  EBANK=   RSTACK                                
021152,000053: 25,2013           02023 52064                     2CADR    DORSAMP                               
021153,000054: 
021154,000055: 25,2015           34736                           CAF      BIT14                                 #  FOR CYCLIC SAMPLING, RTSTDEX=
021155,000056: 25,2016           00006                           EXTEND                                         #  RTSTLOC/2 + RTSTBASE
021156,000057: 25,2017           71754                           MP       RTSTLOC                               
021157,000058: 25,2020           61753                           AD       RTSTBASE                              #  0 FOR RR, 2 FOR LR.
021158,000059: 25,2021           55751                           TS       RTSTDEX                               
021159,000060: 25,2022           15261                           TCF      TASKOVER                              
021160,000061: 
021161,000062:                                                                                                  #  DO THE ACTUAL RADAR SAMPLE.
021162,000063: 
021163,000064: 25,2023           02047        DORSAMP            TC       VARADAR                               #  SELECTS VARIABLE RADAR CHANNEL.
021164,000065: 25,2024           04616                           TC       BANKCALL                              
021165,000066: 25,2025           17714                           CADR     RADSTALL                              
021166,000067: 
021167,000068: 25,2026           25756                           INCR     RFAILCNT                              #  ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
021168,000069: 
021169,000070: 25,2027           00004        DORSAMP2           INHINT                                         
021170,000071: 25,2030           30101                           CA       FLAGWRD5                              #  DON'T UPDATE RSTACK IF IN R77.
021171,000072: 25,2031           74741                           MASK     R77FLBIT                              
021172,000073: 25,2032           10000                           CCS      A                                     
021173,000074: 25,2033           12037                           TCF      +4                                    
021174,000075: 
021175,000076: 25,2034           53102                           DXCH     SAMPLSUM                              
021176,000077: 25,2035           51754                           INDEX    RTSTLOC                               
021177,000078: 25,2036           53601                           DXCH     RSTACK                                
021178,000079: 
021179,000080: 25,2037           41754                           CS       RTSTLOC                               #  CYCLE RTSTLOC.
021180,000081: 25,2040           61752                           AD       RTSTMAX                               
021181,000082: 25,2041           00006                           EXTEND                                         
021182,000083: 

Page 491

021184,000085: 25,2042           12045                           BZF      +3                                    
021185,000086: 25,2043           31754                           CA       RTSTLOC                               
021186,000087: 25,2044           64752                           AD       TWO                                   #  STORAGE IS DP
021187,000088: 25,2045           55754                           TS       RTSTLOC                               
021188,000089: 25,2046           15155                           TCF      ENDOFJOB                              #  CONTINUOUS SAMPLING AND 2N TRIES - GONE.
021189,000090: 
021190,000091:                                                                                                  #  VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
021191,000092: 
021192,000093: 25,2047           34753        VARADAR            CAF      ONE                                   #  WILL BE SENT TO RADAR ROUTINE IN A BY
021193,000094: 25,2050           54133                           TS       BUF2                                  #  SWCALL.
021194,000095: 25,2051           51751                           INDEX    RTSTDEX                               
021195,000096: 25,2052           32054                           CAF      RDRLOCS                               
021196,000097: 25,2053           14622                           TCF      SWCALL                                #  NOT TOUCHING Q.
021197,000098: 
021198,000099: 25,2054           53105        RDRLOCS            CADR     RRRANGE                               #  = 0
021199,000100: 25,2055           53103                           CADR     RRRDOT                                #  = 1
021200,000101: 25,2056           53101                           CADR     LRVELX                                #  = 2
021201,000102: 25,2057           53077                           CADR     LRVELY                                #  = 3
021202,000103: 25,2060           53075                           CADR     LRVELZ                                #  = 4
021203,000104: 25,2061           53073                           CADR     LRALT                                 #  = 5
021204,000105: 
021205,000106: 

End of include-file RADAR_LEADIN_ROUTINES.agc.  Parent file is MAIN.agc