Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

005200,000002:                                                                                                  ## Copyright:   Public domain.
005201,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
005202,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
005203,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
005204,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
005205,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
005206,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
005207,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
005208,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
005209,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
005210,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
005211,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
005212,000014:                                                                                                  ##              reconstruction is correct.
005213,000015:                                                                                                  ## Assembler:   yaYUL
005214,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
005215,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
005216,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
005217,000019: 
005218,000020:    4000                                           SETLOC   4000                                  
005219,000021: 
005220,000022:    4000                                           COUNT    02/RUPTS                              
005221,000023: 
005222,000024:    4000           00004                           INHINT                                         #  GO
005223,000025:    4001           34054                           CAF      GOBB                                  
005224,000026:    4002           56006                           XCH      BBANK                                 
005225,000027:    4003           12526                           TCF      GOPROG                                
005226,000028: 
005227,000029:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
005228,000030:    4005           00006                           EXTEND                                         
005229,000031:    4006           31311                           DCA      T6LOC                                 
005230,000032:    4007           52006                           DTCB                                           
005231,000033: 
005232,000034:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT
005233,000035:    4011           40030                           CS       TIME5                                 
005234,000036:    4012           65052                           AD       .5SEC                                 
005235,000037:    4013           14065                           TCF      T5RUPT                                
005236,000038: 
005237,000039:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
005238,000040:    4015           34055                           CAF      T3RPTBB                               
005239,000041:    4016           56006                           XCH      BBANK                                 
005240,000042:    4017           13416                           TCF      T3RUPT                                
005241,000043: 
005242,000044:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
005243,000045:    4021           34063                           CAF      T4RPTBB                               
005244,000046:    4022           56006                           XCH      BBANK                                 
005245,000047:    4023           12000                           TCF      T4RUPT                                
005246,000048: 
005247,000049:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
005248,000050:    4025           34056                           CAF      KEYRPTBB                              
005249,000051:    4026           56006                           XCH      BBANK                                 
005250,000052:    4027           13673                           TCF      KEYRUPT1                              
005251,000053: 
005252,000054:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
005253,000055:    4031           34057                           CAF      MKRUPTBB                              
005254,000056:    4032           56006                           XCH      BBANK                                 
005255,000057:    4033           12104                           TCF      MARKRUPT                              
005256,000058: 
005257,000059:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
005258,000060:    4035           34056                           CAF      UPRPTBB                               
005259,000061:    4036           56006                           XCH      BBANK                                 
005260,000062:    4037           13716                           TCF      UPRUPT                                
005261,000063: 
005262,000064:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
005263,000065:    4041           34060                           CAF      DWNRPTBB                              
005264,000066:    4042           56006                           XCH      BBANK                                 
005265,000067:    4043           14662                           TCF      DODOWNTM                              
005266,000068: 
005267,000069:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT
005268,000070:    4045           34061                           CAF      RDRPTBB                               
005269,000071:    4046           56006                           XCH      BBANK                                 
005270,000072:    4047           12505                           TCF      VHFREAD                               
005271,000073: 
005272,000074:    4050           52011                           DXCH     ARUPT                                 #  HAND CONTROL RUPT
005273,000075:    4051           34062                           CAF      HCRUPTBB                              
005274,000076:    4052           56006                           XCH      BBANK                                 
005275,000077:    4053           15352                           TCF      RESUME     +3                         #  NOT USED
005276,000078: 
005277,000079:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0,E3
005278,000080:    4054           12063        GOBB               BBCON    GOPROG                                
005279,000081: 
005280,000082:    4055  E3,1400                                  EBANK=   LST1                                  
005281,000083:    4055           02063        T3RPTBB            BBCON    T3RUPT                                
005282,000084: 
005283,000085:    4056     0073                                  EBANK=   KEYTEMP1                              
005284,000086:    4056           16060        KEYRPTBB           BBCON    KEYRUPT1                              
005285,000087: 
005286,000088:    4057  E7,1725                                  EBANK=   MRKBUF1                               
005287,000089:    4057           16067        MKRUPTBB           BBCON    MARKRUPT                              
005288,000090: 
005289,000091:    4060     4056               UPRPTBB            =        KEYRPTBB                              
005290,000092: 
005291,000093:    4060     0337                                  EBANK=   DNTMBUFF                              
005292,000094:    4060           12060        DWNRPTBB           BBCON    DNPHASE1                              
005293,000095: 
005294,000096:    4061  E7,1603                                  EBANK=   DATATEST                              
005295,000097:    4061           56067        RDRPTBB            BBCON    VHFREAD                               
005296,000098: 
005297,000099:    4062     0025                                  EBANK=   TIME1                                 
005298,000100:    4062           04060        HCRUPTBB           BBCON    RESUME                                #  NOT USED
005299,000101: 
005300,000102:    4063     1302                                  EBANK=   DSRUPTSW                              
005301,000103:    4063           14062        T4RPTBB            BBCON    T4RUPT                                
005302,000104: 
005303,000105:    4064     0025                                  EBANK=   TIME1                                 
005304,000106:    4064           04060        T5RPTBB            BBCON    T5RUPT                                
005305,000107: 
005306,000108:    4065           00006        T5RUPT             EXTEND                                         
005307,000109:    4066           65353                           BZMF     NOQBRSM                               
005308,000110:    4067           00006                           EXTEND                                         
005309,000111:    4070           31313                           DCA      T5LOC                                 
005310,000112:    4071           52006                           DTCB                                           
005311,000113: 
005312,000114: 
005313,000115: 

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