Source Code

005209,000001: # Copyright: Public domain. 005210,000002: # Filename: INTERRUPT_LEAD_INS.agc 005211,000003: # Purpose: Part of the source code for Colossus, build 249. 005212,000004: # It is part of the source code for the Command Module's (CM) 005213,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 005214,000006: # Assembler: yaYUL 005215,000007: # Reference: pp. 129-130 of 1701.pdf. 005216,000008: # Contact: Ron Burkey <info@sandroid.org>. 005217,000009: # Website: www.ibiblio.org/apollo. 005218,000010: # Mod history: 08/06/04 RSB. Adapted from similar Luminary 131 file. 005219,000011: 005220,000012: # The contents of the "Colossus249" files, in general, are transcribed 005221,000013: # from a scanned document obtained from MIT's website, 005222,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 005223,000015: # document read, in part: 005224,000016: 005225,000017: # Assemble revision 249 of AGC program Colossus by NASA 005226,000018: # 2021111-041. October 28, 1968. 005227,000019: 005228,000020: # This AGC program shall also be referred to as 005229,000021: # Colossus 1A 005230,000022: 005231,000023: # Prepared by 005232,000024: # Massachusetts Institute of Technology 005233,000025: # 75 Cambridge Parkway 005234,000026: # Cambridge, Massachusetts 005235,000027: # under NASA contract NAS 9-4065. 005236,000028: 005237,000029: # Refer directly to the online document mentioned above for further information. 005238,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 005239,000031: 005240,000032: # In some cases, where the source code for Luminary 131 overlaps that of 005241,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131 005242,000034: # source file, and then is proofed to incorporate any changes. 005243,000035: 005244,000036: # Page 129 005245,000037: 4000 SETLOC 4000 005246,000038: 005247,000039: 4000 COUNT 02/RUPTS 005248,000040: 005249,000041: 4000 00004 INHINT # GO 005250,000042: 4001 34054 CAF GOBB 005251,000043: 4002 56006 XCH BBANK 005252,000044: 4003 12520 TCF GOPROG 005253,000045: 005254,000046: 4004 52011 DXCH ARUPT # T6RUPT 005255,000047: 4005 00006 EXTEND 005256,000048: 4006 31311 DCA T6LOC 005257,000049: 4007 52006 DTCB 005258,000050: 005259,000051: 4010 52011 DXCH ARUPT # T5RUPT 005260,000052: 4011 40030 CS TIME5 005261,000053: 4012 64731 AD .5SEC 005262,000054: 4013 14065 TCF T5RUPT 005263,000055: 005264,000056: 4014 52011 DXCH ARUPT # T3RUPT 005265,000057: 4015 34055 CAF T3RPTBB 005266,000058: 4016 56006 XCH BBANK 005267,000059: 4017 13416 TCF T3RUPT 005268,000060: 005269,000061: 4020 52011 DXCH ARUPT # T4RUPT 005270,000062: 4021 34063 CAF T4RPTBB 005271,000063: 4022 56006 XCH BBANK 005272,000064: 4023 12000 TCF T4RUPT 005273,000065: 005274,000066: 4024 52011 DXCH ARUPT # KEYRUPT1 005275,000067: 4025 34056 CAF KEYRPTBB 005276,000068: 4026 56006 XCH BBANK 005277,000069: 4027 13613 TCF KEYRUPT1 005278,000070: 005279,000071: 4030 52011 DXCH ARUPT # KEYRUPT2 005280,000072: 4031 34057 CAF MKRUPTBB 005281,000073: 4032 56006 XCH BBANK 005282,000074: 4033 12103 TCF MARKRUPT 005283,000075: 005284,000076: 4034 52011 DXCH ARUPT # UPRUPT 005285,000077: 4035 34056 CAF UPRPTBB 005286,000078: 4036 56006 XCH BBANK 005287,000079: 4037 13636 TCF UPRUPT 005288,000080: 005289,000081: 4040 52011 DXCH ARUPT # DOWNRUPT 005290,000082: 4041 34060 CAF DWNRPTBB 005291,000083: 4042 56006 XCH BBANK 005292,000084: 4043 13342 TCF DODOWNTM 005293,000085: 005294,000086: 4044 52011 DXCH ARUPT # RADAR RUPT 005295,000087: # Page 130 005296,000088: 4045 34061 CAF RDRPTBB 005297,000089: 4046 56006 XCH BBANK 005298,000090: 4047 12476 TCF VHFREAD 005299,000091: 005300,000092: 4050 52011 DXCH ARUPT # HAND CONTROL RUPT 005301,000093: 4051 34062 CA HCRUPTBB 005302,000094: 4052 56006 XCH BBANK 005303,000095: 4053 15225 TCF RESUME +3 # NOT USED 005304,000096: 005305,000097: 4054 E3,1400 EBANK= LST1 # RESTART USES E0,E3 005306,000098: 4054 12063 GOBB BBCON GOPROG 005307,000099: 005308,000100: 4055 E3,1400 EBANK= LST1 005309,000101: 4055 02063 T3RPTBB BBCON T3RUPT 005310,000102: 005311,000103: 4056 0073 EBANK= KEYTEMP1 005312,000104: 4056 16060 KEYRPTBB BBCON KEYRUPT1 005313,000105: 005314,000106: 4057 E7,1725 EBANK= MRKBUF1 005315,000107: 4057 16067 MKRUPTBB BBCON MARKRUPT 005316,000108: 005317,000109: 4060 4056 UPRPTBB = KEYRPTBB 005318,000110: 005319,000111: 4060 0340 EBANK= DNTMBUFF 005320,000112: 4060 12060 DWNRPTBB BBCON DODOWNTM 005321,000113: 005322,000114: 4061 E7,1603 EBANK= DATATEST 005323,000115: 4061 56067 RDRPTBB BBCON VHFREAD 005324,000116: 005325,000117: 4062 0025 EBANK= TIME1 005326,000118: 4062 04060 HCRUPTBB BBCON RESUME # NOT USA 005327,000119: 005328,000120: 4063 1302 EBANK= DSRUPTSW 005329,000121: 4063 14062 T4RPTBB BBCON T4RUPT 005330,000122: 005331,000123: 4064 0025 EBANK= TIME1 005332,000124: 4064 04060 T5RPTBB BBCON T5RUPT 005333,000125: 005334,000126: 4065 00006 T5RUPT EXTEND 005335,000127: 4066 65226 BZMF NOQBRSM 005336,000128: 4067 00006 EXTEND 005337,000129: 4070 31313 DCA T5LOC 005338,000130: 4071 52006 DTCB 005339,000131: 005340,000132: End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc