Source Code

These source-code files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology". It is believed that the original listing was preserved by AGC developer Don Eyles, copied/reduced by AGC developer Hugh Blair-Smith, passed by AGC developer James Kernan to collector David Craig, scanned by Gary Neff, and then passed to the Dibner Institute where unfortunately the high-quality scans were reduced in legibility as part of the online-presentation process, and the original scans discarded. The source code was transcribed from those images by Ron Burkey. The images from the Dibner Institute website, and unfortunately not the discarded original high-quality scans, though with a few high-quality replacement scans provided directly by Gary Neff, are now available at the Virtual AGC project website. Report any conversion errors to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date of the printout, not the date of the program revision.

055392,000002:                                                                                                  ## Copyright:   Public domain.
055393,000003:                                                                                                  ## Filename:    KEYRUPT_UPRUPT.agc
055394,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
055395,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
055396,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14.
055397,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
055398,000008:                                                                                                  ##              that the code format has been changed to conform to the
055399,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
055400,000010:                                                                                                  ##              original YUL assembler.
055401,000011:                                                                                                  ## Reference:   pp. 1335-1337 of 1729.pdf.
055402,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
055403,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
055404,000014:                                                                                                  ## Mod history: 06/06/03 RSB.   Began transcribing.
055405,000015:                                                                                                  ##              05/14/05 RSB    Corrected website reference above.
055406,000016: 

Page 1335

055408,000018: 14,3775                                           BANK     14                                    
055409,000019: 04,2000                                           SETLOC   KEYRUPT                               
055410,000020: 04,2000                                           BANK                                           
055411,000021: 04,3253                                           COUNT*   $$/KEYUP                              
055412,000022: 
055413,000023: 04,3253           54016        KEYRUPT1           TS       BANKRUPT                              
055414,000024: 04,3254           56002                           XCH      Q                                     
055415,000025: 04,3255           54012                           TS       QRUPT                                 
055416,000026: 04,3256           04400                           TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65.
055417,000027: 04,3257           34346                           CAF      LOW5                                  
055418,000028: 04,3260           00006                           EXTEND                                         
055419,000029: 04,3261           02015                           RAND     MNKEYIN                               #  CHECK IF KEYS 5M-1M ON
055420,000030: 04,3262           54073        KEYCOM             TS       RUPTREG4                              
055421,000031: 04,3263           40101                           CS       FLAGWRD5                              
055422,000032: 04,3264           74735                           MASK     DSKYFBIT                              
055423,000033: 04,3265           26101                           ADS      FLAGWRD5                              
055424,000034: 
055425,000035: 04,3266           34355        ACCEPTUP           CAF      CHRPRIO                               #  (NOTE: RUPTREG4 = KEYTEMP1)
055426,000036: 04,3267           05072                           TC       NOVAC                                 
055427,000037: 04,3270     0776                                  EBANK=   DSPCOUNT                              
055428,000038: 04,3270           02077 60101                     2CADR    CHARIN                                
055429,000039: 
055430,000040: 04,3272           30073                           CA       RUPTREG4                              
055431,000041: 04,3273           50064                           INDEX    LOCCTR                                
055432,000042: 04,3274           54154                           TS       MPAC                                  #  LEAVE 5 BIT KEY CODE IN MPAC FOR CHARIN
055433,000043: 04,3275           05270                           TC       RESUME                                
055434,000044: 

Page 1336

