Source Code

These source-code files are part of a reconstructed copy of Luminary 69/2, the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction is based on the source code of Luminary 69 — i.e., the initial, unflown version, "revision 0" — of which a contemporary listing was available. The code was then updated by incorporating the differences between Luminary 69 and Luminary 69/2, known from other contemporary documentation. The only such difference is the implementation in Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available. Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to executable form and verifying that its memory banks had the correct checksums, known from still other contemporary documentation.

Note that page numbers in the reconstructed code match those in the original Luminary 69 program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers would certainly differ somewhat in a contemporary Luminary 69/2 listing. Moreover, annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change in Luminary 69/2 relative to Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

057399,000002:                                                                                                  ## Copyright:   Public domain.
057400,000003:                                                                                                  ## Filename:    KEYRUPT,_UPRUPT.agc
057401,000004:                                                                                                  ## Purpose:     A section of LUM69 revision 2.
057402,000005:                                                                                                  ##              It is part of the reconstructed source code for the flown
057403,000006:                                                                                                  ##              version of the flight software for the Lunar Module's (LM)
057404,000007:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 10. The code has
057405,000008:                                                                                                  ##              been recreated from a copy of Luminary revsion 069, using
057406,000009:                                                                                                  ##              changes present in Luminary 099 which were described in
057407,000010:                                                                                                  ##              Luminary memos 75 and 78. The code has been adapted such
057408,000011:                                                                                                  ##              that the resulting bugger words exactly match those specified
057409,000012:                                                                                                  ##              for LUM69 revision 2 in NASA drawing 2021152B, which gives
057410,000013:                                                                                                  ##              relatively high confidence that the reconstruction is correct.
057411,000014:                                                                                                  ## Reference:   pp. 1332-1334
057412,000015:                                                                                                  ## Assembler:   yaYUL
057413,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
057414,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
057415,000018:                                                                                                  ## Mod history: 2019-07-27 MAS  Created from Luminary 69.
057416,000019:                                                                                                  ##              2021-05-30 ABS  UPCK -> UPOK
057417,000020: 

Page 1332

057419,000022: 14,3711                                           BANK     14                                    
057420,000023: 04,2000                                           SETLOC   KEYRUPT                               
057421,000024: 04,2000                                           BANK                                           
057422,000025: 04,3215                                           COUNT*   $$/KEYUP                              
057423,000026: 
057424,000027: 04,3215           54016        KEYRUPT1           TS       BANKRUPT                              
057425,000028: 04,3216           56002                           XCH      Q                                     
057426,000029: 04,3217           54012                           TS       QRUPT                                 
057427,000030: 04,3220           04400                           TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65.
057428,000031: 04,3221           34346                           CAF      LOW5                                  
057429,000032: 04,3222           00006                           EXTEND                                         
057430,000033: 04,3223           02015                           RAND     MNKEYIN                               #  CHECK IF KEYS 5M-1M ON
057431,000034: 04,3224           54073        KEYCOM             TS       RUPTREG4                              
057432,000035: 04,3225           40101                           CS       FLAGWRD5                              
057433,000036: 04,3226           74735                           MASK     DSKYFBIT                              
057434,000037: 04,3227           26101                           ADS      FLAGWRD5                              
057435,000038: 
057436,000039: 04,3230           34355        ACCEPTUP           CAF      CHRPRIO                               #  (NOTE: RUPTREG4 = KEYTEMP1)
057437,000040: 04,3231           05072                           TC       NOVAC                                 
057438,000041: 04,3232     0777                                  EBANK=   DSPCOUNT                              
057439,000042: 04,3232           02077 60101                     2CADR    CHARIN                                
057440,000043: 
057441,000044: 04,3234           30073                           CA       RUPTREG4                              
057442,000045: 04,3235           50064                           INDEX    LOCCTR                                
057443,000046: 04,3236           54154                           TS       MPAC                                  #  LEAVE 5 BIT KEY CDE IN MPAC FOR CHARIN
057444,000047: 04,3237           05270                           TC       RESUME                                
057445,000048: 

Page 1333

