Assembly listing generated by yaYUL

Source Code

These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of original core rope program modules, as follows:

B1 — Revision 292
B2 — Revision 302
B3 — Revision 302
B4 — Revision 302
B5 — Revision 292
B6 — Revision 306

This means that source code does not represent a specific historical revision of Sundance, but rather a mixture of the three released versions. Nonetheless, it is capable of flying the whole Apollo 9 mission. This source code matches the binary dumps, as closely as feasible, but 100% match is not possible, due mostly to changes in memory addresses at which code and variables were allocated in different revisions of Sundance. Refer to this list of explanations for each binary mismatch.

Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

019555,000002: 019556,000003: 019557,000004: 019558,000005: 019559,000006: 019560,000007: 019561,000008: 019562,000009: 019563,000010: 019564,000011: 019565,000012: 019566,000013: 019567,000014: 019568,000015: 019569,000016: 019570,000017: 25,2000 019571,000018: 25,2000 019572,000019: 25,2000 019573,000020: 019574,000021: 25,2000 E4,1606 019575,000022: 019576,000023: 019577,000024: 019578,000025: 25,2000 ## Copyright: Public domain. ## Filename: RADAR_LEADIN_ROUTINES.agc ## Purpose: A section of a reconstructed, mixed version of Sundance ## It is part of the reconstructed source code for the Lunar ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9. ## No original listings of this program are available; ## instead, this file was created via disassembly of dumps ## of various revisions of Sundance core rope modules. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2020-06-17 MAS Created from Luminary 69. ## Sundance 302 BANK 25 SETLOC RRLEADIN BANK EBANK= RSTACK # RADAR SAMPLING LOOP. COUNT* $$/RLEAD 0">019579,000026: 25,2000 11525 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING. 12003 TCF +2 15321 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST. 05252 TC WAITLIST EBANK= RSTACK 02000 52064 2CADR RADSAMP 37665 CAF PRIO25 05142 TC NOVAC EBANK= RSTACK 02020 52064 2CADR DORSAMP 35011 CAF BIT14 # FOR CYCLIC SAMPLING, RTSTDEX= 00006 EXTEND # RTSTLOC/2 + RTSTBASE 71524 MP RTSTLOC 61523 AD RTSTBASE # 0 FOR RR, 2 FOR LR. 55521 TS RTSTDEX 15321 TCF TASKOVER # DO THE ACTUAL RADAR SAMPLE. 0">019601,000048: 25,2020 02040 DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL. 04655 TC BANKCALL 17623 CADR RADSTALL 25526 INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA 032">019607,000054: 25,2024 00004 DORSAMP2 INHINT 53105 DXCH SAMPLSUM 51524 INDEX RTSTLOC 53607 DXCH RSTACK 41524 CS RTSTLOC # CYCLE RTSTLOC. 61522 AD RTSTMAX 00006 EXTEND 12036 BZF +3 31524 CA RTSTLOC 65025 AD TWO # STORAGE IS DP 55524 TS RTSTLOC 15225 TCF ENDOFJOB # CONTINUOUS SAMPLING AND 2N TRIES - GONE. # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY. 2">019624,000071: 25,2040 35026 VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY 54133 TS BUF2 # SWCALL. 51521 INDEX RTSTDEX 32045 CAF RDRLOCS 14661 TCF SWCALL # NOT TOUCHING Q. 3">019630,000077: 25,2045 53057 RDRLOCS CADR RRRANGE # = 0 53055 CADR RRRDOT # = 1 53053 CADR LRVELX # = 2 53051 CADR LRVELY # = 3 53047 CADR LRVELZ # = 4 53045 CADR LRALT # = 5 RADAR_LEADIN_ROUTINES.agc. Parent file is MAIN.agc