Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

022265,000002:                                                                                                  ## Copyright:   Public domain.
022266,000003:                                                                                                  ## Filename:    RADAR_LEADIN_ROUTINES.agc
022267,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
022268,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
022269,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
022270,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
022271,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
022272,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
022273,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
022274,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
022275,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
022276,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
022277,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
022278,000015:                                                                                                  ## Reference:   pp. 498-499
022279,000016:                                                                                                  ## Assembler:   yaYUL
022280,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
022281,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
022282,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
022283,000020:                                                                                                  ##              2017-08-23 RSB  Transcribed.
022284,000021: 

Page 498

022286,000023: 15,2050                                           BANK     15                                    
022287,000024: 15,2000                                           SETLOC   RRLEADIN                              
022288,000025: 15,2000                                           BANK                                           
022289,000026: 
022290,000027: 15,2050  E4,1571                                  EBANK=   RSTACK                                
022291,000028: 
022292,000029:                                                                                                  #  RADAR SAMPLING LOOP.
022293,000030: 
022294,000031: 15,2050                                           COUNT*   $$/RLEAD                              
022295,000032: 15,2050           11770        RADSAMP            CCS      RSAMPDT                               #  TIMES NORMAL ONCE-PER-SECOND SAMPLING.
022296,000033: 15,2051           12053                           TCF      +2                                    
022297,000034: 15,2052           15272                           TCF      TASKOVER                              #  +0 INSERTED MANUALLY TERMINATES TEST.
022298,000035: 
022299,000036: 15,2053           05204                           TC       TWIDDLE                               
022300,000037: 15,2054           02050                           ADRES    RADSAMP                               
022301,000038: 15,2055           37725                           CAF      PRIO25                                
022302,000039: 15,2056           05072                           TC       NOVAC                                 
022303,000040: 15,2057  E4,1571                                  EBANK=   RSTACK                                
022304,000041: 15,2057           02003 52064                     2CADR    DORSAMP                               
022305,000042: 
022306,000043: 15,2061           34736                           CAF      BIT14                                 #  FOR CYCLIC SAMPLING, RTSTDEX=
022307,000044: 15,2062           00006                           EXTEND                                         #  RTSTLOC/2 + RTSTBASE
022308,000045: 15,2063           71767                           MP       RTSTLOC                               
022309,000046: 15,2064           61766                           AD       RTSTBASE                              #  0 FOR RR, 2 FOR LR.
022310,000047: 15,2065           55764                           TS       RTSTDEX                               
022311,000048: 15,2066           15272                           TCF      TASKOVER                              
022312,000049: 
022313,000050: 25,2003                                           BANK     25                                    
022314,000051: 25,2000                                           SETLOC   DRSAMP                                
022315,000052: 25,2000                                           BANK                                           
022316,000053: 
022317,000054: 25,2003  E4,1571                                  EBANK=   RSTACK                                
022318,000055:                                                                                                  #  DO THE ACTUAL RADAR SAMPLE.
022319,000056: 
022320,000057: 25,2003           02040        DORSAMP            TC       VARADAR                               #  SELECTS VARIABLE RADAR CHANNEL.
022321,000058: 25,2004           04616                           TC       BANKCALL                              
022322,000059: 25,2005           17713                           CADR     RADSTALL                              
022323,000060: 
022324,000061: 25,2006           25566                           INCR     RFAILCNT                              #  ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
022325,000062: 
022326,000063: 25,2007           00004        DORSAMP2           INHINT                                         
022327,000064: 25,2010           30101                           CA       FLAGWRD5                              #  DON'T UPDATE RSTACK IF IN R77.
022328,000065: 25,2011           74741                           MASK     R77FLBIT                              
022329,000066: 25,2012           10000                           CCS      A                                     
022330,000067: 25,2013           12030                           TCF      R77IN                                 
022331,000068: 
022332,000069: 25,2014           53101                           DXCH     SAMPLSUM                              
022333,000070: 25,2015           51767                           INDEX    RTSTLOC                               
022334,000071: 25,2016           53572                           DXCH     RSTACK                                
022335,000072: 

Page 499

022337,000074: 25,2017           30110                           CA       RADMODES                              
022338,000075: 25,2020           00006                           EXTEND                                         
022339,000076: 25,2021           06033                           RXOR     CHAN33                                
022340,000077: 25,2022           74746                           MASK     BIT6                                  
022341,000078: 25,2023           00006                           EXTEND                                         
022342,000079: 25,2024           12030                           BZF      R77IN                                 
022343,000080: 
022344,000081: 25,2025           05600                           TC       ALARM                                 
022345,000082: 25,2026           00522                           OCT      522                                   
022346,000083: 25,2027           25566                           INCR     RFAILCNT                              
022347,000084: 
022348,000085: 25,2030           41767        R77IN              CS       RTSTLOC                               #  CYCLE RTSTLOC
022349,000086: 25,2031           61765                           AD       RTSTMAX                               
022350,000087: 25,2032           00006                           EXTEND                                         
022351,000088: 25,2033           12036                           BZF      +3                                    
022352,000089: 25,2034           31767                           CA       RTSTLOC                               
022353,000090: 25,2035           64752                           AD       TWO                                   #  STORAGE IS DP
022354,000091: 25,2036           55767                           TS       RTSTLOC                               
022355,000092: 25,2037           15155                           TCF      ENDOFJOB                              #  CONTINUOUS SAMPLING AND 2N TRIES - GONE.
022356,000093: 
022357,000094:                                                                                                  #  VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
022358,000095: 
022359,000096: 25,2040           34753        VARADAR            CAF      ONE                                   #  WILL BE SENT TO RADAR ROUTINE IN A BY
022360,000097: 25,2041           54133                           TS       BUF2                                  #  SWCALL.
022361,000098: 25,2042           51764                           INDEX    RTSTDEX                               
022362,000099: 25,2043           32045                           CAF      RDRLOCS                               
022363,000100: 25,2044           14622                           TCF      SWCALL                                #  NOT TOUCHING Q.
022364,000101: 
022365,000102: 25,2045           53072        RDRLOCS            CADR     RRRANGE                               #  = 0
022366,000103: 25,2046           53070                           CADR     RRRDOT                                #  = 1
022367,000104: 25,2047           53066                           CADR     LRVELX                                #  = 2
022368,000105: 25,2050           53064                           CADR     LRVELY                                #  = 3
022369,000106: 25,2051           53062                           CADR     LRVELZ                                #  = 4
022370,000107: 25,2052           53060                           CADR     LRALT                                 #  = 5

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