Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
006057,000002: # Copyright: Public domain.
006058,000003: # Filename: INTERRUPT_LEAD_INS.agc
006059,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
006060,000005: # build 072. This is for the Command Module's (CM)
006061,000006: # Apollo Guidance Computer (AGC), we believe for
006062,000007: # Apollo 15-17.
006063,000008: # Assembler: yaYUL
006064,000009: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
006065,000010: # Website: www.ibiblio.org/apollo/index.html
006066,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
006067,000012: # Mod history: 2009-07-25 JL Adapted from corresponding Comanche 055 file.
006068,000013: # 2010-02-02 JL Added missing RESUME.
006069,000014: # 2010-02-20 RSB Un-##'d this header.
006070,000015:
006071,000016: # # Page 139
006072,000017: 4000 SETLOC 4000
006073,000018:
006074,000019: 4000 COUNT* $$/RUPTS
006075,000020:
006076,000021: 4000 00004 INHINT # GO
006077,000022: 4001 34051 CAF GOBB
006078,000023: 4002 56006 XCH BBANK
006079,000024: 4003 12563 TCF GOPROG
006080,000025:
006081,000026: 4004 52011 DXCH ARUPT # T6RUPT
006082,000027: 4005 00006 EXTEND
006083,000028: 4006 30111 DCA T6LOC
006084,000029: 4007 52006 DTCB
006085,000030:
006086,000031: 4010 52011 DXCH ARUPT # T5RUPT
006087,000032: 4011 40030 CS TIME5
006088,000033: 4012 65011 AD .5SEC
006089,000034: 4013 14056 TCF T5RUPT
006090,000035:
006091,000036: 4014 52011 DXCH ARUPT # T3RUPT
006092,000037: 4015 35254 CAF T3RPTBB
006093,000038: 4016 56006 XCH BBANK
006094,000039: 4017 13362 TCF T3RUPT
006095,000040:
006096,000041: 4020 52011 DXCH ARUPT # T4RUPT
006097,000042: 4021 34054 CAF T4RPTBB
006098,000043: 4022 56006 XCH BBANK
006099,000044: 4023 12000 TCF T4RUPT
006100,000045:
006101,000046: 4024 52011 DXCH ARUPT # KEYRUPT1
006102,000047: 4025 34052 CAF KEYRPTBB
006103,000048: 4026 56006 XCH BBANK
006104,000049: 4027 13666 TCF KEYRUPT1
006105,000050:
006106,000051: 4030 52011 DXCH ARUPT # KEYRUPT2
006107,000052: 4031 34052 CAF MKRUPTBB
006108,000053: 4032 56006 XCH BBANK
006109,000054: 4033 12105 TCF MARKRUPT
006110,000055:
006111,000056: 4034 52011 DXCH ARUPT # UPRUPT
006112,000057: 4035 34052 CAF UPRPTBB
006113,000058: 4036 56006 XCH BBANK
006114,000059: 4037 13710 TCF UPRUPT
006115,000060:
006116,000061: 4040 52011 DXCH ARUPT # DOWNRUPT
006117,000062: 4041 34051 CAF DWNRPTBB
006118,000063: 4042 56006 XCH BBANK
006119,000064: 4043 14621 TCF DODOWNTM
006120,000065:
006121,000066: 4044 52011 DXCH ARUPT # RADAR RUPT
006122,000067: 4045 34053 CAF RDRPTBB
006123,000068: # # Page 140
006124,000069: 4046 56006 XCH BBANK
006125,000070: 4047 12536 TCF VHFREAD
006126,000071:
006127,000072: 4050 50017 RESUME
006128,000073:
006129,000074: 4051 E3,1400 EBANK= LST1 # RESTART USES E0,E3
006130,000075: 4051 12063 GOBB BBCON GOPROG
006131,000076:
006132,000077: 4052 E3,1400 EBANK= LST1
006133,000078: 4052 5254 T3RPTBB EQUALS WAITBB
006134,000079: 4052 4052 KEYRPTBB = MKRUPTBB
006135,000080:
006136,000081: 4052 E7,1722 EBANK= MRKBUF1
006137,000082: 4052 16067 MKRUPTBB BBCON MARKRUPT
006138,000083: 4053 4052 UPRPTBB = KEYRPTBB
006139,000084: 4053 4051 DWNRPTBB = GOBB
006140,000085:
006141,000086: 4053 E7,1703 EBANK= RM
006142,000087: 4053 56067 RDRPTBB BBCON VHFREAD
006143,000088: 4054 1322 EBANK= DSRUPTSW
006144,000089: 4054 14062 T4RPTBB BBCON T4RUPT
006145,000090: 4055 0025 EBANK= TIME1
006146,000091: 4055 04060 T5RPTBB BBCON T5RUPT
006147,000092:
006148,000093: 4056 00006 T5RUPT EXTEND
006149,000094: 4057 65327 BZMF NOQBRSM
006150,000095: 4060 00006 EXTEND
006151,000096: 4061 30113 DCA T5LOC
006152,000097: 4062 52006 DTCB
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc