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,1970Note 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