Source Code

These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9 LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of original core rope program modules, as follows: B1 — Revision 292 B2 — Revision 302 B3 — Revision 302 B4 — Revision 302 B5 — Revision 292 B6 — Revision 306 These dumps were then modified using memos, checklists, observed address changes, and the Sundance GSOPs to get the entire program to match Sundance revision 306 as closely as possible. Without more information, it is not possible to say how close it actually is; however, this code should be quite close. It is capable of flying the whole Apollo 9 mission using the original checklists and padload. Since only binary dumps (rather than listings) of Sundance 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.

058403,000002:                                                                                                  ## Copyright:   Public domain.
058404,000003:                                                                                                  ## Filename:    KALMAN_FILTER.agc
058405,000004:                                                                                                  ## Purpose:     A section of an attempt to reconstruct Sundance revision 306
058406,000005:                                                                                                  ##              as closely as possible with available information. Sundance
058407,000006:                                                                                                  ##              306 is the source code for the Lunar Module's (LM) Apollo
058408,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 9. This program was created
058409,000008:                                                                                                  ##              using the mixed-revision SundanceXXX as a starting point, and
058410,000009:                                                                                                  ##              pulling back features from Luminary 69 believed to have been
058411,000010:                                                                                                  ##              added based on memos, checklists, observed address changes,
058412,000011:                                                                                                  ##              or the Sundance GSOPs.
058413,000012:                                                                                                  ## Assembler:   yaYUL
058414,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
058415,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
058416,000015:                                                                                                  ## Mod history: 2020-07-24 MAS  Created from SundanceXXX.
058417,000016: 
058418,000017: 
058419,000018: 
058420,000019: 17,3526  E6,1514                                  EBANK=   NO.UJETS                              
058421,000020: 16,3705                                           BANK     16                                    
058422,000021: 16,2000                                           SETLOC   DAPS1                                 
058423,000022: 16,2000                                           BANK                                           
058424,000023: 
058425,000024: 16,3705                                           COUNT*   $$/DAP                                
058426,000025: 
058427,000026: 16,3705           35025        RATELOOP           CA       TWO                                   
058428,000027: 16,3706           55741                           TS       DAPTEMP6                              
058429,000028: 16,3707           51741                           INDEX    DAPTEMP6                              
058430,000029: 16,3710           11516                           CCS      TJP                                   
058431,000030: 16,3711           13713                           TCF      +2                                    
058432,000031: 16,3712           13732                           TCF      LOOPRATE                              
058433,000032: 16,3713           63764                           AD       -100MST6                              
058434,000033: 16,3714           00006                           EXTEND                                         
058435,000034: 16,3715           63742                           BZMF     SMALLTJU                              
058436,000035: 16,3716           51741                           INDEX    DAPTEMP6                              
058437,000036: 16,3717           11516                           CCS      TJP                                   
058438,000037: 16,3720           33764                           CA       -100MST6                              
058439,000038: 16,3721           13723                           TCF      +2                                    
058440,000039: 16,3722           43764                           CS       -100MST6                              
058441,000040: 16,3723           51741                           INDEX    DAPTEMP6                              
058442,000041: 16,3724           27516                           ADS      TJP                                   
058443,000042: 16,3725           51741                           INDEX    DAPTEMP6                              
058444,000043: 16,3726           11516                           CCS      TJP                                   
058445,000044: 16,3727           43661                           CS       -100MS                                #  0.1 AT 1
058446,000045: 16,3730           13732                           TCF      +2                                    
058447,000046: 16,3731           33661                           CA       -100MS                                
058448,000047: 16,3732           00006        LOOPRATE           EXTEND                                         
058449,000048: 16,3733           51741                           INDEX    DAPTEMP6                              
058450,000049: 16,3734           71513                           MP       NO.PJETS                              
058451,000050: 16,3735           51741                           INDEX    DAPTEMP6                              
058452,000051: 16,3736           23734                           LXCH     DAPTEMP1                              #  SIGNED TORQUE AT 1 JET-SEC FOR FILTER
058453,000052: 16,3737           11741                           CCS      DAPTEMP6                              
058454,000053: 16,3740           13706                           TCF      RATELOOP   +1                         
058455,000054: 16,3741           13751                           TCF      ROTORQUE                              
058456,000055: 16,3742           35030        SMALLTJU           CA       ZERO                                  
058457,000056: 16,3743           51741                           INDEX    DAPTEMP6                              
058458,000057: 16,3744           57516                           XCH      TJP                                   
058459,000058: 16,3745           00006                           EXTEND                                         
058460,000059: 16,3746           74375                           MP       TEN                                   
058461,000060: 16,3747           30001                           CA       L                                     
058462,000061: 16,3750           13732                           TCF      LOOPRATE                              
058463,000062: 16,3751           31735        ROTORQUE           CA       DAPTEMP2                              
058464,000063: 16,3752           61736                           AD       DAPTEMP3                              
058465,000064: 16,3753           00006                           EXTEND                                         
058466,000065: 16,3754           71524                           MP       1JACCR                                
058467,000066: 16,3755           55744                           TS       JETRATER                              
058468,000067: 16,3756           41736                           CS       DAPTEMP3                              
058469,000068: 16,3757           61735                           AD       DAPTEMP2                              
058470,000069: 16,3760           00006                           EXTEND                                         
058471,000070: 16,3761           71523                           MP       1JACCQ                                
058472,000071: 16,3762           55743                           TS       JETRATEQ                              
058473,000072: 16,3763           12532                           TCF      BACKP                                 
058474,000073: 16,3764           77537        -100MST6           DEC      -160       B-14                       
058475,000074: 

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