Source Code

006194,000001: # Copyright: Public domain. 006195,000002: # Filename: INTERRUT_LEAD_INS.agc 006196,000003: # Purpose: This is the interrupt table for Luminary 1C, revision 131. 006197,000004: # It is part of the source code for the Lunar Module's (LM) 006198,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 006199,000006: # This file is intended to be a faithful transcription, except 006200,000007: # that the code format has been changed to conform to the 006201,000008: # requirements of the yaYUL assembler rather than the 006202,000009: # original YUL assembler. 006203,000010: # Reference: pp. 160-161 of 1729.pdf. 006204,000011: # Contact: Ron Burkey <info@sandroid.org>. 006205,000012: # Website: www.ibiblio.org/apollo/index.html 006206,000013: # Mod history: 04/11/03 RSB. Began transcribing. 006207,000014: # 05/14/05 RSB Corrected website reference above. 006208,000015: 006209,000016: # Page 160 006210,000017: 4000 SETLOC 4000 006211,000018: 006212,000019: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS 006213,000020: 4000 00004 INHINT # GO 006214,000021: 4001 34054 CAF GOBB 006215,000022: 4002 56006 XCH BBANK 006216,000023: 4003 12665 TCF GOPROG 006217,000024: 006218,000025: 4004 52011 DXCH ARUPT # T6RUPT 006219,000026: 4005 00006 EXTEND 006220,000027: 4006 34056 DCA T6ADR 006221,000028: 4007 52006 DTCB 006222,000029: 006223,000030: 4010 52011 DXCH ARUPT # T5RUPT -- AUTOPILOT 006224,000031: 4011 00006 EXTEND 006225,000032: 4012 31264 DCA T5ADR 006226,000033: 4013 52006 DTCB 006227,000034: 006228,000035: 4014 52011 DXCH ARUPT # T3RUPT 006229,000036: 4015 34057 CAF T3RPTBB 006230,000037: 4016 56006 XCH BBANK 006231,000038: 4017 13410 TCF T3RUPT 006232,000039: 006233,000040: 4020 52011 DXCH ARUPT # T4RUPT 006234,000041: 4021 34064 CAF T4RPTBB 006235,000042: 4022 56006 XCH BBANK 006236,000043: 4023 12000 TCF T4RUPT 006237,000044: 006238,000045: 4024 52011 DXCH ARUPT # KEYRUPT1 006239,000046: 4025 34060 CAF KEYRPTBB 006240,000047: 4026 56006 XCH BBANK 006241,000048: 4027 13253 TCF KEYRUPT1 006242,000049: 006243,000050: 4030 52011 DXCH ARUPT # KEYRUPT2 006244,000051: 4031 34061 CAF MKRUPTBB 006245,000052: 4032 56006 XCH BBANK 006246,000053: 4033 12332 TCF MARKRUPT 006247,000054: 006248,000055: 4034 52011 DXCH ARUPT # UPRUPT 006249,000056: 4035 34060 CAF UPRPTBB 006250,000057: 4036 56006 XCH BBANK 006251,000058: 4037 13276 TCF UPRUPT 006252,000059: 006253,000060: 4040 52011 DXCH ARUPT # DOWNRUPT 006254,000061: 4041 34062 CAF DWNRPTBB 006255,000062: 4042 56006 XCH BBANK 006256,000063: 4043 13505 TCF DODOWNTM 006257,000064: 006258,000065: 4044 52011 DXCH ARUPT # RADAR RUPT 006259,000066: 4045 34063 CAF RDRPTBB 006260,000067: # Page 161 006261,000068: 4046 56006 XCH BBANK 006262,000069: 4047 13157 TCF RADAREAD 006263,000070: 006264,000071: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE 006265,000072: 4051 34065 CA RUPT10BB 006266,000073: 4052 56006 XCH BBANK 006267,000074: 4053 12302 TCF PITFALL 006268,000075: 006269,000076: 4054 E3,1400 EBANK= LST1 # RESTART USES E0,E3 006270,000077: 4054 12103 GOBB BBCON GOPROG 006271,000078: 006272,000079: 4055 E6,1464 EBANK= PERROR 006273,000080: 4055 02117 36106 T6ADR 2CADR DOT6RUPT 006274,000081: 006275,000082: 4057 E3,1400 EBANK= LST1 006276,000083: 4057 02103 T3RPTBB BBCON T3RUPT 006277,000084: 006278,000085: 4060 0073 EBANK= KEYTEMP1 006279,000086: 4060 10100 KEYRPTBB BBCON KEYRUPT1 006280,000087: 006281,000088: 4061 E7,1404 EBANK= AOTAZ 006282,000089: 4061 16107 MKRUPTBB BBCON MARKRUPT 006283,000090: 006284,000091: 4062 4060 UPRPTBB = KEYRPTBB 006285,000092: 006286,000093: 4062 0340 EBANK= DNTMBUFF 006287,000094: 4062 12100 DWNRPTBB BBCON DODOWNTM 006288,000095: 006289,000096: 4063 E7,1453 EBANK= TTOGO 006290,000097: 4063 52107 RDRPTBB BBCON RADAREAD 006291,000098: 006292,000099: 4064 E6,1414 EBANK= M11 006293,000100: 4064 14106 T4RPTBB BBCON T4RUPT 006294,000101: 006295,000102: 4065 E7,1444 EBANK= ELVIRA 006296,000103: 4065 22107 RUPT10BB BBCON PITFALL 006297,000104: End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc