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