GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note 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 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,1968Note that the date is the date of the printout, not the date of the program revision. |
022170,000002: ## Copyright: Public domain.
022171,000003: ## Filename: RADAR_LEADIN_ROUTINES.agc
022172,000004: ## Purpose: The main source file for Luminary revision 069.
022173,000005: ## It is part of the source code for the original release
022174,000006: ## of the flight software for the Lunar Module's (LM) Apollo
022175,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
022176,000008: ## version was Luminary 69 revision 2, which included a
022177,000009: ## newer lunar gravity model and only affected module 2.
022178,000010: ## This file is intended to be a faithful transcription, except
022179,000011: ## that the code format has been changed to conform to the
022180,000012: ## requirements of the yaYUL assembler rather than the
022181,000013: ## original YUL assembler.
022182,000014: ## Reference: pp. 502-503
022183,000015: ## Assembler: yaYUL
022184,000016: ## Contact: Ron Burkey <info@sandroid.org>.
022185,000017: ## Website: www.ibiblio.org/apollo/index.html
022186,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
022187,000019: ## 2016-12-14 MAS Updated from comment-proofed Luminary 99 version.
022188,000020: ## 2016-12-17 RRB Updated for Luminary 69.
022189,000021: ## 2017-01-27 RSB Proofed comment text using octopus/prooferComments
022190,000022: ## but no errors found.
022191,000023:
|
|
Page 502 |
022193,000025: 25,2003 BANK 25
022194,000026: 25,2000 SETLOC RRLEADIN
022195,000027: 25,2000 BANK
022196,000028:
022197,000029: 25,2003 E4,1604 EBANK= RSTACK
022198,000030:
022199,000031: # RADAR SAMPLING LOOP.
022200,000032:
022201,000033: 25,2003 COUNT* $$/RLEAD
022202,000034: 25,2003 11761 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
022203,000035: 25,2004 12006 TCF +2
022204,000036: 25,2005 15261 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
022205,000037:
022206,000038: 25,2006 05203 TC WAITLIST
022207,000039: 25,2007 E4,1604 EBANK= RSTACK
022208,000040: 25,2007 02003 52064 2CADR RADSAMP
022209,000041:
022210,000042: 25,2011 37712 CAF PRIO25
022211,000043: 25,2012 05072 TC NOVAC
022212,000044: 25,2013 E4,1604 EBANK= RSTACK
022213,000045: 25,2013 02023 52064 2CADR DORSAMP
022214,000046:
022215,000047: 25,2015 34736 CAF BIT14 # FOR CYCLIC SAMPLING, RTSTDEX=
022216,000048: 25,2016 00006 EXTEND # RTSTLOC/2 + RTSTBASE
022217,000049: 25,2017 71760 MP RTSTLOC
022218,000050: 25,2020 61757 AD RTSTBASE # 0 FOR RR, 2 FOR LR.
022219,000051: 25,2021 55755 TS RTSTDEX
022220,000052: 25,2022 15261 TCF TASKOVER
022221,000053:
022222,000054: # DO THE ACTUAL RADAR SAMPLE.
022223,000055:
022224,000056: 25,2023 02047 DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
022225,000057: 25,2024 04616 TC BANKCALL
022226,000058: 25,2025 17667 CADR RADSTALL
022227,000059:
022228,000060: 25,2026 25762 INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
022229,000061:
022230,000062: 25,2027 00004 DORSAMP2 INHINT
022231,000063: 25,2030 30101 CA FLAGWRD5 # DON'T UPDATE RSTACK IF IN R77.
022232,000064: 25,2031 74741 MASK R77FLBIT
022233,000065: 25,2032 10000 CCS A
022234,000066: 25,2033 12037 TCF +4
022235,000067:
022236,000068: 25,2034 53102 DXCH SAMPLSUM
022237,000069: 25,2035 51760 INDEX RTSTLOC
022238,000070: 25,2036 53605 DXCH RSTACK
022239,000071:
022240,000072: 25,2037 41760 CS RTSTLOC # CYCLE RTSTLOC.
022241,000073: 25,2040 61756 AD RTSTMAX
022242,000074: 25,2041 00006 EXTEND
022243,000075:
|
|
Page 503 |
022245,000077: 25,2042 12045 BZF +3
022246,000078: 25,2043 31760 CA RTSTLOC
022247,000079: 25,2044 64752 AD TWO # STORAGE IS DP
022248,000080: 25,2045 55760 TS RTSTLOC
022249,000081: 25,2046 15155 TCF ENDOFJOB # CONTINUOUS SAMPLING AND 2N TRIES - GONE.
022250,000082:
022251,000083: # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
022252,000084:
022253,000085: 25,2047 34753 VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
022254,000086: 25,2050 54133 TS BUF2 # SWCALL.
022255,000087: 25,2051 51755 INDEX RTSTDEX
022256,000088: 25,2052 32054 CAF RDRLOCS
022257,000089: 25,2053 14622 TCF SWCALL # NOT TOUCHING Q.
022258,000090:
022259,000091: 25,2054 53105 RDRLOCS CADR RRRANGE # = 0
022260,000092: 25,2055 53103 CADR RRRDOT # = 1
022261,000093: 25,2056 53101 CADR LRVELX # = 2
022262,000094: 25,2057 53077 CADR LRVELY # = 3
022263,000095: 25,2060 53075 CADR LRVELZ # = 4
022264,000096: 25,2061 53073 CADR LRALT # = 5
022265,000097:
022266,000098:
End of include-file RADAR_LEADIN_ROUTINES.agc. Parent file is MAIN.agc