055436,000046:                                                                                                  #  UPRUPT PROGRAM
055437,000047: 
055438,000048: 04,3276           54016        UPRUPT             TS       BANKRUPT                              
055439,000049: 04,3277           56002                           XCH      Q                                     
055440,000050: 04,3300           54012                           TS       QRUPT                                 
055441,000051: 04,3301           04400                           TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65.
055442,000052: 04,3302           34755                           CAF      ZERO                                  
055443,000053: 04,3303           56045                           XCH      INLINK                                
055444,000054: 04,3304           54073                           TS       KEYTEMP1                              
055445,000055: 04,3305           34751                           CAF      BIT3                                  #  TURN ON UPACT LIGHT
055446,000056: 04,3306           00006                           EXTEND                                         #  (BIT 3 OF CHANNEL 11)
055447,000057: 04,3307           05011                           WOR      DSALMOUT                              
055448,000058: 04,3310           34346        UPRPT1             CAF      LOW5                                  #  TEST FOR TRIPLE CHAR REDUNDANCY
055449,000059: 04,3311           70073                           MASK     KEYTEMP1                              #  LOW5 OF WORD
055450,000060: 04,3312           56073                           XCH      KEYTEMP1                              #  LOW5 INTO KEYTEMP1
055451,000061: 04,3313           00006                           EXTEND                                         
055452,000062: 04,3314           74742                           MP       BIT10                                 #  SHIFT RIGHT 5
055453,000063: 04,3315           54332                           TS       KEYTEMP2                              
055454,000064: 04,3316           74346                           MASK     LOW5                                  #  MID 5
055455,000065: 04,3317           63353                           AD       HI10                                  
055456,000066: 04,3320           03350                           TC       UPTEST                                
055457,000067: 04,3321           34742                           CAF      BIT10                                 
055458,000068: 04,3322           00006                           EXTEND                                         
055459,000069: 04,3323           70332                           MP       KEYTEMP2                              #  SHIFT RIGHT 5
055460,000070: 04,3324           74346                           MASK     LOW5                                  #  HIGH 5
055461,000071: 04,3325           40000                           COM                                            
055462,000072: 04,3326           03350                           TC       UPTEST                                
055463,000073: 
055464,000074: 04,3327           43356        UPCK               CS       ELRCODE                               #  CODE IS GOOD.  IF CODE = `ERROR RESET',
055465,000075: 04,3330           60073                           AD       KEYTEMP1                              #  CLEAR UPLOCKFL (SET BIT4 OF FLAGWRD7 = 0)
055466,000076: 04,3331           00006                           EXTEND                                         #  IF CODE DOES NOT = `ERROR RESET', ACCEPT
055467,000077: 04,3332           13340                           BZF      CLUPLOCK                              #  CODE ONLY IF UPLOCKFL IS CLEAR (=0).
055468,000078: 
055469,000079: 04,3333           34750                           CAF      UPLOCBIT                              #  TEST UPLOCKFL FOR 0 OR 1
055470,000080: 04,3334           70103                           MASK     FLAGWRD7                              
055471,000081: 04,3335           10000                           CCS      A                                     
055472,000082: 04,3336           05270                           TC       RESUME                                #  UPLOCKFL = 1
055473,000083: 04,3337           03266                           TC       ACCEPTUP                              #  UPLOCKFL = 0
055474,000084: 
055475,000085: 04,3340           44750        CLUPLOCK           CS       UPLOCBIT                              #  CLEAR UPLOCKFL (I.E., SET BIT 4 OF
055476,000086: 04,3341           70103                           MASK     FLAGWRD7                              #  FLAGWRD7 = 0)
055477,000087: 04,3342           54103                           TS       FLAGWRD7                              
055478,000088: 04,3343           03266                           TC       ACCEPTUP                              
055479,000089: 
055480,000090:                                                                                                  #  CODE IS BAD
055481,000091: 04,3344           40103        TMFAIL2            CS       FLAGWRD7                              #  LOCK OUT FURTHER UPLINK ACTIVITY
055482,000092: 04,3345           74750                           MASK     UPLOCBIT                              #  (BY SETTING UPLOCKFL = 1) UNTIL
055483,000093: 04,3346           26103                           ADS      FLAGWRD7                              #  `ERROR RESET' IS SENT VIA UPLINK.
055484,000094: 04,3347           05270                           TC       RESUME                                
055485,000095: 04,3350           60073        UPTEST             AD       KEYTEMP1                              

Page 1337

055487,000097: 04,3351           10000                           CCS      A                                     
055488,000098: 04,3352           03344                           TC       TMFAIL2                               
055489,000099: 04,3353           77740        HI10               OCT      77740                                 
055490,000100: 04,3354           03344                           TC       TMFAIL2                               
055491,000101: 04,3355           00002                           TC       Q                                     
055492,000102: 
055493,000103: 04,3356           00022        ELRCODE            OCT      22                                    
055494,000104: 
055495,000105:                                                                                                  #  `UPLINK ACTIVITY LIGHT' IS TURNED OFF BY .....
055496,000106:                                                                                                  #        1.      VBRELDSP
055497,000107:                                                                                                  #        2.      ERROR RESET
055498,000108:                                                                                                  #        3.      UPDATE PROGRAM (P27) ENTERED BY V70,V71,V72, AND V73.
055499,000109: 
055500,000110:                                                                                                  #  THE RECEPTION OF A BAD CODE (I.E., CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1.
055501,000111:                                                                                                  #  THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS.
055502,000112:                                                                                                  #  WHEN UPLINK ACTIVITY IS LOCKED OUT, IT CAN BE ALLOWED WHEN THE GROUND UPLINS AND `ERROR RESET' CODE.
055503,000113:                                                                                                  #  (IT IS RECOMMENDED THAT THE `ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED
055504,000114:                                                                                                  #  BY 15 ZEROS.  THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL
055505,000115:                                                                                                  #  FAILURE).
055506,000116: 
055507,000117:                                                                                                  #  UPLINK ACTIVITY IS ALSO ALLOWED (UNLOCKED) DURING FRECH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0.

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