Source Code
|
|
This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2, from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1 source-code was transcribed from a printout in the MIT Museum, while Luminary 116 source code was transcribed from a printout belonging to Don Eyles. AGC developer James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as follows: "At the last minute, Dan Lickly, our chief engineer, appeared with ephemerides updates and it took two tries to get it right. The result was that we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former is what's in the MIT Museum, and the latter is what we are trying to recreate here. As for which revision actually flew in Apollo 11, all of the other available surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure! |
006076,000002: ## Copyright: Public domain.
006077,000003: ## Filename: INTERRUT_LEAD_INS.agc
006078,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
006079,000005: ## It is part of the source code for the Lunar Module's (LM)
006080,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
006081,000007: ## Assembler: yaYUL
006082,000008: ## Contact: Onno Hommes <ohommes@cmu.edu>.
006083,000009: ## Website: www.ibiblio.org/apollo.
006084,000010: ## Pages: 0153-0154
006085,000011: ## Mod history: 2009-05-14 OH Transcribed from page images.
006086,000012: ## 2016-12-13 RSB Proofed text comments with octopus/ProoferComments
006087,000013: ## and corrected the errors found.
006088,000014: ## 2017-03-03 RSB Snapshot of Luminary 99 Rev 1.
006089,000015:
|
|
Page 153 |
006091,000017: 4000 SETLOC 4000
006092,000018:
006093,000019: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS
006094,000020: 4000 00004 INHINT # GO
006095,000021: 4001 34054 CAF GOBB
006096,000022: 4002 56006 XCH BBANK
006097,000023: 4003 12667 TCF GOPROG
006098,000024:
006099,000025: 4004 52011 DXCH ARUPT # T6RUPT
006100,000026: 4005 00006 EXTEND
006101,000027: 4006 34056 DCA T6ADR
006102,000028: 4007 52006 DTCB
006103,000029:
006104,000030: 4010 52011 DXCH ARUPT # T5RUPT - AUTOPILOT
006105,000031: 4011 00006 EXTEND
006106,000032: 4012 31275 DCA T5ADR
006107,000033: 4013 52006 DTCB
006108,000034:
006109,000035: 4014 52011 DXCH ARUPT # T3RUPT
006110,000036: 4015 34057 CAF T3RPTBB
006111,000037: 4016 56006 XCH BBANK
006112,000038: 4017 13407 TCF T3RUPT
006113,000039:
006114,000040: 4020 52011 DXCH ARUPT # T4RUPT
006115,000041: 4021 34064 CAF T4RPTBB
006116,000042: 4022 56006 XCH BBANK
006117,000043: 4023 12000 TCF T4RUPT
006118,000044:
006119,000045: 4024 52011 DXCH ARUPT # KEYRUPT1
006120,000046: 4025 34060 CAF KEYRPTBB
006121,000047: 4026 56006 XCH BBANK
006122,000048: 4027 13274 TCF KEYRUPT1
006123,000049:
006124,000050: 4030 52011 DXCH ARUPT # KEYRUPT2
006125,000051: 4031 34061 CAF MKRUPTBB
006126,000052: 4032 56006 XCH BBANK
006127,000053: 4033 12332 TCF MARKRUPT
006128,000054:
006129,000055: 4034 52011 DXCH ARUPT # UPRUPT
006130,000056: 4035 34060 CAF UPRPTBB
006131,000057: 4036 56006 XCH BBANK
006132,000058: 4037 13317 TCF UPRUPT
006133,000059:
006134,000060: 4040 52011 DXCH ARUPT # DOWNRUPT
006135,000061: 4041 34062 CAF DWNRPTBB
006136,000062: 4042 56006 XCH BBANK
006137,000063: 4043 13506 TCF DODOWNTM
006138,000064:
006139,000065: 4044 52011 DXCH ARUPT # RADAR RUPT
006140,000066: 4045 34063 CAF RDRPTBB
|
|
Page 154 |
006142,000068: 4046 56006 XCH BBANK
006143,000069: 4047 13150 TCF RADAREAD
006144,000070:
006145,000071: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
006146,000072: 4051 34065 CA RUPT10BB
006147,000073: 4052 56006 XCH BBANK
006148,000074: 4053 12275 TCF PITFALL
006149,000075:
006150,000076:
006151,000077: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
006152,000078: 4054 12103 GOBB BBCON GOPROG
006153,000079:
006154,000080: 4055 E6,1464 EBANK= PERROR
006155,000081: 4055 02065 36106 T6ADR 2CADR DOT6RUPT
006156,000082:
006157,000083: 4057 E3,1400 EBANK= LST1
006158,000084: 4057 02103 T3RPTBB BBCON T3RUPT
006159,000085:
006160,000086: 4060 0073 EBANK= KEYTEMP1
006161,000087: 4060 10100 KEYRPTBB BBCON KEYRUPT1
006162,000088:
006163,000089: 4061 E7,1404 EBANK= AOTAZ
006164,000090: 4061 16107 MKRUPTBB BBCON MARKRUPT
006165,000091:
006166,000092: 4062 4060 UPRPTBB = KEYRPTBB
006167,000093:
006168,000094: 4062 0340 EBANK= DNTMBUFF
006169,000095: 4062 12100 DWNRPTBB BBCON DODOWNTM
006170,000096:
006171,000097: 4063 0110 EBANK= RADMODES
006172,000098: 4063 52100 RDRPTBB BBCON RADAREAD
006173,000099:
006174,000100: 4064 E6,1414 EBANK= M11
006175,000101: 4064 14106 T4RPTBB BBCON T4RUPT
006176,000102:
006177,000103: 4065 1265 EBANK= ELVIRA
006178,000104: 4065 22102 RUPT10BB BBCON PITFALL
006179,000105:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc