Source Code
|
These source-code files are part of a reconstructed copy of Comanche 051, the
original release of the Apollo 11 Command Module (CM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Comanche 055 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes related to the R-2 lunar potential model, using hints from program
comments and change-indicating asterisks in the Comanche 055 listing as a guide.
The reconstruction was verified by matching memory-bank checksums to those listed
in drawing 2021153D. Note that page numbers in the reconstructed code match those
on the Comanche 055 printout, although the added code would likely have changed page
numbers for a real Comanche 051 listing.
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.
|
061424,000002: ## Copyright: Public domain.
061425,000003: ## Filename: KEYRUPT,_UPRUPT.agc
061426,000004: ## Purpose: A section of Comanche revision 051.
061427,000005: ## It is part of the reconstructed source code for the
061428,000006: ## original release of the flight software for the Command
061429,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
061430,000008: ## The code has been recreated from a copy of Comanche 055. It
061431,000009: ## has been adapted such that the resulting bugger words
061432,000010: ## exactly match those specified for Comanche 51 in NASA drawing
061433,000011: ## 2021153D, which gives relatively high confidence that the
061434,000012: ## reconstruction is correct.
061435,000013: ## Reference: pp. 1449-1451
061436,000014: ## Assembler: yaYUL
061437,000015: ## Contact: Ron Burkey <info@sandroid.org>.
061438,000016: ## Website: www.ibiblio.org/apollo/index.html
061439,000017: ## Mod history: 2019-07-30 MAS Created from Comanche 55.
061440,000018:
|
|
Page 1449
|
061442,000020: 14,3761 BANK 14
061443,000021: 07,2000 SETLOC KEYRUPT
061444,000022: 07,2000 BANK
061445,000023: 07,3673 COUNT* $$/KEYUP
061446,000024:
061447,000025: 07,3673 54016 KEYRUPT1 TS BANKRUPT
061448,000026: 07,3674 56002 XCH Q
061449,000027: 07,3675 54012 TS QRUPT
061450,000028: 07,3676 04414 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65.
061451,000029: 07,3677 34362 CAF LOW5
061452,000030: 07,3700 00006 EXTEND
061453,000031: 07,3701 02015 RAND MNKEYIN # CHECK IF KEYS 5M-1M ON
061454,000032: 07,3702 54073 KEYCOM TS RUPTREG4
061455,000033: 07,3703 40101 CS FLAGWRD5
061456,000034: 07,3704 75001 MASK BIT15
061457,000035: 07,3705 26101 ADS FLAGWRD5
061458,000036:
061459,000037: 07,3706 34371 ACCEPTUP CAF CHRPRIO # (NOTE: RUPTREG4 = KEYTEMP1)
061460,000038: 07,3707 05134 TC NOVAC
061461,000039: 07,3710 0777 EBANK= DSPCOUNT
061462,000040: 07,3710 02000 60101 2CADR CHARIN
061463,000041:
061464,000042: 07,3712 30073 CA RUPTREG4
061465,000043: 07,3713 50064 INDEX LOCCTR
061466,000044: 07,3714 54154 TS MPAC # LEAVE 5 BIT KEY CDE IN MPAC FOR CHARIN
061467,000045: 07,3715 05333 TC RESUME
061468,000046:
|
|
Page 1450
|
061470,000048: # UPRUPT PROGRAM
061471,000049:
061472,000050: 07,3716 54016 UPRUPT TS BANKRUPT
061473,000051: 07,3717 56002 XCH Q
061474,000052: 07,3720 54012 TS QRUPT
061475,000053: 07,3721 04414 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65.
061476,000054: 07,3722 35021 CAF ZERO
061477,000055: 07,3723 56045 XCH INLINK
061478,000056: 07,3724 54073 TS KEYTEMP1
061479,000057: 07,3725 35015 CAF BIT3 # TURN ON UPACT LIGHT
061480,000058: 07,3726 00006 EXTEND # (BIT 3 OF CHANNEL 11)
061481,000059: 07,3727 05011 WOR DSALMOUT
061482,000060: 07,3730 34362 UPRPT1 CAF LOW5 # TEST FOR TRIPLE CHAR REDUNDANCY
061483,000061: 07,3731 70073 MASK KEYTEMP1 # LOW5 OF WORD
061484,000062: 07,3732 56073 XCH KEYTEMP1 # LOW5 INTO KEYTEMP1
061485,000063: 07,3733 00006 EXTEND
061486,000064: 07,3734 75006 MP BIT10 # SHIFT RIGHT 5
061487,000065: 07,3735 54734 TS KEYTEMP2
061488,000066: 07,3736 74362 MASK LOW5 # MID 5
061489,000067: 07,3737 63773 AD HI10
061490,000068: 07,3740 03770 TC UPTEST
061491,000069: 07,3741 35006 CAF BIT10
061492,000070: 07,3742 00006 EXTEND
061493,000071: 07,3743 70734 MP KEYTEMP2 # SHIFT RIGHT 5
061494,000072: 07,3744 74362 MASK LOW5 # HIGH 5
061495,000073: 07,3745 40000 COM
061496,000074: 07,3746 03770 TC UPTEST
061497,000075:
061498,000076: 07,3747 43776 UPOK CS ELRCODE # CODE IS GOOD. IF CODE = 'ERROR RESET',
061499,000077: 07,3750 60073 AD KEYTEMP1 # CLEAR UPLOCKFL (SET BIT4 OF FLAGWRD7 = 0)
061500,000078: 07,3751 00006 EXTEND # IF CODE DOES NOT = 'ERROR RESET', ACCEPT
061501,000079: 07,3752 13760 BZF CLUPLOCK # CODE ONLY IF UPLOCKFL IS CLEAR (=0).
061502,000080:
061503,000081: 07,3753 35014 CAF BIT4 # TEST UPLOCKFL FOR 0 OR 1.
061504,000082: 07,3754 70103 MASK FLAGWRD7
061505,000083: 07,3755 10000 CCS A
061506,000084: 07,3756 05333 TC RESUME # UPLOCKFL = 1
061507,000085: 07,3757 03706 TC ACCEPTUP # UPLOCKFL = 0
061508,000086:
061509,000087: 07,3760 45014 CLUPLOCK CS BIT4 # CLEAR UPLOCKFL (I.E., SET BIT 4 OF
061510,000088: 07,3761 70103 MASK FLAGWRD7 # FLAGWRD7 = 0)
061511,000089: 07,3762 54103 TS FLAGWRD7
061512,000090: 07,3763 03706 TC ACCEPTUP
061513,000091:
061514,000092: # CODE IS BAD
061515,000093: 07,3764 40103 TMFAIL2 CS FLAGWRD7 # LOCK OUT FURTHER UPLINK ACTIVITY
061516,000094: 07,3765 75014 MASK BIT4 # (BY SETTING UPLOCKFL = 1) UNTIL
061517,000095: 07,3766 26103 ADS FLAGWRD7 # 'ERROR RESET' IS SENT VIA UPLINK.
061518,000096: 07,3767 05333 TC RESUME
061519,000097: 07,3770 60073 UPTEST AD KEYTEMP1
|
|
Page 1451
|
061521,000099: 07,3771 10000 CCS A
061522,000100: 07,3772 03764 TC TMFAIL2
061523,000101: 07,3773 77740 HI10 OCT 77740
061524,000102: 07,3774 03764 TC TMFAIL2
061525,000103: 07,3775 00002 TC Q
061526,000104:
061527,000105: 07,3776 00022 ELRCODE OCT 22
061528,000106:
061529,000107: # 'UPLINK ACTIVITY LIGHT' IS TURNED OFF BY .....
061530,000108: # 1. VBRELDSP
061531,000109: # 2. ERROR RESET
061532,000110: # 3. UPDATE PROGRAM (P27) ENTERED BY V70,V71,V72, AND V73.
061533,000111:
061534,000112: # -
061535,000113: # THE RECEPTION OF A BAD CODE (I.E CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1.
061536,000114: # THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS.
061537,000115: # WHEN UPLINK ACTIVITY IS LOCKED OUT, IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND 'ERROR RESET' CODE.
061538,000116: # (IT IS RECOMMENDED THAT THE 'ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED
061539,000117: # BY 15 ZEROES. THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL
061540,000118: # FAILURE)
061541,000119:
061542,000120: # UPLINK ACTIVITY IS ALSO ALLOWED (UNLOCKED) DURING FRESH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0.
061543,000121:
061544,000122:
End of include-file KEYRUPT,_UPRUPT.agc. Parent file is MAIN.agc