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, 1969Note 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