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