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