Source Code

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