057447,000050:                                                                                                  #  UPRUPT PROGRAM
057448,000051: 
057449,000052: 04,3240           54016        UPRUPT             TS       BANKRUPT                              
057450,000053: 04,3241           56002                           XCH      Q                                     
057451,000054: 04,3242           54012                           TS       QRUPT                                 
057452,000055: 04,3243           04400                           TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65.
057453,000056: 04,3244           34755                           CAF      ZERO                                  
057454,000057: 04,3245           56045                           XCH      INLINK                                
057455,000058: 04,3246           54073                           TS       KEYTEMP1                              
057456,000059: 04,3247           34751                           CAF      BIT3                                  #  TURN ON UPACT LIGHT
057457,000060: 04,3250           00006                           EXTEND                                         #  (BIT 3 OF CHANNEL 11)
057458,000061: 04,3251           05011                           WOR      DSALMOUT                              
057459,000062: 04,3252           34346        UPRPT1             CAF      LOW5                                  #  TEST FOR TRIPLE CHAR REDUNDANCY
057460,000063: 04,3253           70073                           MASK     KEYTEMP1                              #  LOW5 OF WORD
057461,000064: 04,3254           56073                           XCH      KEYTEMP1                              #  LOW5 INTO KEYTEMP1
057462,000065: 04,3255           00006                           EXTEND                                         
057463,000066: 04,3256           74742                           MP       BIT10                                 #  SHIFT RIGHT 5
057464,000067: 04,3257           54734                           TS       KEYTEMP2                              
057465,000068: 04,3260           74346                           MASK     LOW5                                  #  MID 5
057466,000069: 04,3261           63315                           AD       HI10                                  
057467,000070: 04,3262           03312                           TC       UPTEST                                
057468,000071: 04,3263           34742                           CAF      BIT10                                 
057469,000072: 04,3264           00006                           EXTEND                                         
057470,000073: 04,3265           70734                           MP       KEYTEMP2                              #  SHIFT RIGHT 5
057471,000074: 04,3266           74346                           MASK     LOW5                                  #  HIGH 5
057472,000075: 04,3267           40000                           COM                                            
057473,000076: 04,3270           03312                           TC       UPTEST                                
057474,000077: 
057475,000078: 04,3271           43320        UPOK               CS       ELRCODE                               #  CODE IS GOOD. IF CODE = 'ERROR RESET',
057476,000079: 04,3272           60073                           AD       KEYTEMP1                              #  CLEAR UPLOCKFL(SET BIT4 OF FLAGWRD7 = 0)
057477,000080: 04,3273           00006                           EXTEND                                         #  IF CODE DOES NOT = 'ERROR RESET', ACCEPT
057478,000081: 04,3274           13302                           BZF      CLUPLOCK                              #  CODE ONLY IF UPLOCKFL IS CLEAR (=0).
057479,000082: 
057480,000083: 04,3275           34750                           CAF      UPLOCBIT                              #  TEST UPLOCKFL FOR 0 OR 1
057481,000084: 04,3276           70103                           MASK     FLAGWRD7                              
057482,000085: 04,3277           10000                           CCS      A                                     
057483,000086: 04,3300           05270                           TC       RESUME                                #  UPLOCKFL = 1
057484,000087: 04,3301           03230                           TC       ACCEPTUP                              #  UPLOCKFL = 0
057485,000088: 
057486,000089: 04,3302           44750        CLUPLOCK           CS       UPLOCBIT                              #  CLEAR UPLOCKFL (I.E., SET BIT 4 OF )
057487,000090: 04,3303           70103                           MASK     FLAGWRD7                              #  FLAGWRD7 = 0)
057488,000091: 04,3304           54103                           TS       FLAGWRD7                              
057489,000092: 04,3305           03230                           TC       ACCEPTUP                              
057490,000093: 
057491,000094:                                                                                                  #  CODE IS BAD
057492,000095: 04,3306           40103        TMFAIL2            CS       FLAGWRD7                              #  LOCK OUT FURTHER UPLINK ACTIVITY
057493,000096: 04,3307           74750                           MASK     UPLOCBIT                              #  (BY SETTING UPLOCKFL = 1) UNTIL
057494,000097: 04,3310           26103                           ADS      FLAGWRD7                              #  'ERROR RESET' IS SENT VIA UPLINK.
057495,000098: 04,3311           05270                           TC       RESUME                                
057496,000099: 04,3312           60073        UPTEST             AD       KEYTEMP1                              

Page 1334

057498,000101: 04,3313           10000                           CCS      A                                     
057499,000102: 04,3314           03306                           TC       TMFAIL2                               
057500,000103: 04,3315           77740        HI10               OCT      77740                                 
057501,000104: 04,3316           03306                           TC       TMFAIL2                               
057502,000105: 04,3317           00002                           TC       Q                                     
057503,000106: 
057504,000107: 04,3320           00022        ELRCODE            OCT      22                                    
057505,000108: 
057506,000109:                                                                                                  #  'UPLINK ACTIVITY LIGHT' IS TURNED OFF BY .....
057507,000110:                                                                                                  #        1.      VBRELDSP
057508,000111:                                                                                                  #        2.      ERROR RESET
057509,000112:                                                                                                  #        3.      UPDATE PROGRAM (P27) ENTERED BY V70,V71,V72,AND V73.
057510,000113:                                                                                                  #                                     -
057511,000114:                                                                                                  #  THE RECEPTION OF A BAD CODE (I.E  CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1.
057512,000115:                                                                                                  #  THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS.
057513,000116:                                                                                                  #  WHEN UPLINK ACTIVITY IS LOCKED OUT, IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND 'ERROR RESET' CODE.
057514,000117:                                                                                                  #  (IT IS RECOMMENDED THAT THE 'ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED
057515,000118:                                                                                                  #  BY 15 ZEROES.  THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL
057516,000119:                                                                                                  #  FAILURE)
057517,000120: 
057518,000121:                                                                                                  #  UPLINK ACTIVITY IS ALSO ALLOWED (UNLOCKED) DURING FRESH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0.
057519,000122: 
057520,000123: 04,3321           44753                           CS       XDSPBIT                               
057521,000124: 

End of include-file KEYRUPT,_UPRUPT.agc.  Parent file is MAIN.agc