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.

052333,000002: 052334,000003: 052335,000004: 052336,000005: 052337,000006: 052338,000007: 052339,000008: 052340,000009: 052341,000010: 052342,000011: 052343,000012: 052344,000013: 052345,000014: 052346,000015: 052347,000016: 052348,000017: 052349,000018: 14,3734 052350,000019: 04,2000 052351,000020: 04,2000 052352,000021: 04,3104 052353,000022: ## Copyright: Public domain. ## Filename: KEYRUPT,_UPRUPT.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. ## 2021-05-30 ABS UPCK -> UPOK ## Sundance 292 BANK 14 SETLOC KEYRUPT BANK COUNT* $$/KEYUP 431">052354,000023: 04,3104 54016 KEYRUPT1 TS BANKRUPT 56002 XCH Q 54012 TS QRUPT 04412 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65. 34360 CAF LOW5 00006 EXTEND 02015 RAND MNKEYIN # CHECK IF KEYS 5M-1M ON >052361,000030: 04,3113 54073 KEYCOM TS RUPTREG4 40101 CS FLAGWRD5 75010 MASK DSKYFBIT 26101 ADS FLAGWRD5 550">052366,000035: 04,3117 34367 ACCEPTUP CAF CHRPRIO # (NOTE: RUPTREG4 = KEYTEMP1) 05142 TC NOVAC 1000 EBANK= DSPCOUNT 02212 60102 2CADR CHARIN 30073 CA RUPTREG4 50064 INDEX LOCCTR 54154 TS MPAC # LEAVE 5 BIT KEY CDE IN MPAC FOR CHARIN 05330 TC RESUME # UPRUPT PROGRAM >052378,000047: 04,3127 54016 UPRUPT TS BANKRUPT 56002 XCH Q 54012 TS QRUPT 04412 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65. 35030 CAF ZERO 56045 XCH INLINK 54073 TS KEYTEMP1 35024 CAF BIT3 # TURN ON UPACT LIGHT 00006 EXTEND # (BIT 3 OF CHANNEL 11) 05011 WOR DSALMOUT >052388,000057: 04,3141 34360 UPRPT1 CAF LOW5 # TEST FOR TRIPLE CHAR REDUNDANCY 70073 MASK KEYTEMP1 # LOW5 OF WORD 56073 XCH KEYTEMP1 # LOW5 INTO KEYTEMP1 00006 EXTEND 75015 MP BIT10 # SHIFT RIGHT 5 54734 TS KEYTEMP2 74360 MASK LOW5 # MID 5 63204 AD HI10 03201 TC UPTEST 35015 CAF BIT10 00006 EXTEND 70734 MP KEYTEMP2 # SHIFT RIGHT 5 74360 MASK LOW5 # HIGH 5 40000 COM 03201 TC UPTEST >052404,000073: 04,3160 43207 UPOK CS ELRCODE # CODE IS GOOD. IF CODE = 'ERROR RESET', 60073 AD KEYTEMP1 # CLEAR UPLOCKFL(SET BIT4 OF FLAGWRD7 = 0) 00006 EXTEND # IF CODE DOES NOT = 'ERROR RESET', ACCEPT 13171 BZF CLUPLOCK # CODE ONLY IF UPLOCKFL IS CLEAR (=0). 35023 CAF UPLOCBIT # TEST UPLOCKFL FOR 0 OR 1 70103 MASK FLAGWRD7 10000 CCS A 05330 TC RESUME # UPLOCKFL = 1 03117 TC ACCEPTUP # UPLOCKFL = 0 34B">052415,000084: 04,3171 45023 CLUPLOCK CS UPLOCBIT # CLEAR UPLOCKFL (I.E., SET BIT 4 OF ) 70103 MASK FLAGWRD7 # FLAGWRD7 = 0) 54103 TS FLAGWRD7 03117 TC ACCEPTUP # CODE IS BAD 2">052421,000090: 04,3175 40103 TMFAIL2 CS FLAGWRD7 # LOCK OUT FURTHER UPLINK ACTIVITY 75023 MASK UPLOCBIT # (BY SETTING UPLOCKFL = 1) UNTIL 26103 ADS FLAGWRD7 # 'ERROR RESET' IS SENT VIA UPLINK. 05330 TC RESUME >052425,000094: 04,3201 60073 UPTEST AD KEYTEMP1 10000 CCS A 03175 TC TMFAIL2 >052428,000097: 04,3204 77740 HI10 OCT 77740 03175 TC TMFAIL2 00002 TC Q 5">052432,000101: 04,3207 00022 ELRCODE OCT 22 # 'UPLINK ACTIVITY LIGHT' IS TURNED OFF BY ..... # 1. VBRELDSP # 2. ERROR RESET # 3. UPDATE PROGRAM (P27) ENTERED BY V70,V71,V72,AND V73. # - # THE RECEPTION OF A BAD CODE (I.E CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1. # THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS. # WHEN UPLINK ACTIVITY IS LOCKED OUT, IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND 'ERROR RESET' CODE. # (IT IS RECOMMENDED THAT THE 'ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED # BY 15 ZEROES. THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL # FAILURE) # UPLINK ACTIVITY IS ALSO ALLOWED (UNLOCKED) DURING FRESH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0. KEYRUPT,_UPRUPT.agc. Parent file is MAIN.agc