Source Code
|
This is a reconstructed version of Luminary 130, the initial AGC program released
in November 1969 for the Apollo 13 LM. Three more releases
followed before the flown revision was finally manufactured in February 1970.
This reconstruction was created from a previous transcription of the original listing of
Luminary 131, combined with Luminary memo #129 which describes the small difference
between the Luminary 130 and 131. The reconstructed source code was verified by
matching memory-bank checksums to those listed for Luminary 130 in drawing 2021152G.
In this source code, program comments from the original (Luminary 131) code are
prefixed with '#', while those added later by the Virtual AGC project are prefixed
with '##'.
|
021082,000002: ## Copyright: Public domain.
021083,000003: ## Filename: RADAR_LEADIN_ROUTINES.agc
021084,000004: ## Purpose: A section of the reconstructed source code for Luminary 130.
021085,000005: ## This was the original program released for the Apollo 13 LM,
021086,000006: ## although several more revisions would follow. It has been
021087,000007: ## reconstructed from a listing of Luminary 131, from which it
021088,000008: ## differs on only two lines in P70-P71. The difference is
021089,000009: ## described in detail in Luminary memo #129, which was used
021090,000010: ## to perform the reconstruction. This file is intended to be a
021091,000011: ## faithful reconstruction, except that the code format has been
021092,000012: ## changed to conform to the requirements of the yaYUL assembler
021093,000013: ## rather than the original YUL assembler.
021094,000014: ## Reference: pp. 494-495
021095,000015: ## Contact: Ron Burkey <info@sandroid.org>.
021096,000016: ## Website: www.ibiblio.org/apollo/index.html
021097,000017: ## Mod history: 05/14/03 RSB. Began transcribing.
021098,000018: ## 05/14/05 RSB Corrected website reference above.
021099,000019: ## 2017-01-06 RSB Page numbers now agree with those on the
021100,000020: ## original harcopy, as opposed to the PDF page
021101,000021: ## numbers in 1701.pdf.
021102,000022: ## 2017-02-24 RSB Proofed comment text using octopus/ProoferComments.
021103,000023: ## 2017-03-01 RSB Fixed a comment-text error found in diff'ing vs Luminary 116.
021104,000024: ## 2018-09-04 MAS Copied from Luminary 131 for Luminary 130.
021105,000025:
|
|
Page 494
|
021107,000027: 25,2003 BANK 25
021108,000028: 25,2000 SETLOC RRLEADIN
021109,000029: 25,2000 BANK
021110,000030:
021111,000031: 25,2003 E4,1600 EBANK= RSTACK
021112,000032:
021113,000033: # RADAR SAMPLING LOOP.
021114,000034: 25,2003 COUNT* $$/RLEAD
021115,000035: 25,2003 11777 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
021116,000036: 25,2004 12006 TCF +2
021117,000037: 25,2005 15261 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
021118,000038:
021119,000039: 25,2006 05203 TC WAITLIST
021120,000040: 25,2007 E4,1600 EBANK= RSTACK
021121,000041: 25,2007 02003 52064 2CADR RADSAMP
021122,000042:
021123,000043: 25,2011 37716 CAF PRIO25
021124,000044: 25,2012 05072 TC NOVAC
021125,000045: 25,2013 E4,1600 EBANK= RSTACK
021126,000046: 25,2013 02023 52064 2CADR DORSAMP
021127,000047:
021128,000048: 25,2015 34736 CAF BIT14 # FOR CYCLIC SAMPLING, RTSTDEX=
021129,000049: 25,2016 00006 EXTEND # RTSTLOC/2 + RTSTBASE
021130,000050: 25,2017 71776 MP RTSTLOC
021131,000051: 25,2020 61775 AD RTSTBASE # 0 FOR RR, 2 FOR LR.
021132,000052: 25,2021 55773 TS RTSTDEX
021133,000053: 25,2022 15261 TCF TASKOVER
021134,000054:
021135,000055: # DO THE ACTUAL RADAR SAMPLE.
021136,000056:
021137,000057: 25,2023 02060 DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
021138,000058: 25,2024 04616 TC BANKCALL
021139,000059: 25,2025 17705 CADR RADSTALL
021140,000060:
021141,000061: 25,2026 25575 INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
021142,000062:
021143,000063: 25,2027 00004 DORSAMP2 INHINT
021144,000064: 25,2030 30101 CA FLAGWRD5 # DON'T UPDATE RSTACK IF IN R77.
021145,000065: 25,2031 74741 MASK R77FLBIT
021146,000066: 25,2032 10000 CCS A
021147,000067: 25,2033 12050 TCF R77IN
021148,000068:
021149,000069: 25,2034 53101 DXCH SAMPLSUM
021150,000070: 25,2035 51776 INDEX RTSTLOC
021151,000071: 25,2036 53601 DXCH RSTACK
021152,000072:
021153,000073: 25,2037 30110 CA RADMODES
021154,000074: 25,2040 00006 EXTEND
021155,000075: 25,2041 06033 RXOR CHAN33
|
|
Page 495
|
021157,000077: 25,2042 74746 MASK BIT6
021158,000078: 25,2043 00006 EXTEND
021159,000079: 25,2044 12050 BZF R77IN
021160,000080:
021161,000081: 25,2045 05567 TC ALARM
021162,000082: 25,2046 00522 OCT 522
021163,000083: 25,2047 25575 INCR RFAILCNT
021164,000084:
021165,000085: 25,2050 41776 R77IN CS RTSTLOC # CYCLE RTSTLOC
021166,000086: 25,2051 61774 AD RTSTMAX
021167,000087: 25,2052 00006 EXTEND
021168,000088: 25,2053 12056 BZF +3
021169,000089: 25,2054 31776 CA RTSTLOC
021170,000090: 25,2055 64752 AD TWO # STORAGE IS DP
021171,000091: 25,2056 55776 TS RTSTLOC
021172,000092: 25,2057 15155 TCF ENDOFJOB # CONTINUOUS SAMPLING AND 2N TRIES - GONE.
021173,000093:
021174,000094: # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
021175,000095:
021176,000096: 25,2060 34753 VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
021177,000097: 25,2061 54133 TS BUF2 # SWCALL.
021178,000098: 25,2062 51773 INDEX RTSTDEX
021179,000099: 25,2063 32065 CAF RDRLOCS
021180,000100: 25,2064 14622 TCF SWCALL # NOT TOUCHING Q.
021181,000101:
021182,000102: 25,2065 53114 RDRLOCS CADR RRRANGE # = 0
021183,000103: 25,2066 53112 CADR RRRDOT # = 1
021184,000104: 25,2067 53110 CADR LRVELX # = 2
021185,000105: 25,2070 53106 CADR LRVELY # = 3
021186,000106: 25,2071 53104 CADR LRVELZ # = 4
021187,000107: 25,2072 53102 CADR LRALT # = 5
021188,000108:
021189,000109:
End of include-file RADAR_LEADIN_ROUTINES.agc. Parent file is MAIN.agc