Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

063832,000002:                                                                                                  ## Copyright:   Public domain.
063833,000003:                                                                                                  ## Filename:    KALMAN_FILTER.agc
063834,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
063835,000005:                                                                                                  ##              It is part of the source code for the original release
063836,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
063837,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
063838,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
063839,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
063840,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
063841,000011:                                                                                                  ##              that the code format has been changed to conform to the
063842,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
063843,000013:                                                                                                  ##              original YUL assembler.
063844,000014:                                                                                                  ## Reference:   pp. 1465-1466
063845,000015:                                                                                                  ## Assembler:   yaYUL
063846,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
063847,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
063848,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
063849,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
063850,000020:                                                                                                  ##              2016-12-22 IJK  Updated for Luminary 69.
063851,000021:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
063852,000022:                                                                                                  ##                              but no errors found.
063853,000023: 

Page 1465

063855,000025: 17,3700  E6,1522                                  EBANK=   NO.UJETS                              
063856,000026: 16,3624                                           BANK     16                                    
063857,000027: 16,2000                                           SETLOC   DAPS1                                 
063858,000028: 16,2000                                           BANK                                           
063859,000029: 
063860,000030: 16,3624                                           COUNT*   $$/DAP                                
063861,000031: 
063862,000032: 16,3624           34752        RATELOOP           CA       TWO                                   
063863,000033: 16,3625           55742                           TS       DAPTEMP6                              
063864,000034: 16,3626           60000                           DOUBLE                                         
063865,000035: 16,3627           54002                           TS       Q                                     
063866,000036: 16,3630           51742                           INDEX    DAPTEMP6                              
063867,000037: 16,3631           11524                           CCS      TJP                                   
063868,000038: 16,3632           13634                           TCF      +2                                    
063869,000039: 16,3633           13653                           TCF      LOOPRATE                              
063870,000040: 16,3634           63714                           AD       -100MST6                              
063871,000041: 16,3635           00006                           EXTEND                                         
063872,000042: 16,3636           63672                           BZMF     SMALLTJU                              
063873,000043: 16,3637           51742                           INDEX    DAPTEMP6                              
063874,000044: 16,3640           11524                           CCS      TJP                                   
063875,000045: 16,3641           33714                           CA       -100MST6                              
063876,000046: 16,3642           13644                           TCF      +2                                    
063877,000047: 16,3643           43714                           CS       -100MST6                              
063878,000048: 16,3644           51742                           INDEX    DAPTEMP6                              
063879,000049: 16,3645           27524                           ADS      TJP                                   
063880,000050: 16,3646           51742                           INDEX    DAPTEMP6                              
063881,000051: 16,3647           11524                           CCS      TJP                                   
063882,000052: 16,3650           43600                           CS       -100MS                                #  0.1 AT 1
063883,000053: 16,3651           13653                           TCF      +2                                    
063884,000054: 16,3652           33600                           CA       -100MS                                
063885,000055: 16,3653           00006        LOOPRATE           EXTEND                                         
063886,000056: 16,3654           51742                           INDEX    DAPTEMP6                              
063887,000057: 16,3655           71521                           MP       NO.PJETS                              
063888,000058: 16,3656           30001                           CA       L                                     
063889,000059: 16,3657           51742                           INDEX    DAPTEMP6                              
063890,000060: 16,3660           55735                           TS       DAPTEMP1                              #  SIGNED TORQUE AT 1 JET-SEC FOR FILTER
063891,000061: 16,3661           00006                           EXTEND                                         
063892,000062: 16,3662           74742                           MP       BIT10                                 #  RESCALE TO 32; ONE BIT ABOUT 2 JET-MSEC
063893,000063: 16,3663           00006                           EXTEND                                         
063894,000064: 16,3664           63715                           BZMF     NEGTORK                               
063895,000065: 16,3665           50002        STORTORK           INDEX    Q                                     #  INCREMENT DOWNLIST REGISTER.
063896,000066: 16,3666           27513                           ADS      DOWNTORK                              #    NOTE: NOT INITIALIZED; OVERFLOWS.
063897,000067: 
063898,000068: 16,3667           11742                           CCS      DAPTEMP6                              
063899,000069: 16,3670           13625                           TCF      RATELOOP   +1                         
063900,000070: 16,3671           13701                           TCF      ROTORQUE                              
063901,000071: 16,3672           34755        SMALLTJU           CA       ZERO                                  
063902,000072: 16,3673           51742                           INDEX    DAPTEMP6                              
063903,000073: 16,3674           57524                           XCH      TJP                                   
063904,000074: 16,3675           00006                           EXTEND                                         

Page 1466

063906,000076: 16,3676           74760                           MP       ELEVEN                                #  10.24 PLUS
063907,000077: 16,3677           30001                           CA       L                                     
063908,000078: 16,3700           13653                           TCF      LOOPRATE                              
063909,000079: 16,3701           31736        ROTORQUE           CA       DAPTEMP2                              
063910,000080: 16,3702           61737                           AD       DAPTEMP3                              
063911,000081: 16,3703           00006                           EXTEND                                         
063912,000082: 16,3704           71532                           MP       1JACCR                                
063913,000083: 16,3705           55745                           TS       JETRATER                              
063914,000084: 16,3706           41737                           CS       DAPTEMP3                              
063915,000085: 16,3707           61736                           AD       DAPTEMP2                              
063916,000086: 16,3710           00006                           EXTEND                                         
063917,000087: 16,3711           71531                           MP       1JACCQ                                
063918,000088: 16,3712           55744                           TS       JETRATEQ                              
063919,000089: 16,3713           12305                           TCF      BACKP                                 
063920,000090: 16,3714           77537        -100MST6           DEC      -160       B-14                       
063921,000091: 
063922,000092: 16,3715           40000        NEGTORK            COM                                            
063923,000093: 16,3716           24002                           INCR     Q                                     
063924,000094: 16,3717           13665                           TCF      STORTORK                              
063925,000095: 
063926,000096: 

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