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.

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

Page 139

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

Page 140

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

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