Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

006090,000002:                                                                                                  ## Copyright:   Public domain.
006091,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
006092,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
006093,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
006094,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
006095,000007:                                                                                                  ##              Apollo 15-17.
006096,000008:                                                                                                  ## Assembler:   yaYUL
006097,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
006098,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
006099,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
006100,000012:                                                                                                  ## Mod history: 2009-07-25 JL   Adapted from corresponding Comanche 055 file.
006101,000013:                                                                                                  ##              2010-02-02 JL   Added missing RESUME.
006102,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
006103,000015:                                                                                                  ##              2017-02-05 RSB  Proofed comment text by diff'ing vs Comanche 55
006104,000016:                                                                                                  ##                              but no differences found.
006105,000017: 

Page 139

006107,000019:    4000                                           SETLOC   4000                                  
006108,000020: 
006109,000021:    4000                                           COUNT*   $$/RUPTS                              
006110,000022: 
006111,000023:    4000           00004                           INHINT                                         #  GO
006112,000024:    4001           34051                           CAF      GOBB                                  
006113,000025:    4002           56006                           XCH      BBANK                                 
006114,000026:    4003           12563                           TCF      GOPROG                                
006115,000027: 
006116,000028:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
006117,000029:    4005           00006                           EXTEND                                         
006118,000030:    4006           30111                           DCA      T6LOC                                 
006119,000031:    4007           52006                           DTCB                                           
006120,000032: 
006121,000033:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT
006122,000034:    4011           40030                           CS       TIME5                                 
006123,000035:    4012           65011                           AD       .5SEC                                 
006124,000036:    4013           14056                           TCF      T5RUPT                                
006125,000037: 
006126,000038:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
006127,000039:    4015           35254                           CAF      T3RPTBB                               
006128,000040:    4016           56006                           XCH      BBANK                                 
006129,000041:    4017           13362                           TCF      T3RUPT                                
006130,000042: 
006131,000043:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
006132,000044:    4021           34054                           CAF      T4RPTBB                               
006133,000045:    4022           56006                           XCH      BBANK                                 
006134,000046:    4023           12000                           TCF      T4RUPT                                
006135,000047: 
006136,000048:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
006137,000049:    4025           34052                           CAF      KEYRPTBB                              
006138,000050:    4026           56006                           XCH      BBANK                                 
006139,000051:    4027           13666                           TCF      KEYRUPT1                              
006140,000052: 
006141,000053:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
006142,000054:    4031           34052                           CAF      MKRUPTBB                              
006143,000055:    4032           56006                           XCH      BBANK                                 
006144,000056:    4033           12105                           TCF      MARKRUPT                              
006145,000057: 
006146,000058:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
006147,000059:    4035           34052                           CAF      UPRPTBB                               
006148,000060:    4036           56006                           XCH      BBANK                                 
006149,000061:    4037           13710                           TCF      UPRUPT                                
006150,000062: 
006151,000063:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
006152,000064:    4041           34051                           CAF      DWNRPTBB                              
006153,000065:    4042           56006                           XCH      BBANK                                 
006154,000066:    4043           14621                           TCF      DODOWNTM                              
006155,000067: 
006156,000068:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT
006157,000069:    4045           34053                           CAF      RDRPTBB                               

Page 140

006159,000071:    4046           56006                           XCH      BBANK                                 
006160,000072:    4047           12536                           TCF      VHFREAD                               
006161,000073: 
006162,000074:    4050           50017                           RESUME                                         
006163,000075: 
006164,000076:    4051  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0,E3
006165,000077:    4051           12063        GOBB               BBCON    GOPROG                                
006166,000078: 
006167,000079:    4052  E3,1400                                  EBANK=   LST1                                  
006168,000080:    4052     5254               T3RPTBB            EQUALS   WAITBB                                
006169,000081:    4052     4052               KEYRPTBB           =        MKRUPTBB                              
006170,000082: 
006171,000083:    4052  E7,1722                                  EBANK=   MRKBUF1                               
006172,000084:    4052           16067        MKRUPTBB           BBCON    MARKRUPT                              
006173,000085:    4053     4052               UPRPTBB            =        KEYRPTBB                              
006174,000086:    4053     4051               DWNRPTBB           =        GOBB                                  
006175,000087: 
006176,000088:    4053  E7,1703                                  EBANK=   RM                                    
006177,000089:    4053           56067        RDRPTBB            BBCON    VHFREAD                               
006178,000090:    4054     1322                                  EBANK=   DSRUPTSW                              
006179,000091:    4054           14062        T4RPTBB            BBCON    T4RUPT                                
006180,000092:    4055     0025                                  EBANK=   TIME1                                 
006181,000093:    4055           04060        T5RPTBB            BBCON    T5RUPT                                
006182,000094: 
006183,000095:    4056           00006        T5RUPT             EXTEND                                         
006184,000096:    4057           65327                           BZMF     NOQBRSM                               
006185,000097:    4060           00006                           EXTEND                                         
006186,000098:    4061           30113                           DCA      T5LOC                                 
006187,000099:    4062           52006                           DTCB                                           

End of include-file INTERRUPT_LEAD_INS.agc.  Parent file is MAIN.agc