Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

056945,000002:                                                                                                  ## Copyright:   Public domain.
056946,000003:                                                                                                  ## Filename:    KEYRUPT_UPRUPT.agc
056947,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
056948,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
056949,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
056950,000007:                                                                                                  ## Assembler:   yaYUL
056951,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
056952,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
056953,000010:                                                                                                  ## Pages:       1338-1340
056954,000011:                                                                                                  ## Mod history: 2009-05-27 RSB  Adapted from the corresponding 
056955,000012:                                                                                                  ##                              Luminary131 file, using page 
056956,000013:                                                                                                  ##                              images from Luminary 1A.
056957,000014:                                                                                                  ##
056958,000015:                                                                                                  ## This source code has been transcribed or otherwise adapted from
056959,000016:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
056960,000017:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
056961,000018:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
056962,000019:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
056963,000020:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
056964,000021:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
056965,000022:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
056966,000023:                                                                                                  ## actually created.
056967,000024:                                                                                                  ##
056968,000025:                                                                                                  ## Notations on the hardcopy document read, in part:
056969,000026:                                                                                                  ##
056970,000027:                                                                                                  ##      Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
056971,000028:                                                                                                  ##      16:27 JULY 14, 1969 
056972,000029: 

Page 1338

056974,000031: 14,3774                                           BANK     14                                    
056975,000032: 04,2000                                           SETLOC   KEYRUPT                               
056976,000033: 04,2000                                           BANK                                           
056977,000034: 04,3274                                           COUNT*   $$/KEYUP                              
056978,000035: 
056979,000036: 04,3274           54016        KEYRUPT1           TS       BANKRUPT                              
056980,000037: 04,3275           56002                           XCH      Q                                     
056981,000038: 04,3276           54012                           TS       QRUPT                                 
056982,000039: 04,3277           04400                           TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65.
056983,000040: 04,3300           34346                           CAF      LOW5                                  
056984,000041: 04,3301           00006                           EXTEND                                         
056985,000042: 04,3302           02015                           RAND     MNKEYIN                               #  CHECK IF KEYS 5M-1M ON
056986,000043: 04,3303           54073        KEYCOM             TS       RUPTREG4                              
056987,000044: 04,3304           40101                           CS       FLAGWRD5                              
056988,000045: 04,3305           74735                           MASK     DSKYFBIT                              
056989,000046: 04,3306           26101                           ADS      FLAGWRD5                              
056990,000047: 
056991,000048: 04,3307           34355        ACCEPTUP           CAF      CHRPRIO                               #  (NOTE: RUPTREG4 = KEYTEMP1)
056992,000049: 04,3310           05072                           TC       NOVAC                                 
056993,000050: 04,3311     0777                                  EBANK=   DSPCOUNT                              
056994,000051: 04,3311           02077 60101                     2CADR    CHARIN                                
056995,000052: 
056996,000053: 04,3313           30073                           CA       RUPTREG4                              
056997,000054: 04,3314           50064                           INDEX    LOCCTR                                
056998,000055: 04,3315           54154                           TS       MPAC                                  #  LEAVE 5 BIT KEY CODE IN MPAC FOR CHARIN
056999,000056: 04,3316           05270                           TC       RESUME                                
057000,000057: 

Page 1339

