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