GAP: ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
006212,000002: ## Copyright: Public domain.
006213,000003: ## Filename: INTERRUT_LEAD_INS.agc
006214,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
006215,000005: ## It is part of the source code for the Lunar Module's (LM)
006216,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
006217,000007: ## Assembler: yaYUL
006218,000008: ## Contact: Onno Hommes <ohommes@cmu.edu>.
006219,000009: ## Website: www.ibiblio.org/apollo.
006220,000010: ## Pages: 0153-0154
006221,000011: ## Mod history: 2009-05-14 OH Transcribed from page images.
006222,000012: ## 2016-12-13 RSB Proofed text comments with octopus/ProoferComments
006223,000013: ## and corrected the errors found.
006224,000014: ##
006225,000015: ## This source code has been transcribed or otherwise adapted from
006226,000016: ## digitized images of a hardcopy from the MIT Museum. The digitization
006227,000017: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
006228,000018: ## the Museum. Many thanks to both. The images (with suitable reduction
006229,000019: ## in storage size and consequent reduction in image quality as well) are
006230,000020: ## available online at www.ibiblio.org/apollo. If for some reason you
006231,000021: ## find that the images are illegible, contact me at info@sandroid.org
006232,000022: ## about getting access to the (much) higher-quality images which Paul
006233,000023: ## actually created.
006234,000024: ##
006235,000025: ## Notations on the hardcopy document read, in part:
006236,000026: ##
006237,000027: ## Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
006238,000028: ## 16:27 JULY 14, 1969
006239,000029:
006240,000030:
|
|
Page 153 |
006242,000032: 4000 SETLOC 4000
006243,000033:
006244,000034: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS
006245,000035: 4000 00004 INHINT # GO
006246,000036: 4001 34054 CAF GOBB
006247,000037: 4002 56006 XCH BBANK
006248,000038: 4003 12667 TCF GOPROG
006249,000039:
006250,000040: 4004 52011 DXCH ARUPT # T6RUPT
006251,000041: 4005 00006 EXTEND
006252,000042: 4006 34056 DCA T6ADR
006253,000043: 4007 52006 DTCB
006254,000044:
006255,000045: 4010 52011 DXCH ARUPT # T5RUPT - AUTOPILOT
006256,000046: 4011 00006 EXTEND
006257,000047: 4012 31275 DCA T5ADR
006258,000048: 4013 52006 DTCB
006259,000049:
006260,000050: 4014 52011 DXCH ARUPT # T3RUPT
006261,000051: 4015 34057 CAF T3RPTBB
006262,000052: 4016 56006 XCH BBANK
006263,000053: 4017 13407 TCF T3RUPT
006264,000054:
006265,000055: 4020 52011 DXCH ARUPT # T4RUPT
006266,000056: 4021 34064 CAF T4RPTBB
006267,000057: 4022 56006 XCH BBANK
006268,000058: 4023 12000 TCF T4RUPT
006269,000059:
006270,000060: 4024 52011 DXCH ARUPT # KEYRUPT1
006271,000061: 4025 34060 CAF KEYRPTBB
006272,000062: 4026 56006 XCH BBANK
006273,000063: 4027 13274 TCF KEYRUPT1
006274,000064:
006275,000065: 4030 52011 DXCH ARUPT # KEYRUPT2
006276,000066: 4031 34061 CAF MKRUPTBB
006277,000067: 4032 56006 XCH BBANK
006278,000068: 4033 12332 TCF MARKRUPT
006279,000069:
006280,000070: 4034 52011 DXCH ARUPT # UPRUPT
006281,000071: 4035 34060 CAF UPRPTBB
006282,000072: 4036 56006 XCH BBANK
006283,000073: 4037 13317 TCF UPRUPT
006284,000074:
006285,000075: 4040 52011 DXCH ARUPT # DOWNRUPT
006286,000076: 4041 34062 CAF DWNRPTBB
006287,000077: 4042 56006 XCH BBANK
006288,000078: 4043 13506 TCF DODOWNTM
006289,000079:
006290,000080: 4044 52011 DXCH ARUPT # RADAR RUPT
006291,000081: 4045 34063 CAF RDRPTBB
|
|
Page 154 |
006293,000083: 4046 56006 XCH BBANK
006294,000084: 4047 13150 TCF RADAREAD
006295,000085:
006296,000086: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
006297,000087: 4051 34065 CA RUPT10BB
006298,000088: 4052 56006 XCH BBANK
006299,000089: 4053 12275 TCF PITFALL
006300,000090:
006301,000091:
006302,000092: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
006303,000093: 4054 12103 GOBB BBCON GOPROG
006304,000094:
006305,000095: 4055 E6,1464 EBANK= PERROR
006306,000096: 4055 02065 36106 T6ADR 2CADR DOT6RUPT
006307,000097:
006308,000098: 4057 E3,1400 EBANK= LST1
006309,000099: 4057 02103 T3RPTBB BBCON T3RUPT
006310,000100:
006311,000101: 4060 0073 EBANK= KEYTEMP1
006312,000102: 4060 10100 KEYRPTBB BBCON KEYRUPT1
006313,000103:
006314,000104: 4061 E7,1404 EBANK= AOTAZ
006315,000105: 4061 16107 MKRUPTBB BBCON MARKRUPT
006316,000106:
006317,000107: 4062 4060 UPRPTBB = KEYRPTBB
006318,000108:
006319,000109: 4062 0340 EBANK= DNTMBUFF
006320,000110: 4062 12100 DWNRPTBB BBCON DODOWNTM
006321,000111:
006322,000112: 4063 0110 EBANK= RADMODES
006323,000113: 4063 52100 RDRPTBB BBCON RADAREAD
006324,000114:
006325,000115: 4064 E6,1414 EBANK= M11
006326,000116: 4064 14106 T4RPTBB BBCON T4RUPT
006327,000117:
006328,000118: 4065 1265 EBANK= ELVIRA
006329,000119: 4065 22102 RUPT10BB BBCON PITFALL
006330,000120:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc