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