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