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.

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

Page 498

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

Page 499

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

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