Source Code
|
These source-code files are part of a reconstructed copy of LUM69 Revision 2, the
flown Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction began with source code of Luminary 69 revision 0 previously
transcribed from a digitized copy of that program. The code was then updated
by back-porting the R-2 lunar potential model from previously-transcribed source
code of Luminary 99. These required changes were described in the original
Luminary memos 75 and 78. The reconstructed code was verified by
matching memory-bank checksums to those listed in drawing 2021152G. Note that
page numbers in the reconstructed code match those on the Luminary 069 printout,
although the added code would likely have changed page numbers for a real LUM69
Revision 2 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.
|
057186,000002: ## Copyright: Public domain.
057187,000003: ## Filename: KEYRUPT,_UPRUPT.agc
057188,000004: ## Purpose: A section of LUM69 revision 2.
057189,000005: ## It is part of the reconstructed source code for the flown
057190,000006: ## version of the flight software for the Lunar Module's (LM)
057191,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
057192,000008: ## been recreated from a copy of Luminary revsion 069, using
057193,000009: ## changes present in Luminary 099 which were described in
057194,000010: ## Luminary memos 75 and 78. The code has been adapted such
057195,000011: ## that the resulting bugger words exactly match those specified
057196,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
057197,000013: ## relatively high confidence that the reconstruction is correct.
057198,000014: ## Reference: pp. 1332-1334
057199,000015: ## Assembler: yaYUL
057200,000016: ## Contact: Ron Burkey <info@sandroid.org>.
057201,000017: ## Website: www.ibiblio.org/apollo/index.html
057202,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
057203,000019:
|
|
Page 1332
|
057205,000021: 14,3711 BANK 14
057206,000022: 04,2000 SETLOC KEYRUPT
057207,000023: 04,2000 BANK
057208,000024: 04,3215 COUNT* $$/KEYUP
057209,000025:
057210,000026: 04,3215 54016 KEYRUPT1 TS BANKRUPT
057211,000027: 04,3216 56002 XCH Q
057212,000028: 04,3217 54012 TS QRUPT
057213,000029: 04,3220 04400 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65.
057214,000030: 04,3221 34346 CAF LOW5
057215,000031: 04,3222 00006 EXTEND
057216,000032: 04,3223 02015 RAND MNKEYIN # CHECK IF KEYS 5M-1M ON
057217,000033: 04,3224 54073 KEYCOM TS RUPTREG4
057218,000034: 04,3225 40101 CS FLAGWRD5
057219,000035: 04,3226 74735 MASK DSKYFBIT
057220,000036: 04,3227 26101 ADS FLAGWRD5
057221,000037:
057222,000038: 04,3230 34355 ACCEPTUP CAF CHRPRIO # (NOTE: RUPTREG4 = KEYTEMP1)
057223,000039: 04,3231 05072 TC NOVAC
057224,000040: 04,3232 0777 EBANK= DSPCOUNT
057225,000041: 04,3232 02077 60101 2CADR CHARIN
057226,000042:
057227,000043: 04,3234 30073 CA RUPTREG4
057228,000044: 04,3235 50064 INDEX LOCCTR
057229,000045: 04,3236 54154 TS MPAC # LEAVE 5 BIT KEY CDE IN MPAC FOR CHARIN
057230,000046: 04,3237 05270 TC RESUME
057231,000047:
|
|
Page 1333
|
057233,000049: # UPRUPT PROGRAM
057234,000050:
057235,000051: 04,3240 54016 UPRUPT TS BANKRUPT
057236,000052: 04,3241 56002 XCH Q
057237,000053: 04,3242 54012 TS QRUPT
057238,000054: 04,3243 04400 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65.
057239,000055: 04,3244 34755 CAF ZERO
057240,000056: 04,3245 56045 XCH INLINK
057241,000057: 04,3246 54073 TS KEYTEMP1
057242,000058: 04,3247 34751 CAF BIT3 # TURN ON UPACT LIGHT
057243,000059: 04,3250 00006 EXTEND # (BIT 3 OF CHANNEL 11)
057244,000060: 04,3251 05011 WOR DSALMOUT
057245,000061: 04,3252 34346 UPRPT1 CAF LOW5 # TEST FOR TRIPLE CHAR REDUNDANCY
057246,000062: 04,3253 70073 MASK KEYTEMP1 # LOW5 OF WORD
057247,000063: 04,3254 56073 XCH KEYTEMP1 # LOW5 INTO KEYTEMP1
057248,000064: 04,3255 00006 EXTEND
057249,000065: 04,3256 74742 MP BIT10 # SHIFT RIGHT 5
057250,000066: 04,3257 54734 TS KEYTEMP2
057251,000067: 04,3260 74346 MASK LOW5 # MID 5
057252,000068: 04,3261 63315 AD HI10
057253,000069: 04,3262 03312 TC UPTEST
057254,000070: 04,3263 34742 CAF BIT10
057255,000071: 04,3264 00006 EXTEND
057256,000072: 04,3265 70734 MP KEYTEMP2 # SHIFT RIGHT 5
057257,000073: 04,3266 74346 MASK LOW5 # HIGH 5
057258,000074: 04,3267 40000 COM
057259,000075: 04,3270 03312 TC UPTEST
057260,000076:
057261,000077: 04,3271 43320 UPCK CS ELRCODE # CODE IS GOOD. IF CODE = 'ERROR RESET',
057262,000078: 04,3272 60073 AD KEYTEMP1 # CLEAR UPLOCKFL(SET BIT4 OF FLAGWRD7 = 0)
057263,000079: 04,3273 00006 EXTEND # IF CODE DOES NOT = 'ERROR RESET', ACCEPT
057264,000080: 04,3274 13302 BZF CLUPLOCK # CODE ONLY IF UPLOCKFL IS CLEAR (=0).
057265,000081:
057266,000082: 04,3275 34750 CAF UPLOCBIT # TEST UPLOCKFL FOR 0 OR 1
057267,000083: 04,3276 70103 MASK FLAGWRD7
057268,000084: 04,3277 10000 CCS A
057269,000085: 04,3300 05270 TC RESUME # UPLOCKFL = 1
057270,000086: 04,3301 03230 TC ACCEPTUP # UPLOCKFL = 0
057271,000087:
057272,000088: 04,3302 44750 CLUPLOCK CS UPLOCBIT # CLEAR UPLOCKFL (I.E., SET BIT 4 OF )
057273,000089: 04,3303 70103 MASK FLAGWRD7 # FLAGWRD7 = 0)
057274,000090: 04,3304 54103 TS FLAGWRD7
057275,000091: 04,3305 03230 TC ACCEPTUP
057276,000092:
057277,000093: # CODE IS BAD
057278,000094: 04,3306 40103 TMFAIL2 CS FLAGWRD7 # LOCK OUT FURTHER UPLINK ACTIVITY
057279,000095: 04,3307 74750 MASK UPLOCBIT # (BY SETTING UPLOCKFL = 1) UNTIL
057280,000096: 04,3310 26103 ADS FLAGWRD7 # 'ERROR RESET' IS SENT VIA UPLINK.
057281,000097: 04,3311 05270 TC RESUME
057282,000098: 04,3312 60073 UPTEST AD KEYTEMP1
|
|
Page 1334
|
057284,000100: 04,3313 10000 CCS A
057285,000101: 04,3314 03306 TC TMFAIL2
057286,000102: 04,3315 77740 HI10 OCT 77740
057287,000103: 04,3316 03306 TC TMFAIL2
057288,000104: 04,3317 00002 TC Q
057289,000105:
057290,000106: 04,3320 00022 ELRCODE OCT 22
057291,000107:
057292,000108: # 'UPLINK ACTIVITY LIGHT' IS TURNED OFF BY .....
057293,000109: # 1. VBRELDSP
057294,000110: # 2. ERROR RESET
057295,000111: # 3. UPDATE PROGRAM (P27) ENTERED BY V70,V71,V72,AND V73.
057296,000112: # -
057297,000113: # THE RECEPTION OF A BAD CODE (I.E CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1.
057298,000114: # THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS.
057299,000115: # WHEN UPLINK ACTIVITY IS LOCKED OUT, IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND 'ERROR RESET' CODE.
057300,000116: # (IT IS RECOMMENDED THAT THE 'ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED
057301,000117: # BY 15 ZEROES. THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL
057302,000118: # FAILURE)
057303,000119:
057304,000120: # UPLINK ACTIVITY IS ALSO ALLOWED (UNLOCKED) DURING FRESH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0.
057305,000121:
057306,000122: 04,3321 44753 CS XDSPBIT
057307,000123:
End of include-file KEYRUPT,_UPRUPT.agc. Parent file is MAIN.agc