Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071 19:09 AUG. 11,1969Note 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 116 (the Apollo 12
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Ron Burkey, 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 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071 19:09 AUG. 11,1969Note that the date is the date of the printout, not the date of the program revision. |
006387,000002: ## Copyright: Public domain.
006388,000003: ## Filename: INTERRUPT_LEAD_INS.agc
006389,000004: ## Purpose: A section of Luminary revision 116.
006390,000005: ## It is part of the source code for the Lunar Module's (LM)
006391,000006: ## Apollo Guidance Computer (AGC) for Apollo 12.
006392,000007: ## This file is intended to be a faithful transcription, except
006393,000008: ## that the code format has been changed to conform to the
006394,000009: ## requirements of the yaYUL assembler rather than the
006395,000010: ## original YUL assembler.
006396,000011: ## Reference: pp. 154-155
006397,000012: ## Assembler: yaYUL
006398,000013: ## Contact: Ron Burkey <info@sandroid.org>.
006399,000014: ## Website: www.ibiblio.org/apollo/index.html
006400,000015: ## Mod history: 2017-01-22 MAS Created from Luminary 99.
006401,000016: ## 2017-02-25 HG Transcribed
006402,000017: ## 2017-03-01 RSB Proofed comment text by diff vs Luminary 131
006403,000018: ## but no errors found.
006404,000019:
|
|
Page 154 |
006406,000021: 4000 SETLOC 4000
006407,000022:
006408,000023: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS
006409,000024: 4000 00004 INHINT # GO
006410,000025: 4001 34054 CAF GOBB
006411,000026: 4002 56006 XCH BBANK
006412,000027: 4003 12665 TCF GOPROG
006413,000028:
006414,000029: 4004 52011 DXCH ARUPT # T6RUPT
006415,000030: 4005 00006 EXTEND
006416,000031: 4006 34056 DCA T6ADR
006417,000032: 4007 52006 DTCB
006418,000033:
006419,000034: 4010 52011 DXCH ARUPT # T5RUPT - AUTOPILOT
006420,000035: 4011 00006 EXTEND
006421,000036: 4012 31264 DCA T5ADR
006422,000037: 4013 52006 DTCB
006423,000038:
006424,000039: 4014 52011 DXCH ARUPT # T3RUPT
006425,000040: 4015 34057 CAF T3RPTBB
006426,000041: 4016 56006 XCH BBANK
006427,000042: 4017 13410 TCF T3RUPT
006428,000043:
006429,000044: 4020 52011 DXCH ARUPT # T4RUPT
006430,000045: 4021 34064 CAF T4RPTBB
006431,000046: 4022 56006 XCH BBANK
006432,000047: 4023 12000 TCF T4RUPT
006433,000048:
006434,000049: 4024 52011 DXCH ARUPT # KEYRUPT1
006435,000050: 4025 34060 CAF KEYRPTBB
006436,000051: 4026 56006 XCH BBANK
006437,000052: 4027 13256 TCF KEYRUPT1
006438,000053:
006439,000054: 4030 52011 DXCH ARUPT # KEYRUPT2
006440,000055: 4031 34061 CAF MKRUPTBB
006441,000056: 4032 56006 XCH BBANK
006442,000057: 4033 12332 TCF MARKRUPT
006443,000058:
006444,000059: 4034 52011 DXCH ARUPT # UPRUPT
006445,000060: 4035 34060 CAF UPRPTBB
006446,000061: 4036 56006 XCH BBANK
006447,000062: 4037 13301 TCF UPRUPT
006448,000063:
006449,000064: 4040 52011 DXCH ARUPT # DOWNRUPT
006450,000065: 4041 34062 CAF DWNRPTBB
006451,000066: 4042 56006 XCH BBANK
006452,000067: 4043 13472 TCF DODOWNTM
006453,000068:
006454,000069: 4044 52011 DXCH ARUPT # RADAR RUPT
006455,000070: 4045 34063 CAF RDRPTBB
006456,000071:
|
|
Page 155 |
006458,000073: 4046 56006 XCH BBANK
006459,000074: 4047 13157 TCF RADAREAD
006460,000075:
006461,000076: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
006462,000077: 4051 34065 CA RUPT10BB
006463,000078: 4052 56006 XCH BBANK
006464,000079: 4053 12302 TCF PITFALL
006465,000080:
006466,000081:
006467,000082: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
006468,000083: 4054 12103 GOBB BBCON GOPROG
006469,000084:
006470,000085: 4055 E6,1464 EBANK= PERROR
006471,000086: 4055 02117 36106 T6ADR 2CADR DOT6RUPT
006472,000087:
006473,000088: 4057 E3,1400 EBANK= LST1
006474,000089: 4057 02103 T3RPTBB BBCON T3RUPT
006475,000090:
006476,000091: 4060 0073 EBANK= KEYTEMP1
006477,000092: 4060 10100 KEYRPTBB BBCON KEYRUPT1
006478,000093:
006479,000094: 4061 E7,1404 EBANK= AOTAZ
006480,000095: 4061 16107 MKRUPTBB BBCON MARKRUPT
006481,000096:
006482,000097: 4062 4060 UPRPTBB = KEYRPTBB
006483,000098:
006484,000099: 4062 0340 EBANK= DNTMBUFF
006485,000100: 4062 12100 DWNRPTBB BBCON DODOWNTM
006486,000101:
006487,000102: 4063 E7,1453 EBANK= TTOGO
006488,000103: 4063 52107 RDRPTBB BBCON RADAREAD
006489,000104:
006490,000105: 4064 E6,1414 EBANK= M11
006491,000106: 4064 14106 T4RPTBB BBCON T4RUPT
006492,000107:
006493,000108: 4065 E7,1444 EBANK= ELVIRA
006494,000109: 4065 22107 RUPT10BB BBCON PITFALL
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc