Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
007028,000002: ## Copyright: Public domain.
007029,000003: ## Filename: INTERRUPT_LEAD_INS.agc
007030,000004: ## Purpose: A section of Luminary revision 210.
007031,000005: ## It is part of the source code for the Lunar Module's (LM)
007032,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
007033,000007: ## This file is intended to be a faithful transcription, except
007034,000008: ## that the code format has been changed to conform to the
007035,000009: ## requirements of the yaYUL assembler rather than the
007036,000010: ## original YUL assembler.
007037,000011: ## Reference: pp. 163-164
007038,000012: ## Assembler: yaYUL
007039,000013: ## Contact: Ron Burkey <info@sandroid.org>.
007040,000014: ## Website: www.ibiblio.org/apollo/index.html
007041,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
007042,000016: ## 2017-11-20 HG Transcribed
007043,000017: ## 2016-12-23 RSB Proofed comment text with octopus/ProoferComments
007044,000018: ## and fixed all errors found.
007045,000019:
|
|
Page 163 |
007047,000021: 4000 SETLOC 4000
007048,000022:
007049,000023: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS
007050,000024: 4000 00004 INHINT # GO
007051,000025: 4001 34054 CAF GOBB
007052,000026: 4002 56006 XCH BBANK
007053,000027: 4003 12671 TCF GOPROG
007054,000028:
007055,000029: 4004 52011 DXCH ARUPT # T6RUPT
007056,000030: 4005 00006 EXTEND
007057,000031: 4006 34056 DCA T6ADR
007058,000032: 4007 52006 DTCB
007059,000033:
007060,000034: 4010 52011 DXCH ARUPT # T5RUPT - AUTOPILOT
007061,000035: 4011 00006 EXTEND
007062,000036: 4012 31263 DCA T5ADR
007063,000037: 4013 52006 DTCB
007064,000038:
007065,000039: 4014 52011 DXCH ARUPT # T3RUPT
007066,000040: 4015 34057 CAF T3RPTBB
007067,000041: 4016 56006 XCH BBANK
007068,000042: 4017 13412 TCF T3RUPT
007069,000043:
007070,000044: 4020 52011 DXCH ARUPT # T4RUPT
007071,000045: 4021 34064 CAF T4RPTBB
007072,000046: 4022 56006 XCH BBANK
007073,000047: 4023 12000 TCF T4RUPT
007074,000048:
007075,000049: 4024 52011 DXCH ARUPT # KEYRUPT1
007076,000050: 4025 34060 CAF KEYRPTBB
007077,000051: 4026 56006 XCH BBANK
007078,000052: 4027 13257 TCF KEYRUPT1
007079,000053:
007080,000054: 4030 52011 DXCH ARUPT # KEYRUPT2
007081,000055: 4031 34061 CAF MKRUPTBB
007082,000056: 4032 56006 XCH BBANK
007083,000057: 4033 12354 TCF MARKRUPT
007084,000058:
007085,000059: 4034 52011 DXCH ARUPT # UPRUPT
007086,000060: 4035 34060 CAF UPRPTBB
007087,000061: 4036 56006 XCH BBANK
007088,000062: 4037 13302 TCF UPRUPT
007089,000063:
007090,000064: 4040 52011 DXCH ARUPT # DOWNRUPT
007091,000065: 4041 34062 CAF DWNRPTBB
007092,000066: 4042 56006 XCH BBANK
007093,000067: 4043 13507 TCF DODOWNTM
007094,000068:
007095,000069: 4044 52011 DXCH ARUPT # RADAR RUPT
007096,000070: 4045 34063 CAF RDRPTBB
|
|
Page 164 |
007098,000072: 4046 56006 XCH BBANK
007099,000073: 4047 13157 TCF RADAREAD
007100,000074:
007101,000075: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
007102,000076: 4051 34065 CA RUPT10BB
007103,000077: 4052 56006 XCH BBANK
007104,000078: 4053 12302 TCF PITFALL
007105,000079:
007106,000080: 4054 E3,1400 EBANK= LST1 # RESTART USES E0,E3
007107,000081: 4054 12103 GOBB BBCON GOPROG
007108,000082:
007109,000083: 4055 E6,1464 EBANK= PERROR
007110,000084: 4055 02117 36106 T6ADR 2CADR DOT6RUPT
007111,000085:
007112,000086: 4057 E3,1400 EBANK= LST1
007113,000087: 4057 02103 T3RPTBB BBCON T3RUPT
007114,000088:
007115,000089: 4060 0073 EBANK= KEYTEMP1
007116,000090: 4060 10100 KEYRPTBB BBCON KEYRUPT1
007117,000091:
007118,000092: 4061 E7,1404 EBANK= AOTAZ
007119,000093: 4061 16107 MKRUPTBB BBCON MARKRUPT
007120,000094:
007121,000095: 4062 4060 UPRPTBB = KEYRPTBB
007122,000096:
007123,000097: 4062 0340 EBANK= DNTMBUFF
007124,000098: 4062 12100 DWNRPTBB BBCON DODOWNTM
007125,000099:
007126,000100: 4063 E7,1453 EBANK= TTOGO
007127,000101: 4063 52107 RDRPTBB BBCON RADAREAD
007128,000102:
007129,000103: 4064 E6,1414 EBANK= M11
007130,000104: 4064 14106 T4RPTBB BBCON T4RUPT
007131,000105:
007132,000106: 4065 E7,1647 EBANK= ELVIRA
007133,000107: 4065 22107 RUPT10BB BBCON PITFALL
007134,000108:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc