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