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.
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. |
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