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.

005359,000002: 005360,000003: 005361,000004: 005362,000005: 005363,000006: 005364,000007: 005365,000008: 005366,000009: 005367,000010: 005368,000011: 005369,000012: 005370,000013: 005371,000014: 005372,000015: 005373,000016: 005374,000017: 005375,000018: 005376,000019: 4000 005377,000020: 005378,000021: 4000 005379,000022: 4000 005380,000023: 4001 005381,000024: 4002 005382,000025: 4003 005383,000026: 005384,000027: 4004 005385,000028: 4005 005386,000029: 4006 005387,000030: 4007 005388,000031: 005389,000032: 4010 005390,000033: 4011 005391,000034: 4012 005392,000035: 4013 005393,000036: 005394,000037: 4014 005395,000038: 4015 005396,000039: 4016 005397,000040: 4017 005398,000041: 005399,000042: 4020 005400,000043: 4021 005401,000044: 4022 005402,000045: 4023 005403,000046: 005404,000047: 4024 005405,000048: 4025 005406,000049: 4026 005407,000050: 4027 005408,000051: 005409,000052: 4030 005410,000053: 4031 005411,000054: 4032 005412,000055: 4033 005413,000056: 005414,000057: 4034 005415,000058: 4035 005416,000059: 4036 005417,000060: 4037 005418,000061: 005419,000062: 4040 005420,000063: 4041 005421,000064: 4042 005422,000065: 4043 005423,000066: 005424,000067: 4044 005425,000068: 4045 005426,000069: 4046 005427,000070: 4047 005428,000071: 005429,000072: 4050 005430,000073: 4051 005431,000074: 4052 005432,000075: 4053 005433,000076: 005434,000077: 005435,000078: 4054 E3,1400 ## Copyright: Public domain. ## Filename: INTERRUPT_LEAD_INS.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. SETLOC 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS 00004 INHINT # GO 34054 CAF GOBB 56006 XCH BBANK 12451 TCF GOPROG 52011 DXCH ARUPT # T6RUPT 00006 EXTEND 35753 DCA T6ADR 52006 DTCB 52011 DXCH ARUPT # T5RUPT - AUTOPILOT 40030 CS TIME5 65044 AD .5SEC 14065 TCF T5RUPT 52011 DXCH ARUPT # T3RUPT 34056 CAF T3RPTBB 56006 XCH BBANK 13212 TCF T3RUPT 52011 DXCH ARUPT # T4RUPT 34063 CAF T4RPTBB 56006 XCH BBANK 12000 TCF T4RUPT 52011 DXCH ARUPT # KEYRUPT1 34057 CAF KEYRPTBB 56006 XCH BBANK 13107 TCF KEYRUPT1 52011 DXCH ARUPT # KEYRUPT2 34060 CAF MKRUPTBB 56006 XCH BBANK 12357 TCF MARKRUPT 52011 DXCH ARUPT # UPRUPT 34057 CAF UPRPTBB 56006 XCH BBANK 13132 TCF UPRUPT 52011 DXCH ARUPT # DOWNRUPT 34061 CAF DWNRPTBB 56006 XCH BBANK 13153 TCF DODOWNTM 52011 DXCH ARUPT # RADAR RUPT 34062 CAF RDRPTBB 56006 XCH BBANK 13122 TCF RADAREAD 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE 34064 CA RUPT10BB 56006 XCH BBANK 12000 TCF PITFALL EBANK= LST1 # RESTART USES E0, E3 >005436,000079: 4054 12003 GOBB BBCON GOPROG 0025 EBANK= TIME1 2">005439,000082: 4055 04000 T6RPTBB BBCON RESUME # ***FIX LATER*** EBANK= LST1 2">005442,000085: 4056 02003 T3RPTBB BBCON T3RUPT 0073 EBANK= KEYTEMP1 242">005445,000088: 4057 10000 KEYRPTBB BBCON KEYRUPT1 EBANK= AOTAZ 242">005448,000091: 4060 16007 MKRUPTBB BBCON MARKRUPT 2">005450,000093: 4061 4057 UPRPTBB = KEYRPTBB 0340 EBANK= DNTMBUFF 242">005453,000096: 4061 12000 DWNRPTBB BBCON DODOWNTM 1101 EBANK= RADMODES 2">005456,000099: 4062 52002 RDRPTBB BBCON RADAREAD EBANK= M11 2">005459,000102: 4063 14006 T4RPTBB BBCON T4RUPT EBANK= ELVIRA 242">005462,000105: 4064 42007 RUPT10BB BBCON PITFALL >005464,000107: 4065 00006 T5RUPT EXTEND 65344 BZMF NOQBRSM 00006 EXTEND 31277 DCA T5ADR 52006 DTCB INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc