Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

022165,000002:                                                                                                  ## Copyright:   Public domain.
022166,000003:                                                                                                  ## Filename:    RADAR_LEADIN_ROUTINES.agc
022167,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
022168,000005:                                                                                                  ##              It is part of the source code for the original release
022169,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
022170,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
022171,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
022172,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
022173,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
022174,000011:                                                                                                  ##              that the code format has been changed to conform to the
022175,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
022176,000013:                                                                                                  ##              original YUL assembler.
022177,000014:                                                                                                  ## Reference:   pp. 502-503
022178,000015:                                                                                                  ## Assembler:   yaYUL
022179,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
022180,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
022181,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
022182,000019:                                                                                                  ##              2016-12-14 MAS  Updated from comment-proofed Luminary 99 version.
022183,000020:                                                                                                  ##              2016-12-17 RRB  Updated for Luminary 69.
022184,000021:                                                                                                  ##              2017-01-27 RSB  Proofed comment text using octopus/prooferComments
022185,000022:                                                                                                  ##                              but no errors found.
022186,000023: 

Page 502

022188,000025: 25,2003                                           BANK     25                                    
022189,000026: 25,2000                                           SETLOC   RRLEADIN                              
022190,000027: 25,2000                                           BANK                                           
022191,000028: 
022192,000029: 25,2003  E4,1604                                  EBANK=   RSTACK                                
022193,000030: 
022194,000031:                                                                                                  #  RADAR SAMPLING LOOP.
022195,000032: 
022196,000033: 25,2003                                           COUNT*   $$/RLEAD                              
022197,000034: 25,2003           11761        RADSAMP            CCS      RSAMPDT                               #  TIMES NORMAL ONCE-PER-SECOND SAMPLING.
022198,000035: 25,2004           12006                           TCF      +2                                    
022199,000036: 25,2005           15261                           TCF      TASKOVER                              #  +0 INSERTED MANUALLY TERMINATES TEST.
022200,000037: 
022201,000038: 25,2006           05203                           TC       WAITLIST                              
022202,000039: 25,2007  E4,1604                                  EBANK=   RSTACK                                
022203,000040: 25,2007           02003 52064                     2CADR    RADSAMP                               
022204,000041: 
022205,000042: 25,2011           37712                           CAF      PRIO25                                
022206,000043: 25,2012           05072                           TC       NOVAC                                 
022207,000044: 25,2013  E4,1604                                  EBANK=   RSTACK                                
022208,000045: 25,2013           02023 52064                     2CADR    DORSAMP                               
022209,000046: 
022210,000047: 25,2015           34736                           CAF      BIT14                                 #  FOR CYCLIC SAMPLING, RTSTDEX=
022211,000048: 25,2016           00006                           EXTEND                                         #  RTSTLOC/2 + RTSTBASE
022212,000049: 25,2017           71760                           MP       RTSTLOC                               
022213,000050: 25,2020           61757                           AD       RTSTBASE                              #  0 FOR RR, 2 FOR LR.
022214,000051: 25,2021           55755                           TS       RTSTDEX                               
022215,000052: 25,2022           15261                           TCF      TASKOVER                              
022216,000053: 
022217,000054:                                                                                                  #  DO THE ACTUAL RADAR SAMPLE.
022218,000055: 
022219,000056: 25,2023           02047        DORSAMP            TC       VARADAR                               #  SELECTS VARIABLE RADAR CHANNEL.
022220,000057: 25,2024           04616                           TC       BANKCALL                              
022221,000058: 25,2025           17667                           CADR     RADSTALL                              
022222,000059: 
022223,000060: 25,2026           25762                           INCR     RFAILCNT                              #  ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
022224,000061: 
022225,000062: 25,2027           00004        DORSAMP2           INHINT                                         
022226,000063: 25,2030           30101                           CA       FLAGWRD5                              #  DON'T UPDATE RSTACK IF IN R77.
022227,000064: 25,2031           74741                           MASK     R77FLBIT                              
022228,000065: 25,2032           10000                           CCS      A                                     
022229,000066: 25,2033           12037                           TCF      +4                                    
022230,000067: 
022231,000068: 25,2034           53102                           DXCH     SAMPLSUM                              
022232,000069: 25,2035           51760                           INDEX    RTSTLOC                               
022233,000070: 25,2036           53605                           DXCH     RSTACK                                
022234,000071: 
022235,000072: 25,2037           41760                           CS       RTSTLOC                               #  CYCLE RTSTLOC.
022236,000073: 25,2040           61756                           AD       RTSTMAX                               
022237,000074: 25,2041           00006                           EXTEND                                         
022238,000075: 

Page 503

022240,000077: 25,2042           12045                           BZF      +3                                    
022241,000078: 25,2043           31760                           CA       RTSTLOC                               
022242,000079: 25,2044           64752                           AD       TWO                                   #  STORAGE IS DP
022243,000080: 25,2045           55760                           TS       RTSTLOC                               
022244,000081: 25,2046           15155                           TCF      ENDOFJOB                              #  CONTINUOUS SAMPLING AND 2N TRIES - GONE.
022245,000082: 
022246,000083:                                                                                                  #  VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
022247,000084: 
022248,000085: 25,2047           34753        VARADAR            CAF      ONE                                   #  WILL BE SENT TO RADAR ROUTINE IN A BY
022249,000086: 25,2050           54133                           TS       BUF2                                  #  SWCALL.
022250,000087: 25,2051           51755                           INDEX    RTSTDEX                               
022251,000088: 25,2052           32054                           CAF      RDRLOCS                               
022252,000089: 25,2053           14622                           TCF      SWCALL                                #  NOT TOUCHING Q.
022253,000090: 
022254,000091: 25,2054           53105        RDRLOCS            CADR     RRRANGE                               #  = 0
022255,000092: 25,2055           53103                           CADR     RRRDOT                                #  = 1
022256,000093: 25,2056           53101                           CADR     LRVELX                                #  = 2
022257,000094: 25,2057           53077                           CADR     LRVELY                                #  = 3
022258,000095: 25,2060           53075                           CADR     LRVELZ                                #  = 4
022259,000096: 25,2061           53073                           CADR     LRALT                                 #  = 5
022260,000097: 
022261,000098: 

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