057002,000059:                                                                                                  #  UPRUPT PROGRAM
057003,000060: 
057004,000061: 04,3317           54016        UPRUPT             TS       BANKRUPT                              
057005,000062: 04,3320           56002                           XCH      Q                                     
057006,000063: 04,3321           54012                           TS       QRUPT                                 
057007,000064: 04,3322           04400                           TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65.
057008,000065: 04,3323           34755                           CAF      ZERO                                  
057009,000066: 04,3324           56045                           XCH      INLINK                                
057010,000067: 04,3325           54073                           TS       KEYTEMP1                              
057011,000068: 04,3326           34751                           CAF      BIT3                                  #  TURN ON UPACT LIGHT
057012,000069: 04,3327           00006                           EXTEND                                         #  (BIT 3 OF CHANNEL 11)
057013,000070: 04,3330           05011                           WOR      DSALMOUT                              
057014,000071: 04,3331           34346        UPRPT1             CAF      LOW5                                  #  TEST FOR TRIPLE CHAR REDUNDANCY
057015,000072: 04,3332           70073                           MASK     KEYTEMP1                              #  LOW5 OF WORD
057016,000073: 04,3333           56073                           XCH      KEYTEMP1                              #  LOW5 INTO KEYTEMP1
057017,000074: 04,3334           00006                           EXTEND                                         
057018,000075: 04,3335           74742                           MP       BIT10                                 #  SHIFT RIGHT 5
057019,000076: 04,3336           54734                           TS       KEYTEMP2                              
057020,000077: 04,3337           74346                           MASK     LOW5                                  #  MID 5
057021,000078: 04,3340           63374                           AD       HI10                                  
057022,000079: 04,3341           03371                           TC       UPTEST                                
057023,000080: 04,3342           34742                           CAF      BIT10                                 
057024,000081: 04,3343           00006                           EXTEND                                         
057025,000082: 04,3344           70734                           MP       KEYTEMP2                              #  SHIFT RIGHT 5
057026,000083: 04,3345           74346                           MASK     LOW5                                  #  HIGH 5
057027,000084: 04,3346           40000                           COM                                            
057028,000085: 04,3347           03371                           TC       UPTEST                                
057029,000086: 
057030,000087: 04,3350           43377        UPCK               CS       ELRCODE                               #  CODE IS GOOD.  IF CODE = `ERROR RESET',
057031,000088: 04,3351           60073                           AD       KEYTEMP1                              #  CLEAR UPLOCKFL (SET BIT4 OF FLAGWRD7 = 0)
057032,000089: 04,3352           00006                           EXTEND                                         #  IF CODE DOES NOT = `ERROR RESET', ACCEPT
057033,000090: 04,3353           13361                           BZF      CLUPLOCK                              #  CODE ONLY IF UPLOCKFL IS CLEAR (=0).
057034,000091: 
057035,000092: 04,3354           34750                           CAF      UPLOCBIT                              #  TEST UPLOCKFL FOR 0 OR 1
057036,000093: 04,3355           70103                           MASK     FLAGWRD7                              
057037,000094: 04,3356           10000                           CCS      A                                     
057038,000095: 04,3357           05270                           TC       RESUME                                #  UPLOCKFL = 1
057039,000096: 04,3360           03307                           TC       ACCEPTUP                              #  UPLOCKFL = 0
057040,000097: 
057041,000098: 04,3361           44750        CLUPLOCK           CS       UPLOCBIT                              #  CLEAR UPLOCKFL (I.E., SET BIT 4 OF
057042,000099: 04,3362           70103                           MASK     FLAGWRD7                              #  FLAGWRD7 = 0)
057043,000100: 04,3363           54103                           TS       FLAGWRD7                              
057044,000101: 04,3364           03307                           TC       ACCEPTUP                              
057045,000102: 
057046,000103:                                                                                                  #  CODE IS BAD
057047,000104: 04,3365           40103        TMFAIL2            CS       FLAGWRD7                              #  LOCK OUT FURTHER UPLINK ACTIVITY
057048,000105: 04,3366           74750                           MASK     UPLOCBIT                              #  (BY SETTING UPLOCKFL = 1) UNTIL
057049,000106: 04,3367           26103                           ADS      FLAGWRD7                              #  `ERROR RESET' IS SENT VIA UPLINK.
057050,000107: 04,3370           05270                           TC       RESUME                                
057051,000108: 04,3371           60073        UPTEST             AD       KEYTEMP1                              

Page 1340

057053,000110: 04,3372           10000                           CCS      A                                     
057054,000111: 04,3373           03365                           TC       TMFAIL2                               
057055,000112: 04,3374           77740        HI10               OCT      77740                                 
057056,000113: 04,3375           03365                           TC       TMFAIL2                               
057057,000114: 04,3376           00002                           TC       Q                                     
057058,000115: 
057059,000116: 04,3377           00022        ELRCODE            OCT      22                                    
057060,000117: 
057061,000118:                                                                                                  #  `UPLINK ACTIVITY LIGHT' IS TURNED OFF BY .....
057062,000119:                                                                                                  #        1.      VBRELDSP
057063,000120:                                                                                                  #        2.      ERROR RESET
057064,000121:                                                                                                  #        3.      UPDATE PROGRAM (P27) ENTERED BY V70,V71,V72, AND V73.
057065,000122:                                                                                                  #                                      _
057066,000123:                                                                                                  #  THE RECEPTION OF A BAD CODE (I.E., CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1.
057067,000124:                                                                                                  #  THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS.
057068,000125:                                                                                                  #  WHEN UPLINK ACTIVITY IS LOCKED OUT, IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND `ERROR RESET' CODE.
057069,000126:                                                                                                  #  (IT IS RECOMMENDED THAT THE `ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED
057070,000127:                                                                                                  #  BY 15 ZEROS.  THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL
057071,000128:                                                                                                  #  FAILURE).
057072,000129: 
057073,000130:                                                                                                  #  UPLINK ACTIVITY IS ALSO ALLOWED (UNLOCKED) DURING FRESH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0.
057074,000131: 
057075,000132: 04,3400           44753                           CS       XDSPBIT                               
057076,000133: 

End of include-file KEYRUPT_UPRUPT.agc.  Parent file is MAIN.agc