Assembly listing generated by yaYUL

Source Code

These source code files are an attempted reconstruction of Sundance revision 306, 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

These dumps were then modified using memos, checklists, observed address changes, and the Sundance GSOPs to get the entire program to match Sundance revision 306 as closely as possible. Without more information, it is not possible to say how close it actually is; however, this code should be quite close. It is capable of flying the whole Apollo 9 mission using the original checklists and padload. 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.

019608,000002: 019609,000003: 019610,000004: 019611,000005: 019612,000006: 019613,000007: 019614,000008: 019615,000009: 019616,000010: 019617,000011: 019618,000012: 019619,000013: 019620,000014: 019621,000015: 019622,000016: 019623,000017: 019624,000018: 019625,000019: 25,2000 019626,000020: 25,2000 019627,000021: 25,2000 019628,000022: 019629,000023: 25,2000 E4,1606 019630,000024: 019631,000025: 019632,000026: 019633,000027: 25,2000 ## Copyright: Public domain. ## Filename: RADAR_LEADIN_ROUTINES.agc ## Purpose: A section of an attempt to reconstruct Sundance revision 306 ## as closely as possible with available information. Sundance ## 306 is the source code for the Lunar Module's (LM) Apollo ## Guidance Computer (AGC) for Apollo 9. This program was created ## using the mixed-revision SundanceXXX as a starting point, and ## pulling back features from Luminary 69 believed to have been ## added based on memos, checklists, observed address changes, ## or the Sundance GSOPs. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2020-07-24 MAS Created from SundanceXXX. BANK 25 SETLOC RRLEADIN BANK EBANK= RSTACK # RADAR SAMPLING LOOP. COUNT* $$/RLEAD 0">019634,000028: 25,2000 11525 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING. 12003 TCF +2 15331 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 15331 TCF TASKOVER # DO THE ACTUAL RADAR SAMPLE. 0">019656,000050: 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">019662,000056: 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">019679,000073: 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">019685,000079: 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