Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
007403,000002: ## Copyright: Public domain.
007404,000003: ## Filename: INTERRUPT_LEAD_INS.agc
007405,000004: ## Purpose: The main source file for Luminary revision 069.
007406,000005: ## It is part of the source code for the original release
007407,000006: ## of the flight software for the Lunar Module's (LM) Apollo
007408,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
007409,000008: ## version was Luminary 69 revision 2, which included a
007410,000009: ## newer lunar gravity model and only affected module 2.
007411,000010: ## This file is intended to be a faithful transcription, except
007412,000011: ## that the code format has been changed to conform to the
007413,000012: ## requirements of the yaYUL assembler rather than the
007414,000013: ## original YUL assembler.
007415,000014: ## Reference: pp. 168-169
007416,000015: ## Assembler: yaYUL
007417,000016: ## Contact: Ron Burkey <info@sandroid.org>.
007418,000017: ## Website: www.ibiblio.org/apollo/index.html
007419,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
007420,000019: ## 2017-01-05 HG Transcribed
007421,000020: ## 2017-01-25 RSB Proofed comment text using octopus/prooferComments
007422,000021: ## but no errors found.
007423,000022:
![]() |
Page 168 |
007425,000024: 4000 SETLOC 4000
007426,000025:
007427,000026: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS
007428,000027: 4000 00004 INHINT # GO
007429,000028: 4001 34054 CAF GOBB
007430,000029: 4002 56006 XCH BBANK
007431,000030: 4003 12667 TCF GOPROG
007432,000031:
007433,000032: 4004 52011 DXCH ARUPT # T6RUPT
007434,000033: 4005 00006 EXTEND
007435,000034: 4006 34056 DCA T6ADR
007436,000035: 4007 52006 DTCB
007437,000036:
007438,000037: 4010 52011 DXCH ARUPT # T5RUPT - AUTOPILOT
007439,000038: 4011 00006 EXTEND
007440,000039: 4012 31275 DCA T5ADR
007441,000040: 4013 52006 DTCB
007442,000041:
007443,000042: 4014 52011 DXCH ARUPT # T3RUPT
007444,000043: 4015 34057 CAF T3RPTBB
007445,000044: 4016 56006 XCH BBANK
007446,000045: 4017 13404 TCF T3RUPT
007447,000046:
007448,000047: 4020 52011 DXCH ARUPT # T4RUPT
007449,000048: 4021 34064 CAF T4RPTBB
007450,000049: 4022 56006 XCH BBANK
007451,000050: 4023 12000 TCF T4RUPT
007452,000051:
007453,000052: 4024 52011 DXCH ARUPT # KEYRUPT1
007454,000053: 4025 34060 CAF KEYRPTBB
007455,000054: 4026 56006 XCH BBANK
007456,000055: 4027 13215 TCF KEYRUPT1
007457,000056:
007458,000057: 4030 52011 DXCH ARUPT # KEYRUPT2
007459,000058: 4031 34061 CAF MKRUPTBB
007460,000059: 4032 56006 XCH BBANK
007461,000060: 4033 12332 TCF MARKRUPT
007462,000061:
007463,000062: 4034 52011 DXCH ARUPT # UPRUPT
007464,000063: 4035 34060 CAF UPRPTBB
007465,000064: 4036 56006 XCH BBANK
007466,000065: 4037 13240 TCF UPRUPT
007467,000066:
007468,000067: 4040 52011 DXCH ARUPT # DOWNRUPT
007469,000068: 4041 34062 CAF DWNRPTBB
007470,000069: 4042 56006 XCH BBANK
007471,000070: 4043 13430 TCF DODOWNTM
007472,000071:
007473,000072: 4044 52011 DXCH ARUPT # RADAR RUPT
007474,000073: 4045 34063 CAF RDRPTBB
007475,000074:
![]() |
Page 169 |
007477,000076: 4046 56006 XCH BBANK
007478,000077: 4047 13150 TCF RADAREAD
007479,000078:
007480,000079: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
007481,000080: 4051 34065 CA RUPT10BB
007482,000081: 4052 56006 XCH BBANK
007483,000082: 4053 12006 TCF PITFALL
007484,000083:
007485,000084:
007486,000085: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
007487,000086: 4054 12103 GOBB BBCON GOPROG
007488,000087:
007489,000088: 4055 E6,1462 EBANK= PERROR
007490,000089: 4055 02036 36106 T6ADR 2CADR DOT6RUPT
007491,000090:
007492,000091: 4057 E3,1400 EBANK= LST1
007493,000092: 4057 02103 T3RPTBB BBCON T3RUPT
007494,000093:
007495,000094: 4060 0073 EBANK= KEYTEMP1
007496,000095: 4060 10100 KEYRPTBB BBCON KEYRUPT1
007497,000096:
007498,000097: 4061 E7,1404 EBANK= AOTAZ
007499,000098: 4061 16107 MKRUPTBB BBCON MARKRUPT
007500,000099:
007501,000100: 4062 4060 UPRPTBB = KEYRPTBB
007502,000101:
007503,000102: 4062 0340 EBANK= DNTMBUFF
007504,000103: 4062 12100 DWNRPTBB BBCON DODOWNTM
007505,000104:
007506,000105: 4063 0110 EBANK= RADMODES
007507,000106: 4063 52100 RDRPTBB BBCON RADAREAD
007508,000107:
007509,000108: 4064 E6,1412 EBANK= M11
007510,000109: 4064 14106 T4RPTBB BBCON T4RUPT
007511,000110:
007512,000111: 4065 E7,1645 EBANK= ELVIRA
007513,000112: 4065 42107 RUPT10BB BBCON PITFALL
007514,000113:
007515,000114:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc